' Plasma effect
' coded by Nick Simpson. (Shockwave/Fanatix) (C) 2001
'

open window 400,400

dw=1
label loopy
mm=mm+.8

red=150+150*sin(mm/11)
grn=150+150*sin(mm/13)
blu=150+150*sin(mm/15)
setdrawbuf dw
clear window

setrgb 1,red,0,0
setrgb 2,0,grn,0
setrgb 3,0,0,blu
l=0
b=0
sw=sw+.5
for a=1 to 5

yoff=100*sin((sw+b)/8)
   
   gtriangle 0+l,-100+yoff to 64+l,640+yoff to 0+l,640+yoff
   gtriangle 0+l,-100+yoff to 64+l,640+yoff to 64+l,-100+yoff
   l=l+64
b=b+1
yoff=100*sin((sw+b)/8)
   gtriangle 64+l,-100+yoff to 0+l,640+yoff to 64+l,640+yoff
   gtriangle 64+l,-100+yoff to 0+l,640+yoff to 0+l,-100+yoff
   l=l+64
b=b+1
next a
setrgb 1,blu,red,grn
text 158,247,"SHOCKWAVE PRESENTS : PLASMA!!!!!!"

setdispbuf dw
dw=1-dw
goto loopy

