> r=5 c=10 cls() px=nil py=nil function TIC() mx,my,left,middle,right,scrollx,scrolly=mouse() c=(c+scrolly)%16 if left then pc=c elseif right then pc=0 else pc=nil px=nil py=nil end if pc~=nil then if px==nil then px=mx py=my end n=10 for i=0,n do t=i/n cx=t*px+(1-t)*mx cy=t*py+(1-t)*my circ(cx,cy,r,pc) end px=mx py=my end --rect(0,0,240,8,12) rect(1,0,16*7+1,8,0) --print("fg bg",1,1,14) for i=0,15 do rect(7*i+2,1,6,6,i) end rectb(7*c+1,0,8,8,12) end