Creating an object from memblocks

Author

Message

Harlequin

14

Years of Service

User Offline

Joined: 22nd Mar 2010

Location: Melbourne (AU)

Posted: 22nd Sep 2016 07:07

Link

Hi all,

I am looking to create a randomised object, basically a very low poly style (no smoothing so poly count would be only in the low 5000's) flat terrain that continuously generates as the player moves forward.

I think I need to use memblocks to create it from scratch, but I am struggling to get my head around how to build an object via this way. I have created images with memblocks so I understand the some of the basics of memblocks.

What I would like is an example of an object created via memblocks so I can see the type of values that need to be populated in the various bytes.
But reading through the doc for "CreateObjectFromMeshMemblock" it looks like it may not be worth trying to create it due to the anount of data I need to popluate.

I guess an anternative would be to create a flat plane and modify it directly by loading it into a memblock manipulating it and creating a new object to display?

Any ideas?

thanks

It\'s late, I\'m tired, out of coffee and now I\'m wet.

Back to top

Profile PM

Xaby

FPSC Reloaded TGC Backer

17

Years of Service

User Offline

Joined: 17th Apr 2007

Location: Berlin

Posted: 22nd Sep 2016 08:36

Link

Try CreateObjectFromHeightMap, you could manipulate your 2D-Height-Map-Image in Memory.

After that, you could manipulate the Memory-Mesh with some of these

AddObjectMeshFromMemblock
CreateMemblockFromObjectMesh
CreateObjectFromMeshMemblock
GetMeshMemblockVertexNormalX
GetMeshMemblockVertexNormalY
GetMeshMemblockVertexNormalZ
GetMeshMemblockVertexU
GetMeshMemblockVertexV
GetMeshMemblockVertexX
GetMeshMemblockVertexY
GetMeshMemblockVertexZ
SetMeshMemblockVertexNormal
SetMeshMemblockVertexPosition
SetMeshMemblockVertexUV
SetObjectMeshFromMemblock

You don't have to manipulate the "Memoryblock" directly

Back to top

Profile PM Website

Xaby

FPSC Reloaded TGC Backer

17

Years of Service

User Offline

Joined: 17th Apr 2007

Location: Berlin

Posted: 22nd Sep 2016 08:41

Link

You could also think about creating a bunch of X-Files, load them, and create from them Memblocks. Maybe you don't need Memblocks for 3D-Objects. If it is for terrain, you could do it with randomly generated images. You also could write you some image-manipualting algorithms and combine 2D-Heightmaps in any way.

Back to top

Profile PM Website

SoftMotion3D

AGK Developer

19

Years of Service

User Offline

Joined: 24th Aug 2005

Location: Calgary,Alberta

Posted: 22nd Sep 2016 19:14

Link

Another method is to create object files on the fly and load them back in. I use this method and works well for me. All you need to do is learn the obj file format. Its txt based and easy to figure out.

Back to top

Profile PM Email Website

Harlequin

14

Years of Service

User Offline

Joined: 22nd Mar 2010

Location: Melbourne (AU)

Posted: 23rd Sep 2016 05:48

Link

Thanks for the replies all.
I'll look at both options (extra knowledge can be usefull), if I get something working I'll post it here for posterities sake

It\'s late, I\'m tired, out of coffee and now I\'m wet.

Back to top

Profile PM

Harlequin

14

Years of Service

User Offline

Joined: 22nd Mar 2010

Location: Melbourne (AU)

Posted: 28th Sep 2016 07:55 Edited at: 28th Sep 2016 07:57

Link

Am I not understanding this correctly?
I exported as Wavefront OBJ file the basic cube from Blender (no changes or anything).
My understanding is that there are 8 vertices in a cube (the file below indicates this as well).
If I use the command
SetMeshMemblockVertexPosition( mem, 0, 5.000000, -5.000000, 5.000000)
I can manipulate vertex 0 (as expected)
BUT if I use this command I can manipulate vertex 23, which should not exist it does actually change the cube's appearance so it is manipulating the cube.
SetMeshMemblockVertexPosition( mem, 23, 5.000000, -5.000000, 5.000000)

This to me makes zero sense, so I must be misunderstanding it, can somebody explain it to me.

thanks

Crappy Program Code I use to test all of this

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "MeshObject" )
SetWindowSize( 640, 480, 0 )

// set display properties
SetVirtualResolution( 640, 480 )
SetOrientationAllowed( 1, 1, 1, 1 )
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery

global w as integer
global h as integer
global mem as integer

object as integer
object1 as integer
 
mem = 1020933

SetGenerateMipmaps(1)
TerrainImageID=LoadImage("green.png" )
SetImageWrapU( TerrainImageID, 1 )
SetImageWrapV( TerrainImageID, 1 )

TerrainObjectID = LoadObject("cube.obj")

CreateMemblockFromObjectMesh(mem,TerrainObjectID,1)   // <- This creates the memeblock automatically 
SetMeshMemblockVertexPosition( mem, 23, 5.000000, -5.000000, 5.000000)

meshobj = CreateObjectFromMeshMemblock(mem)

DeleteObject(TerrainObjectID)  //deletes the original object we copied
SetObjectImage(meshobj, TerrainImageID, 0 )
SetObjectScale(meshobj,100,100,100)

SetCameraRange( 1, 0.1, 2000 )
SetGlobal3DDepth(10000)

do
	print ("Vertex 0 NormalX :- " + str(GetMeshMemblockVertexNormalX( mem, 0 )))
	print ("Vertex 0 NormalY :- " + str(GetMeshMemblockVertexNormalY( mem, 0 )))
	print ("Vertex 0 NormalZ :- " + str(GetMeshMemblockVertexNormalZ( mem, 0 )))

print ("Vertex 23 NormalX :- " + str(GetMeshMemblockVertexX( mem, 23 )))
	print ("Vertex 23 NormalY :- " + str(GetMeshMemblockVertexY( mem, 23 )))
	print ("Vertex 23 NormalZ :- " + str(GetMeshMemblockVertexZ( mem, 23 )))
			
	SetCameraPosition(1,1000,200,1000)
	RotateObjectLocalY(meshobj,2)
	
	SetCameraLookAt(1,getobjectx(meshobj),getobjecty(meshobj),getobjectz(meshobj),0)	
    	Print( ScreenFPS() )
    	Sync()        
loop

+ Code Snippet

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "MeshObject" )
SetWindowSize( 640, 480, 0 )

// set display properties
SetVirtualResolution( 640, 480 )
SetOrientationAllowed( 1, 1, 1, 1 )
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery

global w as integer
global h as integer
global mem as integer

object as integer
object1 as integer
 
mem = 1020933

SetGenerateMipmaps(1)
TerrainImageID=LoadImage("green.png" )
SetImageWrapU( TerrainImageID, 1 )
SetImageWrapV( TerrainImageID, 1 )

TerrainObjectID = LoadObject("cube.obj")

CreateMemblockFromObjectMesh(mem,TerrainObjectID,1)   // <- This creates the memeblock automatically 
SetMeshMemblockVertexPosition( mem, 23, 5.000000, -5.000000, 5.000000) 

meshobj = CreateObjectFromMeshMemblock(mem)

DeleteObject(TerrainObjectID)  //deletes the original object we copied
SetObjectImage(meshobj, TerrainImageID, 0 )
SetObjectScale(meshobj,100,100,100)

SetCameraRange( 1, 0.1, 2000 )
SetGlobal3DDepth(10000)


do
	print ("Vertex 0 NormalX :- " + str(GetMeshMemblockVertexNormalX( mem, 0 )))
	print ("Vertex 0 NormalY :- " + str(GetMeshMemblockVertexNormalY( mem, 0 )))
	print ("Vertex 0 NormalZ :- " + str(GetMeshMemblockVertexNormalZ( mem, 0 )))

	print ("Vertex 23 NormalX :- " + str(GetMeshMemblockVertexX( mem, 23 )))
	print ("Vertex 23 NormalY :- " + str(GetMeshMemblockVertexY( mem, 23 )))
	print ("Vertex 23 NormalZ :- " + str(GetMeshMemblockVertexZ( mem, 23 )))
			
	SetCameraPosition(1,1000,200,1000)
	RotateObjectLocalY(meshobj,2)
	
	SetCameraLookAt(1,getobjectx(meshobj),getobjecty(meshobj),getobjectz(meshobj),0)	
    	Print( ScreenFPS() )
    	Sync()        
loop

Object file contents below

Quote: "
# Blender v2.77 (sub 0) OBJ File: ''
# www.blender.org
mtllib cube.mtl
o Cube
v 1.000000 -1.000000 -1.000000
v 1.000000 -1.000000 1.000000
v -1.000000 -1.000000 1.000000
v -1.000000 -1.000000 -1.000000
v 1.000000 1.000000 -0.999999
v 0.999999 1.000000 1.000001
v -1.000000 1.000000 1.000000
v -1.000000 1.000000 -1.000000
vn 0.0000 -1.0000 0.0000
vn 0.0000 1.0000 0.0000
vn 1.0000 0.0000 0.0000
vn -0.0000 -0.0000 1.0000
vn -1.0000 -0.0000 -0.0000
vn 0.0000 0.0000 -1.0000
usemtl Material
s off
f 1//1 2//1 3//1 4//1
f 5//2 8//2 7//2 6//2
f 1//3 5//3 6//3 2//3
f 2//4 6//4 7//4 3//4
f 3//5 7//5 8//5 4//5
f 5//6 1//6 4//6 8//6
"

It\'s late, I\'m tired, out of coffee and now I\'m wet.

Back to top

Profile PM

CJB

Valued Member

20

Years of Service

User Offline

Joined: 10th Feb 2004

Location: Essex, UK

Posted: 28th Sep 2016 09:34

Link

I guess it depends how the cube is made. It is use two triangles per face, and stores each vertex for each triangle, then you'd have 6x2x3=36 vertices.

V2 T1 (Mostly)
Phone Tap!
Uzmadesign

Back to top

Profile PM Email Website

Preben

AGK Studio Developer

20

Years of Service

User Offline

Joined: 30th Jun 2004

Location:

Posted: 29th Sep 2016 13:21

Link

SetMeshMemblockVertexPosition( mem, 23, 5.000000, -5.000000, 5.000000)

Dont think agk check if the vertex exist , but just write to the correct position in the memblock , so your properly just changing the faces instead. here is some code that give you more information about the memblock and the vertices ,sample just give you the size of the object but you can use the information it collect:

newobj = LOAD
	meshes = GetObjectNumMeshes( newobj )
	// find object size width and height x,y,z
	totalverts = 0
	for a = 1 to meshes
		newmem = CreateMemblockFromObjectMesh(newobj,a)
		numvert = GetMemblockInt(newmem,0)
		totalverts = totalverts + numvert
		numindices = GetMemblockInt(newmem,4) // 0 = 3 vert-polygon , > 0 shared vert.
		numattributes = GetMemblockInt(newmem,8) // attributes per vertex,
		numsinglevertsize = GetMemblockInt(newmem,12) // size of a single vertex 	
		offsetvert = GetMemblockInt(newmem,16) // start off vertex data
		offsetindex = GetMemblockInt(newmem,20) // start off  indices data

for b = 0 to numvert-1
			vx# = GetMeshMemblockVertexX( newmem, b )
			vy# = GetMeshMemblockVertexY( newmem, b )
			vz# = GetMeshMemblockVertexZ( newmem, b )
			if vx# > hx# then hx# = vx#
			if vx# < lx# then lx# = vx#
			if vy# > hy# then hy# = vy#
			if vy# < ly# then ly# = vy#
			if vz# > hz# then hz# = vz#
			if vz# < lz# then lz# = vz#
		next b

DeleteMemblock(newmem)

next a

+ Code Snippet

	newobj = LOAD
	meshes = GetObjectNumMeshes( newobj )
	// find object size width and height x,y,z
	totalverts = 0
	for a = 1 to meshes
		newmem = CreateMemblockFromObjectMesh(newobj,a)
		numvert = GetMemblockInt(newmem,0)
		totalverts = totalverts + numvert
		numindices = GetMemblockInt(newmem,4) // 0 = 3 vert-polygon , > 0 shared vert.
		numattributes = GetMemblockInt(newmem,8) // attributes per vertex,
		numsinglevertsize = GetMemblockInt(newmem,12) // size of a single vertex 	
		offsetvert = GetMemblockInt(newmem,16) // start off vertex data
		offsetindex = GetMemblockInt(newmem,20) // start off  indices data

		for b = 0 to numvert-1
			vx# = GetMeshMemblockVertexX( newmem, b )
			vy# = GetMeshMemblockVertexY( newmem, b )
			vz# = GetMeshMemblockVertexZ( newmem, b )
			if vx# > hx# then hx# = vx#
			if vx# < lx# then lx# = vx#
			if vy# > hy# then hy# = vy#
			if vy# < ly# then ly# = vy#
			if vz# > hz# then hz# = vz#
			if vz# < lz# then lz# = vz#
		next b

		DeleteMemblock(newmem)

	next a

best regards Preben Eriksen,

Back to top

Profile PM Email

Harlequin

14

Years of Service

User Offline

Joined: 22nd Mar 2010

Location: Melbourne (AU)

Posted: 1st Oct 2016 08:46

Link

Hi Everyone,

Thanks for everyone's suggestions and pointers.

After quite a bit of fiddling and testing, I have some working code (pasted below). The biggest issue is that Blender when exporting an obj file messes up the vertex order something massively. This cost me a bit of time, so I used Milkshape3d (trial version - going to by this awsome tool!!) to export a plane and get the vertices correct.
Attached is a zipfile of my code, the objects required, shaders and the like (shaders are from the Terrain example in AGK).

Comments and code need some work, but I just wanted to get something up tonight.

// set window properties
SetWindowTitle( "AGK" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize(1)
SetSyncRate( 60,0 )
SetAntiAliasMode(1)
 
// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )
SetScissor(0,0,0,0)
SetCameraRange( 1, 0.1, 2000 )

// enable the sky box
SetSkyBoxVisible( 1 )

// load terrain detail texture with mipmapping enabled
SetGenerateMipmaps(1)
LoadImage( 1, "detail.png" )
SetImageWrapU( 1, 1 )
SetImageWrapV( 1, 1 )

// load the terrain shader to give the terrain color based on height
LoadShader( 1, "Terrain.vs", "Terrain.ps" )

// create the terrain object from a height map
CreateObjectFromHeightMap( 1, "Mexico.png", 768, 50, 768, 1, 16 )
SetObjectImage( 1, 1, 0 )
SetObjectUVScale( 1, 0, 128, 128 ) // scale the detail texture so it repeats
SetObjectShader( 1, 1 )

SetCameraPosition(1, 383, 30, 383)
SetCameraLookAt( 1, 0,40,0,0 )

SetAmbientColor( 128,128,128 )

// buttons for mobile devices to control the camera 
addvirtualbutton( 1, GetScreenBoundsRight()-45,GetScreenBoundsBottom()-45,80 )
addvirtualbutton( 2, GetScreenBoundsRight()-45,GetScreenBoundsBottom()-130,80 )
addvirtualbutton( 3, GetScreenBoundsLeft()+45,GetScreenBoundsBottom()-45,80 )

SetPrintSize(15)

// add some atmospheric fog
SetFogMode( 1 )
SetFogColor( 161,183,209 )
SetFogRange( 50, 700 )
SetFogSunColor( 255,230,179 )

// camera starts in free mode
cameraMode = 0

do
	
	// move the camera
	speed# = 1.0
	if ( GetRawKeyState( 16 ) ) then speed# = 0.1
	if ( cameraMode = 1 ) then speed# = 0.25
	
	if ( GetRawKeyState( 87 ) ) then MoveCameraLocalZ( 1, speed# )
	if ( GetRawKeyState( 83 ) ) then MoveCameraLocalZ( 1, -speed# )

if ( GetRawKeyState( 65 ) ) then MoveCameraLocalX( 1, -speed# )
	if ( GetRawKeyState( 68 ) ) then MoveCameraLocalX( 1, speed# )

if ( GetRawKeyState( 81 ) ) then MoveCameraLocalY( 1, -speed# )
	if ( GetRawKeyState( 69 ) ) then MoveCameraLocalY( 1, speed# )
	
	if ( getvirtualbuttonstate(1) = 1 ) then MoveCameraLocalZ( 1, -speed# )
    if ( getvirtualbuttonstate(2) = 1 ) then MoveCameraLocalZ( 1, speed# )
	
	// rotate the camera
	if ( GetPointerPressed() )
        startx# = GetPointerX()
        starty# = GetPointerY()
        angx# = GetCameraAngleX(1)
        angy# = GetCameraAngleY(1)
        pressed = 1
    endif

if ( GetPointerState() = 1 )
        fDiffX# = (GetPointerX() - startx#)/4.0
        fDiffY# = (GetPointerY() - starty#)/4.0

newX# = angx# + fDiffY#
        if ( newX# > 89 ) then newX# = 89
        if ( newX# < -89 ) then newX# = -89
        SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
    endif
    
    // change camera mode
    if ( GetVirtualButtonPressed(3) = 1 ) then cameraMode = 1-cameraMode
    if ( cameraMode = 1 )
		// stick camera to the terrain
		x# = GetCameraX(1)
		z# = GetCameraZ(1)
		SetCameraPosition( 1, x#, GetObjectHeightMapHeight(1,x#,z#)+0.5, z# )
	endif
    
    // move the sun 
    time# = time# + GetFrameTime()*40.5
    xdir# = sin(time#)
    ydir# = -0.5
    zdir# = cos(time#)
    SetSunDirection( xdir#, ydir#, zdir# )
    
	// show some information
	Print( "FPS: " + str(ScreenFPS(),1) )
	Print( "Polygons: " + str(GetPolygonsDrawn()) )
	
    Sync()
loop

+ Code Snippet

 
// set window properties
SetWindowTitle( "AGK" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize(1)
SetSyncRate( 60,0 )
SetAntiAliasMode(1)
 
// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )
SetScissor(0,0,0,0)
SetCameraRange( 1, 0.1, 2000 )

// enable the sky box
SetSkyBoxVisible( 1 )

// load terrain detail texture with mipmapping enabled
SetGenerateMipmaps(1)
LoadImage( 1, "detail.png" )
SetImageWrapU( 1, 1 )
SetImageWrapV( 1, 1 )

// load the terrain shader to give the terrain color based on height
LoadShader( 1, "Terrain.vs", "Terrain.ps" )

// create the terrain object from a height map
CreateObjectFromHeightMap( 1, "Mexico.png", 768, 50, 768, 1, 16 )
SetObjectImage( 1, 1, 0 )
SetObjectUVScale( 1, 0, 128, 128 ) // scale the detail texture so it repeats
SetObjectShader( 1, 1 )

SetCameraPosition(1, 383, 30, 383)
SetCameraLookAt( 1, 0,40,0,0 )

SetAmbientColor( 128,128,128 )

// buttons for mobile devices to control the camera 
addvirtualbutton( 1, GetScreenBoundsRight()-45,GetScreenBoundsBottom()-45,80 )
addvirtualbutton( 2, GetScreenBoundsRight()-45,GetScreenBoundsBottom()-130,80 )
addvirtualbutton( 3, GetScreenBoundsLeft()+45,GetScreenBoundsBottom()-45,80 )

SetPrintSize(15)

// add some atmospheric fog
SetFogMode( 1 )
SetFogColor( 161,183,209 )
SetFogRange( 50, 700 )
SetFogSunColor( 255,230,179 )

// camera starts in free mode
cameraMode = 0

do
	
	// move the camera
	speed# = 1.0
	if ( GetRawKeyState( 16 ) ) then speed# = 0.1
	if ( cameraMode = 1 ) then speed# = 0.25
	
	if ( GetRawKeyState( 87 ) ) then MoveCameraLocalZ( 1, speed# )
	if ( GetRawKeyState( 83 ) ) then MoveCameraLocalZ( 1, -speed# )

	if ( GetRawKeyState( 65 ) ) then MoveCameraLocalX( 1, -speed# )
	if ( GetRawKeyState( 68 ) ) then MoveCameraLocalX( 1, speed# )

	if ( GetRawKeyState( 81 ) ) then MoveCameraLocalY( 1, -speed# )
	if ( GetRawKeyState( 69 ) ) then MoveCameraLocalY( 1, speed# )
	
	if ( getvirtualbuttonstate(1) = 1 ) then MoveCameraLocalZ( 1, -speed# )
    if ( getvirtualbuttonstate(2) = 1 ) then MoveCameraLocalZ( 1, speed# )
	
	// rotate the camera
	if ( GetPointerPressed() )
        startx# = GetPointerX()
        starty# = GetPointerY()
        angx# = GetCameraAngleX(1)
        angy# = GetCameraAngleY(1)
        pressed = 1
    endif

    if ( GetPointerState() = 1 )
        fDiffX# = (GetPointerX() - startx#)/4.0
        fDiffY# = (GetPointerY() - starty#)/4.0

        newX# = angx# + fDiffY#
        if ( newX# > 89 ) then newX# = 89
        if ( newX# < -89 ) then newX# = -89
        SetCameraRotation( 1, newX#, angy# + fDiffX#, 0 )
    endif
    
    // change camera mode
    if ( GetVirtualButtonPressed(3) = 1 ) then cameraMode = 1-cameraMode
    if ( cameraMode = 1 )
		// stick camera to the terrain
		x# = GetCameraX(1)
		z# = GetCameraZ(1)
		SetCameraPosition( 1, x#, GetObjectHeightMapHeight(1,x#,z#)+0.5, z# )
	endif
    
    // move the sun 
    time# = time# + GetFrameTime()*40.5
    xdir# = sin(time#)
    ydir# = -0.5
    zdir# = cos(time#)
    SetSunDirection( xdir#, ydir#, zdir# )
    
	// show some information
	Print( "FPS: " + str(ScreenFPS(),1) )
	Print( "Polygons: " + str(GetPolygonsDrawn()) )
	
    Sync()
loop

I will update with my example as I progress more. Code is free to use, change whatever for the community.

cheers

Sorry your browser is not supported!

AppGameKit Classic Chat / Creating an object from memblocks

Attachments