Оператор ЭВМ
Регистрация: 19.11.2010
Сообщений: 31
Написано 2 полезных сообщений (для 8 пользователей)
|
Ответ: Чтото с камерой
Теперь совсем ничего невидно (
вот код
______________________________________________
Graphics3D 640,480,32,0
SetBuffer BackBuffer()
Global model=LoadMesh("Models\robot.3DS")
ScaleEntity model,0.020,0.020,0.020
Global camera=CreateCamera(model)
PositionEntity camera,0,10,-5
TurnEntity camera,20,0,0
MoveEntity camera,0,0,-200
CameraRange camera,near1,far30
light=CreateLight()
RotateEntity light,90,0,0
Global terrain=LoadTerrain( "2" )
NameEntity terrain,"FLOOR"
EntityPickMode terrain, 2
TerrainDetail terrain,4000,True
ScaleEntity terrain,6,80,6
grass_tex=LoadTexture( "1.bmp" )
detail=LoadTexture( "tex4.png" )
EntityTexture terrain,detail,0,1
EntityTexture terrain,grass_tex,0,2
ScaleTexture grass_tex, 256,256
ScaleTexture detail, 2,2
While Not KeyDown( 1 )
If KeyDown( 205 )=True Then TurnEntity model,0,-1,0
If KeyDown( 203 )=True Then TurnEntity model,0,1,0
If KeyDown( 208 )=True Then MoveEntity model,0,0,-0.05
If KeyDown( 200 )=True Then MoveEntity model,0,0,0.05
WireFrame lWire
x#=EntityX(model)
y#=EntityY(model)
z#=EntityZ(model)
terra_y#=TerrainY(terrain,x#,y#,z#)
PositionEntity model,x#,terra_y#,z#
RenderWorld
Text 0,0,"Use arrow keys to move about the terrain"
Flip
Wend
End
|