include "window.inc"

Window "*_*",800,600,2
Font 12,24,0,"courier"

single x, y, xm=400, ym=300, radius=100, i

while 1
for i=1 to 360 step .5
   Events
   if AscKey or winExit then exit while
   ClsColor 118,118,118
   x = xm-radius*sin(i)
   y = ym-radius*cos(i)
   Oval x-10,y-10,20,20, sin(i)*200, cos(i)*200, sin(i)*200
   Line xm, ym, x, y, 2, sin(i)*200, cos(i)*200, sin(i)*200
   Text 300,6,"SHADOW PENDULAR", 255,255,255
   Box 50,40,700,500,4, 255,255,0
   Circle 400,300,120, 255,0,100
   FlipBuffer
   WaitFPS 14
next   
wend
WinEnd