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

bitmap$="bitmap path"
Hscale#=Scale

make memblock from image 1,bitmap
`memblock number and image number
MemCount=get memblock size(1)-3
`memcount = amount of bytes in file minus 3 for width height and depth  for  memblock header
Tx=image width(bitmap)-1
`unknown -1

for TL=(image width(bitmap)*image height(bitmap)) to 1 step -1
`multiply width* height
   r=memblock byte(1,MemCount+2)
`get first byte +2 because memblock is +3 grabbing r or "height?"
   g=memblock byte(1,MemCount+1)
   `get first byte +1 because memblock is +3 grabbing g or "depth?"


   b=memblock byte(1,MemCount)
   `grabbing first visual image byte?

load image "c:\users\smerf\desktop\mug.png",1,1
make memblock from image 1,1
iw=image width(1)
ih=image height(1)
size=get memblock size (1)
set current bitmap 0
do
   ` -12  for 4 bytes each for width height and depth 4*3=12
   `set it to -4 and step 4 so it doesnt exceed the total byte size
   for i=12 to size -4 step 4
      bite1=memblock byte(1,i)
      bite2=memblock byte(1,i+1)
      bite3=memblock byte(1,i+2)
      bite4=memblock byte(1,i+3)
      `set ink color colors are in reverse
      ink rgb(bite3,bite2,bite1,),0
      `sex x to zero at the end of  the first line but dont increment it if there are no more pixels on x or y
      if x >= iw
         x=0
         y=y+1
      endif
      dot x,y
      inc x
   next
loop

load image "c:\users\smerf\desktop\mug.png", 1, 1
make memblock from image 1, 1
delete image 1
imgWidth = memblock dword(1, 0)
imgHeight = memblock dword(1, 4)
imgDepth = memblock dword(1, 8)
imgSize = imgWidth*imgHeight
for i=0 to imgSize-1
    Colour = memblock dword(1, 12+i*4)
    Red = rgbr(Colour)
    Green = rgbg(Colour)
    Blue = rgbb(Colour)
    y = i/imgWidth
    x = i-y*imgWidth
    ink rgb(Red, Green, Blue), 0 ` Or omit the Red, Green and Blue assignments above and use - ink Colour, 0
    dot x, y
next i
wait key