CreateObjectfromMeshMemblock produce a Ghost Plane

Author

Message

SomeBasics

User Offline

Joined: 25th Apr 2024

Location: Germany

Posted: 25th Apr 2024 14:13

Link

Hello, this is my first posting. I have now more then 700 hours counted on steam in Classic and start now with the studio. In hope for regularly Updates.

I have testet around with creating objects via code and found a strange behavior. Creating the object via the CreateObjectFromMeshMemblock produce a single ghosting plane. I set a texture to the first mesh of the object and this ghost plane got the same texture. Don't know if it is a bug in my code or i do understand something wrong of the function. I have created a new simple code example to reproduce this and same happens.

the reason: I try to create clusters of objects with multiple meshes of planes because it doubles the fps to 85. Creating a map with poor planes result in 30 fps and the graphics card don't help and sleeps. This because I want to assign diffrent textures to each plane. Don't if there is a better way to do this.

additional Question: How mush meshes can added to one object? Is it the same count like with highmap creation? 255?

I have compiled it with Studio. First I create a tempory plane for a memblock as template. This plane will immediately deleted after create the memblock of this plane. Then I change the vertex coordinates for each potential mesh of the cluster object in a loop. At first I create the Object with CreateObjectFromMeshMemblock and then add the other meshes with AddObjectMeshFromMemblock. Additional I set a texture for each mesh and the cullmode to 0 for testing.

Is it a bug in my code or in the interpreter? I have no idea what i have done wrong.

// Project: test 
// Created: 24-04-25

// show all errors

SetErrorMode(2)

// set window properties
SetWindowTitle( "test" )
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 )

SetCameraRotation(1,30,45,0)
SetCameraPosition(1,-30,30,-30)

img = loadimage("earth_01.png")

// ground position pro vertex festlegen

global ox As Integer[6]
global oy As Integer[6]
global oz As Integer[6]

units = 5

created = 0

object = createobjectplane(15,15)
mem = creatememblockfromobjectmesh(object,1)
deleteobject(object)
	
for cx=0 to 9
for cz=0 to 9

ox[0] = cx * units
	oy[0] = 0
	oz[0] = cz * units
	
	ox[1] = cx * units + units
	oy[1] = 0
	oz[1] = cz * units
	
	ox[2] = cx * units
	oy[2] = 0
	oz[2] = cz * units + units
	
	ox[3] = cx * units + units
	oy[3] = 0
	oz[3] = cz * units + units
	
	ox[4] = cx * units
	oy[4] = 0
	oz[4] = cz * units + units
	
	ox[5] = cx * units + units
	oy[5] = 0
	oz[5] = cz * units
	
	// Vertex Position zuweisen
	
	for i = 0 to 5
		SetMeshMemblockVertexPosition(mem,i,ox[i],oy[i],oz[i])
	next i
	
	if created = 0
		MeshObject = CreateObjectFromMeshMemblock(mem)
		created = 1		
	else
		AddObjectMeshFromMemblock(MeshObject,mem)			
	endif
	
	num = getobjectnummeshes(meshobject)
	
	setobjectmeshimage(meshobject,num,img,0)
	
next cz
next cx

deletememblock(mem)
SetObjectCullMode(MeshObject,0)

do
	print(num)
    Print( ScreenFPS() )
    Sync()
loop

+ Code Snippet

// Project: test 
// Created: 24-04-25

// show all errors

SetErrorMode(2)

// set window properties
SetWindowTitle( "test" )
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 )


SetCameraRotation(1,30,45,0)
SetCameraPosition(1,-30,30,-30)


img = loadimage("earth_01.png")

// ground position pro vertex festlegen

global ox As Integer[6]
global oy As Integer[6]
global oz As Integer[6]

units = 5

created = 0

object = createobjectplane(15,15)
mem = creatememblockfromobjectmesh(object,1)
deleteobject(object)
	
for cx=0 to 9
for cz=0 to 9

	ox[0] = cx * units
	oy[0] = 0
	oz[0] = cz * units
	
	ox[1] = cx * units + units
	oy[1] = 0
	oz[1] = cz * units
	
	ox[2] = cx * units
	oy[2] = 0
	oz[2] = cz * units + units
	
	ox[3] = cx * units + units
	oy[3] = 0
	oz[3] = cz * units + units
	
	ox[4] = cx * units
	oy[4] = 0
	oz[4] = cz * units + units
	
	ox[5] = cx * units + units
	oy[5] = 0
	oz[5] = cz * units
	
	// Vertex Position zuweisen
	
	for i = 0 to 5
		SetMeshMemblockVertexPosition(mem,i,ox[i],oy[i],oz[i])
	next i
	
	if created = 0
		MeshObject = CreateObjectFromMeshMemblock(mem)
		created = 1		
	else
		AddObjectMeshFromMemblock(MeshObject,mem)			
	endif
	
	num = getobjectnummeshes(meshobject)
	
	setobjectmeshimage(meshobject,num,img,0)
	
next cz
next cx

deletememblock(mem)
SetObjectCullMode(MeshObject,0)	



do
	print(num)
    Print( ScreenFPS() )
    Sync()
loop

Back to top

Profile PM

SomeBasics

User Offline

Joined: 25th Apr 2024

Location: Germany

Posted: 26th Apr 2024 09:03

Link

After slept a night over the problem, I found out that a plane consists of 12 vertecies and not 6. So a plane is everytime visible from both sides and cull mode have no effect normaly. I only set the verticies for the top side and the cullmode made the bottom side visible from this camera position.

To test I set up the vertex count from memblock after creation and place spheres for every vertex at position of the memblock.

I have no use for this bottom side, so I should create the memblock from scratch instead of using a plane as template. Don't know if this brings fps. On the other hand I could use this 12 verticies for one plane with 4 polygons. But it make no differnce for precision of view. It uses only cpu power. It were good if the graphics card would do something to relieve the cpu usage. Because it's only one Core used for the app with 20 % of the full power.

// Project: test 
// Created: 24-04-25

// show all errors

SetErrorMode(2)

// set window properties
SetWindowTitle( "test" )
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 )

SetCameraRotation(1,30,45,0)
SetCameraPosition(1,-30,30,-30)

img = loadimage("earth_01.png")

// ground position pro vertex festlegen

global ox As Integer[6]
global oy As Integer[6]
global oz As Integer[6]

global Sphere As Integer[12]

units = 5

created = 0

object = createobjectplane(15,15)

mem = creatememblockfromobjectmesh(object,1)
vertextcount = GetMemblockInt(mem,0)

for i=0 to vertextcount - 1

sx = GetMeshMemblockVertexX(mem,i)
	sy = GetMeshMemblockVertexY(mem,i)
	sz = GetMeshMemblockVertexZ(mem,i)
	
	Sphere[i] = CreateObjectSphere(5,5,5)
	SetObjectposition(Sphere[i],sx,sy,sz)

next i

deleteobject(object)
	
for cx=0 to 9
for cz=0 to 9

ox[0] = cx * units
	oy[0] = 0
	oz[0] = cz * units
	
	ox[1] = cx * units + units
	oy[1] = 0
	oz[1] = cz * units
	
	ox[2] = cx * units
	oy[2] = 0
	oz[2] = cz * units + units
	
	ox[3] = cx * units + units
	oy[3] = 0
	oz[3] = cz * units + units
	
	ox[4] = cx * units
	oy[4] = 0
	oz[4] = cz * units + units
	
	ox[5] = cx * units + units
	oy[5] = 0
	oz[5] = cz * units
	
	// Vertex Position zuweisen
	
	for i = 0 to 5
		SetMeshMemblockVertexPosition(mem,i,ox[i],oy[i],oz[i])
	next i
	
	if created = 0
		MeshObject = CreateObjectFromMeshMemblock(mem)
		created = 1			
	else
		AddObjectMeshFromMemblock(MeshObject,mem)			
	endif
	
	num = getobjectnummeshes(meshobject)
	
	setobjectmeshimage(meshobject,num,img,0)
	
next cz
next cx

deletememblock(mem)
SetObjectCullMode(MeshObject,0)

do
	print("Number of Vertex " + Str(vertextcount))
	print("Number of Meshes " + Str(num))
    Print( ScreenFPS() )
    Sync()
loop

+ Code Snippet

// Project: test 
// Created: 24-04-25

// show all errors

SetErrorMode(2)

// set window properties
SetWindowTitle( "test" )
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 )


SetCameraRotation(1,30,45,0)
SetCameraPosition(1,-30,30,-30)


img = loadimage("earth_01.png")

// ground position pro vertex festlegen

global ox As Integer[6]
global oy As Integer[6]
global oz As Integer[6]

global Sphere As Integer[12]

units = 5

created = 0

object = createobjectplane(15,15)

mem = creatememblockfromobjectmesh(object,1)
vertextcount = GetMemblockInt(mem,0)

for i=0 to vertextcount - 1

	sx = GetMeshMemblockVertexX(mem,i)
	sy = GetMeshMemblockVertexY(mem,i)
	sz = GetMeshMemblockVertexZ(mem,i)
	
	Sphere[i] = CreateObjectSphere(5,5,5)
	SetObjectposition(Sphere[i],sx,sy,sz)

next i

deleteobject(object)
	
for cx=0 to 9
for cz=0 to 9

	ox[0] = cx * units
	oy[0] = 0
	oz[0] = cz * units
	
	ox[1] = cx * units + units
	oy[1] = 0
	oz[1] = cz * units
	
	ox[2] = cx * units
	oy[2] = 0
	oz[2] = cz * units + units
	
	ox[3] = cx * units + units
	oy[3] = 0
	oz[3] = cz * units + units
	
	ox[4] = cx * units
	oy[4] = 0
	oz[4] = cz * units + units
	
	ox[5] = cx * units + units
	oy[5] = 0
	oz[5] = cz * units
	
	// Vertex Position zuweisen
	
	for i = 0 to 5
		SetMeshMemblockVertexPosition(mem,i,ox[i],oy[i],oz[i])
	next i
	
	if created = 0
		MeshObject = CreateObjectFromMeshMemblock(mem)
		created = 1			
	else
		AddObjectMeshFromMemblock(MeshObject,mem)			
	endif
	
	num = getobjectnummeshes(meshobject)
	
	setobjectmeshimage(meshobject,num,img,0)
	
next cz
next cx

deletememblock(mem)
SetObjectCullMode(MeshObject,0)	



do
	print("Number of Vertex " + Str(vertextcount))
	print("Number of Meshes " + Str(num))
    Print( ScreenFPS() )
    Sync()
loop

Back to top

Profile PM

SomeBasics

User Offline

Joined: 25th Apr 2024

Location: Germany

Posted: 27th Apr 2024 12:17

Link

I search the forum for input and tried to set up a simple plane with only 4 verticies memblock from scratch since yesterday. But I fail for unknown reason. Also the help textwall is very hard to read for me. Don't know why but it crashes at line 144 MultiMeshObject = CreateObjectFromMeshMemblock(MeshMemblock) without a error message. I use the standard methods to set the vertex data,, so it only can be a problem in the header block. Bad that no error message popup. It's like poking in the fog. I have not tried to copie the examples from the old forum threads. Because the header had not the attributes I think I need.

Some simple object creation methods would be nice. I think I rember that the old blitz had such functions to add vetices to blank created objects. So if I get control over this memblock thing, it would work enough for me and I could test further to create map with this method.

I don't know how to find the error if there is no real indication.

// Project: CreateObjectMeshMemblock 
// Created: 24-04-26

// show all errors

SetErrorMode(2)

// set window properties
SetWindowTitle( "CreateObjectMeshMemblock" )
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 )

//----------------------------------------------------------------------
// create the mesh memblock
//----------------------------------------------------------------------

MeshSize = 5

// set mesh memblock header data

Vertecies = 4
Indices = 6
Attributes = 4

VertexSize = (3 + 3 + 2) * 4 + 4
VertexOffset = 72 // it's not 42
IndexSize = 4
IndexOffset = VertexOffset + VertexSize * Vertecies

// prophesy the memblock size for the plane

MemblockSize = IndexOffset + IndexSize * Indices

// create a memblock object

MeshMemblock = CreateMemblock(MemblockSize)

// write memblock for a plane

// the header block for basic usage

SetMemblockInt(MeshMemblock,0,Vertecies) // vertex count (min points)
SetMemblockInt(MeshMemblock,4,Indices) // indice count (min 2 triangles * 3 points)
SetMemblockInt(MeshMemblock,8,Attributes) // attribute count (position, normals, uv, color)
SetMemblockInt(MeshMemblock,12,VertexSize) // size of vertex data from defined attributes (8 floats + 4 color bytes)
SetMemblockInt(MeshMemblock,16,VertexOffset)
SetMemblockInt(MeshMemblock,20,IndexOffset)

// only basic attributes
// for other attributes count is a new calculaton for offsets needed
// no idea for a good generic solution
	
// attribute discription position

SetMemblockByte(MeshMemblock,24,0)  // float type
SetMemblockByte(MeshMemblock,25,3)  // 3 components (x,y,z)
SetMemblockByte(MeshMemblock,26,0)  // normalize 0 (normalize is only for colors needed)
SetMemblockByte(MeshMemblock,27,12) // 8 character + 1 nul terminator Round up to = 12
SetMemblockString(MeshMemblock,28,"position") // can be all you mind

// attribute discription normals vector -1, 0 and 1
// no normal no ligth

SetMemblockByte(MeshMemblock,40,0)
SetMemblockByte(MeshMemblock,41,3)
SetMemblockByte(MeshMemblock,42,0)
SetMemblockByte(MeshMemblock,43,8)
SetMemblockString(MeshMemblock,44,"normal")

// attribute discription uv 0.0 - 1.0
// no uv no sunburn no texture

SetMemblockByte(MeshMemblock,52,0)
SetMemblockByte(MeshMemblock,53,2)
SetMemblockByte(MeshMemblock,54,0)
SetMemblockByte(MeshMemblock,55,4)
SetMemblockString(MeshMemblock,56,"uv")

// attribute discription color 0 - 255 * 4
// not clear if needed except for rainbow unicorns

SetMemblockByte(MeshMemblock,60,1)
SetMemblockByte(MeshMemblock,61,4)
SetMemblockByte(MeshMemblock,62,1)
SetMemblockByte(MeshMemblock,63,8)
SetMemblockString(MeshMemblock,64,"color")

// the payload for the memblock

// write vertex data

// first Corner 0,0
SetMeshMemblockVertexPosition(MeshMemblock,0,0,0,0)
SetMeshMemblockVertexNormal(MeshMemblock,0,0,1,0)
SetMeshMemblockVertexUV(MeshMemblock,0,0,0)
SetMeshMemblockVertexColor(MeshMemblock,0,255,255,255,255)

// second corner 0,1
SetMeshMemblockVertexPosition(MeshMemblock,0,0,0,MeshSize)
SetMeshMemblockVertexNormal(MeshMemblock,0,0,1,0)
SetMeshMemblockVertexUV(MeshMemblock,0,0,1)
SetMeshMemblockVertexColor(MeshMemblock,0,255,255,255,255)

// third corner 1,1
SetMeshMemblockVertexPosition(MeshMemblock,0,MeshSize,0,MeshSize)
SetMeshMemblockVertexNormal(MeshMemblock,0,0,1,0)
SetMeshMemblockVertexUV(MeshMemblock,0,1,1)
SetMeshMemblockVertexColor(MeshMemblock,0,255,255,255,255)

// fourth corner 1,0
SetMeshMemblockVertexPosition(MeshMemblock,0,MeshSize,0,0)
SetMeshMemblockVertexNormal(MeshMemblock,0,0,1,0)
SetMeshMemblockVertexUV(MeshMemblock,0,1,0)
SetMeshMemblockVertexColor(MeshMemblock,0,255,255,255,255)

// write the index data

SetMemblockFloat(MeshMemblock,IndexOffset,0)
SetMemblockFloat(MeshMemblock,IndexOffset+4,1)
SetMemblockFloat(MeshMemblock,IndexOffset+8,3)
SetMemblockFloat(MeshMemblock,IndexOffset+12,1)
SetMemblockFloat(MeshMemblock,IndexOffset+16,2)
SetMemblockFloat(MeshMemblock,IndexOffset+20,3)

//----------------------------------------------------------------------
// create the mesh object for the cluster
//----------------------------------------------------------------------

// set the size of the map cluster

ClusterSize = 10

// create the object with the first mesh with index 1

MultiMeshObject = CreateObjectFromMeshMemblock(MeshMemblock)

MeshCount = GetObjectNumMeshes(MultiMeshObject)

//----------------------------------------------------------------------
// create a randomized image
//----------------------------------------------------------------------

HeaderSize = 3 * 4 
ImageSize = 2 ^ 5
ImageMemSize = HeaderSize + ImageSize ^ 2 * 4

ImageMemblock = CreateMemblock(ImageMemSize)

// write image data

SetMemblockInt(ImageMemblock,0,ImageSize)
SetMemblockInt(ImageMemblock,4,ImageSize)
SetMemblockInt(ImageMemblock,8,32)

Alpha = 255

for y=0 to ImageSize - 1
for x=0 to ImageSize - 1
	
	Red = Random(100,255)
	Green = Random(100,255)
	Blue = Random(100,255)

// for rg colorblind people set borders to ~grey

if y = 0 then Red = 255
    if y = ImageSize - 1 then Green = 255

if x = 0 then Red = 255
    if x = ImageSize - 1 then Green = 255

SetMemblockByte(ImageMemblock,HeaderSize + x * y + x,Red)
	SetMemblockByte(ImageMemblock,HeaderSize + x * y + x,Green)
	SetMemblockByte(ImageMemblock,HeaderSize + x * y + x,Blue)
	SetMemblockByte(ImageMemblock,HeaderSize + x * y + x,Alpha)
	
next x
next y

Image = CreateImageFromMemblock(ImageMemblock)

//----------------------------------------------------------------------
// set up the textures for each mesh
//----------------------------------------------------------------------

for i = 1 to MeshCount

SetObjectMeshImage(MultiMeshObject,i,Image,0)

next i

//----------------------------------------------------------------------
// set up the camera
//----------------------------------------------------------------------

SetCameraRotation(1,30,45,0)
SetCameraPosition(1,-30,30,-30)

//----------------------------------------------------------------------
// main loop
//----------------------------------------------------------------------

do
	Print("ClusterSize: " + Str(ClusterSize))
	Print("MeshCount: " + Str(MeshCount))
	Print( ScreenFPS() )
	Sync()
loop

+ Code Snippet

// Project: CreateObjectMeshMemblock 
// Created: 24-04-26

// show all errors

SetErrorMode(2)

// set window properties
SetWindowTitle( "CreateObjectMeshMemblock" )
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 )


//----------------------------------------------------------------------
// create the mesh memblock
//----------------------------------------------------------------------

MeshSize = 5

// set mesh memblock header data

Vertecies = 4
Indices = 6
Attributes = 4

VertexSize = (3 + 3 + 2) * 4 + 4
VertexOffset = 72 // it's not 42
IndexSize = 4
IndexOffset = VertexOffset + VertexSize * Vertecies

// prophesy the memblock size for the plane

MemblockSize = IndexOffset + IndexSize * Indices

// create a memblock object

MeshMemblock = CreateMemblock(MemblockSize)

// write memblock for a plane

// the header block for basic usage

SetMemblockInt(MeshMemblock,0,Vertecies) // vertex count (min points)
SetMemblockInt(MeshMemblock,4,Indices) // indice count (min 2 triangles * 3 points)
SetMemblockInt(MeshMemblock,8,Attributes) // attribute count (position, normals, uv, color)
SetMemblockInt(MeshMemblock,12,VertexSize) // size of vertex data from defined attributes (8 floats + 4 color bytes)
SetMemblockInt(MeshMemblock,16,VertexOffset)
SetMemblockInt(MeshMemblock,20,IndexOffset)

// only basic attributes
// for other attributes count is a new calculaton for offsets needed
// no idea for a good generic solution
	
// attribute discription position

SetMemblockByte(MeshMemblock,24,0)  // float type
SetMemblockByte(MeshMemblock,25,3)  // 3 components (x,y,z)
SetMemblockByte(MeshMemblock,26,0)  // normalize 0 (normalize is only for colors needed)
SetMemblockByte(MeshMemblock,27,12) // 8 character + 1 nul terminator Round up to = 12
SetMemblockString(MeshMemblock,28,"position") // can be all you mind

// attribute discription normals vector -1, 0 and 1
// no normal no ligth

SetMemblockByte(MeshMemblock,40,0)
SetMemblockByte(MeshMemblock,41,3)
SetMemblockByte(MeshMemblock,42,0)
SetMemblockByte(MeshMemblock,43,8)
SetMemblockString(MeshMemblock,44,"normal")

// attribute discription uv 0.0 - 1.0
// no uv no sunburn no texture

SetMemblockByte(MeshMemblock,52,0)
SetMemblockByte(MeshMemblock,53,2)
SetMemblockByte(MeshMemblock,54,0)
SetMemblockByte(MeshMemblock,55,4)
SetMemblockString(MeshMemblock,56,"uv")

// attribute discription color 0 - 255 * 4
// not clear if needed except for rainbow unicorns

SetMemblockByte(MeshMemblock,60,1)
SetMemblockByte(MeshMemblock,61,4)
SetMemblockByte(MeshMemblock,62,1)
SetMemblockByte(MeshMemblock,63,8)
SetMemblockString(MeshMemblock,64,"color")

// the payload for the memblock

// write vertex data

// first Corner 0,0
SetMeshMemblockVertexPosition(MeshMemblock,0,0,0,0)
SetMeshMemblockVertexNormal(MeshMemblock,0,0,1,0)
SetMeshMemblockVertexUV(MeshMemblock,0,0,0)
SetMeshMemblockVertexColor(MeshMemblock,0,255,255,255,255)

// second corner 0,1
SetMeshMemblockVertexPosition(MeshMemblock,0,0,0,MeshSize)
SetMeshMemblockVertexNormal(MeshMemblock,0,0,1,0)
SetMeshMemblockVertexUV(MeshMemblock,0,0,1)
SetMeshMemblockVertexColor(MeshMemblock,0,255,255,255,255)

// third corner 1,1
SetMeshMemblockVertexPosition(MeshMemblock,0,MeshSize,0,MeshSize)
SetMeshMemblockVertexNormal(MeshMemblock,0,0,1,0)
SetMeshMemblockVertexUV(MeshMemblock,0,1,1)
SetMeshMemblockVertexColor(MeshMemblock,0,255,255,255,255)

// fourth corner 1,0
SetMeshMemblockVertexPosition(MeshMemblock,0,MeshSize,0,0)
SetMeshMemblockVertexNormal(MeshMemblock,0,0,1,0)
SetMeshMemblockVertexUV(MeshMemblock,0,1,0)
SetMeshMemblockVertexColor(MeshMemblock,0,255,255,255,255)

// write the index data

SetMemblockFloat(MeshMemblock,IndexOffset,0)
SetMemblockFloat(MeshMemblock,IndexOffset+4,1)
SetMemblockFloat(MeshMemblock,IndexOffset+8,3)
SetMemblockFloat(MeshMemblock,IndexOffset+12,1)
SetMemblockFloat(MeshMemblock,IndexOffset+16,2)
SetMemblockFloat(MeshMemblock,IndexOffset+20,3)

//----------------------------------------------------------------------
// create the mesh object for the cluster
//----------------------------------------------------------------------

// set the size of the map cluster

ClusterSize = 10

// create the object with the first mesh with index 1

MultiMeshObject = CreateObjectFromMeshMemblock(MeshMemblock)

MeshCount = GetObjectNumMeshes(MultiMeshObject)


//----------------------------------------------------------------------
// create a randomized image
//----------------------------------------------------------------------

HeaderSize = 3 * 4 
ImageSize = 2 ^ 5
ImageMemSize = HeaderSize + ImageSize ^ 2 * 4

ImageMemblock = CreateMemblock(ImageMemSize)

// write image data

SetMemblockInt(ImageMemblock,0,ImageSize)
SetMemblockInt(ImageMemblock,4,ImageSize)
SetMemblockInt(ImageMemblock,8,32)

Alpha = 255

for y=0 to ImageSize - 1
for x=0 to ImageSize - 1
	
	Red = Random(100,255)
	Green = Random(100,255)
	Blue = Random(100,255)

	// for rg colorblind people set borders to ~grey

    if y = 0 then Red = 255
    if y = ImageSize - 1 then Green = 255

    if x = 0 then Red = 255
    if x = ImageSize - 1 then Green = 255    

	SetMemblockByte(ImageMemblock,HeaderSize + x * y + x,Red)
	SetMemblockByte(ImageMemblock,HeaderSize + x * y + x,Green)
	SetMemblockByte(ImageMemblock,HeaderSize + x * y + x,Blue)
	SetMemblockByte(ImageMemblock,HeaderSize + x * y + x,Alpha)
	
next x
next y

Image = CreateImageFromMemblock(ImageMemblock)


//----------------------------------------------------------------------
// set up the textures for each mesh
//----------------------------------------------------------------------

for i = 1 to MeshCount

	SetObjectMeshImage(MultiMeshObject,i,Image,0)

next i

//----------------------------------------------------------------------
// set up the camera
//----------------------------------------------------------------------

SetCameraRotation(1,30,45,0)
SetCameraPosition(1,-30,30,-30)

//----------------------------------------------------------------------
// main loop
//----------------------------------------------------------------------

do
	Print("ClusterSize: " + Str(ClusterSize))
	Print("MeshCount: " + Str(MeshCount))
	Print( ScreenFPS() )
	Sync()
loop

Back to top

Profile PM

ando

4

Years of Service

User Offline

Joined: 21st Feb 2020

Location: Australia

Posted: 27th Apr 2024 21:26

Link

Hi SomeBasics, I had a play with your first code snippet but could not find a solution.

I tried replacing object = createobjectplane(15,15) with object = CreateObjectQuad() which
got rid of the ghost plane but the texture was not working.

I also tried adding some code to see where the verts are and could not find all of the verts. Very strange.

Sorry, not much help.

// Project: CreateObjectfromMeshMemblock 
// Created: 24-04-26

// Project: test 
// Created: 24-04-25

SetErrorMode(2)
width# = GetMaxDeviceWidth()
height# = GetMaxDeviceHeight()
SetWindowSize(width#,height#,1)
SetVirtualResolution(width#,height#)
SetSyncRate(60,0)
SetScissor(0,0,0,0)
UseNewDefaultFonts(1)
Create3DPhysicsWorld()
Set3DPhysicsGravity(0,-2,0)
//SetGenerateMipmaps(1)
SetSkyboxVisible(1)
SetSkyBoxHorizonColor(100,100,255)
SetSkyBoxSkyColor(100,100,255)
setprintsize(height#/30)

light1=1
CreatePointLight(light1,0,1000,0,10000,255,255,255)
SetPointLightMode(light1,1)

//  xxxxxxxxxxxxxxxxxxxx   camera setup

cam1=1
SetCameraRange(cam1, 0.1, 50000 )
SetCameraposition(cam1,-30,30,-30)
SetCameraRotation(cam1,30,45,0)

man1=CreateObjectsphere(2,6,12)
SetObjectposition(man1,-30,30,-30)
setobjectvisible(man1,0)
SetObjectRotation(man1,0,45,0)

img = loadimage("earth_01.png")

// ground position pro vertex festlegen

global ox As Integer[6]
global oy As Integer[6]
global oz As Integer[6]

units = 5

created = 0

//object = CreateObjectQuad()
//setobjectcolor(object,50,50,255,255)

object = createobjectplane(15,15)
mem = creatememblockfromobjectmesh(object,1)
deleteobject(object)
	
for cx=0 to 9
for cz=0 to 9

ox[0] = cx * units
	oy[0] = 0
	oz[0] = cz * units
	
	ox[1] = cx * units + units
	oy[1] = 0
	oz[1] = cz * units
	
	ox[2] = cx * units
	oy[2] = 0
	oz[2] = cz * units + units
	
	ox[3] = cx * units + units
	oy[3] = 0
	oz[3] = cz * units + units
	
	ox[4] = cx * units
	oy[4] = 0
	oz[4] = cz * units + units
	
	ox[5] = cx * units + units
	oy[5] = 0
	oz[5] = cz * units
	
	// Vertex Position zuweisen
	
	for i = 0 to 5
		SetMeshMemblockVertexPosition(mem,i,ox[i],oy[i],oz[i])
	next i
	
	if created = 0
		MeshObject = CreateObjectFromMeshMemblock(mem)
		created = 1		
	else
		AddObjectMeshFromMemblock(MeshObject,mem)			
	endif
	
	num = getobjectnummeshes(meshobject)
	setobjectmeshimage(meshobject,num,img,0)
	
next cz
next cx

verts=GetMemblockInt(mem,0)

//deletememblock(mem)
SetObjectCullMode(MeshObject,0)

SetObjectCollisionMode(MeshObject,1)

raytarget=createobjectbox(111,111,111) // invisible box for getting ray end co-ords
setobjectvisible(raytarget,0)

fireball=CreateObjectSphere(10,20,20) // invisible sphere placed where the ray hit the terrain
SetObjectCollisionMode(fireball,0)
setobjectvisible(fireball,0)
fireballpos#=CreateVector3(0,0,0)

vertball=CreateObjectSphere(5,20,20) // semi-visible sphere placed at the nearest vert
SetObjectColor(vertball,255,50,50,100)
SetObjectTransparency(vertball,1)
SetObjectCollisionMode(vertball,0)
vertballpos#=CreateVector3(1000000,1000000,1000000)

vertpos#=CreateVector3(0,0,0)

SetRawMousePosition(width#/2,height#/2)

do
    
//  xxxxxxxxxxxxxxxxxxxxxxxxxxxxx  camera control
    
    mouseX# = (GetRawMouseX()-width#/2)*0.1
    mouseY# = (GetRawMouseY()-height#/2)*0.1
    
    RotateCameraLocalX(cam1,mouseY#)
    RotateObjectLocalY(man1,mouseX#)
    SetCameraRotation(cam1,GetCameraAngleX(cam1),GetObjectAngleY(man1),0)
    
    If GetCameraAngleX(cam1)>80 Then SetCameraRotation(cam1,80,GetCameraAngleY(cam1),0)
    If GetCameraAngleX(cam1)<-80 Then SetCameraRotation(cam1,-80,GetCameraAngleY(cam1),0)
    
    if GetRawKeyState(87) then MoveObjectLocalZ(man1,2)   //  W forward
    if GetRawKeyState(83) then MoveObjectLocalZ(man1,-2)  //  S backward
    
    if GetRawKeyState(65) then MoveObjectLocalX(man1,-2)  //  A strafe left
    if GetRawKeyState(68) then MoveObjectLocalX(man1,2)   //  D strafe right
    
    if GetRawKeyState(81) then MoveObjectLocalY(man1,-1)  //  Q down
    if GetRawKeyState(69) then MoveObjectLocalY(man1,1)   //  E up
    
    SetCameraPosition(cam1,GetObjectX(man1),GetObjectY(man1),GetObjectZ(man1))
    
    // xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
    
    if GetRawMouseLeftPressed() // select a vertex on the terrain
        setobjectposition(raytarget,GetCameraWorldX(cam1),GetCameraWorldY(cam1),GetCameraWorldZ(cam1))
        setobjectrotation(raytarget,GetCameraAngleX(cam1),GetCameraAngleY(cam1),GetCameraAngleZ(cam1))
        moveobjectlocalZ(raytarget,15000) // ray1 starts at camera and ends at an invisible target box (raytarget)
        ray1=ObjectRayCast(0,GetCameraWorldX(cam1),GetCameraWorldY(cam1),GetCameraWorldZ(cam1),GetObjectWorldX(raytarget),GetObjectWorldY(raytarget),GetObjectWorldZ(raytarget))
        targetHit=GetObjectRayCastHitID(0)
        if targetHit > 0 and targetHit <> raytarget
            XhitPos#=GetObjectRayCastX(0)
            YhitPos#=GetObjectRayCastY(0)
            ZhitPos#=GetObjectRayCastZ(0)
            setobjectposition(fireball,XhitPos#,YhitPos#,ZhitPos#) // position invisible sphere (fireball) at ray hit pos
            setobjectposition(vertball,0,100000,0)
            SetVector3(fireballpos#,GetObjectWorldX(fireball),GetObjectWorldY(fireball),GetObjectWorldZ(fireball))
	    	newvertdist#=1000010.0
	        oldvertdist#=1000000.0
            for i=0 to verts -1 // check all terrain verts to find the nearest to fireball then place vertball there
                x#=GetMeshMemblockVertexX(mem,i)
                y#=GetMeshMemblockVertexY(mem,i)
                z#=GetMeshMemblockVertexZ(mem,i)
                SetVector3(vertballpos#,x#,y#,z#)
                newvertdist#=GetVector3Distance(fireballpos#,vertballpos#)
                if newvertdist#<oldvertdist#
                    oldvertdist#=newvertdist#
                    setobjectposition(vertball,x#,y#,z#)
                    xx#=x#
                    yy#=y#
                    zz#=z#
                    vert=i // get the closest vertex ID
                endif
            next
        endif
    endif
    
    fps=ScreenFPS()
	print(" "+str(num))
    Print(" "+str(fps))
    print(" LMB - select vertex  "+str(vert))
    print(" keys - WASD QE")
    
    SetRawMousePosition(width#/2,height#/2)
    Sync()
    if GetrawKeyPressed(27) then end
loop

+ Code Snippet

// Project: CreateObjectfromMeshMemblock 
// Created: 24-04-26

// Project: test 
// Created: 24-04-25

SetErrorMode(2)
width# = GetMaxDeviceWidth()
height# = GetMaxDeviceHeight()
SetWindowSize(width#,height#,1)
SetVirtualResolution(width#,height#)
SetSyncRate(60,0)
SetScissor(0,0,0,0)
UseNewDefaultFonts(1)
Create3DPhysicsWorld()
Set3DPhysicsGravity(0,-2,0)
//SetGenerateMipmaps(1)
SetSkyboxVisible(1)
SetSkyBoxHorizonColor(100,100,255)
SetSkyBoxSkyColor(100,100,255)
setprintsize(height#/30)

light1=1
CreatePointLight(light1,0,1000,0,10000,255,255,255)
SetPointLightMode(light1,1)

//  xxxxxxxxxxxxxxxxxxxx   camera setup

cam1=1
SetCameraRange(cam1, 0.1, 50000 )
SetCameraposition(cam1,-30,30,-30)
SetCameraRotation(cam1,30,45,0)

man1=CreateObjectsphere(2,6,12)
SetObjectposition(man1,-30,30,-30)
setobjectvisible(man1,0)
SetObjectRotation(man1,0,45,0)



img = loadimage("earth_01.png")

// ground position pro vertex festlegen

global ox As Integer[6]
global oy As Integer[6]
global oz As Integer[6]

units = 5

created = 0

//object = CreateObjectQuad()
//setobjectcolor(object,50,50,255,255)

object = createobjectplane(15,15)
mem = creatememblockfromobjectmesh(object,1)
deleteobject(object)
	
for cx=0 to 9
for cz=0 to 9

	ox[0] = cx * units
	oy[0] = 0
	oz[0] = cz * units
	
	ox[1] = cx * units + units
	oy[1] = 0
	oz[1] = cz * units
	
	ox[2] = cx * units
	oy[2] = 0
	oz[2] = cz * units + units
	
	ox[3] = cx * units + units
	oy[3] = 0
	oz[3] = cz * units + units
	
	ox[4] = cx * units
	oy[4] = 0
	oz[4] = cz * units + units
	
	ox[5] = cx * units + units
	oy[5] = 0
	oz[5] = cz * units
	
	// Vertex Position zuweisen
	
	for i = 0 to 5
		SetMeshMemblockVertexPosition(mem,i,ox[i],oy[i],oz[i])
	next i
	
	if created = 0
		MeshObject = CreateObjectFromMeshMemblock(mem)
		created = 1		
	else
		AddObjectMeshFromMemblock(MeshObject,mem)			
	endif
	
	num = getobjectnummeshes(meshobject)
	setobjectmeshimage(meshobject,num,img,0)
	
next cz
next cx

verts=GetMemblockInt(mem,0)

//deletememblock(mem)
SetObjectCullMode(MeshObject,0)	


SetObjectCollisionMode(MeshObject,1)

raytarget=createobjectbox(111,111,111) // invisible box for getting ray end co-ords
setobjectvisible(raytarget,0)

fireball=CreateObjectSphere(10,20,20) // invisible sphere placed where the ray hit the terrain
SetObjectCollisionMode(fireball,0)
setobjectvisible(fireball,0)
fireballpos#=CreateVector3(0,0,0)

vertball=CreateObjectSphere(5,20,20) // semi-visible sphere placed at the nearest vert
SetObjectColor(vertball,255,50,50,100)
SetObjectTransparency(vertball,1)
SetObjectCollisionMode(vertball,0)
vertballpos#=CreateVector3(1000000,1000000,1000000)

vertpos#=CreateVector3(0,0,0)

SetRawMousePosition(width#/2,height#/2)

do
    
//  xxxxxxxxxxxxxxxxxxxxxxxxxxxxx  camera control
    
    mouseX# = (GetRawMouseX()-width#/2)*0.1
    mouseY# = (GetRawMouseY()-height#/2)*0.1
    
    RotateCameraLocalX(cam1,mouseY#)
    RotateObjectLocalY(man1,mouseX#)
    SetCameraRotation(cam1,GetCameraAngleX(cam1),GetObjectAngleY(man1),0)
    
    If GetCameraAngleX(cam1)>80 Then SetCameraRotation(cam1,80,GetCameraAngleY(cam1),0)
    If GetCameraAngleX(cam1)<-80 Then SetCameraRotation(cam1,-80,GetCameraAngleY(cam1),0)
    
    if GetRawKeyState(87) then MoveObjectLocalZ(man1,2)   //  W forward
    if GetRawKeyState(83) then MoveObjectLocalZ(man1,-2)  //  S backward
    
    if GetRawKeyState(65) then MoveObjectLocalX(man1,-2)  //  A strafe left
    if GetRawKeyState(68) then MoveObjectLocalX(man1,2)   //  D strafe right
    
    if GetRawKeyState(81) then MoveObjectLocalY(man1,-1)  //  Q down
    if GetRawKeyState(69) then MoveObjectLocalY(man1,1)   //  E up
    
    SetCameraPosition(cam1,GetObjectX(man1),GetObjectY(man1),GetObjectZ(man1))
    
    // xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
    
    if GetRawMouseLeftPressed() // select a vertex on the terrain
        setobjectposition(raytarget,GetCameraWorldX(cam1),GetCameraWorldY(cam1),GetCameraWorldZ(cam1))
        setobjectrotation(raytarget,GetCameraAngleX(cam1),GetCameraAngleY(cam1),GetCameraAngleZ(cam1))
        moveobjectlocalZ(raytarget,15000) // ray1 starts at camera and ends at an invisible target box (raytarget)
        ray1=ObjectRayCast(0,GetCameraWorldX(cam1),GetCameraWorldY(cam1),GetCameraWorldZ(cam1),GetObjectWorldX(raytarget),GetObjectWorldY(raytarget),GetObjectWorldZ(raytarget))
        targetHit=GetObjectRayCastHitID(0)
        if targetHit > 0 and targetHit <> raytarget
            XhitPos#=GetObjectRayCastX(0)
            YhitPos#=GetObjectRayCastY(0)
            ZhitPos#=GetObjectRayCastZ(0)
            setobjectposition(fireball,XhitPos#,YhitPos#,ZhitPos#) // position invisible sphere (fireball) at ray hit pos
            setobjectposition(vertball,0,100000,0)
            SetVector3(fireballpos#,GetObjectWorldX(fireball),GetObjectWorldY(fireball),GetObjectWorldZ(fireball))
	    	newvertdist#=1000010.0
	        oldvertdist#=1000000.0
            for i=0 to verts -1 // check all terrain verts to find the nearest to fireball then place vertball there
                x#=GetMeshMemblockVertexX(mem,i)
                y#=GetMeshMemblockVertexY(mem,i)
                z#=GetMeshMemblockVertexZ(mem,i)
                SetVector3(vertballpos#,x#,y#,z#)
                newvertdist#=GetVector3Distance(fireballpos#,vertballpos#)
                if newvertdist#<oldvertdist#
                    oldvertdist#=newvertdist#
                    setobjectposition(vertball,x#,y#,z#)
                    xx#=x#
                    yy#=y#
                    zz#=z#
                    vert=i // get the closest vertex ID
                endif
            next
        endif
    endif
    
    fps=ScreenFPS()
	print(" "+str(num))
    Print(" "+str(fps))
    print(" LMB - select vertex  "+str(vert))
    print(" keys - WASD QE")
    
    SetRawMousePosition(width#/2,height#/2)
    Sync()
    if GetrawKeyPressed(27) then end
loop

BASIC appeared in May 1964. Lightning flashed, the wind roared and the Earth moved.
And nine months later I was born.
So here I am.
I am Basic.
Code is in my genes.

Back to top

Profile PM

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 28th Apr 2024 23:12

Link

AGK has a lot of helper function for memblock objects;
Search the commands for GetMeshMemblockVertex and SetMeshMemblockVertex
https://www.appgamekit.com/documentation/search.html

Back to top

Profile PM

SomeBasics

User Offline

Joined: 25th Apr 2024

Location: Germany

Posted: 29th Apr 2024 02:26

Link

Thx for the comments.

@Ando Hm, I thought quads were only for fullscreen shaders. No Problem, all fine.

@blink0k Yes, I found the helper functions and use them for the attribute settings like position, normal, uv, and color. I found the main error of the last code: I had set the indices as float. But they are Integer. So the hole app crash without warning.

I try now to attach a main file from todays work, because it have > 1400 lines. It works and I have testet it. So it should out of bugs now. If anyone is interested in the code for FPS testing. It creates a clustered map (x,y,z) where each cluster is an object with multiple meshes. I build the Memblock for the mesh from scratch without a template primitive. I hope it's not hard to read. A help is written after the window creation.

It seems so that memblock created objects can have much more then 255 meshes, except the heighmaps. At least it has worked with a 20 x 20 cluster. Or it's an illusion. If some one have an idea how I can get more FPS in this test app, my eyes are wide open to read some ideas to optimize. I target a map of (250,5,250).

So have all a nice day or night.

The typ I need for the mesh memblock to pass by ref.

+ Code Snippet

//----------------------------------------------------------------------
// create type for the mesh to pass by ref
//----------------------------------------------------------------------

type TMesh
	
	Normal as integer
	UV as integer
	Color as integer
	
	Memblock as integer
	
	Vertices as integer
	VertexOffset as integer
	
	Indices as integer
	IndexOffset as integer
	
	x as float
	y as float
	z as float
	
	Size as float
	
endtype

This function works to create a mesh memblock header. The attributes become added dynamic if they were enabled in TMesh.

//----------------------------------------------------------------------
// create the mesh memblock header
//----------------------------------------------------------------------

function SetMeshMemblockHeader(Mesh ref as TMesh)

Error = 0

// set mesh memblock header data for a simple plane
	
	Mesh.Vertices = 4 // min points needed
	Mesh.Indices = 6 // min points for triangles
	Attributes = 1 // min attribute is 1 for position
	
	// add attributes if enabled
	if Mesh.Normal = 1 then inc Attributes
	if Mesh.UV = 1 then inc Attributes
	if Mesh.Color = 1 then inc Attributes
	// additional attributes count must add her
	// ...	
	
	// main header block end -> attribute pos in header
	MainSize = 24
	
	// measure the attribute block	
		
	// position is a must have
	PositionSize = 4 + 12
	PositionOffset = MainSize
	VertexSize = 3 * 4
	Offset = PositionOffset + PositionSize
	
	// add dynamic attributes
	
	// normals for light
	NormalSize = 4 + 8
	NormalOffset = Mesh.Normal * Offset
	VertexSize = VertexSize + Mesh.Normal * 3 * 4
	Offset = Offset + Mesh.Normal * NormalSize

// uv for texture
	UVSize = 4 + 4
	UVOffset = Mesh.UV * Offset
	VertexSize = VertexSize + Mesh.UV * 2 * 4
	Offset = Offset + Mesh.UV * UVSize
	
	// vertex colors
	ColorSize = 4 + 8
	ColorOffset = Mesh.Color * Offset
	VertexSize = VertexSize + Mesh.Color * 4
	Offset = Offset + Mesh.Color * ColorSize
		
	// more additional attributes must added here
	// ...	
		
	// position of vertex paylod
	Mesh.VertexOffset = Offset
	
	// index size for triangle points remember it's integer not float
	IndexSize = 4	
	// position of index payload
	Mesh.IndexOffset = Mesh.VertexOffset + VertexSize * Mesh.Vertices
		
	// prophesy the memblock size for the plane			
	MemblockSize = MainSize + PositionSize
	MemblockSize = MemblockSize + Mesh.Normal * NormalSize
	MemblockSize = MemblockSize + Mesh.UV * UVSize
	MemblockSize = MemblockSize + Mesh.Color * ColorSize
	// size of additinal attributes must added here
	// ...
	MemblockSize = MemblockSize + VertexSize * Mesh.Vertices
	MemblockSize = MemblockSize + IndexSize * Mesh.Indices
	
	if MemblockSize <> Mesh.IndexOffset + IndexSize * Mesh.Indices
		Error = 1
	else
	
		// create a memblock object	
		Mesh.Memblock = CreateMemblock(MemblockSize)
				
		// write memblock for a plane
		
		// the header block for basic usage
		
		SetMemblockInt(Mesh.Memblock,0,Mesh.Vertices) // vertex count (min points)
		SetMemblockInt(Mesh.Memblock,4,Mesh.Indices) // indice count (min 2 triangles * 3 points)
		SetMemblockInt(Mesh.Memblock,8,Attributes) // attribute count (position, normals, uv, color)
		SetMemblockInt(Mesh.Memblock,12,VertexSize) // size of vertex data from defined attributes (8 floats + 4 color bytes)
		SetMemblockInt(Mesh.Memblock,16,Mesh.VertexOffset)
		SetMemblockInt(Mesh.Memblock,20,Mesh.IndexOffset)
		
		// only basic attributes
		// for other attributes count is a new calculation for offsets needed
		// no idea for a good generic solution
			
		// attribute discription position
		
		SetMemblockByte(Mesh.Memblock,PositionOffset+0,0)  // float type
		SetMemblockByte(Mesh.Memblock,PositionOffset+1,3)  // 3 components (x,y,z)
		SetMemblockByte(Mesh.Memblock,PositionOffset+2,0)  // normalize 0 (normalize is only for colors needed)
		SetMemblockByte(Mesh.Memblock,PositionOffset+3,12) // 8 character + 1 nul terminator Round up to = 12
		
		SetMemblockString(Mesh.Memblock,PositionOffset+4,"position") // can be all you mind
		
		// attribute discription normals vector -1, 0 and 1
		// no normal no light
		
		if Mesh.Normal = 1
			
			SetMemblockByte(Mesh.Memblock,NormalOffset+0,0)
			SetMemblockByte(Mesh.Memblock,NormalOffset+1,3)
			SetMemblockByte(Mesh.Memblock,NormalOffset+2,0)
			SetMemblockByte(Mesh.Memblock,NormalOffset+3,8)
			
			SetMemblockString(Mesh.Memblock,NormalOffset+4,"normal")
		
		endif
		
		// attribute discription uv 0.0 - 1.0
		// no uv no sunburn no texture
		
		if Mesh.UV = 1
			
			SetMemblockByte(Mesh.Memblock,UVOffset+0,0)
			SetMemblockByte(Mesh.Memblock,UVOffset+1,2)
			SetMemblockByte(Mesh.Memblock,UVOffset+2,0)
			SetMemblockByte(Mesh.Memblock,UVOffset+3,4)
			
			SetMemblockString(Mesh.Memblock,UVOffset+4,"uv")
		
		endif
		
		// attribute discription color 0 - 255 * 4
		// not clear if needed except for rainbow unicorns
		
		if Mesh.Color = 1
			
			SetMemblockByte(Mesh.Memblock,ColorOffset+0,1)
			SetMemblockByte(Mesh.Memblock,ColorOffset+1,4)
			SetMemblockByte(Mesh.Memblock,ColorOffset+2,1)
			SetMemblockByte(Mesh.Memblock,ColorOffset+3,8)
			
			SetMemblockString(Mesh.Memblock,ColorOffset+4,"color")
	
		endif
	
	endif

endfunction Error

+ Code Snippet

//----------------------------------------------------------------------
// create the mesh memblock header
//----------------------------------------------------------------------

function SetMeshMemblockHeader(Mesh ref as TMesh)

	Error = 0

	// set mesh memblock header data for a simple plane
	
	Mesh.Vertices = 4 // min points needed
	Mesh.Indices = 6 // min points for triangles
	Attributes = 1 // min attribute is 1 for position
	
	// add attributes if enabled
	if Mesh.Normal = 1 then inc Attributes
	if Mesh.UV = 1 then inc Attributes
	if Mesh.Color = 1 then inc Attributes
	// additional attributes count must add her
	// ...	
	
	// main header block end -> attribute pos in header
	MainSize = 24
	
	// measure the attribute block	
		
	// position is a must have
	PositionSize = 4 + 12
	PositionOffset = MainSize
	VertexSize = 3 * 4
	Offset = PositionOffset + PositionSize
	
	// add dynamic attributes
	
	// normals for light
	NormalSize = 4 + 8
	NormalOffset = Mesh.Normal * Offset
	VertexSize = VertexSize + Mesh.Normal * 3 * 4
	Offset = Offset + Mesh.Normal * NormalSize

	// uv for texture
	UVSize = 4 + 4
	UVOffset = Mesh.UV * Offset
	VertexSize = VertexSize + Mesh.UV * 2 * 4
	Offset = Offset + Mesh.UV * UVSize
	
	// vertex colors
	ColorSize = 4 + 8
	ColorOffset = Mesh.Color * Offset
	VertexSize = VertexSize + Mesh.Color * 4
	Offset = Offset + Mesh.Color * ColorSize
		
	// more additional attributes must added here
	// ...	
		
	// position of vertex paylod
	Mesh.VertexOffset = Offset
	
	// index size for triangle points remember it's integer not float
	IndexSize = 4	
	// position of index payload
	Mesh.IndexOffset = Mesh.VertexOffset + VertexSize * Mesh.Vertices
		
	// prophesy the memblock size for the plane			
	MemblockSize = MainSize + PositionSize
	MemblockSize = MemblockSize + Mesh.Normal * NormalSize
	MemblockSize = MemblockSize + Mesh.UV * UVSize
	MemblockSize = MemblockSize + Mesh.Color * ColorSize
	// size of additinal attributes must added here
	// ...
	MemblockSize = MemblockSize + VertexSize * Mesh.Vertices
	MemblockSize = MemblockSize + IndexSize * Mesh.Indices
	
	if MemblockSize <> Mesh.IndexOffset + IndexSize * Mesh.Indices
		Error = 1
	else
	
		// create a memblock object	
		Mesh.Memblock = CreateMemblock(MemblockSize)
				
		// write memblock for a plane
		
		// the header block for basic usage
		
		SetMemblockInt(Mesh.Memblock,0,Mesh.Vertices) // vertex count (min points)
		SetMemblockInt(Mesh.Memblock,4,Mesh.Indices) // indice count (min 2 triangles * 3 points)
		SetMemblockInt(Mesh.Memblock,8,Attributes) // attribute count (position, normals, uv, color)
		SetMemblockInt(Mesh.Memblock,12,VertexSize) // size of vertex data from defined attributes (8 floats + 4 color bytes)
		SetMemblockInt(Mesh.Memblock,16,Mesh.VertexOffset)
		SetMemblockInt(Mesh.Memblock,20,Mesh.IndexOffset)
		
		// only basic attributes
		// for other attributes count is a new calculation for offsets needed
		// no idea for a good generic solution
			
		// attribute discription position
		
		SetMemblockByte(Mesh.Memblock,PositionOffset+0,0)  // float type
		SetMemblockByte(Mesh.Memblock,PositionOffset+1,3)  // 3 components (x,y,z)
		SetMemblockByte(Mesh.Memblock,PositionOffset+2,0)  // normalize 0 (normalize is only for colors needed)
		SetMemblockByte(Mesh.Memblock,PositionOffset+3,12) // 8 character + 1 nul terminator Round up to = 12
		
		SetMemblockString(Mesh.Memblock,PositionOffset+4,"position") // can be all you mind
		
		// attribute discription normals vector -1, 0 and 1
		// no normal no light
		
		if Mesh.Normal = 1
			
			SetMemblockByte(Mesh.Memblock,NormalOffset+0,0)
			SetMemblockByte(Mesh.Memblock,NormalOffset+1,3)
			SetMemblockByte(Mesh.Memblock,NormalOffset+2,0)
			SetMemblockByte(Mesh.Memblock,NormalOffset+3,8)
			
			SetMemblockString(Mesh.Memblock,NormalOffset+4,"normal")
		
		endif
		
		// attribute discription uv 0.0 - 1.0
		// no uv no sunburn no texture
		
		if Mesh.UV = 1
			
			SetMemblockByte(Mesh.Memblock,UVOffset+0,0)
			SetMemblockByte(Mesh.Memblock,UVOffset+1,2)
			SetMemblockByte(Mesh.Memblock,UVOffset+2,0)
			SetMemblockByte(Mesh.Memblock,UVOffset+3,4)
			
			SetMemblockString(Mesh.Memblock,UVOffset+4,"uv")
		
		endif
		
		// attribute discription color 0 - 255 * 4
		// not clear if needed except for rainbow unicorns
		
		if Mesh.Color = 1
			
			SetMemblockByte(Mesh.Memblock,ColorOffset+0,1)
			SetMemblockByte(Mesh.Memblock,ColorOffset+1,4)
			SetMemblockByte(Mesh.Memblock,ColorOffset+2,1)
			SetMemblockByte(Mesh.Memblock,ColorOffset+3,8)
			
			SetMemblockString(Mesh.Memblock,ColorOffset+4,"color")
	
		endif
	
	endif

endfunction Error

The payload functions of the memblock to set the planes and cliffs in the cluster.

//----------------------------------------------------------------------
// create the mesh memblock payload for plane
//----------------------------------------------------------------------

function SetMeshMemblockSimplePlane(Mesh ref as TMesh)

// the payload for the memblock
	
	// write vertex data
	
	// first Corner 0,0
	SetMeshMemblockVertexPosition(Mesh.Memblock,0,0,0,0)
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,0,0,1,0)
	if Mesh.UV = 1 then SetMeshMemblockVertexUV(Mesh.Memblock,0,0,0)
	if Mesh.Color = 1 then SetMeshMemblockVertexColor(Mesh.Memblock,0,255,255,255,255)
	
	// second corner 0,1
	SetMeshMemblockVertexPosition(Mesh.Memblock,1,0,0,Mesh.Size)
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,1,0,1,0)
	if Mesh.UV = 1 then SetMeshMemblockVertexUV(Mesh.Memblock,1,0,1)
	if Mesh.Color = 1 then SetMeshMemblockVertexColor(Mesh.Memblock,1,255,255,255,255)
	
	// third corner 1,1
	SetMeshMemblockVertexPosition(Mesh.Memblock,2,Mesh.Size,0,Mesh.Size)
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,2,0,1,0)
	if Mesh.UV = 1 then SetMeshMemblockVertexUV(Mesh.Memblock,2,1,1)
	if Mesh.Color = 1 then SetMeshMemblockVertexColor(Mesh.Memblock,2,255,255,255,255)
	
	// fourth corner 1,0
	SetMeshMemblockVertexPosition(Mesh.Memblock,3,Mesh.Size,0,0)
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,3,0,1,0)
	if Mesh.UV = 1 then SetMeshMemblockVertexUV(Mesh.Memblock,3,1,0)
	if Mesh.Color = 1 then SetMeshMemblockVertexColor(Mesh.Memblock,3,255,255,255,255)
	
	// write the index data
	// keep direction of triangles for top view of Plane
	SetMemblockInt(Mesh.Memblock,Mesh.IndexOffset,0)
	SetMemblockInt(Mesh.Memblock,Mesh.IndexOffset+4,3)
	SetMemblockInt(Mesh.Memblock,Mesh.IndexOffset+8,1)
	SetMemblockInt(Mesh.Memblock,Mesh.IndexOffset+12,2)
	SetMemblockInt(Mesh.Memblock,Mesh.IndexOffset+16,1)
	SetMemblockInt(Mesh.Memblock,Mesh.IndexOffset+20,3)

endfunction

//----------------------------------------------------------------------
// set only the position of mesh ground plane for cluster object
//----------------------------------------------------------------------

function SetMeshMemblockGroundPlanePosition(Mesh ref as TMesh)
	
	SetMeshMemblockVertexPosition(Mesh.Memblock,0,Mesh.x,Mesh.y,Mesh.z)
	SetMeshMemblockVertexPosition(Mesh.Memblock,1,Mesh.x,Mesh.y,Mesh.z+Mesh.Size)
	SetMeshMemblockVertexPosition(Mesh.Memblock,2,Mesh.x+Mesh.Size,Mesh.y,Mesh.z+Mesh.Size)
	SetMeshMemblockVertexPosition(Mesh.Memblock,3,Mesh.x+Mesh.Size,Mesh.y,Mesh.z)
	
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,0,0,1,0)
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,1,0,1,0)
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,2,0,1,0)
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,3,0,1,0)
	
endfunction

//----------------------------------------------------------------------
// set only the position of mesh cliff plane for cluster object
//----------------------------------------------------------------------

// SouthEast

function SetMeshMemblockGroundPlaneSouthEastPosition(Mesh ref as TMesh)
	
	SetMeshMemblockVertexPosition(Mesh.Memblock,0,Mesh.x,Mesh.y-Mesh.Size,Mesh.z)
	SetMeshMemblockVertexPosition(Mesh.Memblock,1,Mesh.x,Mesh.y,Mesh.z)
	SetMeshMemblockVertexPosition(Mesh.Memblock,2,Mesh.x+Mesh.Size,Mesh.y,Mesh.z)
	SetMeshMemblockVertexPosition(Mesh.Memblock,3,Mesh.x+Mesh.Size,Mesh.y-Mesh.Size,Mesh.z)
		
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,0,0,0,-1)
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,1,0,0,-1)
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,2,0,0,-1)
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,3,0,0,-1)
	
endfunction

// SouthWest

function SetMeshMemblockGroundPlaneSouthWestPosition(Mesh ref as TMesh)
	
	SetMeshMemblockVertexPosition(Mesh.Memblock,0,Mesh.x,Mesh.y-Mesh.Size,Mesh.z+Mesh.Size)
	SetMeshMemblockVertexPosition(Mesh.Memblock,1,Mesh.x,Mesh.y,Mesh.z+Mesh.Size)
	SetMeshMemblockVertexPosition(Mesh.Memblock,2,Mesh.x,Mesh.y,Mesh.z)
	SetMeshMemblockVertexPosition(Mesh.Memblock,3,Mesh.x,Mesh.y-Mesh.Size,Mesh.z)
		
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,0,-1,0,0)
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,1,-1,0,0)
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,2,-1,0,0)
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,3,-1,0,0)
	
endfunction

// NorthEast

function SetMeshMemblockGroundPlaneNorthEastPosition(Mesh ref as TMesh)
	
	SetMeshMemblockVertexPosition(Mesh.Memblock,0,Mesh.x+Mesh.Size,Mesh.y-Mesh.Size,Mesh.z)
	SetMeshMemblockVertexPosition(Mesh.Memblock,1,Mesh.x+Mesh.Size,Mesh.y,Mesh.z)
	SetMeshMemblockVertexPosition(Mesh.Memblock,2,Mesh.x+Mesh.Size,Mesh.y,Mesh.z+Mesh.Size)
	SetMeshMemblockVertexPosition(Mesh.Memblock,3,Mesh.x+Mesh.Size,Mesh.y-Mesh.Size,Mesh.z+Mesh.Size)
	
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,0,1,0,0)
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,1,1,0,0)
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,2,1,0,0)
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,3,1,0,0)
	
endfunction

// NorthWest

function SetMeshMemblockGroundPlaneNorthWestPosition(Mesh ref as TMesh)

SetMeshMemblockVertexPosition(Mesh.Memblock,0,Mesh.x+Mesh.Size,Mesh.y-Mesh.Size,Mesh.z+Mesh.Size)
	SetMeshMemblockVertexPosition(Mesh.Memblock,1,Mesh.x+Mesh.Size,Mesh.y,Mesh.z+Mesh.Size)
	SetMeshMemblockVertexPosition(Mesh.Memblock,2,Mesh.x,Mesh.y,Mesh.z+Mesh.Size)
	SetMeshMemblockVertexPosition(Mesh.Memblock,3,Mesh.x,Mesh.y-Mesh.Size,Mesh.z+Mesh.Size)
		
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,0,0,0,1)
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,1,0,0,1)
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,2,0,0,1)
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,3,0,0,1)
	
endfunction

+ Code Snippet

//----------------------------------------------------------------------
// create the mesh memblock payload for plane
//----------------------------------------------------------------------

function SetMeshMemblockSimplePlane(Mesh ref as TMesh)

	// the payload for the memblock
	
	// write vertex data
	
	// first Corner 0,0
	SetMeshMemblockVertexPosition(Mesh.Memblock,0,0,0,0)
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,0,0,1,0)
	if Mesh.UV = 1 then SetMeshMemblockVertexUV(Mesh.Memblock,0,0,0)
	if Mesh.Color = 1 then SetMeshMemblockVertexColor(Mesh.Memblock,0,255,255,255,255)
	
	// second corner 0,1
	SetMeshMemblockVertexPosition(Mesh.Memblock,1,0,0,Mesh.Size)
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,1,0,1,0)
	if Mesh.UV = 1 then SetMeshMemblockVertexUV(Mesh.Memblock,1,0,1)
	if Mesh.Color = 1 then SetMeshMemblockVertexColor(Mesh.Memblock,1,255,255,255,255)
	
	// third corner 1,1
	SetMeshMemblockVertexPosition(Mesh.Memblock,2,Mesh.Size,0,Mesh.Size)
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,2,0,1,0)
	if Mesh.UV = 1 then SetMeshMemblockVertexUV(Mesh.Memblock,2,1,1)
	if Mesh.Color = 1 then SetMeshMemblockVertexColor(Mesh.Memblock,2,255,255,255,255)
	
	// fourth corner 1,0
	SetMeshMemblockVertexPosition(Mesh.Memblock,3,Mesh.Size,0,0)
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,3,0,1,0)
	if Mesh.UV = 1 then SetMeshMemblockVertexUV(Mesh.Memblock,3,1,0)
	if Mesh.Color = 1 then SetMeshMemblockVertexColor(Mesh.Memblock,3,255,255,255,255)
	
	// write the index data
	// keep direction of triangles for top view of Plane
	SetMemblockInt(Mesh.Memblock,Mesh.IndexOffset,0)
	SetMemblockInt(Mesh.Memblock,Mesh.IndexOffset+4,3)
	SetMemblockInt(Mesh.Memblock,Mesh.IndexOffset+8,1)
	SetMemblockInt(Mesh.Memblock,Mesh.IndexOffset+12,2)
	SetMemblockInt(Mesh.Memblock,Mesh.IndexOffset+16,1)
	SetMemblockInt(Mesh.Memblock,Mesh.IndexOffset+20,3)

endfunction

//----------------------------------------------------------------------
// set only the position of mesh ground plane for cluster object
//----------------------------------------------------------------------

function SetMeshMemblockGroundPlanePosition(Mesh ref as TMesh)
	
	SetMeshMemblockVertexPosition(Mesh.Memblock,0,Mesh.x,Mesh.y,Mesh.z)
	SetMeshMemblockVertexPosition(Mesh.Memblock,1,Mesh.x,Mesh.y,Mesh.z+Mesh.Size)
	SetMeshMemblockVertexPosition(Mesh.Memblock,2,Mesh.x+Mesh.Size,Mesh.y,Mesh.z+Mesh.Size)
	SetMeshMemblockVertexPosition(Mesh.Memblock,3,Mesh.x+Mesh.Size,Mesh.y,Mesh.z)
	
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,0,0,1,0)
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,1,0,1,0)
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,2,0,1,0)
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,3,0,1,0)
	
endfunction

//----------------------------------------------------------------------
// set only the position of mesh cliff plane for cluster object
//----------------------------------------------------------------------

// SouthEast

function SetMeshMemblockGroundPlaneSouthEastPosition(Mesh ref as TMesh)
	
	SetMeshMemblockVertexPosition(Mesh.Memblock,0,Mesh.x,Mesh.y-Mesh.Size,Mesh.z)
	SetMeshMemblockVertexPosition(Mesh.Memblock,1,Mesh.x,Mesh.y,Mesh.z)
	SetMeshMemblockVertexPosition(Mesh.Memblock,2,Mesh.x+Mesh.Size,Mesh.y,Mesh.z)
	SetMeshMemblockVertexPosition(Mesh.Memblock,3,Mesh.x+Mesh.Size,Mesh.y-Mesh.Size,Mesh.z)
		
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,0,0,0,-1)
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,1,0,0,-1)
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,2,0,0,-1)
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,3,0,0,-1)
	
endfunction

// SouthWest

function SetMeshMemblockGroundPlaneSouthWestPosition(Mesh ref as TMesh)
	
	SetMeshMemblockVertexPosition(Mesh.Memblock,0,Mesh.x,Mesh.y-Mesh.Size,Mesh.z+Mesh.Size)
	SetMeshMemblockVertexPosition(Mesh.Memblock,1,Mesh.x,Mesh.y,Mesh.z+Mesh.Size)
	SetMeshMemblockVertexPosition(Mesh.Memblock,2,Mesh.x,Mesh.y,Mesh.z)
	SetMeshMemblockVertexPosition(Mesh.Memblock,3,Mesh.x,Mesh.y-Mesh.Size,Mesh.z)
		
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,0,-1,0,0)
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,1,-1,0,0)
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,2,-1,0,0)
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,3,-1,0,0)
	
endfunction

// NorthEast

function SetMeshMemblockGroundPlaneNorthEastPosition(Mesh ref as TMesh)
	
	SetMeshMemblockVertexPosition(Mesh.Memblock,0,Mesh.x+Mesh.Size,Mesh.y-Mesh.Size,Mesh.z)
	SetMeshMemblockVertexPosition(Mesh.Memblock,1,Mesh.x+Mesh.Size,Mesh.y,Mesh.z)
	SetMeshMemblockVertexPosition(Mesh.Memblock,2,Mesh.x+Mesh.Size,Mesh.y,Mesh.z+Mesh.Size)
	SetMeshMemblockVertexPosition(Mesh.Memblock,3,Mesh.x+Mesh.Size,Mesh.y-Mesh.Size,Mesh.z+Mesh.Size)
	
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,0,1,0,0)
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,1,1,0,0)
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,2,1,0,0)
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,3,1,0,0)
	
endfunction

// NorthWest

function SetMeshMemblockGroundPlaneNorthWestPosition(Mesh ref as TMesh)

	SetMeshMemblockVertexPosition(Mesh.Memblock,0,Mesh.x+Mesh.Size,Mesh.y-Mesh.Size,Mesh.z+Mesh.Size)
	SetMeshMemblockVertexPosition(Mesh.Memblock,1,Mesh.x+Mesh.Size,Mesh.y,Mesh.z+Mesh.Size)
	SetMeshMemblockVertexPosition(Mesh.Memblock,2,Mesh.x,Mesh.y,Mesh.z+Mesh.Size)
	SetMeshMemblockVertexPosition(Mesh.Memblock,3,Mesh.x,Mesh.y-Mesh.Size,Mesh.z+Mesh.Size)
		
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,0,0,0,1)
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,1,0,0,1)
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,2,0,0,1)
	if Mesh.Normal = 1 then SetMeshMemblockVertexNormal(Mesh.Memblock,3,0,0,1)
	
endfunction

Attachments

Login to view attachments

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers AppGameKit Corner / CreateObjectfromMeshMemblock produce a Ghost Plane

Attachments