XProfan

English

Hello and lovely day from Österreich !
I have a question: I need a Program the one with simply columns (Zylinder) draw can - no Diagramme, separate spare anordenbar. knows someone of you so one Program ?

Compile Mark Separation

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

09/03/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Gerhard
Praher

Vielen Thanks !

so GEHTS too.

Gerhard

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

09/03/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

KHR

could myself too well use,

habs therefore straight in profane umgestrickt and same yet motley made
Compile Mark Separation

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