What is the purpose of
Code: Select all
EntityMesh(#Entity, MeshID)
Code: Select all
EntityMesh(#Entity, MeshID)
Code: Select all
InitEngine3D()
InitSprite()
InitKeyboard()
OpenWindow(0, 0, 0, 800, 600, "EntityMesh", #PB_Window_ScreenCentered|#PB_Window_SystemMenu)
OpenWindowedScreen(WindowID(0), 0, 0, 800, 600)
CreateCamera(0, 0, 0, 100, 100)
MoveCamera(0, 0, 0, 5)
CreateLight(0, $FF00FF, -2, -3, 0)
CreateSphere(0, 2) ;Mesh 0
CreateCube(1, 2) ; Mesh 1
CreateTexture(0, 512, 512)
StartDrawing(TextureOutput(0))
DrawingMode(#PB_2DDrawing_AlphaBlend|#PB_2DDrawing_Gradient)
FrontColor($00005200) : BackColor($FF005200)
For y = 0 To 512 Step 16
For x = 0 To 512 Step 16
BoxedGradient(x, y, 512, 4)
Box(0, y, 512, 4)
Next x
Next y
StopDrawing()
CreateMaterial(0, TextureID(0))
MaterialBlendingMode(0, #PB_Material_Add)
MaterialCullingMode(0, #PB_Material_NoCulling)
CreateEntity(0, MeshID(0), MaterialID(0), 0, 0, 0) ; Entity 0
ScaleMaterial(0, 0.5, 0.5)
Repeat
Repeat : ev = WindowEvent() : Until ev = 0
ExamineKeyboard()
If KeyboardReleased(#PB_Key_F1)
EntityMesh(0, MeshID(1))
Debug "Swap mesh in entity with Cube"
ElseIf KeyboardReleased(#PB_Key_F2)
EntityMesh(0, MeshID(0))
Debug "Swap mesh in entity with Sphere"
EndIf
RenderWorld()
FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape)
Code: Select all
If KeyboardReleased(#PB_Key_F1)
;EntityMesh(0, MeshID(1))
FreeEntity(0)
CreateEntity(0, MeshID(1), MaterialID(0), 0, 0, 0) ;
Debug "Swap mesh in entity with Cube"
ElseIf KeyboardReleased(#PB_Key_F2)
;EntityMesh(0, MeshID(0))
FreeEntity(0)
CreateEntity(0, MeshID(0), MaterialID(0), 0, 0, 0) ;
Debug "Swap mesh in entity with Sphere"
EndIf