I try to create an for cube loop, just an simple demo to test the 3d preformence on my laptop and computer yet...
Now i get this created script, writted in PureBasic 5.x yet:
Code: Select all
;Declare World
Declare Setup3DWorld()
;Enumerate ID's
Enumeration IDs
#Lamp
#Camera
#Mesh
#Entity
EndEnumeration
;Check if screen will be initialize
If InitEngine3D() = 0 Or InitSprite() = 0 Or InitKeyboard() = 0 Or OpenScreen(800, 600, 32, "3D Rotated Cobes", #PB_Screen_NoSynchronization) = 0
MessageRequester("Fout!", "Scherm wilt niet initializeren", #PB_MessageRequester_Info)
End
EndIf
;Make Procedure
Procedure Setup3DWorld()
;Create Light
CreateLight(#Lamp, RGB(255, 255, 255), 1, 1, 1, #PB_Light_Directional)
;Create Camera
CreateCamera(#Camera, 0, 0, 100, 100)
MoveCamera(#Camera, 400, 400, 100, #PB_Absolute | #PB_Local)
CameraLookAt(#Camera, 0, 1, 0)
;Create Cube
CreateCube(#Mesh, 1)
;Create an Static Cube Mesh, called High Poly
For X = 0 To 640 Step 2
For Y = 0 To 640 Step 2
For Z = 0 To 640 Step 2
;Create Entiry for All Cubes
CreateEntity(#Entity, MeshID(#Mesh), #PB_Material_None, X, Y, Z)
Next
Next
Next
;Rotate Entiry
RotateEntity(#Entity, 1, 1, 1, #PB_Local)
Repeat
;Setup 3D
RenderWorld()
FlipBuffers()
ClearScreen(0)
ForEver
;Check if player will be quit it
ExamineKeyboard()
If KeyboardPushed(#PB_Key_Escape)
End
EndIf
EndProcedure
;Call 3D
Setup3DWorld()
Thanks for help, Jamie.