rem Matrix terrain: shape the ground - 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

randomize matrix 1, 30
set matrix height 1, 12, 12, 120
update matrix 1

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