Sorry your browser is not supported!

dim mtx(1,50,50)
make matrix 1,1000,1000,50,50
randomize matrix 1,50
for x=0 to 50
for z=0 to 50
mtx(1,x,z)=get matrix height(1,x,z)
next x
next z
hide mouse
position camera 500,500,-500
rotate camera 20,0,0
sync on
sync rate 0
do
center text 320,0,"Press Space To Convert To Object"
if spacekey()=1 then gosub convert
sync
loop
convert:
for x=0 to 50
for z=0 to 50
obj=obj+1
make object triangle obj,(x*20),mtx(1,x,z),(z*20),(x*20),mtx(1,x,z+1),((z+1)*20),((x+1)*20),mtx(1,x+1,z),(z*20)
obj=obj+1
make object triangle obj,(x*20),mtx(1,x,z+1),((z+1)*20),((x+1)*20),mtx(1,x+1,z+1),((z+1)*20),((x+1)*20),mtx(1,x+1,z+1),((z+1)*20)
next x
next z
for i=2 to 5000
make mesh from object i,i
delete object i
add limb 1,i,0
next i
delete matrix 1
return