Graphics 320,200s=4
While Not KeyDown(9)
Cls;amp=amp+s;If Abs amp>99 s=-s
For x=0 To 360For l=1 To Abs amp;SetColor amp,l,l;Plot x/360.0*319,100-l+Sin(x)*amp/l;SetColor l,l,-amp;Plot x/360.0*319,101+l+Sin(x)*amp/l;Next;Next;Flip
Wend
237 b but effect is very simple :). Press TAB to exit.