Code: Select all
#CameraSpeed = 1
IncludeFile #PB_Compiler_Home + "examples/3d/Screen3DRequester.pb"
Define.f KeyX, KeyY, MouseX, MouseY
Macro CreateLine3D_(No, x1, y1, z1, Color1, x2, y2, z2, Color2)
CreateMesh(No, #PB_Mesh_LineList, #PB_Mesh_Static)
MeshVertexPosition(x1, y1, z1)
MeshVertexColor(Color1)
MeshVertexPosition(x2, y2, z2)
MeshVertexColor(Color2)
FinishMesh(#False)
SetMeshMaterial(No, MaterialID(1))
AttachNodeObject(Node, MeshID(No))
EndMacro
If InitEngine3D()
InitSprite()
InitKeyboard()
InitMouse()
If Screen3DRequester()
Add3DArchive(#PB_Compiler_Home + "examples/3d/Data/Textures", #PB_3DArchive_FileSystem)
Add3DArchive(#PB_Compiler_Home + "examples/3d/Data/Models" , #PB_3DArchive_FileSystem)
LoadMesh(10, "axes.mesh")
CreateMaterial(0, LoadTexture(0, "axes.png"))
CreateEntity(0, MeshID(10), MaterialID(0))
ScaleEntity(0, 0.1, 0.1 ,0.1)
;- Material
CreateMaterial(1, LoadTexture(0, "White.jpg"))
DisableMaterialLighting(1, #True)
; Line3D
;
Node = CreateNode(#PB_Any)
CreateLine3D_(0, 0, 0, 0, RGB(255, 0, 0), 10, 0, 0, RGB(255, 0, 0)) ; Axis X
CreateLine3D_(1, 0, 0, 0, RGB( 0, 255, 0), 0, 10, 0, RGB( 0, 255, 0)) ; Axis Y
CreateLine3D_(2, 0, 0, 0, RGB( 0, 0, 255), 0, 0, 10, RGB( 0, 0, 255)) ; Axis Z
; Camera
;
CreateCamera(0, 0, 0, 100, 100)
MoveCamera(0, 1, 1, 5, #PB_Absolute)
CameraLookAt(0, 0, 0, 0)
;-Light
CreateLight(0, RGB(255,255,255), -10, 60, 10)
AmbientColor(RGB(90, 90, 90))
Repeat
Screen3DEvents()
If ExamineMouse()
MouseX = -MouseDeltaX() * #CameraSpeed * 0.05
MouseY = -MouseDeltaY() * #CameraSpeed * 0.05
EndIf
If ExamineKeyboard()
If KeyboardPushed(#PB_Key_Left)
KeyX = -#CameraSpeed
ElseIf KeyboardPushed(#PB_Key_Right)
KeyX = #CameraSpeed
Else
KeyX = 0
EndIf
If KeyboardPushed(#PB_Key_Up)
KeyY = -#CameraSpeed
ElseIf KeyboardPushed(#PB_Key_Down)
KeyY = #CameraSpeed
Else
KeyY = 0
EndIf
EndIf
RotateCamera(0, MouseY, MouseX, 0, #PB_Relative)
MoveCamera (0, KeyX, 0, KeyY)
RenderWorld()
Screen3DStats()
FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape) Or Quit = 1
EndIf
Else
MessageRequester("Error", "The 3D Engine can't be initialized",0)
EndIf
End