XProfan

Deutsch

Hallo und schönen Tag aus Österreich !
Ich habe eine Frage: Ich brauche ein Programm mit dem man einfach Säulen (Zylinder) zeichnen kann - keine Diagramme, sondern frei anordenbar. Kennt jemand von euch so ein Programm ?

Kompilieren Markieren Separieren

 {$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

}

03.09.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Gerhard
Praher

Vielen Dank !

So gehts auch.

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 Zitat

Absatzweise zitieren Zeilenweise zitieren

KHR

Konnte ich selbst auch gut gebrauchen,

habs daher gerade in profan umgestrickt und gleich noch bunt gemacht
Kompilieren Markieren Separieren

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