06/03/22 16:36:43 Gis6PEro
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