Sorry your browser is not supported!

rem Small ground of perimitor trees
load image "tree.bmp",4
make object plain 3,200,400 : make mesh from object 3,3
add limb 3,1,3 : rotate limb 3,1,0,90,0
make mesh from object 3,3 : delete object 3
make object 3,3,0
range=1000
halfrange=range/2
for t=1 to 400
	if t>=1 and t<=20 : rx=rnd(range) : rz=range : endif
	if t>20 and t<=40 : rx=range : rz=rnd(range) : endif
	if t>40 and t<=60 : rx=rnd(range) : rz=0 : endif
	if t>60 and t<=80 : rx=0 : rz=rnd(range) : endif
	rx=(rx-500)+rnd(1000)
	rz=(rz-500)+rnd(1000)
	if rx>halfrange-250 and rx<halfrange+250 then rx=halfrange-250
	if rz>halfrange-250 and rz<halfrange+250 then rz=halfrange-250
	add limb 3,t,3
	offset limb 3,t,rx,0,rz
next t
make mesh from object 3,3 : delete object 3 : make object 3,3,4
position object 3,landsize-(halfrange),190,landsize-(halfrange)
set object 3,1,0,0

rem Load floor bitmap into image
LOAD BITMAP "mossy05.bmp",1
GET IMAGE 1,0,0,128,128
DELETE BITMAP 1

rem Activate manual syncronization and hide mouse
SYNC ON : HIDE MOUSE

rem Make a 3D landscape
MAKE MATRIX 1,10000.0,10000.0,25,25

rem Texture landscape
PREPARE MATRIX TEXTURE 1,1,1,1

rem Randomise landscape
RANDOMIZE MATRIX 1,100.0

rem Activate and distance fogging
FOG ON
FOG COLOR 0
FOG DISTANCE 5000

Rem ***** Random Trees On Matrix Demo ******
Rem (c) TDK_Man April 2007

Gosub Setup
Gosub RandomTrees

Do
  Mc=MouseClick()
  CX#=Camera Angle X(): CY#=Camera Angle Y(): CZ#=Camera Angle Z()
  CY#=Wrapvalue(CY#+mousemovex())
  CX#=Wrapvalue(CX#+mousemovey())
  Rotate Camera CX#,CY#,CZ#
  If Mc=1 Then Move Camera 10
  If Mc=2 Then Move Camera -10
  Sync
Loop

RandomTrees:
  For N=1 to 400
    Make object Cone N,32
    Scale Object N,100,300,100
    Color Object N,RGB(0,200,0)
    TreeX = Rnd(MatWidth-600)+300
    TreeZ = Rnd(MatWidth-600)+300
    TreeY = Get Ground Height(1,TreeX,TreeZ)+70
    Make object Cylinder N+400,8
    Scale Object N+400,100,300,100
    Color Object N+400,RGB(60,40,0)
    Position Object N,TreeX,TreeY,TreeZ
    Position Object N+400,TreeX,TreeY-60,TreeZ
  Next N
Return

Setup:
  Set Display Mode 800,600,16
  Sync On: Sync Rate 0: CLS 0
  AutoCam Off
  Randomize Timer()
  rem Make a 3D landscape
  MatWidth = 10000
  MatHeight = 10000
  MAKE MATRIX 1,MatWidth,MatHeight,25,25
  Create Bitmap 1,320,200
  CLS RGB(100,80,0)
  Get Image 1,0,0,128,128
  Set Current Bitmap 0
  Delete Bitmap 1
  PREPARE MATRIX TEXTURE 1,1,1,1
  RANDOMIZE MATRIX 1,100.0
Return