i found a way to make it work in 2d:
sync on : hide mouse
rampsize=50
do
inc rampsize,(10*upkey() )-(10 * downkey() )
if rampsize<0 then rampsize=0
if rampsize>210 then rampsize=210
gosub draw_lines
sync
cls
loop
draw_lines:
startx=100 : starty=450
oldx=startx : oldy=starty
x=oldx : y=oldy
unitlength=2
for i=0 to rampsize step 10
for k=0 to i step 10
if k<i
inc x,unitlength*cos(k)
dec y,unitlength*sin(k)
else
inc x,(.5*unitlength)*cos(k)
dec y,(.5*unitlength)*sin(k)
endif
next k
line oldx,oldy,x,y
oldx=x : oldy=y
next i
return
There are only 10 kinds of people in the world, those who understand binary and those who dont