Vertex and Surface commands? - GameCreators Forum

Author

Message

Rick Nasher

6

Years of Service

User Offline

Joined: 25th Jul 2017

Location: Amsterdam

Posted: 3rd Mar 2018 10:06 Edited at: 3rd Mar 2018 10:14

Link

Hi guys,

Apparently some Blitz3/Max users feel reluctant to step over to AppGameKit for it's missing some features they like, especially things like this:

Quote: "
CreateMesh([parent])
Parameters
parent (optional) - This optional parameter allows you to specify another entity which will act as the parent to this mesh.

Description
Create a 'blank' mesh entity and returns its handle.

When a mesh is first created it has no surfaces, vertices or triangles associated with it.

To add geometry to this mesh, you will need to:

CreateSurface() ; To make a surface
AddVertex ; You will need to add at least 3 to make a Triangle
AddTriangle ; This will add a triangle by connecting the Vertices (points) you added to the mesh.
"

Example:

; CreateMesh Example 
; ------------------

; In this example, we will create a custom mesh. This custom mesh will be in the shape of a ramp.

Graphics3D 640,480 
SetBuffer BackBuffer()

camera=CreateCamera()

light=CreateLight() 
RotateEntity light,45,0,0

; Create blank mesh 
ramp=CreateMesh()

; Create blank surface which is attached to mesh (surfaces must always be attached to a mesh) 
surf=CreateSurface(ramp)

; Now we have our blank mesh and surface, we can start adding vertices to it, to form the shape of our 
; ramp. 
; Vertices are invisible 'points' in a 3D object that we can attach triangles too later. 
; To create a single triangle, you need three vertices, one for each corner. 
; However, you can share vertices between triangles, so you do not always need 3 new vertices per 
; triangle. 
; In the case of our ramp mesh, we will require 6 vertices, one for each corner

v0=AddVertex(surf,0,0,0) ; bottom corner 1 
v1=AddVertex(surf,0,0,1) ; bottom corner 2 
v2=AddVertex(surf,4,0,1) ; bottom corner 3 
v3=AddVertex(surf,4,0,0) ; bottom corner 4 
v4=AddVertex(surf,0,2,0) ; top corner 1 
v5=AddVertex(surf,0,2,1) ; top corner 2

; Having created our blank mesh and surface, and added our vertices to form the shape of the mesh, we 
; now need to add triangles to it in order to make it solid and visible to the user. We create 
; triangles simply by connecting vertices up, very much like a 3D dot-to-dot.

; When adding triangles, we need to remember that they are only one sided, and the side they are 
; visible from is determined by the order in which we specify the vertices when using AddTriangle. 
; If the vertices, in the order that they are specified, are aligned in a clockwise fashion relative 
; to the camera then they will appear visible, otherwise they won't. 
; So, to make our ramp visible from the outside, we will be connecting all vertices in a clockwise 
; fashion, relative to the camera.

t0=AddTriangle(surf,v0,v3,v2) ; bottom triangle 1 
t1=AddTriangle(surf,v0,v2,v1) ; bottom triangle 2 
t2=AddTriangle(surf,v0,v4,v3) ; front triangle 
t3=AddTriangle(surf,v1,v2,v5) ; back triangle 
t4=AddTriangle(surf,v0,v1,v5) ; side triangle 1 
t5=AddTriangle(surf,v0,v5,v4) ; side triangle 2 
t6=AddTriangle(surf,v2,v4,v5) ; top triangle 1 
t7=AddTriangle(surf,v2,v3,v4) ; top triangle 2

; Now we will position our ramp in front of the camera so we can see it! 
PositionEntity ramp,0,-4,10

; Enable wireframe mode so we can see structure of model more clearly 
WireFrame True

; And a quick loop that renders the scene and displays the contents on the screen until we press esc 
While Not KeyDown(1)

; Constantly turn our ramp entity to show it off a bit 
TurnEntity ramp,0,1,0

RenderWorld 
Flip

Wend

; The end! 
End

+ Code Snippet

; CreateMesh Example 
; ------------------ 

; In this example, we will create a custom mesh. This custom mesh will be in the shape of a ramp. 

Graphics3D 640,480 
SetBuffer BackBuffer() 

camera=CreateCamera() 

light=CreateLight() 
RotateEntity light,45,0,0 

; Create blank mesh 
ramp=CreateMesh() 

; Create blank surface which is attached to mesh (surfaces must always be attached to a mesh) 
surf=CreateSurface(ramp) 

; Now we have our blank mesh and surface, we can start adding vertices to it, to form the shape of our 
; ramp. 
; Vertices are invisible 'points' in a 3D object that we can attach triangles too later. 
; To create a single triangle, you need three vertices, one for each corner. 
; However, you can share vertices between triangles, so you do not always need 3 new vertices per 
; triangle. 
; In the case of our ramp mesh, we will require 6 vertices, one for each corner 

v0=AddVertex(surf,0,0,0) ; bottom corner 1 
v1=AddVertex(surf,0,0,1) ; bottom corner 2 
v2=AddVertex(surf,4,0,1) ; bottom corner 3 
v3=AddVertex(surf,4,0,0) ; bottom corner 4 
v4=AddVertex(surf,0,2,0) ; top corner 1 
v5=AddVertex(surf,0,2,1) ; top corner 2 

; Having created our blank mesh and surface, and added our vertices to form the shape of the mesh, we 
; now need to add triangles to it in order to make it solid and visible to the user. We create 
; triangles simply by connecting vertices up, very much like a 3D dot-to-dot. 

; When adding triangles, we need to remember that they are only one sided, and the side they are 
; visible from is determined by the order in which we specify the vertices when using AddTriangle. 
; If the vertices, in the order that they are specified, are aligned in a clockwise fashion relative 
; to the camera then they will appear visible, otherwise they won't. 
; So, to make our ramp visible from the outside, we will be connecting all vertices in a clockwise 
; fashion, relative to the camera. 

t0=AddTriangle(surf,v0,v3,v2) ; bottom triangle 1 
t1=AddTriangle(surf,v0,v2,v1) ; bottom triangle 2 
t2=AddTriangle(surf,v0,v4,v3) ; front triangle 
t3=AddTriangle(surf,v1,v2,v5) ; back triangle 
t4=AddTriangle(surf,v0,v1,v5) ; side triangle 1 
t5=AddTriangle(surf,v0,v5,v4) ; side triangle 2 
t6=AddTriangle(surf,v2,v4,v5) ; top triangle 1 
t7=AddTriangle(surf,v2,v3,v4) ; top triangle 2 

; Now we will position our ramp in front of the camera so we can see it! 
PositionEntity ramp,0,-4,10 

; Enable wireframe mode so we can see structure of model more clearly 
WireFrame True 

; And a quick loop that renders the scene and displays the contents on the screen until we press esc 
While Not KeyDown(1) 

; Constantly turn our ramp entity to show it off a bit 
TurnEntity ramp,0,1,0 

RenderWorld 
Flip 

Wend 

; The end! 
End

Is there an equivalent in AppGameKit that we can use to simulate this? From what I've seen there are of course the Memblock commands such as:

•CopyMemblock ( memSrcID, memDstID, srcOffset, dstOffset, size )
•CreateMemblock ( memID, size )
•DeleteMemblock ( memID )
•GetMemblockByte ( memID, offset )
•GetMemblockByteSigned ( memID, offset )
•GetMemblockExists ( memID )
•GetMemblockFloat ( memID, offset )
•GetMemblockInt ( memID, offset )
•GetMemblockShort ( memID, offset )
•GetMemblockSize ( memID )
•GetMemblockString ( memID, offset, length )
•SetMemblockByte ( memID, offset, value )
•SetMemblockByteSigned ( memID, offset, value )
•SetMemblockFloat ( memID, offset, value )
•SetMemblockInt ( memID, offset, value )
•SetMemblockShort ( memID, offset, value )
•SetMemblockString ( memID, offset, value )
•CreateFileFromMemblock ( filename, memID )
•CreateMemblockFromFile ( filename )
•CreateImageFromMemblock ( imageID, memID )
•CreateMemblockFromImage ( imageID )
•AddObjectMeshFromMemblock ( objID, memID )
•CreateMemblockFromObjectMesh ( objID, meshIndex )
•CreateObjectFromMeshMemblock ( memID )
•GetMeshMemblockVertexAlpha ( memID, vertexIndex )
•GetMeshMemblockVertexBlue ( memID, vertexIndex )
•GetMeshMemblockVertexGreen ( memID, vertexIndex )
•GetMeshMemblockVertexNormalX ( memID, vertexIndex )
•GetMeshMemblockVertexNormalY ( memID, vertexIndex )
•GetMeshMemblockVertexNormalZ ( memID, vertexIndex )
•GetMeshMemblockVertexRed ( memID, vertexIndex )
•GetMeshMemblockVertexU ( memID, vertexIndex )
•GetMeshMemblockVertexV ( memID, vertexIndex )
•GetMeshMemblockVertexX ( memID, vertexIndex )
•GetMeshMemblockVertexY ( memID, vertexIndex )
•GetMeshMemblockVertexZ ( memID, vertexIndex )
•SetMeshMemblockVertexColor ( memID, vertexIndex, red, green, blue, alpha )
•SetMeshMemblockVertexNormal ( memID, vertexIndex, x, y, z )
•SetMeshMemblockVertexPosition ( memID, vertexIndex, x, y, z )
•SetMeshMemblockVertexUV ( memID, vertexIndex, u, v )
•SetObjectMeshFromMemblock ( objID, meshIndex, memID )

These can be used to manipulate an existing mesh, but can we also build one from scratch in a simple fashion as we could in the Blitz3D example?
(if not, then perhaps this should become a feature request, for would win potential users/customers)

Back to top

Profile PM Email Website

Santman

12

Years of Service

User Offline

Joined: 15th Sep 2011

Location: Inverness

Posted: 3rd Mar 2018 10:35

Link

In theory you could build one from scratch by just creating the memblock and then writing all the data, but I've never managed to get anywhere with this given the tutorial. I can get the vertex count etc, but they don't match modelling apps. Would live to see someone manage to decipher an object memblock.

Back to top

Profile PM

janbo

15

Years of Service

User Offline

Joined: 10th Nov 2008

Location: Germany

Posted: 3rd Mar 2018 12:57 Edited at: 3rd Mar 2018 15:50

Link

In the Minecraft clone thread for example I posted code to create separate faces for cubes from memblock it can also be used to generate all sorts of models.
This is the important part:

function CreateFace(CubeX,CubeY,CubeZ,Direction)
	if Cube[CubeX,CubeY,CubeZ].Face[Direction]=0
		Size#=0.5

MemblockID=CreateMeshMemblock()

select Direction
			case DUP:
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+0,CubeX-Size#,CubeY+Size#,CubeZ+Size#)		// Vertex
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+3*4,0,1,0)		// Normals
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+6*4,0,0)		// UV
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+8*4,CubeX-Size#,CubeY+Size#,CubeZ-Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+11*4,0,1,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+14*4,0,1)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+16*4,CubeX+Size#,CubeY+Size#,CubeZ+Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+19*4,0,1,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+22*4,1,0)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+24*4,CubeX+Size#,CubeY+Size#,CubeZ-Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+27*4,0,1,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+30*4,1,1)
			endcase
			case DDOWN:
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+0,CubeX-Size#,CubeY-Size#,CubeZ-Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+3*4,0,-1,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+6*4,0,0)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+8*4,CubeX-Size#,CubeY-Size#,CubeZ+Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+11*4,0,-1,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+14*4,0,1)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+16*4,CubeX+Size#,CubeY-Size#,CubeZ-Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+19*4,0,-1,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+22*4,1,0)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+24*4,CubeX+Size#,CubeY-Size#,CubeZ+Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+27*4,0,-1,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+30*4,1,1)
			endcase
			case DRIGHT:
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+0,CubeX+Size#,CubeY-Size#,CubeZ+Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+3*4,1,0,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+6*4,1,1)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+8*4,CubeX+Size#,CubeY+Size#,CubeZ+Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+11*4,1,0,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+14*4,1,0)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+16*4,CubeX+Size#,CubeY-Size#,CubeZ-Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+19*4,1,0,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+22*4,0,1)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+24*4,CubeX+Size#,CubeY+Size#,CubeZ-Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+27*4,1,0,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+30*4,0,0)
			endcase
			case DLEFT:
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+0,CubeX-Size#,CubeY+Size#,CubeZ+Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+3*4,-1,0,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+6*4,0,0)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+8*4,CubeX-Size#,CubeY-Size#,CubeZ+Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+11*4,-1,0,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+14*4,0,1)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+16*4,CubeX-Size#,CubeY+Size#,CubeZ-Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+19*4,-1,0,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+22*4,1,0)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+24*4,CubeX-Size#,CubeY-Size#,CubeZ-Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+27*4,-1,0,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+30*4,1,1)
			endcase
			case DFRONT:
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+0,CubeX-Size#,CubeY+Size#,CubeZ-Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+3*4,0,0,-1)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+6*4,0,0)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+8*4,CubeX-Size#,CubeY-Size#,CubeZ-Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+11*4,0,0,-1)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+14*4,0,1)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+16*4,CubeX+Size#,CubeY+Size#,CubeZ-Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+19*4,0,0,-1)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+22*4,1,0)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+24*4,CubeX+Size#,CubeY-Size#,CubeZ-Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+27*4,0,0,-1)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+30*4,1,1)
			endcase
			case DBACK:
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+0,CubeX+Size#,CubeY+Size#,CubeZ+Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+3*4,0,0,1)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+6*4,0,0)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+8*4,CubeX+Size#,CubeY-Size#,CubeZ+Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+11*4,0,0,1)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+14*4,0,1)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+16*4,CubeX-Size#,CubeY+Size#,CubeZ+Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+19*4,0,0,1)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+22*4,1,0)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+24*4,CubeX-Size#,CubeY-Size#,CubeZ+Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+27*4,0,0,1)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+30*4,1,1)
			endcase
		endselect

//~ Indices
		SetMemblockInt(MemblockID,IndexOffset+0*4,0)
		SetMemblockInt(MemblockID,IndexOffset+1*4,1)
		SetMemblockInt(MemblockID,IndexOffset+2*4,2)
		SetMemblockInt(MemblockID,IndexOffset+3*4,2)
		SetMemblockInt(MemblockID,IndexOffset+4*4,1)
		SetMemblockInt(MemblockID,IndexOffset+5*4,3)

Cube[CubeX,CubeY,CubeZ].Face[Direction]=BuildMeshMemblock(MemblockID)

SetFaceTexture(CubeX,CubeY,CubeZ,Direction)
	endif
endfunction

// here starts the memblock manipulation functions
function CreateMeshMemblock()
	VertexCount=4
	IndexCount=6
	Attributes=3
	VertexSize=3*4+3*4+2*4
	IndexOffset=VERTEX_OFFSET+(VertexCount*VertexSize)

MemblockID=Creatememblock(VERTEX_OFFSET+(VertexCount*VertexSize)+(IndexCount*4))
	SetMemblockInt(MemblockID,0,VertexCount)
	SetMemblockInt(MemblockID,4,IndexCount)
	SetMemblockInt(MemblockID,8,Attributes)
	SetMemblockInt(MemblockID,12,VertexSize)
	SetMemblockInt(MemblockID,16,VERTEX_OFFSET)
	SetMemblockInt(MemblockID,20,IndexOffset)

AttributeOffset=24
	SetMemblockByte(MemblockID,AttributeOffset,0) // Float type component
	SetMemblockByte(MemblockID,AttributeOffset+1,3) // number of components
	SetMemblockByte(MemblockID,AttributeOffset+2,0) // normalize flag
	SetMemblockByte(MemblockID,AttributeOffset+3,12) // string length
	SetMemblockString(MemblockID,AttributeOffset+4,"position"+chr(0)) // string

inc AttributeOffset,16
	SetMemblockByte(MemblockID,AttributeOffset,0) // Float type component
	SetMemblockByte(MemblockID,AttributeOffset+1,3) // number of components
	SetMemblockByte(MemblockID,AttributeOffset+2,0) // normalize flag
	SetMemblockByte(MemblockID,AttributeOffset+3,8) // string length
	SetMemblockString(MemblockID,AttributeOffset+4,"normal"+chr(0)) // string

inc AttributeOffset,12
	SetMemblockByte(MemblockID,AttributeOffset,0) // Float type component
	SetMemblockByte(MemblockID,AttributeOffset+1,2) // number of components
	SetMemblockByte(MemblockID,AttributeOffset+2,0) // normalize flag
	SetMemblockByte(MemblockID,AttributeOffset+3,4) // string length
	SetMemblockString(MemblockID,AttributeOffset+4,"uv"+chr(0)) // string
endfunction MemblockID

function BuildMeshMemblock(MemblockID)
	ObjectID=CreateObjectFromMeshMemblock(MemblockID)
	DeleteMemblock(MemblockID)
endfunction ObjectID

function SetMemblockVec3(MemblockID,Offset,x#,y#,z#)
	SetMemblockFloat(MemblockID,Offset,x#)
	SetMemblockFloat(MemblockID,Offset+4,y#)
	SetMemblockFloat(MemblockID,Offset+8,z#)
endfunction

function SetMemblockVec2(MemblockID,Offset,u#,v#)
	SetMemblockFloat(MemblockID,Offset,u#)
	SetMemblockFloat(MemblockID,Offset+4,v#)
endfunction

+ Code Snippet

function CreateFace(CubeX,CubeY,CubeZ,Direction)
	if Cube[CubeX,CubeY,CubeZ].Face[Direction]=0
		Size#=0.5

		MemblockID=CreateMeshMemblock()

		select Direction
			case DUP:
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+0,CubeX-Size#,CubeY+Size#,CubeZ+Size#)		// Vertex
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+3*4,0,1,0)		// Normals
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+6*4,0,0)		// UV
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+8*4,CubeX-Size#,CubeY+Size#,CubeZ-Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+11*4,0,1,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+14*4,0,1)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+16*4,CubeX+Size#,CubeY+Size#,CubeZ+Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+19*4,0,1,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+22*4,1,0)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+24*4,CubeX+Size#,CubeY+Size#,CubeZ-Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+27*4,0,1,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+30*4,1,1)
			endcase
			case DDOWN:
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+0,CubeX-Size#,CubeY-Size#,CubeZ-Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+3*4,0,-1,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+6*4,0,0)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+8*4,CubeX-Size#,CubeY-Size#,CubeZ+Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+11*4,0,-1,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+14*4,0,1)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+16*4,CubeX+Size#,CubeY-Size#,CubeZ-Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+19*4,0,-1,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+22*4,1,0)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+24*4,CubeX+Size#,CubeY-Size#,CubeZ+Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+27*4,0,-1,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+30*4,1,1)
			endcase
			case DRIGHT:
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+0,CubeX+Size#,CubeY-Size#,CubeZ+Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+3*4,1,0,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+6*4,1,1)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+8*4,CubeX+Size#,CubeY+Size#,CubeZ+Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+11*4,1,0,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+14*4,1,0)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+16*4,CubeX+Size#,CubeY-Size#,CubeZ-Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+19*4,1,0,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+22*4,0,1)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+24*4,CubeX+Size#,CubeY+Size#,CubeZ-Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+27*4,1,0,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+30*4,0,0)
			endcase
			case DLEFT:
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+0,CubeX-Size#,CubeY+Size#,CubeZ+Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+3*4,-1,0,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+6*4,0,0)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+8*4,CubeX-Size#,CubeY-Size#,CubeZ+Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+11*4,-1,0,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+14*4,0,1)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+16*4,CubeX-Size#,CubeY+Size#,CubeZ-Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+19*4,-1,0,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+22*4,1,0)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+24*4,CubeX-Size#,CubeY-Size#,CubeZ-Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+27*4,-1,0,0)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+30*4,1,1)
			endcase
			case DFRONT:
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+0,CubeX-Size#,CubeY+Size#,CubeZ-Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+3*4,0,0,-1)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+6*4,0,0)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+8*4,CubeX-Size#,CubeY-Size#,CubeZ-Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+11*4,0,0,-1)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+14*4,0,1)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+16*4,CubeX+Size#,CubeY+Size#,CubeZ-Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+19*4,0,0,-1)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+22*4,1,0)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+24*4,CubeX+Size#,CubeY-Size#,CubeZ-Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+27*4,0,0,-1)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+30*4,1,1)
			endcase
			case DBACK:
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+0,CubeX+Size#,CubeY+Size#,CubeZ+Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+3*4,0,0,1)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+6*4,0,0)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+8*4,CubeX+Size#,CubeY-Size#,CubeZ+Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+11*4,0,0,1)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+14*4,0,1)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+16*4,CubeX-Size#,CubeY+Size#,CubeZ+Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+19*4,0,0,1)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+22*4,1,0)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+24*4,CubeX-Size#,CubeY-Size#,CubeZ+Size#)
				SetMemblockVec3(MemblockID,VERTEX_OFFSET+27*4,0,0,1)
				SetMemblockVec2(MemblockID,VERTEX_OFFSET+30*4,1,1)
			endcase
		endselect

		//~ Indices
		SetMemblockInt(MemblockID,IndexOffset+0*4,0)
		SetMemblockInt(MemblockID,IndexOffset+1*4,1)
		SetMemblockInt(MemblockID,IndexOffset+2*4,2)
		SetMemblockInt(MemblockID,IndexOffset+3*4,2)
		SetMemblockInt(MemblockID,IndexOffset+4*4,1)
		SetMemblockInt(MemblockID,IndexOffset+5*4,3)

		Cube[CubeX,CubeY,CubeZ].Face[Direction]=BuildMeshMemblock(MemblockID)

		SetFaceTexture(CubeX,CubeY,CubeZ,Direction)
	endif
endfunction

// here starts the memblock manipulation functions
function CreateMeshMemblock()
	VertexCount=4
	IndexCount=6
	Attributes=3
	VertexSize=3*4+3*4+2*4
	IndexOffset=VERTEX_OFFSET+(VertexCount*VertexSize)

	MemblockID=Creatememblock(VERTEX_OFFSET+(VertexCount*VertexSize)+(IndexCount*4))
	SetMemblockInt(MemblockID,0,VertexCount)
	SetMemblockInt(MemblockID,4,IndexCount)
	SetMemblockInt(MemblockID,8,Attributes)
	SetMemblockInt(MemblockID,12,VertexSize)
	SetMemblockInt(MemblockID,16,VERTEX_OFFSET)
	SetMemblockInt(MemblockID,20,IndexOffset)

	AttributeOffset=24
	SetMemblockByte(MemblockID,AttributeOffset,0) // Float type component
	SetMemblockByte(MemblockID,AttributeOffset+1,3) // number of components
	SetMemblockByte(MemblockID,AttributeOffset+2,0) // normalize flag
	SetMemblockByte(MemblockID,AttributeOffset+3,12) // string length
	SetMemblockString(MemblockID,AttributeOffset+4,"position"+chr(0)) // string

	inc AttributeOffset,16
	SetMemblockByte(MemblockID,AttributeOffset,0) // Float type component
	SetMemblockByte(MemblockID,AttributeOffset+1,3) // number of components
	SetMemblockByte(MemblockID,AttributeOffset+2,0) // normalize flag
	SetMemblockByte(MemblockID,AttributeOffset+3,8) // string length
	SetMemblockString(MemblockID,AttributeOffset+4,"normal"+chr(0)) // string

	inc AttributeOffset,12
	SetMemblockByte(MemblockID,AttributeOffset,0) // Float type component
	SetMemblockByte(MemblockID,AttributeOffset+1,2) // number of components
	SetMemblockByte(MemblockID,AttributeOffset+2,0) // normalize flag
	SetMemblockByte(MemblockID,AttributeOffset+3,4) // string length
	SetMemblockString(MemblockID,AttributeOffset+4,"uv"+chr(0)) // string
endfunction MemblockID

function BuildMeshMemblock(MemblockID)
	ObjectID=CreateObjectFromMeshMemblock(MemblockID)
	DeleteMemblock(MemblockID)
endfunction ObjectID

function SetMemblockVec3(MemblockID,Offset,x#,y#,z#)
	SetMemblockFloat(MemblockID,Offset,x#)
	SetMemblockFloat(MemblockID,Offset+4,y#)
	SetMemblockFloat(MemblockID,Offset+8,z#)
endfunction

function SetMemblockVec2(MemblockID,Offset,u#,v#)
	SetMemblockFloat(MemblockID,Offset,u#)
	SetMemblockFloat(MemblockID,Offset+4,v#)
endfunction

In the CreateFace() function I set the vertex position, normal an uv coordinate for every vertex of one side of the cube.

You need these steps:
1. MemblockID=CreateMeshMemblock() // generate the mesh
2.
- SetMemblockVec3(MemblockID,VERTEX_OFFSET+0,0,0,0) // set Vertex position (you can also use SetMeshMemblockVertexPosition() here)
- SetMemblockVec3(MemblockID,VERTEX_OFFSET+3*4,0,1,0) // Normals
- SetMemblockVec2(MemblockID,VERTEX_OFFSET+6*4,0,0) // UV
3. SetMemblockInt(MemblockID,IndexOffset+0*4,0) // (optional) set the indices
4. ObjectID=BuildMeshMemblock(MemblockID) // finish and return the object ID

[Edit] I wonder how we are supposed to remove a mesh from an object previously added with AddObjectMeshFromMemblock[/Edit]

Back to top

Profile PM Email Website

Rick Nasher

6

Years of Service

User Offline

Joined: 25th Jul 2017

Location: Amsterdam

Posted: 3rd Mar 2018 20:51

Link

Many thanks for the replies Santman and janbo.

Quote: "[Edit] I wonder how we are supposed to remove a mesh from an object previously added with AddObjectMeshFromMemblock[/Edit]"

You've got a good point there. No delete options in memblock commands, except DeleteMemblock, which makes it kinda difficult.

Back to top

Profile PM Email Website

TomToad

6

Years of Service

User Offline

Joined: 6th Jan 2018

Location:

Posted: 5th Mar 2018 21:01

Link

Here's some code for creating a simple triangle.

// Project: triangle 
// Created: 2018-03-03

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "triangle" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

//first we will create a memblock to hold the mesh
memblock = CreateMemblock(160)

//Now we need to fill it with mesh data
SetMemblockInt(memblock,0,3) //3 vertices
SetMemblockInt(memblock,4,3) //3 indices, not necissary for simple triangle, but we do it here for completeness
SetMemblockint(memblock,8,3) //Our mesh has 3 attributes, position, normal, color
Setmemblockint(memblock,12,28) //number of bytes each vertext takes up. x,y,z,nx,ny,nz,color * 4
SetMemblockInt(memblock,16,64) //offset to vertex data
SetMemblockInt(memblock,20,148) //offset to index data

//Attribute information, I'm combining all bytes into a single int.  
//   Little endiness means order is string length, normal flag, component count, data type (data will
//   be written to the MemBlock in reverse order).
SetMemBlockInt(memblock,24,0x0C000300) //float, 3 components, no normalizing, position
SetMemblockString(memblock,28,"position") 
SetMemblockInt(memblock,40,0x08000300) //same as position, but for normals
SetMemblockString(memblock,44,"normal")
SetMemblockInt(memblock,52,0x08010401) //For color we have byte, 4 components, normalize data
SetMemblockString(memblock,56,"color")

//Now we can enter vertex data

Vertex as float[8] = [5.0,-5.0,0.0,-5.0,-5.0,0.0,0.0,5.0,0.0]
Color as integer[2] = [0xFFFF0000,0xFF00FF00,0xFF0000FF]

for i = 0 to 2
	SetMemblockFloat(memblock,64+i*28,Vertex[i*3]) //x
	SetMemblockFloat(memblock,68+i*28,Vertex[i*3+1]) //y
	SetMemblockFloat(memblock,72+i*28,Vertex[i*3+2]) //z
	SetMemblockFloat(memblock,76+i*28,0.0) //nx
	SetMemblockFloat(memblock,80+i*28,0.0) //ny
	SetMemblockFloat(memblock,84+i*28,-1.0) //nz
	SetMemblockInt(memblock,88+i*28,Color[i]) //color
next
 // Now the index data
 SetMemblockInt(memblock,148,0)
 SetMemblockInt(memblock,152,2)
 SetMemblockInt(memblock,156,1)
	
//Now to create the object
triangle = CreateObjectFromMeshMemblock(memblock)

do

Print( ScreenFPS() )
    Sync()
loop

+ Code Snippet

// Project: triangle 
// Created: 2018-03-03

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "triangle" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

//first we will create a memblock to hold the mesh
memblock = CreateMemblock(160)

//Now we need to fill it with mesh data
SetMemblockInt(memblock,0,3) //3 vertices
SetMemblockInt(memblock,4,3) //3 indices, not necissary for simple triangle, but we do it here for completeness
SetMemblockint(memblock,8,3) //Our mesh has 3 attributes, position, normal, color
Setmemblockint(memblock,12,28) //number of bytes each vertext takes up. x,y,z,nx,ny,nz,color * 4
SetMemblockInt(memblock,16,64) //offset to vertex data
SetMemblockInt(memblock,20,148) //offset to index data

//Attribute information, I'm combining all bytes into a single int.  
//   Little endiness means order is string length, normal flag, component count, data type (data will
//   be written to the MemBlock in reverse order).
SetMemBlockInt(memblock,24,0x0C000300) //float, 3 components, no normalizing, position
SetMemblockString(memblock,28,"position") 
SetMemblockInt(memblock,40,0x08000300) //same as position, but for normals
SetMemblockString(memblock,44,"normal")
SetMemblockInt(memblock,52,0x08010401) //For color we have byte, 4 components, normalize data
SetMemblockString(memblock,56,"color")

//Now we can enter vertex data

Vertex as float[8] = [5.0,-5.0,0.0,-5.0,-5.0,0.0,0.0,5.0,0.0]
Color as integer[2] = [0xFFFF0000,0xFF00FF00,0xFF0000FF]

for i = 0 to 2
	SetMemblockFloat(memblock,64+i*28,Vertex[i*3]) //x
	SetMemblockFloat(memblock,68+i*28,Vertex[i*3+1]) //y
	SetMemblockFloat(memblock,72+i*28,Vertex[i*3+2]) //z
	SetMemblockFloat(memblock,76+i*28,0.0) //nx
	SetMemblockFloat(memblock,80+i*28,0.0) //ny
	SetMemblockFloat(memblock,84+i*28,-1.0) //nz
	SetMemblockInt(memblock,88+i*28,Color[i]) //color
next
 // Now the index data
 SetMemblockInt(memblock,148,0)
 SetMemblockInt(memblock,152,2)
 SetMemblockInt(memblock,156,1)
	
//Now to create the object
triangle = CreateObjectFromMeshMemblock(memblock)


do
    

    Print( ScreenFPS() )
    Sync()
loop

the only way I can see to delete a mesh is to delete the entire object, then rebuild it from scratch.

Back to top

Profile PM Email

Bengismo

6

Years of Service

User Offline

Joined: 20th Nov 2017

Location: Yorkshire, England

Posted: 5th Mar 2018 23:04 Edited at: 6th Mar 2018 09:25

Link

Id say that hardcoding in the float offsets is not a great idea for readability of code.

Id recommend using the Vertex functions (even if it is maybe slightly slower)
SetMeshMemblockVertexPosition( )
SetMeshMemblockVertexNormal( )
SetMeshMemblockVertexUV( )

function CreateSquare()

// Calculations for a memblock 
	VertexSize = 12 + 12 + 8 // 32 = Position (3 floats), Normal (3 floats) and UV data (2floats)
	NumVertices = 4 // 4 corners of the square
	NumIndices = 6 // 2 triangles to make up a square
	NumAttributes = 3 // attributes are listed below...basically these area position,a normal and uv texture coordinates
	VertexOffset = 60 // This is the start of the vertex data
	IndexOffset = VertexOffset + (NumVertices*VertexSize)  // start of the index data

MemSize = IndexOffset + (NumIndices*4)
	
	// create the memblock
	msblk = CreateMemblock( MemSize )

// Start filling it up with relevant info
	SetMemblockInt( msblk, 0, NumVertices )   // number of vertices (4)
	SetMemblockInt( msblk, 4, NumIndices )  // Number of indices (6)
	SetMemblockInt( msblk, 8, NumAttributes ) 	// number if attributes (3)
	SetMemblockInt( msblk, 12, VertexSize )		// Bytes per vertex  (32)
	SetMemblockInt( msblk, 16, VertexOffset ) 	// should be 60 when using Position, Normal and UV's but can vary depending on attributes
	SetMemblockInt( msblk, 20, IndexOffset )    // varies
		
	// Set the attribute Data begins at 24
	
	// POSITION ATTRIBUTES  4+12 = 16
	SetMemblockByte( msblk, 24, 0 )		// float 
	SetMemblockByte( msblk, 25, 3 )		// component count x,y,z
	SetMemblockByte( msblk, 26, 0 )		// normalize 
	SetMemblockByte( msblk, 27, 12 )    // string length 
	SetMemblockString( msblk, 28, "position" )

// NORMALS ATTRIBUTES 4+8 = 12
	SetMemblockByte( msblk, 40, 0 )		// float 
	SetMemblockByte( msblk, 41, 3 )		// component count x,y,z
	SetMemblockByte( msblk, 42, 0 )		// normalize 
	SetMemblockByte( msblk, 43, 8 )     // string length 
	SetMemblockString( msblk, 44, "normal" )

// UV 4+4 = 8
	SetMemblockByte( msblk, 52, 0 )		// unsigned byte
	SetMemblockByte( msblk, 53, 2 )		// component count U,V
	SetMemblockByte( msblk, 54, 0 )		// normalize 
	SetMemblockByte( msblk, 55, 4 )     // string length 
	SetMemblockString( msblk, 56, "uv" )

// Set first vertex
	SetMeshMemblockVertexPosition( msblk, 0, 0, 0, 0 )
	SetMeshMemblockVertexNormal( msblk, 0, 0.0, 0.0, -1.0 )  // set a default normal to negative z
	SetMeshMemblockVertexUV( msblk, 0, 0,1.0)
	
	// Set 2nd vertex
	SetMeshMemblockVertexPosition( msblk, 1, 10, 0, 0 )
	SetMeshMemblockVertexNormal( msblk, 1, 0.0, 0.0, -1.0 )  // set a default normal to negative z
	SetMeshMemblockVertexUV( msblk, 1, 1.0,1.0)
	
	// Set 3rd vertex
	SetMeshMemblockVertexPosition( msblk, 2, 10, 10, 0 )
	SetMeshMemblockVertexNormal( msblk, 2, 0.0, 0.0, -1.0 )  // set a default normal to negative z
	SetMeshMemblockVertexUV( msblk, 2,1.0,0)

// Set 4th vertex
	SetMeshMemblockVertexPosition( msblk, 3, 0, 10, 0 )
	SetMeshMemblockVertexNormal( msblk, 3, 0.0, 0.0, -1.0 )  // set a default normal to negative z
	SetMeshMemblockVertexUV( msblk, 3, 0,0)

// set index data
	SetMemblockInt( msblk, IndexOffset, 0)   // triangle no 1
	SetMemblockInt( msblk, IndexOffset+4, 1)
	SetMemblockInt( msblk, IndexOffset+8, 2)
	SetMemblockInt( msblk, IndexOffset+12, 0) // triangle no 2
	SetMemblockInt( msblk, IndexOffset+16, 2)
	SetMemblockInt( msblk, IndexOffset+20, 3)

// copy data into the membuffer
	newobj = CreateObjectFromMeshMemblock( msblk )
	
	
	// delete the MeshMemblock
	DeleteMemblock( msblk )

// return the newly created mesh object :)
endfunction newobj

+ Code Snippet

function CreateSquare()

	// Calculations for a memblock 
	VertexSize = 12 + 12 + 8 // 32 = Position (3 floats), Normal (3 floats) and UV data (2floats)
	NumVertices = 4 // 4 corners of the square
	NumIndices = 6 // 2 triangles to make up a square
	NumAttributes = 3 // attributes are listed below...basically these area position,a normal and uv texture coordinates
	VertexOffset = 60 // This is the start of the vertex data
	IndexOffset = VertexOffset + (NumVertices*VertexSize)  // start of the index data

	MemSize = IndexOffset + (NumIndices*4)
	
	// create the memblock
	msblk = CreateMemblock( MemSize )

	
	// Start filling it up with relevant info
	SetMemblockInt( msblk, 0, NumVertices )   // number of vertices (4)
	SetMemblockInt( msblk, 4, NumIndices )  // Number of indices (6)
	SetMemblockInt( msblk, 8, NumAttributes ) 	// number if attributes (3)
	SetMemblockInt( msblk, 12, VertexSize )		// Bytes per vertex  (32)
	SetMemblockInt( msblk, 16, VertexOffset ) 	// should be 60 when using Position, Normal and UV's but can vary depending on attributes
	SetMemblockInt( msblk, 20, IndexOffset )    // varies
		
	// Set the attribute Data begins at 24
	
	// POSITION ATTRIBUTES  4+12 = 16
	SetMemblockByte( msblk, 24, 0 )		// float 
	SetMemblockByte( msblk, 25, 3 )		// component count x,y,z
	SetMemblockByte( msblk, 26, 0 )		// normalize 
	SetMemblockByte( msblk, 27, 12 )    // string length 
	SetMemblockString( msblk, 28, "position" )

	// NORMALS ATTRIBUTES 4+8 = 12
	SetMemblockByte( msblk, 40, 0 )		// float 
	SetMemblockByte( msblk, 41, 3 )		// component count x,y,z
	SetMemblockByte( msblk, 42, 0 )		// normalize 
	SetMemblockByte( msblk, 43, 8 )     // string length 
	SetMemblockString( msblk, 44, "normal" )

	// UV 4+4 = 8
	SetMemblockByte( msblk, 52, 0 )		// unsigned byte
	SetMemblockByte( msblk, 53, 2 )		// component count U,V
	SetMemblockByte( msblk, 54, 0 )		// normalize 
	SetMemblockByte( msblk, 55, 4 )     // string length 
	SetMemblockString( msblk, 56, "uv" )

	
	// Set first vertex
	SetMeshMemblockVertexPosition( msblk, 0, 0, 0, 0 )
	SetMeshMemblockVertexNormal( msblk, 0, 0.0, 0.0, -1.0 )  // set a default normal to negative z
	SetMeshMemblockVertexUV( msblk, 0, 0,1.0)
	
	// Set 2nd vertex
	SetMeshMemblockVertexPosition( msblk, 1, 10, 0, 0 )
	SetMeshMemblockVertexNormal( msblk, 1, 0.0, 0.0, -1.0 )  // set a default normal to negative z
	SetMeshMemblockVertexUV( msblk, 1, 1.0,1.0)
	
	// Set 3rd vertex
	SetMeshMemblockVertexPosition( msblk, 2, 10, 10, 0 )
	SetMeshMemblockVertexNormal( msblk, 2, 0.0, 0.0, -1.0 )  // set a default normal to negative z
	SetMeshMemblockVertexUV( msblk, 2,1.0,0)

	// Set 4th vertex
	SetMeshMemblockVertexPosition( msblk, 3, 0, 10, 0 )
	SetMeshMemblockVertexNormal( msblk, 3, 0.0, 0.0, -1.0 )  // set a default normal to negative z
	SetMeshMemblockVertexUV( msblk, 3, 0,0)

	// set index data
	SetMemblockInt( msblk, IndexOffset, 0)   // triangle no 1
	SetMemblockInt( msblk, IndexOffset+4, 1)
	SetMemblockInt( msblk, IndexOffset+8, 2)
	SetMemblockInt( msblk, IndexOffset+12, 0) // triangle no 2
	SetMemblockInt( msblk, IndexOffset+16, 2)
	SetMemblockInt( msblk, IndexOffset+20, 3)

	
	// copy data into the membuffer
	newobj = CreateObjectFromMeshMemblock( msblk )
	
	
	// delete the MeshMemblock
	DeleteMemblock( msblk )

	// return the newly created mesh object :)
endfunction newobj

Its not that hard really once you get round all the attributes and layout of the memblock.

You can use the memblock functions to set a mesh to just have a single triangle in it with zero area (all vertices to be 0.0) so nothing is shown on screen. Ok, its not a true mesh delete (which we should have) but its close. Unfortunately setting the number of triangles in the memblock to zero causes an error so cant be used to effectively delete the mesh. The command to do it would be good.

Back to top

Profile PM

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 6th Mar 2018 10:13

Link

Quote: "Blitz3D"

i agree to this, some simple 3d functions will be a good improvement.

AGK (Steam) V2017.12.12 : Windows 10 Pro 64 Bit : NVIDIA (390.65) GeForce GTX 1050 Ti : Mac mini OS High Sierra (10.13)

Back to top

Profile PM Email

Van B

Moderator

21

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 6th Mar 2018 11:00

Link

One thing that was added to DBPro I really liked was the vertex locking commands. You could take an object, lock its vertices then modify them, then unlock the object. It was even possible to do vertex modifications with animated models.

I do use the memblock mesh commands for a terrain, allows realtime modifications, digging etc - but it would be great to be able to quickly modify a mesh without having to rebuild it.

The code is dark and full of errors

Back to top

Profile PM Email

Bengismo

6

Years of Service

User Offline

Joined: 20th Nov 2017

Location: Yorkshire, England

Posted: 6th Mar 2018 11:26

Link

Quote: "I do use the memblock mesh commands for a terrain, allows realtime modifications, digging etc - but it would be great to be able to quickly modify a mesh without having to rebuild it."

You don't have to rebuild it from scratch every time...you can just create a memblock from the mesh after loading then do multiple changes to the memblock and apply the changes while keeping the memblock around for future changes

Locking (similar to)= CreateMemblockFromMesh() - You dont have to do this every single time...you can hang on to this memblock and modify it again and again....

Unlock (similar to)= SetObjectMeshFromMemblock() - call it after each change that you want to commit.

It wouldnt be hard to wrap functions for createsurface, addvertex & addtriangle if people wanted it.
I like the memblock system as it allows you to control vertex attributes and potentially use some amazing shaders rather then the older fixed function system/pipeline.

Back to top

Profile PM

Rick Nasher

6

Years of Service

User Offline

Joined: 25th Jul 2017

Location: Amsterdam

Posted: 6th Mar 2018 17:45

Link

@Bengismo:

Quote: "You don't have to rebuild it from scratch every time...you can just create a memblock from the mesh after loading then do multiple changes to the memblock and apply the changes while keeping the memblock around for future changes
"

Wouldn't this mean keeping the block in memory and wasting (a bit of) space?

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 6th Mar 2018 19:01

Link

How about:-

- Build a map from a type array with offset / vertices / normals/ uv data into an expanding array

- create the object mesh from that array

- if add / remove any objects in game play, then adjust the data in the array and only adjust the memblock for that particular object only with the offset/vertices/normal/uv in the array

- Save the whole data array on a load/save game

If this makes any sense then great - if not, then back to the learning

Back to top

Profile

puzzler2018

User Banned

Posted: 6th Mar 2018 20:39 Edited at: 6th Mar 2018 20:42

Link

// Project: render 
// Created: 2018-03-06

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "render" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

type _memblockdata
	offset
	vertices
	normals
	uvs
endtype
global memblockdata as _memblockdata[]
global objectnumber
global needtorender=0
global renderpipline as integer[] // the array that needs to be added/or removed from the mesh

do
    add_object(CreateObjectBox(1,1,1),wherex#,wherey#,wherez#)

renderpipline()
	
    Print( ScreenFPS() )
    Sync()
loop

function add_object(id,wherex#,wherey#,wheerez#)
	memblockdata[objectnumber].offset=??
	memblockdata[objectnumber].vertices=??
	memblockdata[objectnumber].normals=??
	memblockdata[objectnumber].uvs=??
	needtorender=1
	renderpipline.insert(objectnumber)
	 inc objectnumber
	
endfunction

function renderpipline()
	if needtorender=1
		
		for a=0 to renderpipline.length
			
			// 
			//do the magical memblock setmemblock data for each of the objects in the renderpipline which corresponds to which in the 
			// memblockdata (world array)
		//	..
			//..
		//	..
			// done
			renderpipline.remove(a)
		    	
		next
                needtorender=0
	next
	
	
endfunction

+ Code Snippet


// Project: render 
// Created: 2018-03-06

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "render" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

type _memblockdata
	offset
	vertices
	normals
	uvs
endtype
global memblockdata as _memblockdata[]
global objectnumber
global needtorender=0
global renderpipline as integer[] // the array that needs to be added/or removed from the mesh

do
    add_object(CreateObjectBox(1,1,1),wherex#,wherey#,wherez#)

	renderpipline()
	
    Print( ScreenFPS() )
    Sync()
loop

function add_object(id,wherex#,wherey#,wheerez#)
	memblockdata[objectnumber].offset=??
	memblockdata[objectnumber].vertices=??
	memblockdata[objectnumber].normals=??
	memblockdata[objectnumber].uvs=??
	needtorender=1
	renderpipline.insert(objectnumber)
	 inc objectnumber
	
endfunction

function renderpipline()
	if needtorender=1
		
		for a=0 to renderpipline.length
			
			// 
			//do the magical memblock setmemblock data for each of the objects in the renderpipline which corresponds to which in the 
			// memblockdata (world array)
		//	..
			//..
		//	..
			// done
			renderpipline.remove(a)
		    	
		next
                needtorender=0
	next
	
	
endfunction

Thats a theory anyway.

Back to top

Profile

TomToad

6

Years of Service

User Offline

Joined: 6th Jan 2018

Location:

Posted: 6th Mar 2018 22:11

Link

Here is a start on something. Save this as "mesh.agc"

Type Vertex
	x as float
	y as float
	z as float
	nx as float
	ny as float
	nz as float
	u as float
	v as float
	color as integer
endtype

Type Triangle
	v1 as integer
	v2 as integer
	v3 as integer
endtype

Type Mesh
	VertexList as Vertex[]
	TriangleList as Triangle[]
endtype

Function AddVertex(m ref as Mesh, x as float, y as float, z as float, nx as float, ny as float, nz as float, u as float, v as float, color as integer)
	vert as vertex
	vert.x = x
	vert.y = y
	vert.z = z
	vert.nx = nx
	vert.ny = ny
	vert.nz = nz
	vert.u = u
	vert.v = v
	vert.color = color
	m.VertexList.Insert(vert)
endfunction

Function AddTriangle(m ref as Mesh, v1 as integer, v2 as integer, v3 as integer)
	t as Triangle
	t.v1 = v1
	t.v2 = v2
	t.v3 = v3
	m.TriangleList.Insert(t)
endfunction

Function CreateObjectFromMesh(m ref as mesh)
	VertexCount = m.VertexList.Length + 1
	IndexCount = (m.TriangleList.Length + 1) * 3
	IndexOffset = 72 + VertexCount*36
	memblock = CreateMemblock(IndexOffset+IndexCount*4)
	SetMemblockInt(memblock,0,VertexCount)
	SetMemblockInt(memblock,4,IndexCount)
	SetMemblockInt(Memblock,8,4)
	SetMemblockInt(memblock,12,36)
	SetmemblockInt(memblock,16,72)
	SetMemblockInt(memblock,20,IndexOffset)
	SetMemblockInt(memblock,24,0x0c000300)
	SetMemblockString(Memblock,28,"position")
	SetMemblockInt(memblock,40,0x08000300)
	SetMemblockString(memblock,44,"normal")
	SetMemblockInt(memblock,52,0x04000200)
	SetMemblockString(memblock,56,"uv")
	SetMemblockInt(memblock,60,0x08010401)
	SetMemblockString(memblock,64,"color")
	
	for i = 0 to m.VertexList.Length
		SetMemblockFloat(memblock,72+i*36,m.VertexList[i].x)
		SetMemblockFloat(memblock,76+i*36,m.VertexList[i].y)
		SetMemblockFloat(memblock,80+i*36,m.VertexList[i].z)
		SetMemblockFloat(memblock,84+i*36,m.VertexList[i].nx)
		SetMemblockFloat(memblock,88+i*36,m.VertexList[i].ny)
		SetMemblockFloat(memblock,92+i*36,m.VertexList[i].nz)
		SetMemblockFloat(memblock,96+i*36,m.VertexList[i].u)
		SetMemblockFloat(memblock,100+i*36,m.VertexList[i].v)
		SetMemblockInt(memblock,104+i*36,m.VertexList[i].color)
	next
	
	for i = 0 to m.TriangleList.Length
		SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
		SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
		SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
	next
	id = CreateObjectFromMeshMemblock(memblock)
	DeleteMemblock(memblock)
endfunction id

+ Code Snippet

Type Vertex
	x as float
	y as float
	z as float
	nx as float
	ny as float
	nz as float
	u as float
	v as float
	color as integer
endtype

Type Triangle
	v1 as integer
	v2 as integer
	v3 as integer
endtype

Type Mesh
	VertexList as Vertex[]
	TriangleList as Triangle[]
endtype

Function AddVertex(m ref as Mesh, x as float, y as float, z as float, nx as float, ny as float, nz as float, u as float, v as float, color as integer)
	vert as vertex
	vert.x = x
	vert.y = y
	vert.z = z
	vert.nx = nx
	vert.ny = ny
	vert.nz = nz
	vert.u = u
	vert.v = v
	vert.color = color
	m.VertexList.Insert(vert)
endfunction

Function AddTriangle(m ref as Mesh, v1 as integer, v2 as integer, v3 as integer)
	t as Triangle
	t.v1 = v1
	t.v2 = v2
	t.v3 = v3
	m.TriangleList.Insert(t)
endfunction

Function CreateObjectFromMesh(m ref as mesh)
	VertexCount = m.VertexList.Length + 1
	IndexCount = (m.TriangleList.Length + 1) * 3
	IndexOffset = 72 + VertexCount*36
	memblock = CreateMemblock(IndexOffset+IndexCount*4)
	SetMemblockInt(memblock,0,VertexCount)
	SetMemblockInt(memblock,4,IndexCount)
	SetMemblockInt(Memblock,8,4)
	SetMemblockInt(memblock,12,36)
	SetmemblockInt(memblock,16,72)
	SetMemblockInt(memblock,20,IndexOffset)
	SetMemblockInt(memblock,24,0x0c000300)
	SetMemblockString(Memblock,28,"position")
	SetMemblockInt(memblock,40,0x08000300)
	SetMemblockString(memblock,44,"normal")
	SetMemblockInt(memblock,52,0x04000200)
	SetMemblockString(memblock,56,"uv")
	SetMemblockInt(memblock,60,0x08010401)
	SetMemblockString(memblock,64,"color")
	
	for i = 0 to m.VertexList.Length
		SetMemblockFloat(memblock,72+i*36,m.VertexList[i].x)
		SetMemblockFloat(memblock,76+i*36,m.VertexList[i].y)
		SetMemblockFloat(memblock,80+i*36,m.VertexList[i].z)
		SetMemblockFloat(memblock,84+i*36,m.VertexList[i].nx)
		SetMemblockFloat(memblock,88+i*36,m.VertexList[i].ny)
		SetMemblockFloat(memblock,92+i*36,m.VertexList[i].nz)
		SetMemblockFloat(memblock,96+i*36,m.VertexList[i].u)
		SetMemblockFloat(memblock,100+i*36,m.VertexList[i].v)
		SetMemblockInt(memblock,104+i*36,m.VertexList[i].color)
	next
	
	for i = 0 to m.TriangleList.Length
		SetMemblockInt(memblock,IndexOffset+i*12,m.TriangleList[i].v1)
		SetMemblockInt(memblock,IndexOffset+i*12+4,m.TriangleList[i].v2)
		SetMemblockInt(memblock,IndexOffset+i*12+8,m.TriangleList[i].v3)
	next
	id = CreateObjectFromMeshMemblock(memblock)
	DeleteMemblock(memblock)
endfunction id

Example of usage. Copy the file "mesh3-1.jpg" from the "AppGameKit\Samples\3D\3D-FirstPersonExample\media" folder to the project media folder for the texture to work, or use your own texture amd change line 78 accordingly.

// Project: Cube 
// Created: 2018-03-06

#insert "mesh.agc"
// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Cube" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

cube as Mesh

//face 1
AddVertex(Cube,-5,-5,-5,0,0,-1,0,1,0xFFFFFFFF) //0
AddVertex(Cube,-5,5,-5,0,0,-1,0,0,0xFFFFFFFF) //1
AddVertex(Cube,5,5,-5,0,0,-1,1,0,0xFFFFFFFF) //2
AddVertex(Cube,5,-5,-5,0,0,-1,1,1,0xFFFFFFFF) //3

AddTriangle(Cube,0,2,1)
AddTriangle(Cube,0,3,2)

//face 2
AddVertex(Cube,5,5,-5,1,0,0,0,0,0xFF0000FF) //4
AddVertex(Cube,5,5,5,1,0,0,1,0,0xFF0000FF) //5
AddVertex(Cube,5,-5,5,1,0,0,1,1,0xFF0000FF) //6
AddVertex(Cube,5,-5,-5,1,0,0,0,1,0xFF0000FF) //7

AddTriangle(Cube,4,7,5)
AddTriangle(Cube,5,7,6)

//face 3
AddVertex(Cube,5,5,5,0,0,1,0,0,0xFF00FF00) //8
AddVertex(Cube,5,-5,5,0,0,1,0,1,0xFF00FF00) //9
AddVertex(Cube,-5,-5,5,0,0,1,1,1,0xFF00FF00) //10
AddVertex(Cube,-5,5,5,0,0,1,1,0,0xFF00FF00) //11

AddTriangle(Cube,8,9,10)
AddTriangle(Cube,10,11,8)

//face 4
AddVertex(Cube,-5,5,5,-1,0,0,0,0,0xFFFF0000) //12
AddVertex(Cube,-5,5,-5,-1,0,0,1,0,0xFFFF0000) //13
AddVertex(Cube,-5,-5,-5,-1,0,0,1,1,0xFFFF0000) //14
AddVertex(Cube,-5,-5,5,-1,0,0,0,1,0xFFFF0000) //15

AddTriangle(Cube,12,14,13)
AddTriangle(Cube,14,12,15)

//face 5
AddVertex(Cube,-5,5,5,0,1,0,0,0,0xFF00FFFF) //16
AddVertex(Cube,5,5,5,0,1,0,1,0,0xFF00FFFF) //17
AddVertex(Cube,5,5,-5,0,1,0,1,1,0xFF00FFFF) //18
AddVertex(Cube,-5,5,-5,0,1,0,0,1,0xFF00FFFF) //19

AddTriangle(Cube,16,18,17)
AddTriangle(Cube,16,19,18)

//face 6
AddVertex(Cube,5,-5,-5,0,-1,0,1,0,0xFFFFFF00) //20
AddVertex(Cube,-5,-5,-5,0,-1,0,0,0,0xFFFFFF00) //21
AddVertex(Cube,-5,-5,5,0,-1,0,0,1,0xFFFFFF00) //22
AddVertex(Cube,5,-5,5,0,-1,0,1,1,0xFFFFFF00) //23

Addtriangle(Cube,20,21,22)
Addtriangle(Cube,20,22,23)

cubeObject = CreateObjectFromMesh(cube)
image = loadimage("mesh3-1.jpg")
SetObjectImage(cubeObject,image,0)
do
    RotateObjectLocalX(cubeObject,.1)
    RotateObjectLocalY(cubeObject,.2)
    RotateObjectLocalZ(cubeObject,.3)

Print( ScreenFPS() )
    Sync()
loop

+ Code Snippet

// Project: Cube 
// Created: 2018-03-06

#insert "mesh.agc"
// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Cube" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

cube as Mesh

//face 1
AddVertex(Cube,-5,-5,-5,0,0,-1,0,1,0xFFFFFFFF) //0
AddVertex(Cube,-5,5,-5,0,0,-1,0,0,0xFFFFFFFF) //1
AddVertex(Cube,5,5,-5,0,0,-1,1,0,0xFFFFFFFF) //2
AddVertex(Cube,5,-5,-5,0,0,-1,1,1,0xFFFFFFFF) //3

AddTriangle(Cube,0,2,1)
AddTriangle(Cube,0,3,2)

//face 2
AddVertex(Cube,5,5,-5,1,0,0,0,0,0xFF0000FF) //4
AddVertex(Cube,5,5,5,1,0,0,1,0,0xFF0000FF) //5
AddVertex(Cube,5,-5,5,1,0,0,1,1,0xFF0000FF) //6
AddVertex(Cube,5,-5,-5,1,0,0,0,1,0xFF0000FF) //7

AddTriangle(Cube,4,7,5)
AddTriangle(Cube,5,7,6)

//face 3
AddVertex(Cube,5,5,5,0,0,1,0,0,0xFF00FF00) //8
AddVertex(Cube,5,-5,5,0,0,1,0,1,0xFF00FF00) //9
AddVertex(Cube,-5,-5,5,0,0,1,1,1,0xFF00FF00) //10
AddVertex(Cube,-5,5,5,0,0,1,1,0,0xFF00FF00) //11

AddTriangle(Cube,8,9,10)
AddTriangle(Cube,10,11,8)

//face 4
AddVertex(Cube,-5,5,5,-1,0,0,0,0,0xFFFF0000) //12
AddVertex(Cube,-5,5,-5,-1,0,0,1,0,0xFFFF0000) //13
AddVertex(Cube,-5,-5,-5,-1,0,0,1,1,0xFFFF0000) //14
AddVertex(Cube,-5,-5,5,-1,0,0,0,1,0xFFFF0000) //15

AddTriangle(Cube,12,14,13)
AddTriangle(Cube,14,12,15)

//face 5
AddVertex(Cube,-5,5,5,0,1,0,0,0,0xFF00FFFF) //16
AddVertex(Cube,5,5,5,0,1,0,1,0,0xFF00FFFF) //17
AddVertex(Cube,5,5,-5,0,1,0,1,1,0xFF00FFFF) //18
AddVertex(Cube,-5,5,-5,0,1,0,0,1,0xFF00FFFF) //19

AddTriangle(Cube,16,18,17)
AddTriangle(Cube,16,19,18)

//face 6
AddVertex(Cube,5,-5,-5,0,-1,0,1,0,0xFFFFFF00) //20
AddVertex(Cube,-5,-5,-5,0,-1,0,0,0,0xFFFFFF00) //21
AddVertex(Cube,-5,-5,5,0,-1,0,0,1,0xFFFFFF00) //22
AddVertex(Cube,5,-5,5,0,-1,0,1,1,0xFFFFFF00) //23

Addtriangle(Cube,20,21,22)
Addtriangle(Cube,20,22,23)

cubeObject = CreateObjectFromMesh(cube)
image = loadimage("mesh3-1.jpg")
SetObjectImage(cubeObject,image,0)
do
    RotateObjectLocalX(cubeObject,.1)
    RotateObjectLocalY(cubeObject,.2)
    RotateObjectLocalZ(cubeObject,.3)

    Print( ScreenFPS() )
    Sync()
loop

Back to top

Profile PM Email

puzzler2018

User Banned

Posted: 6th Mar 2018 22:17

Link

Top man!!

Back to top

Profile

Rick Nasher

6

Years of Service

User Offline

Joined: 25th Jul 2017

Location: Amsterdam

Posted: 6th Mar 2018 23:52 Edited at: 6th Mar 2018 23:54

Link

Really great stuff.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

AppGameKit Classic Chat / Vertex and Surface commands?