Sorry your browser is not supported!

ink rgb(255,255,0),0
box 2,2,98,98
get image 1,0,0,100,100,1

autocam off
sync on
make object box 1,5,5,2
  texture object 1,1
  rotate object 1,0,0,45
  make mesh from object 1,1
  change mesh 1,0,1
  scale object 1,100,30,100
  rotate object 1,0,45,0
  rem set object wireframe 1,1

position camera 0,5,-10
point camera 0,0,0
do
g#=g#+0.2
yrotate object 1,g#

sync
loop

autocam off
sync on

make object box 1,10,10,10
scale limb 1,0,300,100,100
save object "scaled.dbo",1

position camera -50,50,-50
point camera 0,0,0
do

sync
loop

autocam off:sync on: set camera range .01,1000:move camera -5
ReDo:
color backdrop rgb(rnd(100),rnd(100),rnd(100))
ink rgb(rnd(255),rnd(255),rnd(255)),0
box 2,2,98,98:get image 1,0,0,100,100,1
while spacekey():ENDWHILE
make object box 1,5,5,2
texture object 1,1
 
 for r=1 to 10+rnd(40)
 rotate object 1,rnd(359),rnd(359),rnd(359)
 make mesh from object 1,1
 change mesh 1,0,1
 scale limb 1,0,65+rnd(50),65+rnd(50),65+rnd(50)
delete mesh 1
NEXT

do
g#=g#+0.2
yrotate object 1,g#
control camera using arrowkeys 0,.1,1
if spacekey() then delete object 1:goto ReDo
set cursor 0,0:print "SPACEKEY to regenerate"
sync
loop

make object cube 1,1
rotate limb 1,0,0,0,45
scale object 1,100,20,100
turn camera right 30
move camera -3
do
control camera using arrowkeys 0,.01,.1    
LOOP