A New one: 250 exactly.
and a modified old one @ 247:
e#=128f#=512g#=360Graphics f,f;Repeat;For x#=-1To 1 Step .01For y#=-1To 1 Step .01o#=(x*Sin(a))+y*Cos(a)p#=(y*Sin(a))-x*Cos(a)q#=o*f;SetColor e+Sin(q)*f,Cos(q)*f,g-Cos(q)*f;Plot f/2+o*e+Sin(y*g)*20,f/2+p*e/2-Cos(x*g)*40Next;Next;a:+1Flip;Cls;Forever
and a modified old one @ 247:
Graphics 640,480b#=0d#=128Repeat;x#=320y#=240o=x;p=y;a#=-b*5For c#=1To 750 Step .2;e#=Sin(c+b*30)SetColor d+e*d,d+Cos(c+b*30)*d,d-e*d;DrawLine o,p,x,y;o=x;p=y;x=x+Sin(a)*c;y=y+Cos(a)*c;a=a+30+Sin(b);b=b+.002Next;b=b-7.45Flip;Cls;Until KeyDown(27)