Sorry your browser is not supported!

TM$="YOUR DETAIL MAP PATH":HM$="YOUR HEIGHTMAP PATH":backdrop on:sync on:sync rate 25:color backdrop rgb(0,100,200)
Scale=20:Hscale#=Scale:Land=1:HM=2:load image TM$,Land,1:load image HM$,HM,1
imageW=image width(HM):imageH=image height(HM):make matrix 1,imageW*scale,imageH*scale,imageW,imageH:prepare matrix texture Land,Land,imageW,imageH
make memblock from image Land,HM:MemCount=get memblock size(Land)-3:Tx=imageW-1
for TL=(imageW*imageH) to 1 step -1
r=memblock byte(Land,MemCount+2)
g=memblock byte(Land,MemCount+1)
b=memblock byte(Land,MemCount)
Height#=(r*Hscale#+(g*(Hscale#*2))+(b*Hscale#*4))*.01:dec MemCount,4
set matrix tile Land,Tx,Tz,TL:set matrix height Land,Tx,Tz,Height#
if Tx=imageW-1 then set matrix height Land,Tx+1,Tz,Height#
If Tz=imageH-1 then set matrix height Land,Tx,Tz+1,Height#
dec Tx:if Tx<0 then inc Tz:Tx=imageW-1    
NEXT
update matrix 1:set camera range 1,Scale*1000
do
control camera using arrowkeys 0,10,4:x#=camera position x():z#=camera position z()
position camera x#,(get ground height(Land,x#,z#))+(Scale*3),z#
sync
LOOP

backdrop on
sync on
sync rate 120
color backdrop rgb(0,100,200)

imgHeightmap = 1
imgMatrixTexture = 2

load image "D:\Art\height.jpg", imgHeightmap, 1
load image "D:\Art\grass.jpg",  imgMatrixTexture, 1

Rem Mininum and maximum heights for the matrix
Rem Pure black is minimum while pure white will be the maximum height
minHeight   = -40
maxHeight   = 100
heightRange = maxHeight - minHeight

Rem Matrix size properties
matrixWidth  = 1000
matrixHeight = 1000
tileCountX   = 100
tileCountY   = 100

Rem Create the matrix
make matrix 1, matrixWidth, matrixHeight, tileCountX, tileCountY
prepare matrix texture 1, imgMatrixTexture, 1, 1

Rem Build a memblock from heightmap image
mem = 1
make memblock from image mem, imgHeightmap
imgWidth  = memblock dword(mem, 0)
imgHeight = memblock dword(mem, 4)


Rem Loop through all vertices in the matrix
for y = 0 to tileCountY-1
    Rem Scale matrix vert to proportionate image pixel
    py = (y * imgHeight) / tileCountY
    for x = 0 to tileCountX-1
        Rem Scale matrix vert to proportionate image pixel
        px = (x * imgWidth) / tileCountX
        Rem Get byte location of pixel
        i = (py * imgWidth + px)*4 + 12
        Rem Because the heightmap is greyscale, we only need 
        Rem one color component because they're all the same value.
        c = memblock byte(mem, i)
        Rem Get height scale from pixel color
        t# = c / 255.0
        Rem Get new vertex height
        h# = heightRange * t# + minHeight
        Rem Set new vertex height
        set matrix height 1, x, y, h#
    next x
next y

delete memblock mem
update matrix 1


do
    control camera using arrowkeys 0, 4, 4
    x#=camera position x()
    z#=camera position z()
    position camera x#,get ground height(1,x#,z#)+50 ,z#
    
    set cursor 0,0
    print screen fps()
sync
LOOP

Rem Loop through all vertices in the matrix
for y = 0 to tileCountY-1
    Rem Scale matrix vert to proportionate image pixel
    py = (y * imgHeight) / tileCountY
    for x = 0 to tileCountX-1
        Rem Scale matrix vert to proportionate image pixel
        px = (x * imgWidth) / tileCountX

Rem Loop through all vertices in the matrix
for y = 0 to tileCountY
    Rem Scale matrix vert to proportionate image pixel
    py = (y * imgHeight) / (tileCountY+1)
    for x = 0 to tileCountX
        Rem Scale matrix vert to proportionate image pixel
        px = (x * imgWidth) / (tileCountX+1)