Sorry your browser is not supported!

      set display mode 640,480,32,1
      sync on : sync rate 0

      backdrop on
      color backdrop rgb(128,128,128)
      autocam off


for f = 1 to 50
make object cube f,5
color object f,rgb(rnd(255),rnd(255),rnd(255))
rotate object f,rnd(360),rnd(360),rnd(360)
position object f,rnd(50)-25,rnd(50)-25,rnd(50)-25
next f


make camera 1
set camera to image 1,1,128,128
set camera fov 1,90
set camera aspect 1,1
set camera range 1,1,100

create bitmap 1,768,128

      do

   `Control Camera
      position camera 0,0,0
         if mouseclick()=0
            xrotate camera camera angle x()-mousemovey()*0.25
            yrotate camera camera angle y()+mousemovex()*0.25
            if camera angle x()>80 then xrotate camera 80
            if camera angle x()<-60 then xrotate camera -60
         endif
         if mouseclick()>0 then CamDis#=CamDis#-mousemovey()*0.25
         CamDis#=CamDis#+mousemovez()*0.25
         if upkey()=1 then CamDis#=CamDis#+2.5
         if downkey()=1 then CamDis#=CamDis#-2.5
         if CamDis#>-20 then CamDis#=-20
         if CamDis#<-300 then CamDis#=-300
         move camera CamDis#
         if camera position y()<-100 then position camera camera position x(),-100,camera position z()
      mousemovex()=0
      mousemovey()=0


rotate camera 1,0,0,0

yrotate camera 1,90
sync mask 2^1:fastsync
set current bitmap 1
paste image 1,0,0
set current bitmap 0

yrotate camera 1,-90
sync mask 2^1:fastsync
set current bitmap 1
paste image 1,128,0
set current bitmap 0

yrotate camera 1,0
sync mask 2^1:fastsync
set current bitmap 1
paste image 1,512,0
set current bitmap 0

yrotate camera 1,180
sync mask 2^1:fastsync
set current bitmap 1
paste image 1,640,0
set current bitmap 0

yrotate camera 1,0
xrotate camera 1,-90
sync mask 2^1:fastsync
set current bitmap 1
paste image 1,256,0
set current bitmap 0

xrotate camera 1,90
sync mask 2^1:fastsync
set current bitmap 1
paste image 1,384,0
set current bitmap 0


if inkey$()="q"
make memblock from bitmap 1,1
make image from memblock 2,1
save image "cube.dds",2
delete image 2
delete memblock 1
endif

sync mask 2^0:fastsync
      loop