Sorry your browser is not supported!

`--------------------------
` Set Object Example 1
` By OBese87
`--------------------------
set display mode 1024,768,32
hide mouse
sync on
sync rate 60

`make texture for the sphere
box 0,0,5,5
ink rgb(255,255,0),0
box 5,5,10,10
ink rgb(255,0,255),0
box 2,4,8,6
get image 1,0,0,11,11

`Make a sky sphere
Make Object Sphere 1,2000
texture object 1,1

position camera 0,0,-900

wait key
rem at the moment we cannot see the sphere because its back faces are being culled.
rem if we turn culling off then all faces will be drawn to the screen (this obviously consumes more memory)
set object 1,1,1,0

While mouseclick()=0
   turn object left 1,5
   sync
Endwhile

set display mode 1024,768,32
hide mouse
sync on
sync rate 0

`make holey texture
ink 0,rgb(255,255,255)
cls
for x = 30 to 270 step 60
   for d = 0 to 20
      circle x,30,d
      circle x,31,d
   next d
next x

get image 1,0,0,301,61

`make sphere
make object sphere 1,10
texture object 1,1

sync rate 60

ink rgb(255,255,255),0
phase$="Press any key to advance to next phase."

DO
   oldscan=newscan
   newscan=scancode()
   if newscan>oldscan then key=1

   if key=1
      if phase=0
         `set object transparency on
         set object 1,1,0,1
         phase=1
         phase$="Phase 1 complete."
      else
         `set object culling off
         set object 1,1,0,0
         phase=2
         phase$="All phases complete!"
      endif
      key=0
   endif

   turn object left 1,2

   text 0,0,phase$
   text 0,18,"Object transparency = "+str$(1-(phase>0))
   text 0,36,"Object culling = "+str$(1-(phase=2))
   sync
LOOP

set display mode 1024,768,32
hide mouse
sync on
sync rate 60
autocam off
gosub texture
gosub sphere

color backdrop rgb(255,0,0)






f#=270
gamma#=255
position camera 0,0,-300
point camera 0,0,0
DO
   turn object left 1,2
   turn object right 2,2
   move camera 0.55

   if camera position z()<-1 then point camera 2,0,0
   position camera 2,f#,camera position z()
   if f#>0 and f#>5 then dec f#,0.6
   if f#>0 and f#=<5 then dec f#,0.3
   if camera position y()<80 then color backdrop rgb(80,255,0)
   if camera position z()>1 then dec gamma#,1
   if camera position z()>1 then set gamma gamma#,gamma#,gamma#
   if camera position z()>100 then end
   sync


LOOP



`===========================
`SPHERE CREATION
`===========================
sphere:
make object sphere 1,10
texture object 1,1


  set object 1,1,0,0

make object box 2,0.6,13,0.6
texture object 2,1
set object 2,1,0,0

make object box 3,10,1000,10
position object 3,0,-508,0
color object 3,rgb(100,100,100)
make object cylinder 4,5
position object 4,0,-8,0
color object 4,rgb(70,70,50)
make matrix 1,400,400,10,10
position matrix 1,-200,-70,-200

prepare matrix texture 1,2,1,1
make object plain 5,400,300
make object plain 6,400,300
make object plain 7,400,300
make object plain 8,400,300
position object 5,0,-70,200
position object 6,0,-70,-200
position object 7,-200,-70,0
position object 8,200,-70,0
yrotate object 7,90
yrotate object 8,90
color object 5,rgb(40,40,40)
color object 6,rgb(40,40,40)
color object 7,rgb(40,40,40)
color object 8,rgb(40,40,40)
make object plain 9,400,400
xrotate object 9,90
position object 9,0,80,0
texture object 9,3
ghost object on 9
set object 9,1,1,0
return

`=============================
`TEXTURE
`=============================
texture:
ink 0,rgb(155,125,0)
cls
ink rgb(125,100,0),0

for x = 30 to 270 step 60
   for d = 0 to 20
      box x-20,9,x+21,51
      box x-20,10,x+21,52
   next d
next x


ink rgb(0,0,0),0

for x = 30 to 270 step 60
   for d = 0 to 20
      circle x,30,d
      circle x,31,d
   next d
next x

get image 1,0,0,181,61
cls
ink rgb(40,40,40),0
box 0,0,100,100
ink rgb(255,0,0),0
for t=0 to 5
circle 50,50,t
next t

get image 2,0,0,101,101
cls
ink rgb(0,100,0),0
box 0,0,200,200
ink rgb(0,50,0),0
for t=0 to 800
a=rnd(200)
b=rnd(200)
box a,b,a,b
next t
get image 3,0,0,200,200


return