alor si quelqu'un sait comment retrouver l'angle d'une camera ou entité sa m'aiderais beaucoup merci.

Code : Tout sélectionner
;Rotation de la caméra avec la souris
If ExamineMouse()
MouseX = -(MouseDeltaX()/10)*#CameraSpeed/2
MouseY = -(MouseDeltaY()/10)*#CameraSpeed/2
EndIf
;Mémorise les angles
Camera\AngleX = M3D_WrapValue( Camera\AngleX + MouseX)
Camera\AngleY = M3D_WrapValue( Camera\AngleY + MouseY)
;Oriente la caméra
RotateCamera(0,MouseX,MouseY,0)
Code : Tout sélectionner
CameraLocate(0,X,Y,Z)
CameraLookAt(0,X+CosD(Camera\AngleX)*100,Y,-SinD(Camera\AngleX)*100)
Code : Tout sélectionner
ProcedureDLL.f M3D_WrapValue(Angle.f)
Angle/360
Angle-Int(Angle)
If Angle<0
ProcedureReturn (Angle+1)*360
Else
ProcedureReturn Angle*360
EndIf
EndProcedure
Code : Tout sélectionner
InitEngine3D()
InitKeyboard()
InitSprite()
InitMouse()
OpenWindow(0,100,100,800,600,0,"test")
OpenWindowedScreen(WindowID(0),0,0,800,600,0,0,0)
CreateCamera(0, 0, 0, 100, 100)
CameraLocate(0,0,0,0)
CameraLookAt(0,0,0,0)
#PlayerSpeed = 10
#RobotMesh = 0
#RobotTexture = 0
#Robot = 0
#RobotMat = 0
LoadMesh (#RobotMesh , "robot.mesh")
LoadTexture(#RobotTexture, "r2skin.jpg")
CreateMaterial(#RobotMat, TextureID(#RobotTexture))
CreateEntity(0,MeshID(#RobotMesh),MaterialID(#RobotMat),x,y,z)
Repeat
If ExamineKeyboard()
If KeyboardPushed(#PB_Key_Left)
KeyX = -#PlayerSpeed
ElseIf KeyboardPushed(#PB_Key_Right)
KeyX = #PlayerSpeed
Else
KeyX = 0
EndIf
If KeyboardPushed(#PB_Key_Up)
KeyY = -#PlayerSpeed
ElseIf KeyboardPushed(#PB_Key_Down)
KeyY = #PlayerSpeed
Else
KeyY = 0
EndIf
EndIf
;Rotation de la caméra avec la souris
If ExamineMouse()
MouseX = -(MouseDeltaX()/10)*#PlayerSpeed/2
MouseY = -(MouseDeltaY()/10)*#PlayerSpeed/2
EndIf
;Mémorise les angles
AngleX = M3D_WrapValue( AngleX + MouseX)
AngleY = M3D_WrapValue( AngleY + MouseY)
;Oriente la caméra
RotateCamera(0,MouseX,MouseY,0)
MoveCamera(0, KeyX, 0, KeyY)
RenderWorld()
If StartDrawing(ScreenOutput())
FrontColor(255, 255, 255)
DrawingMode(1)
Locate(0, 0) : DrawText(StrF(Engine3DFrameRate(0),1)+" FPS")
Locate(0, 20) : DrawText(Str(CountRenderedTriangles())+" Triangles")
Locate(0, 60) : DrawText(Str(AngleX))
Locate(0, 80) : DrawText(Str(AngleY))
StopDrawing()
EndIf
FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape)
Code : Tout sélectionner
Add3DArchive("Robot\" , #PB_3DArchive_FileSystem)
Add3DArchive("Textures\" , #PB_3DArchive_FileSystem)