lightr as float:sync on:sync rate 60 set point light 0,0,0,0:set light range 0,10000 make camera 1:set current camera 1:color backdrop 1,0 make object box 1,10,10,10 make object box 2,100,5,100 make object box 3,100,100,5 make object box 4,5,100,100 make object sphere 5,5 set object light 5,0 color object 1,rgb(255,0,0) position object 1,0,0,0 rotate object 1,45,45,0 position object 2,0,-50,0 position object 3,0,0,-47.5 position object 4,47.5,0,0 set shadow shading on 1,-1,100,1 set shadow shading on 3,-1,100,1 set shadow shading on 4,-1,100,1 do fps$="Shadow Example Fps: "+str$(screen fps()) text screen width()-20-text width(fps$),screen height()-40,fps$ lightr=lightr+0.5 zrotate object 1,lightr*2 position light 0,sin(lightr)*120,120,cos(lightr)*120 position object 5,sin(lightr)*120,120,cos(lightr)*120 if lightr=360 then lightr=0 position camera -150,150,150 point camera 0,0,0 sync loop
