Sorry your browser is not supported!

sync on: sync rate 60

make object sphere 1,30
set ambient light 0


make light 1

// walls
make object plain 2,200,200
make object plain 3,200,200
make object plain 4,200,200
make object plain 5,200,200
make object plain 6,200,200
make object plain 7,200,200

make object sphere 8,1

// Positionings
position light 0,0,30,0
position object 2,0,0,50
position object 3,0,50,0
position object 4,0,-50,0
position object 5,-50,0,0
position object 6,50,0,0
position object 7,0,0,-50

// Rotations
xrotate object 3,90
xrotate object 4,90
yrotate object 5,90
yrotate object 6,90

for i = 1 to 8
SET SHADOW SHADING ON i
next i


do
position camera 0,0,30,-49
point camera 0,0,0,0


// Move light source
if leftkey()=1 then position light 1,light position x(1)-1,light position y(1),light position z(1)
if rightkey()=1 then position light 1,light position x(1)+1,light position y(1),light position z(1)
if upkey()=1 then position light 1,light position x(1),light position y(1)+1,light position z(1)
if downkey()=1 then position light 1,light position x(1),light position y(1)-1,light position z(1)
position object 8,light position x(1),light position y(1),light position z(1)

sync
loop

sync on: sync rate 60

make object sphere 1,30
set ambient light 10



// walls
make object plain 2,200,200
make object plain 3,200,200
make object plain 4,200,200
make object plain 5,200,200
make object plain 6,200,200
make object plain 7,200,200

make object sphere 8,1

// Positionings
position light 0,0,50,0
position object 2,0,0,50
position object 3,0,50,0
position object 4,0,-50,0
position object 5,-50,0,0
position object 6,50,0,0
position object 7,0,0,-50

// Rotations
xrotate object 3,90
xrotate object 4,90
yrotate object 5,90
yrotate object 6,90

for i = 1 to 8
SET SHADOW SHADING ON i,0,20,0
next i

position camera 0,-30,50,-49
point camera 0,0,0,0

do


// Move light source
if leftkey()=1 then position light 0,light position x(0)-1,light position y(0),light position z(0)
if rightkey()=1 then position light 0,light position x(0)+1,light position y(0),light position z(0)
if upkey()=1 then position light 0,light position x(0),light position y(0)+1,light position z(0)
if downkey()=1 then position light 0,light position x(0),light position y(0)-1,light position z(0)
position object 8,light position x(0),light position y(0),light position z(0)

sync
loop

sync on : sync rate 60 : autocam off

` 0 = use cpu (slow and innacurate), 1 = gpu shader (fast and accurate)
shader=1

` make a texture
ink rgb(255,0,0),0
box 0,0,16,16
get image 1,0,0,16,16

` hide main light
hide light 0
set ambient light 30

` make ground
make matrix 1,1000,1000,64,64
prepare matrix texture 1,1,1,1
position matrix 1,-250,0,-250

` make some objects to cast shadows
o=1
for f=0 to 340 step 20
   inc o
   make object box o,5,40,5
   texture object o,1

   set shadow shading on o,-1,1000,shader
   ` object, mesh, range, shader
   ` object=quite obvious really
   ` mesh=-1 means use objects mesh, but gives option of using lower res mesh
   ` range=how far to cast shadow - useful as shadows cast on multiple objects through solid objects. Grrrrr
   ` shader=0=cpu,1=gpu

   position object o,100*sin(f),20,100*cos(f)
next f

` make light object to show where light is
inc o
make object sphere o,-10

` make new light and set shadow position
make light 1
set point light 1,0,0,0
set light range 1,1000

lightmode=1
` set shadow mode to 'light' mode,ie shadows will be cast from selected light number
` in this case is 1 (x, y and z values will be ignored)
` you can also use value of -1 which means you can force position of shadows
set shadow position lightmode,0,0,0

position camera -20,8,-150
point camera 0,0,0

ink rgb(255,255,255),0
a#=0
do
   control camera using arrowkeys 0,2,2
   gosub movelight
   text 0,0,"cursors to move around"
   text 0,20,"FPS="+str$(screen fps())
   sync
loop

movelight:
a#=wrapvalue(a#+0.2)
x#=newxvalue(0,a#,150)
y#=50+(50.0*sin(a#*2.0))
z#=newzvalue(0,a#,150)
position light 1,x#,y#,z#
position object o,x#,y#,z#
return

autocam off
sync on
set ambient light 0
hide light 0
load image "barrel01.jpg",1
load image "pavorb1.jpg",2
load object "room.dbo",1
load object "barrel.dbo",2
position object 2,0,-5,0

load object "wheel.x",5
scale object 5,150,250,250
color object 5,rgb(0,255,0)
position object 5,0,100,0


clone object 3,2:position object 3,-40,-5,0
texture object 3,2
clone object 4,2:position object 4,40,-5,0
texture object 4,1

set global shadow color 0,0,0,200

set shadow shading on 1,0,1000,1
set shadow shading on 2,0,1000,1
set shadow shading on 3,0,1000,1
set shadow shading on 4,0,1000,1
set shadow shading on 5,0,1000,1


make light 1
set spot light 1,0,160
set light range 1,300
make object sphere 100,2
set object light 100,0


position camera -7,76,-210
point camera -7,76,0

y#=50
do
g#=g#+0.5
rotate object 5,g#,g#,g#
if upkey() then y#=y#+0.5
if downkey() then y#=y#-0.5
if leftkey() then x#=x#-0.5
if rightkey() then x#=x#+0.5
position light 0,x#,y#+20,-50
position light 1,x#,y#,-50
position object 100,x#,y#,-50
point light 1,0,0,150


sync
loop

autocam off
sync on
set ambient light 0
hide light 0
load image "barrel01.jpg",1
load image "pavorb1.jpg",2
load object "room.dbo",1
load object "barrel.dbo",2
position object 2,0,-5,0

load object "wheel.x",5
scale object 5,150,250,250
color object 5,rgb(0,255,0)
position object 5,0,100,0


clone object 3,2:position object 3,-40,-5,0
texture object 3,2
clone object 4,2:position object 4,40,-5,0
texture object 4,1

set global shadow color 0,0,0,200

set shadow shading on 1,0,1000,1
set shadow shading on 2,0,1000,1
set shadow shading on 3,0,1000,1
set shadow shading on 4,0,1000,1
set shadow shading on 5,0,1000,1


make light 1
set spot light 1,0,160
set light range 1,1300
make object sphere 100,2
set object light 100,0


position camera -7,76,-210
point camera -7,76,0

y#=50
do
g#=g#+0.5
rotate object 5,g#,g#,g#
if upkey() then y#=y#+0.5
if downkey() then y#=y#-0.5
if leftkey() then x#=x#-0.5
if rightkey() then x#=x#+0.5
position light 0,x#,y#+20,-50
position light 1,x#,y#,-50
position object 100,x#,y#,-50

rotate light 1,0,-light position x(1)/2,0

sync
loop