Hi..i called this simple drawing 'star flower' because looks like star..
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
That's a pretty drawing Aurel .. :)
Artistic programs are fascinating.
all the best, :)
Graham