Star flower

[aurelCB]

Hi..i called this simple drawing 'star flower' because looks like star..

Code Select Expand

DEF w:window
def lenght, angle, x, y ,difference ,angle_difference:float
def x2,y2 ,a ,b ,pi:float
def counter:INT
WINDOW w,0,0,600,650,@MINBOX,0,"Lines",main
Setwindowcolor w,rgb(0,0,0)
lenght = 300
angle = 8
pi=3.14593
x = 300
y = 300
x2=55
difference = pi
angle_difference = 0.8
y2 = y - lenght
'line w,x, y, x, y2
lenght = lenght - difference
y2 = y
frontpen w,rgb(0,120,80)
counter = 0

LABEL repeat
IF (counter < 190)

IF counter < 90 then frontpen w,rgb(0,120,80)
IF counter > 90 then frontpen w,rgb(0,80,120)

angle = angle + angle_difference
lenght = lenght - difference

a = int (sin(angle * pi) * lenght)
b = int (cos(angle * pi) * lenght)
x2 = x + b
y2 = y + a
line w,x, y, x2, y2

circle w,x2,y2,3

counter = counter + 1
    GOTO repeat
'endwhile
endif

run=1
waituntil run=0
closewindow w
end

SUB main
SELECT @class
CASE @idclosewindow
run=0
ENDSELECT
RETURN

[GWS]

That's a pretty drawing Aurel .. 

Artistic programs are fascinating.

all the best,

Graham