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

так... хм... я вставил модель, но камера показывается с лица персонажа. и никак не смог сделать движение, стоит на месте и всё...
Graphics3D 800,600,32,0

User=LoadMesh("D:\psychodrama\Shadow.3ds")
ScaleEntity user, 0.50, 0.50, 0.50
rx#=10
rz#=0
ang=90
Repeat
PositionEntity user, rx#, -8, rz#
RotateEntity user, 0, ang + 90, 0

If KeyDown(200) Then
  rx# = rx# + Cos(ang) * 0.5
  rz# = rz# + Sin(ang) * 0.5
 End If
If KeyDown(203) Then ang = ang + 5
If KeyDown(205) Then ang = ang - 5

Pivot=CreatePivot(User)
PositionEntity pivot,0,5,-300
Camera=CreateCamera()

ground = CreatePlane()
PositionEntity ground, 0, -8, 0
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
	
    RenderWorld
    UpdateWorld
	
Flip False :Wend:End
Forever
(Offline)
 
Ответить с цитированием