this shows what is happening
hide mouse
sync on : sync rate 0
rad=40
create bitmap 1,640,480
DO
c#=0
set current bitmap 1
Repeat
r=255*abs(cos(c#+roll))
g=255*(1-abs(sin(c#+roll*3)))
b=255*abs(sin(c#+roll*9))
`red
ink r*65536,0
line 110,240,110+@Round(sin(c#)*rad),240+@Round(cos(c#)*rad)
line 111,241,111+@Round(sin(c#)*rad),241+@Round(cos(c#)*rad)
`green
ink g*256,0
line 220,240,220+@Round(sin(c#)*rad),240+@Round(cos(c#)*rad)
line 221,241,221+@Round(sin(c#)*rad),241+@Round(cos(c#)*rad)
`blue
ink b,0
line 330,240,331+@Round(sin(c#)*rad),240+@Round(cos(c#)*rad)
line 331,241,331+@Round(sin(c#)*rad),241+@Round(cos(c#)*rad)
`rgb
ink r*65536 + g*256 + b,0
line 440,240,440+@Round(sin(c#)*rad),240+@Round(cos(c#)*rad)
line 441,241,441+@Round(sin(c#)*rad),241+@Round(cos(c#)*rad)
inc c#,0.4
Until c#>359
inc roll,1
set current bitmap 0
copy bitmap 1,0
sync
LOOP
end
`----------------------
` FUNCTIONS
`----------------------
`Round up
FUNCTION @Round(n#)
n=int(n#*2)-int(n#)
ENDFUNCTION n
"You must be someone's friend to make comments about them." - MySpace lied.