3d – CreateTerrain is in yet?

This topic contains 5 replies, has 4 voices, and was last updated by DruggedBunny 1 year, 3 months ago.

Viewing 6 posts - 1 through 6 (of 6 total)

Author

Posts

November 1, 2017 at 3:23 pm #11416

Participant

I noticed my older terrain code does not work anymore. I checked the docs in ted2go and there is a CreateTerrain function. But it is not found by the compiler. Maybe I am not doing it right though. Is the docs correct in ted2go? If it does work how do I get it working now? I noticed no example in the mojo3d tests tree.

Mark mentioned new terrain. So it must be something to do with it not working anymore.

It was 4 months ago since I last checked the terrain in mojo3d. Do I need to set it up as a model now?

November 1, 2017 at 8:48 pm #11419

Mark Sibly

Keymaster

There is no specialized terrain class as yet (I am working on one), however there are Mesh.CreateTerrain and Model.CreatTerrain extensions for creating plain mesh based terrains. Here’s a quick, somewhat ropey demo:

Namespace myapp

#Import "<std>"
#Import "<mojo>"
#Import "<mojo3d>"

#import "assets/terrain_256.png"

#Import "util"

Using std..
Using mojo..
Using mojo3d..

Class MyWindow Extends Window
	
	Field _scene:Scene
	
	Field _camera:Camera
	
	Field _light:Light
	
	Field _terrain:Model
	
	Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=WindowFlags.Resizable )

		Super.New( title,width,height,flags )
		
		'create scene
		'		
		_scene=Scene.GetCurrent()
		_scene.ClearColor=Color.Sky
		
		'create camera
		'
		_camera=New Camera
		_camera.Near=.1
		_camera.Far=100
		_camera.Move( 0,15,-20 )
		Local fly:=New FlyBehaviour( _camera )
		
		'create light
		'
		_light=New Light
		_light.RotateX( 60 )

		'create terrain
		'
		'heightmap
		Local terrain_hmap:=Pixmap.Load( "asset::terrain_256.png" )

		'material		
		Local terrain_material:=New PbrMaterial( Color.Green )
		
		'model+mesh
		_terrain=Model.CreateTerrain( terrain_hmap,New Boxf( -256,0,-256,256,32,256 ),terrain_material )
		_terrain.CastsShadow=False
		
	End
	
	Method OnRender( canvas:Canvas ) Override

		RequestRender()
		
		_scene.Update()
		
		_scene.Render( canvas,_camera )

		canvas.Scale( Width/640.0,Height/480.0 )
		
		canvas.DrawText( "Width="+Width+", Height="+Height+", FPS="+App.FPS,0,0 )
	End
	
End

Function Main()
	
	New AppInstance
	
	New MyWindow
	
	App.Run()
End

Namespace myapp

#Import "<std>"

#Import "<mojo>"

#Import "<mojo3d>"

#import "assets/terrain_256.png"

#Import "util"

Using std..

Using mojo..

Using mojo3d..

Class MyWindow Extends Window

Field _scene:Scene

Field _camera:Camera

Field _light:Light

Field _terrain:Model

Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=WindowFlags.Resizable )

Super.New( title,width,height,flags )

'create scene

_scene=Scene.GetCurrent()

_scene.ClearColor=Color.Sky

'create camera

_camera=New Camera

_camera.Near=.1

_camera.Far=100

_camera.Move( 0,15,-20 )

Local fly:=New FlyBehaviour( _camera )

'create light

_light=New Light

_light.RotateX( 60 )

'create terrain

'heightmap

Local terrain_hmap:=Pixmap.Load( "asset::terrain_256.png" )

'material

Local terrain_material:=New PbrMaterial( Color.Green )

'model+mesh

_terrain=Model.CreateTerrain( terrain_hmap,New Boxf( -256,0,-256,256,32,256 ),terrain_material )

_terrain.CastsShadow=False

End

Method OnRender( canvas:Canvas ) Override

RequestRender()

_scene.Update()

_scene.Render( canvas,_camera )

canvas.Scale( Width/640.0,Height/480.0 )

canvas.DrawText( "Width="+Width+", Height="+Height+", FPS="+App.FPS,0,0 )

End

Function Main()

New AppInstance

New MyWindow

App.Run()

End

Stick this in mojo3d tests/ dir. It would of course look a lot better with textures and there’s no easy way to do collisions yet (possible-ish though, see mojo3d-physics tests).