Ich bin mir noch nicht mal sicher ob der Parameter 'DataLength' nun die Anzahl der Element oder die tatsächlich Größe in Bytes meint ...
 
 Code: Alles auswählen
InitEngine3D() : InitSprite() : InitKeyboard()
OpenWindow(0,0,0,640,480,"untitled",#WS_CAPTION | #WS_SYSMENU | #WS_MINIMIZEBOX | 1)	
OpenWindowedScreen(WindowID(0),0,0,640,480,0,0,0)
CreateCamera(0,0,0,100,100)
CameraRenderMode(0,#PB_Camera_Wireframe)
CreateMesh(0,100)
Structure Vertex
	X.f
	Y.f
	Z.f
EndStructure
Structure Triangle
	V1.w
	V2.w
	V3.w
EndStructure
Procedure AddVertex(Mesh,X.f,Y.f,Z.f)
	If IsMesh(Mesh)
		Protected vtx.Vertex				
		vtx\X = X : vtx\Y = Y : vtx\Z = Z		
		SetMeshData(Mesh,#PB_Mesh_Vertex,vtx,1)			
		ProcedureReturn #True
	EndIf
EndProcedure
Procedure AddTriangle(Mesh,V1,V2,V3)
	If IsMesh(Mesh)
		Protected tig.Triangle		
		tig\V1 = V1 : tig\V2 = V2 : tig\V3 = V3
		SetMeshData(Mesh,#PB_Mesh_Face,tig,1)		
		ProcedureReturn #True
	EndIf
EndProcedure
AddVertex(0,-1,0,0)
AddVertex(0,0,2,0)
AddVertex(0,1,0,0)
AddTriangle(0,0,1,2)
CreateEntity(0,MeshID(0),0,0,0,-5)
Repeat
	EventID = WindowEvent()
	ExamineKeyboard()
	ClearScreen(RGB(0,0,100))		
	RenderWorld()
	FlipBuffers()	
Until EventID = #WM_CLOSE Or KeyboardPushed(1)


