open window 640,512
setrgb 2,0,0,0
label jee
o=o+.109
c=cos(o)*cos(o*2)
s=sin(o*1.01)*sin(o*2.01)
c1=127+c*127
setrgb 1,c1,0,c1
setrgb 3,0,c1,c1
x=320+c*320
y=256+s*256
gtriangle 0,0 to 640,0 to x,y
gtriangle 0,0 to 0,512 to x,y
gtriangle 0,512 to 640,512 to x,y
gtriangle 640,0 to 640,512 to x,y
goto jee

