tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-28 08:14:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

Added a debug compass for mapping purposes

Browse Source
This commit is contained in:
JappaWakka 2023-10-09 19:15:00 +02:00
parent 30ea882315
commit de2c6c829e
1 changed files with 33 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
P3D/Debug/DebugDisplay.vb
View File

@ -28,7 +28,39 @@ Public Class DebugDisplay
End If End If
End If End If
cameraInformation = Screen.Camera.Position.ToString() & thirdPersonString & Environment.NewLine & Screen.Camera.Yaw & "; " & Screen.Camera.Pitch & Environment.NewLine Dim CompassText As String = ""
If Screen.Camera IsNot Nothing Then
Dim PlayerCompass As String = ""
If thirdPersonString <> "" Then
Select Case Screen.Camera.GetPlayerFacingDirection
Case 0
PlayerCompass = "P: 0/n"
Case 1
PlayerCompass = "P: 1/w"
Case 2
PlayerCompass = "P: 2/s"
Case 3
PlayerCompass = "P: 3/e"
End Select
End If
Dim CameraCompass As String = ""
Select Case Screen.Camera.GetFacingDirection()
Case 0
CameraCompass = "C: 0/n"
Case 1
CameraCompass = "C: 1/w"
Case 2
CameraCompass = "C: 2/s"
Case 3
CameraCompass = "C: 3/e"
End Select
If thirdPersonString <> "" Then
CompassText = "Compass: " & PlayerCompass & ", " & CameraCompass
Else
CompassText = "Compass: " & CameraCompass
End If
End If
cameraInformation = Screen.Camera.Position.ToString() & thirdPersonString & Environment.NewLine & Screen.Camera.Yaw & "; " & Screen.Camera.Pitch & Environment.NewLine & CompassText & Environment.NewLine
End If End If
Dim MapPath As String = "" Dim MapPath As String = ""