cc+ Mina olengi Blitz3d (admin)
Postituste arv : 84 Age : 29 Registration date : 13/03/2008
| Pealkiri: Edasijõudnud terrain Laup Märts 15, 2008 2:55 am | |
| Edasijõudnud, raskem terrain. - Tsiteerin: :
- Graphics3D 640,480
SetBuffer BackBuffer()
camera=CreateCamera() PositionEntity camera,1,1,1
light=CreateLight() RotateEntity light,90,0,0
; Laeb terraini terrain=LoadTerrain( "heightmap.bmp" )
; Terraini detailid TerrainDetail terrain,4000,True
; Terraini mõõtkava ScaleEntity terrain,1,50,1
; Terraini tekstuur grass_tex=LoadTexture( "grass.bmp" ) EntityTexture terrain,grass_tex,0,1
While Not KeyDown( 1 )
If KeyDown( 205 )=True Then TurnEntity camera,0,-1,0 ; nooltega saab liikuda If KeyDown( 203 )=True Then TurnEntity camera,0,1,0 ; nooltega saab liikuda If KeyDown( 208 )=True Then MoveEntity camera,0,0,-0.1 ; nooltega saab liikuda If KeyDown( 200 )=True Then MoveEntity camera,0,0,0.1 ; nooltega saab liikuda
x#=EntityX(camera) y#=EntityY(camera) z#=EntityZ(camera)
terra_y#=TerrainY(terrain,x#,y#,z#)+5
PositionEntity camera,x#,terra_y#,z#
RenderWorld Text 0,0,"Nooltega liigub"
Flip
Wend
End | |
|