Rem ***** Main Source File *****
sync on
sync rate 0
color backdrop 0
set image colorkey 5,5,5
autocam off
position camera 0,0,0,-10
make object cylinder 1,1
make mesh from object 1,1
make object sphere 2,1
make mesh from object 2,2
delete object 2
add limb 1,1,1
add limb 1,2,2
link limb 1,1,2
offset limb 1,2,0,.5,0
scale limb 1,2,200,10,200
add limb 1,3,1
offset limb 1,3,.7,0,0
scale limb 1,3,25,100,25
add limb 1,4,1
scale limb 1,4,25,100,25
offset limb 1,4,-.7,0,0
add limb 1,5,1
scale limb 1,5,25,100,25
offset limb 1,5,0,0,.7
add limb 1,6,1
scale limb 1,6,25,100,25
offset limb 1,6,0,0,-.7
add limb 1,7,1
rotate limb 1,7,45,0,90
offset limb 1,7,.4,.2,.4
scale limb 1,7,15,110,15
add limb 1,8,1
rotate limb 1,8,45,0,90
offset limb 1,8,-.4,.2,-.4
scale limb 1,8,15,110,15
add limb 1,9,1
rotate limb 1,9,135,0,90
offset limb 1,9,.4,.2,-.4
scale limb 1,9,15,110,15
add limb 1,10,1
rotate limb 1,10,135,0,90
offset limb 1,10,-.4,.2,.4
scale limb 1,10,15,110,15
 
add limb 1,11,1
rotate limb 1,11,45,0,90
offset limb 1,11,.4,-.2,.4
scale limb 1,11,15,110,15
add limb 1,12,1
rotate limb 1,12,45,0,90
offset limb 1,12,-.4,-.2,-.4
scale limb 1,12,15,110,15
add limb 1,13,1
rotate limb 1,13,135,0,90
offset limb 1,13,.4,-.2,-.4
scale limb 1,13,15,110,15
add limb 1,14,1
rotate limb 1,14,135,0,90
offset limb 1,14,-.4,-.2,.4
scale limb 1,14,15,110,15
rem make images
rem cargo image
center text screen width()/2,screen height()/2,"Making images please wait..."
sync
sync
 
DO
center text screen width()/2,0,"FPs="+str$(screen fps())+" Poly's="+str$(statistic(1))
`if object in screen(1)=1 then center text object screen x(1),object screen y(1)-45,"Craft angle X="+str$(object angle x(1))+" Y="+str$(object angle y(1))+" Z="+str$(object angle z(1))
turnobject()
 
sync
loop
 
 
 
function turnobject()
yrotate object 1,wrapvalue(object angle y(1))+.1
xrotate object 1,wrapvalue(object angle x(1))+.1
zrotate object 1,wrapvalue(object angle z(1))+.1
 
endfunction