`Mouse Demo
`thinkdigital
sync on
sync rate 0
hide mouse
dim color(50)
for i = 1 to 50
    color(i) = rgb(255-i*15,255-i*4,i*0.8)
next i
`global a
global dist#
global size# = 10.00
create bitmap 1,screen width(),screen height()
render = 0
 
do
cls
    size# = 10.00
    dist# = 0
    set current bitmap 1
    for i = 1 to 50
      for a = 1 to 360 step 2
        ink color(i),0
        box mousex() + sin(a)*dist#,mousey() + cos(a)*dist#,mousex() + (sin(a)*dist#)+size#,mousey() + (cos(a)*dist#)+size#
      next a
      dist# = dist# + size#
      size# = size# + 10
    next i
    inc a,3
    copy bitmap 1,0
 
sync:loop