XProfan

Français

allô et schönen journée aus Österreich !
j'ai une Frage: il me faut un Programme avec dem on simple Säulen (Zylinder) zeichnen peux - aucun Diagramme, mais libre anordenbar. Kennt quelqu'un de euch so un Programme ?

Kompilieren Marque Séparation

 {$cleq}
cls
showMax

do {

    myPillar(rnd(maxx-100),rnd(maxy),rnd(150))
    copyBmp 1,0 - maxx,maxy > 0,0;0

}

end

myPillar(long x,y,h){

    usepen 0,,0
    useBrush 1,$AAAAAA
    rectangle x,y+5 - x+20,y+5+h
    ellipse x,y+h - x+20,y+10+h
    usePen 5,,0
    rectangle 1+x,y+5 - x+20,y+5+h
    usepen 0,,0
    ellipse x,y - x+20,y+10

r=#0000FF>}

03.09.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Gerhard
Praher

Vielen Dank !

So gehts aussi.

Gerhard

Windows XP Pro, SP3
Jetzt: XProfan 11
Was ich liebe sind 3 "F": meine Familie, meine Firma, meine Freizeit.

03.09.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

KHR

Konnte je selbst aussi bien gebrauchen,

habs daher justement dans profan umgestrickt et juste encore bunt gemacht
Kompilieren Marque Séparation

cls
showMax
declare a1&, a2&,a3&

whilenot 0

    a1& = @rnd(%maxx-100)
    a2& = @rnd(%maxy)
    a3& = @rnd(150)
    myPillar a1&,a2&,a3&, @rgb( @rnd(255),@rnd(255),@rnd(255) )
    copyBmp 1,0 - %maxx,%maxy > 0,0;0

endwhile

end

proc myPillar

    parameters  x&,y&,h& , c&
    usepen 0,1,0
    useBrush 1,$AAAAAA
    useBrush 1,c&
    rectangle x&,(y&+5) - (x&+20),(y&+5+h&)
    ellipse (x&),(y&+h&) - (x&+20),(y&+10+h&)
    usePen 5,1,0
    rectangle (1+x&),(y&+5) - (x&+20),(y&+5+h&)
    usepen 0,1,0
    ellipse x&,y& - (x&+20),(y&+10)

endproc