Тема: Камера...
Показать сообщение отдельно
Старый 17.06.2009, 21:22   #54
ken park
Оператор ЭВМ
 
Аватар для ken park
 
Регистрация: 17.06.2009
Сообщений: 34
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Камера...

спасиба ^_^ жду хотя есть хелповскии` пример. я пытался внедрить в уже сделанное, не получается ( вот код
Graphics3D 1024,768,32,1

User=LoadMesh("D:\psychodrama\Shadow.3ds")
ScaleEntity user, 0.5, 0.5, 0.5
Pivot=CreatePivot(User)
PositionEntity pivot,0,170,250
Camera=CreateCamera()
light=CreateLight() 

ground = CreatePlane()
PositionEntity ground, 0, -25, 10
grass = LoadTexture("D:\psychodrama\1.jpg")
ScaleTexture grass, 50, 50
EntityTexture ground, grass

While Not KeyDown(1)

	curX#=EntityX(Camera, True)
	curY#=EntityY(Camera, True)
	curZ#=EntityZ(Camera, True)
	destX#=EntityX(Pivot,True)
	destY#=EntityY(Pivot,True)
	destZ#=EntityZ(Pivot,True)
	CamX#=((destX#-curX#)/10)
	CamY#=((destY#-curY#)/10)
	CamZ#=((destZ#-curZ#)/10)
	TranslateEntity Camera,CamX,CamY,CamZ
	PointEntity camera,User
	
	If KeyDown(205) MoveEntity User,-.1,0,0
	If KeyDown(200) MoveEntity User,0,0,-.1
	If KeyDown( 203 )=True Then yaw#=yaw#-1 
      If KeyDown(208) MoveEntity User,0,0,.1

RotateEntity User, yaw#

    RenderWorld
    UpdateWorld
	
Flip False :Wend:End
(Offline)
 
Ответить с цитированием