XProfan

Español

¡Hola y schönen Tag de Österreich !
Yo habe una Cuestión: Yo brauche una Programa con el uno simplemente Säulen (Zylinder) dibujar kann - no Diagramme, pero frei anordenbar. Kennt alguien de euch así una Programa ?

Kompilieren Marca Separación

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

Absatzweise Cita Zeilenweise Cita

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 Cita Zeilenweise Cita

KHR

Konnte Yo incluso auch bien gebrauchen,

habs por lo tanto gerade en profano umgestrickt y igual todavía bunt gemacht
Kompilieren Marca Separación

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