! Moving lines n=40 f1=0.03+RND()*0.03 f2=0.03+RND()*0.03 f3=0.03+RND()*0.03 f4=0.03+RND()*0.03 DIM dl[n] GR.OPEN 255,0,0,0,0,0 GR.SCREEN w,h w2=w/2 : h2=h/2 z=1 r=255 : g=0 : b=0 GR.COLOR 255,r,g,b,0 DO w1+=f1 w2+=f2 w3+=f3 w4+=f4 xs=w2*SIN(w1)+w2 ys=h2*SIN(w2)+h2 xe=w2*SIN(w3)+w2 ye=h2*SIN(w4)+h2 GR.LINE dl[z],xs,ys,xe,ye GR.RENDER z++ GR.NEWDL dl[] IF z>n z=1 r=RND()*255 g=RND()*255 b=RND()*255 GR.COLOR 255,r,g,b,0 ENDIF UNTIL 0