'; CreateTerrain Example
'; ---------------------
Framework openb3d.b3dglgraphics
DebugStop
Graphics3D 640,480, 32, 1
Local camera:TCamera=CreateCamera()
PositionEntity camera,0,1,0
Local light:TLight=CreateLight()
RotateEntity light,90,0,0
'; Create terrain
Local terrain:TTerrain=CreateTerrain(128)
'; Texture terrain
Local grass_tex:TTexture=LoadTexture( "../media/zone/grass.jpg" )
EntityTexture terrain,grass_tex
While Not KeyDown( 1 )
If KeyDown( 205 )=True Then TurnEntity camera,0,-1,0
If KeyDown( 203 )=True Then TurnEntity camera,0,1,0
If KeyDown( 208 )=True Then MoveEntity camera,0,0,-0.05
If KeyDown( 200 )=True Then MoveEntity camera,0,0,0.05
RenderWorld
Text 0,0,"Use cursor keys to move about the terrain"
Flip
Wend
End
Can this be fixed? i do not know exactly the terms and conditions for the line within graphics3d fullscreen that it crashes but that it does, let me know if you wish me to debug deeper to help.
Can this be fixed? i do not know exactly the terms and conditions for the line within graphics3d fullscreen that it crashes but that it does, let me know if you wish me to debug deeper to help.