'***Strange "Splattering Paint" effect by Demoneye***

open window 640,512
setrgb 0,0,0,0
clear screen
label loop

for a=1 to 255
 for b=1 to 255
  x=int(ran(639))+1
  y=int(ran(511))+1
  setrgb 1,0,0,0
  setrgb 2,0,a,0
  setrgb 3,0,b,0
  gtriangle x,y to x+20,y-20 to x-20,y
 next b
next a

goto loop
