[MucT]

Теперь совсем ничего невидно (
вот код
______________________________________________
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