rem Matrix terrain: texture the tiles - OpenDBC tutorial (DarkBASIC Classic)
rem Media: terrain.jpg from examples/dbc/tutorials/3d
sync on : sync rate 60
autocam off
color backdrop rgb(170, 200, 230)

make matrix 1, 1000, 1000, 25, 25
position matrix 1, -500, 0, -500

load image "terrain.jpg", 1
prepare matrix texture 1, 1, 2, 2
fill matrix 1, 0, 1

rem Tile 1 is snow; an icy river (tile 3) and a rocky ridge (tile 4) cross it
for n = 0 to 24
   set matrix tile 1, n, 12, 3
   set matrix tile 1, 12, n, 4
next n
update matrix 1

do
   a = wrapvalue(a + 0.5)
   position camera sin(a) * 450, 250, cos(a) * 450
   point camera 0, 0, 0
   sync
loop