here you go, one height mapping code. Needs to be tweaked tho, but it works
sync on : sync rate 0
`make simple image for height mapping
load bitmap "test.bmp"
`make a matrix
make matrix 1,1000,1000,51,51
get image 1,0,0,51,51
`create a matrix texture
ink RGB(255,255,255),0
line 0,0,0,8
line 0,8,8,8
line 8,8,8,0
line 8,0,0,0
ink RGB(200,200,200),0
box 1,1,7,7
get image 2,0,0,9,9
prepare matrix texture 1,2,1,1
`view the matrix
position camera 0,500,0
point camera 500,0,500
ink RGB(255,255,255),0
`set matrix height
for x=0 to 51
for y=0 to 51
paste image 1,0,0
set matrix height 1,x,y,rgbr(point(x,y))
center text 320,240,str$(x)+" "+str$(y)
next y
next x
update matrix 1
hide mouse
`loop
do
`camera mouse control
rotx#=mousemovex()
roty#=mousemovey()
xangle#=camera angle x()
yangle#=camera angle y()
xangle#=wrapvalue(xangle#+roty#)
yangle#=wrapvalue(yangle#+rotx#)
rotate camera xangle#,yangle#,0
if upkey()=1 then move camera 5
if downkey()=1 then move camera -5
`sync
sync
loop
please reply
