PureBoard

Code: Alles auswählen

InitEngine3D()
InitSprite()

Enumeration
	#Window
	#Camera
	#Mesh
	#Entity
	#Light
EndEnumeration

OpenWindow(#Window, 0, 0, 800, 600, "ScreenTitle", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
OpenWindowedScreen(WindowID(#Window), 0, 0, WindowWidth(#Window), WindowHeight(#Window), 0, 0, 0)

CreateCamera(#Camera, 0, 0, 100, 100)
MoveCamera(#Camera, 4, 4, 4)
CameraLookAt(#Camera, 0, 0, 0)
CreateLight(#Light, $FFFFFF, 5, 0, 0)


CreateLine3D(#PB_Any, 0, 0, 0, $FF8080, 1, 0, 0, $FF8080)
CreateLine3D(#PB_Any, 0, 0, 0, $80FF80, 0, 1, 0, $80FF80)
CreateLine3D(#PB_Any, 0, 0, 0, $8080FF, 0, 0, 1, $8080FF)

CreateCylinder(#Mesh, 1, 2)
TransformMesh(#Mesh, 0, 0, 0, 1, 1, 1, 0, 0, 20) ; Transform oder Rotate

CreateEntity(#Entity, MeshID(#Mesh), #PB_Material_None)
;RotateEntity(#Entity, 0, 0, 20) ; Transform oder Rotate

Repeat
	
	Repeat
		
		Select WindowEvent()
			Case #PB_Event_CloseWindow
				End
			Case #PB_Event_None
				Break
		EndSelect
		
	ForEver
	
	RenderWorld()
	
	FlipBuffers()
	
ForEver