#include "hspcv.as"

screen 0,400,400
randomize

repeat 10

　　　　 col0=rnd(192)
　　　　 col1=col0+7*rnd(5)+11
　　　　 if col1<0:col1=col1+191
　　　　 if col1>191:col1=col1-191
　　　　 col2=col0-7*rnd(5)-10
　　　　 if col2<0:col2=col2+191
　　　　 if col2>191:col2=col2-191
　　　　 col3=col0+60+rnd(5)
　　　　 if col3<0:col3=col3+191
　　　　 if col3>191:col3=col3-191

hsvcolor col0,255,255
x0=strf("%02x",ginfo_r )+strf("%02x", ginfo_g)+strf("%02x", ginfo_b)

hsvcolor col1,255,255
x1=strf("%02x", ginfo_r)+strf("%02x", ginfo_g)+strf("%02x", ginfo_b)

hsvcolor col2,255,255
x2=strf("%02x",ginfo_r )+strf("%02x", ginfo_g)+strf("%02x", ginfo_b)

hsvcolor col3,255,255
x3=strf("%02x", ginfo_r)+strf("%02x", ginfo_g)+strf("%02x", ginfo_b)

x(0)=0 : y(0)=0 : col(0)=int("$"+x0)
x(1)=ginfo(10) : y(1)=0 : col(1)=int("$"+x1)
x(2)=ginfo(10) : y(2)=ginfo(11) : col(2)=int("$"+x2)
x(3)=0 : y(3)=ginfo(11) : col(3)=int("$"+x3)
gsquare gsquare_grad, x,y,col

wait 100

loop
end