sync on:sync rate 85
for x = 1 to 20
load object "test2.x",x
make mesh from object 1, x
delete object 1
set camera range 1,20000
set camera fov 45
position object x,1600*rnd(2),0,1600*rnd(2)
scale object x,1600,3200,1600
add limb x, 1, 1
offset limb x,1,1,0,0
delete mesh 1
next x
`randomize timer()
do
if spacekey()=1
For x = 1 to 20
Link Limb x,1,20
Save Object "test.dbo",x
Next x
endif
MOVE CAMERA (UPKEY() - DOWNKEY())*2.5
ROTATE CAMERA WRAPVALUE(CAMERA ANGLE X()+(MOUSEMOVEY()*1.1)), WRAPVALUE(CAMERA ANGLE Y()+(MOUSEMOVEX()*1.1)),0
text 200,200,"polys : "+str$(STATISTIC(1))
text 400,200,"fps : "+str$(screen fps())
sync
loop