screen 12
pi=4*atn(1)
k=.25
r0=150
for u=0 to 2*pi step pi/10000
r=r0*sin(5*u)
h=r0*sin(5*u)^2
x=320+r*cos(u+.2)
y=240+k*r*sin(u+.2)
pset(x,y-h)
next u
pi=4*atn(1)
k=.25
r0=150
for u=0 to 2*pi step pi/10000
r=r0*sin(5*u)
h=r0*sin(5*u)^2
x=320+r*cos(u+.2)
y=240+k*r*sin(u+.2)
pset(x,y-h)
next u