remWaves 

gr.open 255, 20, 0, 116
gr.orientation 0
gr.screen w,h
gr.set.antialias 0
gr.set.stroke 0


FOR t=0 TO 4*3.1415 STEP 0.004 

Gr.Color 255, 255, 44, 232

xt = SIN(t*10)*230+400

yt = COS(t*9.5)*200+400

nthet = xt/30+yt/30 

yp = yt+SIN(nthet)*20 

xp = xt+COS(nthet)*20 

gr.line L,xp,yp,xt,yt

gr.render

NEXT t