Ah, sorry, yeah. here ya go:
load_map:
M=2
if matrix exist(1) then delete matrix 1
load bitmap "LVLHM3.bmp",1
set current bitmap 1
bw=bitmap width(1)-1
bh=bitmap height(1)-1
masix=(bw*100)*M
masiz=(bh*100)*M
make matrix 1,masix,masiz,bw,bh
smx#=((bw*-500)*m)/2
smz#=((bh*-500)*m)/2
if image exist(1) then delete image 1
load image "LVLHM3.bmp",1
prepare matrix texture 1,1,bw,bh
in=0
`bw-1
for x=bh to 1 step -1
for z=1 to bw
in=in+1
set matrix tile 1,z-1,x-1,in
next z
next x
for x=0 to bw
iz=bh+1
for z=0 to bh
iz=iz-1
h=point(x,iz)
h=(rgbr(h)+rgbg(h)+rgbb(h))/3
set matrix height 1,x,z,h*(m+1)
next z
next x
update matrix 1
delete bitmap 1
return
at the start of your program use:
and here is the image you can test out on: