-- 'rectb' demo
x=104
y=60

function TIC()
 cls()
 for s=280,0,-4 do
  s2=s/2
  sd=500/s
  x=sd*math.sin(time()/1000)
  y=sd*math.cos(time()/1000)
  rectb(120+x-s2,68+y-(s2/2),s,s2,8)
 end 
end