Very nice! Trimmed to fit in a tweet (279 chars, 279 bytes):
s=-64t=0i=0w={}c=camera::_::t-=.02if(btnp(1))i+=1
if(btnp(0))i-=1
cls()c()?"<>it:"..i
c(-32,s)x=0y=0for n=1,i*2+1,2do p=x q=y r=(25/n)x+=r*cos(n*t)y+=r*sin(n*t)circ(p,q,r,5)line(p,q,x,y,7)end line(x,y,32,y,6)add(w,y,1)deli(w,64)
c(s,s)for i=1,#w do pset(i,w[i],7)end flip()goto _