Sunday, October 10, 2010

Mandala

clg

x1=80
y1=70
d =200
angle = 90
for s = 1 to 200
gosub lines
angle = angle + 111
next s
lines:
r = (angle/180)*3.14159
y2=y1 + (sin (r))*d
x2=x1 - (cos (r))*d
line x1,y1,x2,y2
x1=x2
y1=y2
return

No comments:

Post a Comment