16 lines
235 B
Text
16 lines
235 B
Text
open window 700, 600
|
|
backcolor 0,0,0
|
|
clear window
|
|
|
|
a=200
|
|
b=200
|
|
n=2.5
|
|
na=2/n
|
|
t=.01
|
|
color 0,0,255
|
|
for i = 0 to 314
|
|
xp=a*sig(cos(t))*abs((cos(t)))^na+350
|
|
yp=b*sig(sin(t))*abs((sin(t)))^na+275
|
|
t=t+.02
|
|
line to xp, yp
|
|
next i
|