Sorry your browser is not supported!

for tilex=1 to (total x tiles in matrix here)
 for tilez=1 to (total z tiles in matrix here)
  height#=get ground height(matrixnumber,tilex,tilez)
  if height#>1 then set matrix tile matrixnumber,tilex,tilez,image tile number
  next tilez
 next tilex

sync on : sync rate 60 : autocam off

sizex=1000
sizez=1000
tilesx=16
tilesz=16

` make a matrix
make matrix 1,sizex,sizez,tilesx,tilesz

` set the heights to make a landscape
for x=0 to tilesx
   for z=0 to tilesz
      set matrix height 1,x,z,(150.0*cos(x*15.0))+(30.0*sin(z*10.0))
   next z
next x

` place RED spheres at tile corners
obj=0
for x=0 to tilesx
   for z=0 to tilesz
      inc obj
      make object sphere obj,10
      color object obj,rgb(255,0,0)
      x#=sizex*x*1.0/tilesx
      z#=sizez*z*1.0/tilesz
      h#=get ground height(1,x#,z#)
      position object obj,x#,h#,z#
   next z
next x

` place GREEN spheres at tile centres
for x=0 to tilesx-1
   for z=0 to tilesz-1
      inc obj
      make object sphere obj,10
      color object obj,rgb(0,255,0)
      x#=sizex*(x+0.5)*1.0/tilesx
      z#=sizez*(z+0.5)*1.0/tilesz
      h#=get ground height(1,x#,z#)
      position object obj,x#,h#,z#
   next z
next x

update matrix 1

position camera 500,200,-500
pitch camera down 20

do
   control camera using arrowkeys 0,5,5
   sync
loop

dim heightarray(9,9) `an array 0-9 for the co-ordinates
heightarray(0,3)=110
heightarray(8,6)=153
heightarray(1,1)=15
`etc...

for t=0 to 9
  for q=0 to 9
    if heightarray(t,q)>100
      `texture a certain tile
    endif
    `set the tile height
  next q
next t

rem sync
sync on
sync rate 30

rem create array
dim groundarray(9,9)

rem heights here
groundarray(1,1)=10
groundarray(8,3)=15
groundarray(7,6)=8.3
groundarray(9,5)=9.6
groundarray(1,7)=-5
groundarray(2,5)=1
groundarray(5,2)=12.3
groundarray(6,8)=11.2
groundarray(7,3)=1.5

rem matrix texture
load bitmap "matrix.BMP",1
get image 1,0,0,256,256
delete bitmap 1

make matrix 1,50,50,10,10

rem Prepare matrix with a texture cut into a 2x2 texture grid 
prepare matrix texture 1,1,2,2

rem Fill matrix with first texture tile
fill matrix 1,0.0,1

rem texture matrix
for x=0 to 9
	for y=0 to 9
		rem set the heights
		set matrix height 1,x,y,groundarray(x,y)
		rem if the height is set as more than 9.9 texture with second tile
		if groundarray(x,y)>9.9
			set matrix tile 1,x,y,2
		endif
		rem if the height is less than 0 texture with  third tile
		if groundarray(x,y)<0
			set matrix tile 1,x,y,3
		endif
	next y
next x
update matrix 1

rem position camera
position camera 25,50,-10
point camera 25,0,25

do

`code goes here

sync
loop

sync on : sync rate 60 : autocam off : randomize timer()

sizex=2000
sizez=2000
tilesx=64
tilesz=64

` rock texture
ink rgb(128,128,128),0
box 0,0,64,64
ink rgb(0,0,0),0
for f=1 to 50 : dot rnd(63),rnd(63) : next f

` grass texture
ink rgb(0,255,0),0
box 64,0,128,64
ink rgb(0,0,0),0
for f=1 to 50 : dot 64+rnd(63),rnd(63) : next f

` grab textures into image 1
get image 1,0,0,128,64,1

` make a matrix
make matrix 1,sizex,sizez,tilesx,tilesz
set matrix 1,0,0,1,2,1,1,1
set matrix trim 1,0.01,0.01
prepare matrix texture 1,1,2,1

` set the heights to make a landscape
for x=0 to tilesx
   for z=0 to tilesz
      set matrix height 1,x,z,(100.0*cos(x*15+(z*2)))+(30.0*sin(z*10.0))
      n#=(5+(rnd(5)))/10.0
      set matrix normal 1,x,z,n#,n#,n#
   next z
next x

` texture each tile over 70 with rock, otherwise grass
for x=0 to tilesx-1
   for z=0 to tilesz-1
      ` get world coordinates of centre of each tile
      x#=sizex*(x+0.5)*1.0/tilesx
      z#=sizez*(z+0.5)*1.0/tilesz
      ` get height at that position
      h#=get ground height(1,x#,z#)
      tex=2
      if h# > 70 then tex=1
      set matrix tile 1,x,z,tex
   next z
next x

update matrix 1

position camera sizex/2,200,0
pitch camera down 20

do
   control camera using arrowkeys 0,5,5
   sync
loop