Make basic custom objects (plains...) using memblocks?

Author

Message

Quel

17

Years of Service

User Offline

Joined: 13th Mar 2009

Location:

Posted: 14th Sep 2010 16:39

Link

First, i would like to know if it is possible:

The many places i could use the stuff just keep popping up, but right now i would use it for making / deforming a custom, just a couple poly plain object to fit the terrain's shape, wherever it is placed to.

I'm aware of there is a memblock command which stands for making an object from memblock(s), and i'm not crying for a function which would determine the vertices world XYZ position, and overall a full program to be written for me.

I just would like you experienced guys to give me the answer for 'is it possible?', or 'is that command for this kinda tasks?'...

So i won't pull out all my hair for nothing.

Of course if someone could place a little example here on just how to start, for example what are the first bytes for an object, as i know for image it is WIDTH, HEIGHT, and DEPTH, but for an object i have no idea. Or a snippet which builds a single polygon...

This memblock topic seems a really powerful thingy but the info about it is painfully sho... nothing really...

Back to top

Profile PM

DVader

22

Years of Service

User Offline

Joined: 28th Jan 2004

Location:

Posted: 14th Sep 2010 17:01

Link

Well, not sure how you would go about doing that myself, but you can find out an objects size with get object size x etc. but yes for someone who knows how to alter vertex points (not looked into it myself), it should be possible.

http://s6.bitefight.org/c.php?uid=103081

Back to top

Profile PM Website

MSon

22

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 14th Sep 2010 17:04 Edited at: 14th Sep 2010 17:06

Link

By creating a mesh of an object, you can manipulate it, did a quick search and found this one example, but if you do more searching on this site, i remember there being full examples on manipulating a mesh, if this is what you ment?.

http://forum.thegamecreators.com/?m=forum_view&t=167453&b=1

Back to top

Profile PM Email Website

Quel

17

Years of Service

User Offline

Joined: 13th Mar 2009

Location:

Posted: 14th Sep 2010 17:36

Link

Since we are talking about a very simple plain with let's say 1 to 20 polygons in a single row, i think it could be completely generated inside DBP. Correct me if i'm wrong.

Back to top

Profile PM

Image All

20

Years of Service

User Offline

Joined: 30th Dec 2005

Location: Home

Posted: 14th Sep 2010 18:49

Link

yes, it's possible. i was doing it a long time ago for one of the coding challenges, constructing a model with memblock code. never finished it though. what i do remember is that the first few dwords had something to do with how many vertices there were going to be and what format to use. and then from there you just write dwords for the x,y,z of each vertex, and a polygon is constructed for every 3 vertices you make. code stopped working after a while though (updates) so something's changed, i don't know what. that's all i have to say.

Remember those old guys? They made epic renders, I think one of them was called DaVinci, and all they used was MS Paint. Sometimes it's just skill....

Back to top

Profile PM Email

Quel

17

Years of Service

User Offline

Joined: 13th Mar 2009

Location:

Posted: 14th Sep 2010 19:25

Link

Thank you

not enough to get going though - at least for me since i spent countless hours even following tutorials for image editing with memblocks without any success - but now at least i can count with the fact that once, i'm gonna be able to do it.

Maybe somebody currently into these things who could provide some more specific help?

Also anybody could enlighten us about the issue about what kind of (massive?) changes have been done to memblocks over time?

Back to top

Profile PM

MSon

22

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 14th Sep 2010 20:52

Link

i dont know how to create one using a memblock, but this is a function from my editor used to convert a darkbasic object to .x format, shows how to read vertex data, if you change Get to Set then you can manipulate the object, it also shows you the format used to create .x format objects, usually if i want to create an object, then is how i would do it, but i do believe memblocks would be faster.

Function SaveX(filename$,id)
         color as dword
         limbs = 0
         Repeat : Inc limbs,1 : Until Limb Exist(id,limbs) = 0
         If File Exist(filename$) : Delete File filename$ : Open To Write 1,filename$
         Else : Open To Write 1,filename$ : EndIf
         Write String 1,"xof 0303txt 0032"
         Write String 1,"// xfile exported by DarkBasic World Creator"
         Write String 1,"// DarkBasic World Creator, By Michael Mihalyfi aka MSon - Mihalyfi@Hotmail.co.uk"
         Write String 1,"// xFile Export Code, By Mike Shihrer, aka Visigoth"
         Write String 1,""
         Write String 1,""
         cl = (limbs - 1)
         For i = 0 To (limbs - 1)
         write string 1," Frame Limb_"+Str$(cl)+" {"
         write string 1,"  FrameTransformMatrix {"
         write string 1,"  1.000000, 0.000000, 0.000000, 0.000000,"
         write string 1,"  0.000000, 1.000000, 0.000000, 0.000000,"
         write string 1,"  0.000000, 0.000000, 1.000000, 0.000000,"
         write string 1,"  "+Str$(Limb Position X(id,cl),6)+", "+ Str$(Limb Position Y(id,cl),6)+", "+Str$(Limb Position Z(id,cl),6)+", 1.000000;;"
         write string 1,"  }"
         write string 1," "
         write string 1," Mesh Limb_"+Str$(cl)+" {"
         Lock VertexData For Limb id,cl
         verts   = Get VertexData Vertex Count()
         indexes = Get VertexData Index Count()
         faces   = indexes/3
         write string 1,"  "+Str$(verts)+";"
         For i = 0 To (verts-2)
         write string 1,"  "+Str$(Get VertexData Position X(i),6)+","+Str$(Get VertexData Position Y(i),6)+","+Str$(Get VertexData Position Z(i),6)+";," : Next i
         write string 1,"  "+Str$(Get VertexData Position X(i),6)+","+Str$(Get VertexData Position Y(i),6)+","+Str$(Get VertexData Position Z(i),6)+";;"
         write string 1,"  "+Str$(faces)+";"
         for i = 0 To (indexes-6) Step 3
         write string 1,"  3;"+Str$(Get IndexData(i))+","+Str$(Get IndexData(i+1))+","+Str$(Get IndexData(i + 2))+";,"
         Next i
         write string 1,"  3;"+Str$(Get IndexData(i))+","+Str$(Get IndexData(i+1))+","+Str$(Get IndexData(i+2))+";;"
         UnLock VertexData
         write string 1," "
         write string 1," MeshNormals {"
         Lock VertexData For Limb id,cl
         verts   = Get VertexData Vertex Count()
         indexes = Get VertexData Index Count()
         faces   = indexes / 3
         write string 1,"  "+Str$(verts)+";"
         for i = 0 to (verts - 2)
         write string 1,"  "+Str$(Get VertexData Normals X(i),6)+","+Str$(Get VertexData Normals Y(i),6)+","+Str$(Get VertexData Normals Z(i),6)+";,"
         Next i
         write string 1,"  "+Str$(Get VertexData Normals X(i),6)+","+Str$(Get VertexData Normals y(i),6)+","+Str$(Get VertexData Normals Z(i),6)+";;"
         write string 1,"  "+Str$(faces)+";"
         For i = 0 To (indexes-6) Step 3
         write string 1,"  3;"+Str$(Get IndexData(i))+","+Str$(Get IndexData(i+1))+","+Str$(Get IndexData(i+2))+";,"
         Next i
         write string 1,"  3;"+Str$(Get IndexData(i))+","+Str$(Get IndexData(i+1))+","+Str$(Get IndexData(i+2))+";;"
         UnLock VertexData
         write string 1," }"
         write string 1," "
         write string 1," MeshTextureCoords {"
         Lock VertexData For Limb id,cl
         verts = Get VertexData Vertex Count()
         write string 1,"  "+Str$(verts)+";"
         For i = 0 To (verts-2)
         write string 1,"  "+Str$(Get VertexData U(i),6)+","+Str$(Get VertexData V(i),6)+";,"
         Next i
         write string 1,"  "+Str$(Get VertexData U(i),6)+","+Str$(Get VertexData V(i),6)+";;"
         UnLock VertexData
         write string 1," }"
         write string 1," "
         write string 1," MeshVertexColors {"
         Lock VertexData For Limb id,cl
         verts = Get VertexData Vertex Count()
         write string 1,"  "+Str$(verts)+";"
         For i = 0 To (verts-2)
         color = Get VertexData Diffuse(i)
         write string 1,"  "+Str$(i)+";"+Str$(RGBR(color),6)+";"+Str$(RGBG(color),6)+";"+Str$(RGBB(color),6)+";1.000000;;,"
         Next i
         write string 1,"  "+Str$(i)+";"+Str$(RGBR(color),6)+";"+Str$(RGBG(color),6)+";"+Str$(RGBB(color),6)+";1.000000;;;"
         UnLock VertexData
         write string 1," }"
         write string 1," "
         write string 1," MeshMaterialList {"
         write string 1," 1;"
         Lock VertexData For Limb id,cl
         write string 1,"  "+Str$((Get VertexData Index Count()/3))+";"
         For ii = 1 To (Get VertexData Index Count()/3)
         write string 1," 0;"
         Next ii
         UnLock VertexData
         write string 1,"  Material Mat_Limb_"+Str$(cl)+"{"
         write string 1,"  1.000000,1.000000,1.000000,1.000000;;"
         write string 1,"  1.000000;"
         write string 1,"  0.000000,0.000000,0.000000;;"
         write string 1,"  0.000000,0.000000,0.000000;;"
         write string 1,"   TextureFileName {"
         write string 1,"  "+Chr$(34)+Limb Texture Name(id,cl)+Chr$(34)+";"
         write string 1,"   }"
         write string 1,"  }"
         write string 1,"  }"
         write string 1," }"
         write string 1,"}"
         Dec cl,1 : Next i : Close File 1

EndFunction

+ Code Snippet

Function SaveX(filename$,id)
         color as dword
         limbs = 0
         Repeat : Inc limbs,1 : Until Limb Exist(id,limbs) = 0
         If File Exist(filename$) : Delete File filename$ : Open To Write 1,filename$
         Else : Open To Write 1,filename$ : EndIf
         Write String 1,"xof 0303txt 0032"
         Write String 1,"// xfile exported by DarkBasic World Creator"
         Write String 1,"// DarkBasic World Creator, By Michael Mihalyfi aka MSon - [email protected]"
         Write String 1,"// xFile Export Code, By Mike Shihrer, aka Visigoth"
         Write String 1,""
         Write String 1,""
         cl = (limbs - 1)
         For i = 0 To (limbs - 1)
         write string 1," Frame Limb_"+Str$(cl)+" {"
         write string 1,"  FrameTransformMatrix {"
         write string 1,"  1.000000, 0.000000, 0.000000, 0.000000,"
         write string 1,"  0.000000, 1.000000, 0.000000, 0.000000,"
         write string 1,"  0.000000, 0.000000, 1.000000, 0.000000,"
         write string 1,"  "+Str$(Limb Position X(id,cl),6)+", "+ Str$(Limb Position Y(id,cl),6)+", "+Str$(Limb Position Z(id,cl),6)+", 1.000000;;"
         write string 1,"  }"
         write string 1," "
         write string 1," Mesh Limb_"+Str$(cl)+" {"
         Lock VertexData For Limb id,cl
         verts   = Get VertexData Vertex Count()
         indexes = Get VertexData Index Count()
         faces   = indexes/3
         write string 1,"  "+Str$(verts)+";"
         For i = 0 To (verts-2)
         write string 1,"  "+Str$(Get VertexData Position X(i),6)+","+Str$(Get VertexData Position Y(i),6)+","+Str$(Get VertexData Position Z(i),6)+";," : Next i
         write string 1,"  "+Str$(Get VertexData Position X(i),6)+","+Str$(Get VertexData Position Y(i),6)+","+Str$(Get VertexData Position Z(i),6)+";;"
         write string 1,"  "+Str$(faces)+";"
         for i = 0 To (indexes-6) Step 3
         write string 1,"  3;"+Str$(Get IndexData(i))+","+Str$(Get IndexData(i+1))+","+Str$(Get IndexData(i + 2))+";,"
         Next i
         write string 1,"  3;"+Str$(Get IndexData(i))+","+Str$(Get IndexData(i+1))+","+Str$(Get IndexData(i+2))+";;"
         UnLock VertexData
         write string 1," "
         write string 1," MeshNormals {"
         Lock VertexData For Limb id,cl
         verts   = Get VertexData Vertex Count()
         indexes = Get VertexData Index Count()
         faces   = indexes / 3
         write string 1,"  "+Str$(verts)+";"
         for i = 0 to (verts - 2)
         write string 1,"  "+Str$(Get VertexData Normals X(i),6)+","+Str$(Get VertexData Normals Y(i),6)+","+Str$(Get VertexData Normals Z(i),6)+";,"
         Next i
         write string 1,"  "+Str$(Get VertexData Normals X(i),6)+","+Str$(Get VertexData Normals y(i),6)+","+Str$(Get VertexData Normals Z(i),6)+";;"
         write string 1,"  "+Str$(faces)+";"
         For i = 0 To (indexes-6) Step 3
         write string 1,"  3;"+Str$(Get IndexData(i))+","+Str$(Get IndexData(i+1))+","+Str$(Get IndexData(i+2))+";,"
         Next i
         write string 1,"  3;"+Str$(Get IndexData(i))+","+Str$(Get IndexData(i+1))+","+Str$(Get IndexData(i+2))+";;"
         UnLock VertexData
         write string 1," }"
         write string 1," "
         write string 1," MeshTextureCoords {"
         Lock VertexData For Limb id,cl
         verts = Get VertexData Vertex Count()
         write string 1,"  "+Str$(verts)+";"
         For i = 0 To (verts-2)
         write string 1,"  "+Str$(Get VertexData U(i),6)+","+Str$(Get VertexData V(i),6)+";,"
         Next i
         write string 1,"  "+Str$(Get VertexData U(i),6)+","+Str$(Get VertexData V(i),6)+";;"
         UnLock VertexData
         write string 1," }"
         write string 1," "
         write string 1," MeshVertexColors {"
         Lock VertexData For Limb id,cl
         verts = Get VertexData Vertex Count()
         write string 1,"  "+Str$(verts)+";"
         For i = 0 To (verts-2)
         color = Get VertexData Diffuse(i)
         write string 1,"  "+Str$(i)+";"+Str$(RGBR(color),6)+";"+Str$(RGBG(color),6)+";"+Str$(RGBB(color),6)+";1.000000;;,"
         Next i
         write string 1,"  "+Str$(i)+";"+Str$(RGBR(color),6)+";"+Str$(RGBG(color),6)+";"+Str$(RGBB(color),6)+";1.000000;;;"
         UnLock VertexData
         write string 1," }"
         write string 1," "
         write string 1," MeshMaterialList {"
         write string 1," 1;"
         Lock VertexData For Limb id,cl
         write string 1,"  "+Str$((Get VertexData Index Count()/3))+";"
         For ii = 1 To (Get VertexData Index Count()/3)
         write string 1," 0;"
         Next ii
         UnLock VertexData
         write string 1,"  Material Mat_Limb_"+Str$(cl)+"{"
         write string 1,"  1.000000,1.000000,1.000000,1.000000;;"
         write string 1,"  1.000000;"
         write string 1,"  0.000000,0.000000,0.000000;;"
         write string 1,"  0.000000,0.000000,0.000000;;"
         write string 1,"   TextureFileName {"
         write string 1,"  "+Chr$(34)+Limb Texture Name(id,cl)+Chr$(34)+";"
         write string 1,"   }"
         write string 1,"  }"
         write string 1,"  }"
         write string 1," }"
         write string 1,"}"
         Dec cl,1 : Next i : Close File 1

EndFunction

Back to top

Profile PM Email Website

Brendy boy

21

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 14th Sep 2010 21:11

Link

Here are some functions for creating meshes using memblocks:

`Creates a memblock for use as a mesh
FUNCTION MESH_CreateMemblock(memblock AS INTEGER, verts AS INTEGER)
	`Make memblock of size to match verts
	MAKE MEMBLOCK memblock,verts*3*3*36+12
	`FVF format (338)
	WRITE MEMBLOCK DWORD memblock,0,338
	`FVF size (36 bytes)
	WRITE MEMBLOCK DWORD memblock,4,36	
	`Number of vertices
	WRITE MEMBLOCK DWORD memblock,8,verts
ENDFUNCTION

`Set a vertice position in a memblock
FUNCTION MESH_SetVertPos(memblock AS INTEGER, face AS INTEGER, vert AS INTEGER, xPos AS FLOAT, yPos AS FLOAT, zPos AS FLOAT)
	WRITE MEMBLOCK FLOAT memblock, 12+(face-1)*108+(vert-1)*36, xPos
	WRITE MEMBLOCK FLOAT memblock, 12+(face-1)*108+(vert-1)*36+4, yPos
	WRITE MEMBLOCK FLOAT memblock, 12+(face-1)*108+(vert-1)*36+8, zPos
ENDFUNCTION

`Set a vertice normal in a memblock
FUNCTION MESH_SetVertNorm(memblock AS INTEGER, face AS INTEGER, vert AS INTEGER, xPos AS FLOAT, yPos AS FLOAT, zPos AS FLOAT)
	WRITE MEMBLOCK FLOAT memblock, 12+(face-1)*108+(vert-1)*36+12, xPos
	WRITE MEMBLOCK FLOAT memblock, 12+(face-1)*108+(vert-1)*36+16, yPos
	WRITE MEMBLOCK FLOAT memblock, 12+(face-1)*108+(vert-1)*36+20, zPos
ENDFUNCTION

`Set a vertice colour in a memblock
FUNCTION MESH_SetVertColor(memblock AS INTEGER, face AS INTEGER, vert AS INTEGER, red AS INTEGER, green AS INTEGER, blue AS INTEGER, alpha AS INTEGER)
	WRITE MEMBLOCK BYTE memblock, 12+(face-1)*108+(vert-1)*36+24, blue
	WRITE MEMBLOCK BYTE memblock, 12+(face-1)*108+(vert-1)*36+25, green
	WRITE MEMBLOCK BYTE memblock, 12+(face-1)*108+(vert-1)*36+26, red
	WRITE MEMBLOCK BYTE memblock, 12+(face-1)*108+(vert-1)*36+27, alpha
ENDFUNCTION

`Set a vertice UV co-ordinates in a memblock
FUNCTION MESH_SetVertUV(memblock AS INTEGER, face AS INTEGER, vert AS INTEGER, UCoord AS FLOAT, VCoord AS FLOAT)
	WRITE MEMBLOCK FLOAT memblock, 12+(face-1)*108+(vert-1)*36+28, UCoord
	WRITE MEMBLOCK FLOAT memblock, 12+(face-1)*108+(vert-1)*36+32, VCoord
ENDFUNCTION

`Set a vertice position in a memblock
FUNCTION MESH_GetVertPos(memblock AS INTEGER, face AS INTEGER, vert AS INTEGER, flag AS INTEGER)
	LOCAL value AS FLOAT

if flag = 1 THEN value = MEMBLOCK FLOAT(memblock, 12+(face-1)*108+(vert-1)*36)
	if flag = 2 THEN value = MEMBLOCK FLOAT(memblock, 12+(face-1)*108+(vert-1)*36+4)
	if flag = 3 THEN value = MEMBLOCK FLOAT(memblock, 12+(face-1)*108+(vert-1)*36+8)
ENDFUNCTION value

`Set a vertice normal in a memblock
FUNCTION MESH_GetVertNorm(memblock AS INTEGER, face AS INTEGER, vert AS INTEGER, flag AS INTEGER)
	LOCAL value AS FLOAT

if flag = 1 THEN value = MEMBLOCK FLOAT(memblock, 12+(face-1)*108+(vert-1)*36+12)
	if flag = 2 THEN value = MEMBLOCK FLOAT(memblock, 12+(face-1)*108+(vert-1)*36+16)
	if flag = 3 THEN value = MEMBLOCK FLOAT(memblock, 12+(face-1)*108+(vert-1)*36+20)
ENDFUNCTION value

`Set a vertice colour in a memblock
FUNCTION MESH_GetVertColor(memblock AS INTEGER, face AS INTEGER, vert AS INTEGER, flag AS INTEGER)
	LOCAL value AS INTEGER

if flag = 3 THEN value = MEMBLOCK BYTE(memblock, 12+(face-1)*108+(vert-1)*36+24)
	if flag = 2 THEN value = MEMBLOCK BYTE(memblock, 12+(face-1)*108+(vert-1)*36+25)
	if flag = 1 THEN value = MEMBLOCK BYTE(memblock, 12+(face-1)*108+(vert-1)*36+26)
	if flag = 4 THEN value = MEMBLOCK BYTE(memblock, 12+(face-1)*108+(vert-1)*36+27)
ENDFUNCTION value

FUNCTION MESH_GetVertRGBA(memblock AS INTEGER, face AS INTEGER, vert AS INTEGER)
	LOCAL value AS INTEGER
	
	value = MEMBLOCK DWORD(memblock, 12+(face-1)*108+(vert-1)*36+24)
ENDFUNCTION value

`Set a vertice UV co-ordinates in a memblock
FUNCTION MESH_GetVertUV(memblock AS INTEGER, face AS INTEGER, vert AS INTEGER, flag AS INTEGER)
	LOCAL value AS FLOAT

if flag = 1 THEN value = MEMBLOCK FLOAT(memblock, 12+(face-1)*108+(vert-1)*36+28)
	if flag = 2 THEN value = MEMBLOCK FLOAT(memblock, 12+(face-1)*108+(vert-1)*36+32)
ENDFUNCTION value

+ Code Snippet

`Creates a memblock for use as a mesh
FUNCTION MESH_CreateMemblock(memblock AS INTEGER, verts AS INTEGER)
	`Make memblock of size to match verts
	MAKE MEMBLOCK memblock,verts*3*3*36+12
	`FVF format (338)
	WRITE MEMBLOCK DWORD memblock,0,338
	`FVF size (36 bytes)
	WRITE MEMBLOCK DWORD memblock,4,36	
	`Number of vertices
	WRITE MEMBLOCK DWORD memblock,8,verts
ENDFUNCTION

`Set a vertice position in a memblock
FUNCTION MESH_SetVertPos(memblock AS INTEGER, face AS INTEGER, vert AS INTEGER, xPos AS FLOAT, yPos AS FLOAT, zPos AS FLOAT)
	WRITE MEMBLOCK FLOAT memblock, 12+(face-1)*108+(vert-1)*36, xPos
	WRITE MEMBLOCK FLOAT memblock, 12+(face-1)*108+(vert-1)*36+4, yPos
	WRITE MEMBLOCK FLOAT memblock, 12+(face-1)*108+(vert-1)*36+8, zPos
ENDFUNCTION

`Set a vertice normal in a memblock
FUNCTION MESH_SetVertNorm(memblock AS INTEGER, face AS INTEGER, vert AS INTEGER, xPos AS FLOAT, yPos AS FLOAT, zPos AS FLOAT)
	WRITE MEMBLOCK FLOAT memblock, 12+(face-1)*108+(vert-1)*36+12, xPos
	WRITE MEMBLOCK FLOAT memblock, 12+(face-1)*108+(vert-1)*36+16, yPos
	WRITE MEMBLOCK FLOAT memblock, 12+(face-1)*108+(vert-1)*36+20, zPos
ENDFUNCTION

`Set a vertice colour in a memblock
FUNCTION MESH_SetVertColor(memblock AS INTEGER, face AS INTEGER, vert AS INTEGER, red AS INTEGER, green AS INTEGER, blue AS INTEGER, alpha AS INTEGER)
	WRITE MEMBLOCK BYTE memblock, 12+(face-1)*108+(vert-1)*36+24, blue
	WRITE MEMBLOCK BYTE memblock, 12+(face-1)*108+(vert-1)*36+25, green
	WRITE MEMBLOCK BYTE memblock, 12+(face-1)*108+(vert-1)*36+26, red
	WRITE MEMBLOCK BYTE memblock, 12+(face-1)*108+(vert-1)*36+27, alpha
ENDFUNCTION

`Set a vertice UV co-ordinates in a memblock
FUNCTION MESH_SetVertUV(memblock AS INTEGER, face AS INTEGER, vert AS INTEGER, UCoord AS FLOAT, VCoord AS FLOAT)
	WRITE MEMBLOCK FLOAT memblock, 12+(face-1)*108+(vert-1)*36+28, UCoord
	WRITE MEMBLOCK FLOAT memblock, 12+(face-1)*108+(vert-1)*36+32, VCoord
ENDFUNCTION

`Set a vertice position in a memblock
FUNCTION MESH_GetVertPos(memblock AS INTEGER, face AS INTEGER, vert AS INTEGER, flag AS INTEGER)
	LOCAL value AS FLOAT

	if flag = 1 THEN value = MEMBLOCK FLOAT(memblock, 12+(face-1)*108+(vert-1)*36)
	if flag = 2 THEN value = MEMBLOCK FLOAT(memblock, 12+(face-1)*108+(vert-1)*36+4)
	if flag = 3 THEN value = MEMBLOCK FLOAT(memblock, 12+(face-1)*108+(vert-1)*36+8)
ENDFUNCTION value

`Set a vertice normal in a memblock
FUNCTION MESH_GetVertNorm(memblock AS INTEGER, face AS INTEGER, vert AS INTEGER, flag AS INTEGER)
	LOCAL value AS FLOAT

	if flag = 1 THEN value = MEMBLOCK FLOAT(memblock, 12+(face-1)*108+(vert-1)*36+12)
	if flag = 2 THEN value = MEMBLOCK FLOAT(memblock, 12+(face-1)*108+(vert-1)*36+16)
	if flag = 3 THEN value = MEMBLOCK FLOAT(memblock, 12+(face-1)*108+(vert-1)*36+20)
ENDFUNCTION value

`Set a vertice colour in a memblock
FUNCTION MESH_GetVertColor(memblock AS INTEGER, face AS INTEGER, vert AS INTEGER, flag AS INTEGER)
	LOCAL value AS INTEGER

	if flag = 3 THEN value = MEMBLOCK BYTE(memblock, 12+(face-1)*108+(vert-1)*36+24)
	if flag = 2 THEN value = MEMBLOCK BYTE(memblock, 12+(face-1)*108+(vert-1)*36+25)
	if flag = 1 THEN value = MEMBLOCK BYTE(memblock, 12+(face-1)*108+(vert-1)*36+26)
	if flag = 4 THEN value = MEMBLOCK BYTE(memblock, 12+(face-1)*108+(vert-1)*36+27)
ENDFUNCTION value

FUNCTION MESH_GetVertRGBA(memblock AS INTEGER, face AS INTEGER, vert AS INTEGER)
	LOCAL value AS INTEGER
	
	value = MEMBLOCK DWORD(memblock, 12+(face-1)*108+(vert-1)*36+24)
ENDFUNCTION value

`Set a vertice UV co-ordinates in a memblock
FUNCTION MESH_GetVertUV(memblock AS INTEGER, face AS INTEGER, vert AS INTEGER, flag AS INTEGER)
	LOCAL value AS FLOAT

	if flag = 1 THEN value = MEMBLOCK FLOAT(memblock, 12+(face-1)*108+(vert-1)*36+28)
	if flag = 2 THEN value = MEMBLOCK FLOAT(memblock, 12+(face-1)*108+(vert-1)*36+32)
ENDFUNCTION value

BBB GUI Plugin
Landscape & Map Creator

Back to top

Profile PM Email

29 games

20

Years of Service

User Offline

Joined: 23rd Nov 2005

Location: not entirely sure

Posted: 15th Sep 2010 01:32

Link

In addition to Brendy Boy's post, it is entirely possible to make an object from a memblock in DBP. I've been doing this in DBC for a few months now:

http://forum.thegamecreators.com/?m=forum_view&t=164244&b=10

Scroll down to the bottom of the post and there's a screenie showing the models that I've created in DBC.

If you don't have access to DBC then here's a simple DBP demo that constructs a triangle using a memblock. Sorry it's not more impressive and the coding is a bit brutal but I'm still getting to grips with DBP.

`this program creates a one sided 3D triangle using a memblock
`By 29 Games
`14 Sept 2010

sync on
sync rate 65

`create a texture for the object
`required for the MAKE OBJECT command
create bitmap 1, 1, 1
set current bitmap 1
ink rgb(250,0,0),0
line 0,0,1,1
get image 1, 0, 0, 1, 1
set current bitmap 0
delete bitmap 1

`create a memblock for the object
make memblock 1, 108				:`create memblock of correct size

write memblock dword 1, 0, 274		:`write FVF to memblock
write memblock dword 1, 4, 32		:`write FVF size to memblock
write memblock dword 1, 8, 3		:`write number of vertices to memblock

`first vertex
write memblock float 1, 12, 0		:`x coordinate
write memblock float 1, 16, 0		:`y coordinate
write memblock float 1, 20, 0		:`z coordinate
write memblock float 1, 24, 0		:`x nomal
write memblock float 1, 28, 0		:`y normal
write memblock float 1, 32, -1		:`z normal
write memblock float 1, 36, 0		:`u texture coordinate
write memblock float 1, 40, 0		:`z texture coordinate

`second vertex
write memblock float 1, 44, 10		:`x coordinate
write memblock float 1, 48, 10		:`y coordinate
write memblock float 1, 52, 0		:`z coordinate
write memblock float 1, 56, 0		:`x nomal
write memblock float 1, 60, 0		:`y normal
write memblock float 1, 64, -1		:`z normal
write memblock float 1, 68, 0		:`u texture coordinate
write memblock float 1, 72, 0		:`z texture coordinate

`third vertex
write memblock float 1, 76, 20		:`x coordinate
write memblock float 1, 80, 0		:`y coordinate
write memblock float 1, 84, 0		:`z coordinate
write memblock float 1, 88, 0		:`x nomal
write memblock float 1, 92, 0		:`y normal
write memblock float 1, 96, -1		:`z normal
write memblock float 1, 100, 0		:`u texture coordinate
write memblock float 1, 104, 0		:`z texture coordinate

`make a mesh and then an object (which is where the texture comes in)
make mesh from memblock 1,1
make object 1, 1, 1
delete mesh 1

`position and point camera
position camera 0,0,-50
point camera 0,0,0

do

turn object left 1, 1

sync

loop

+ Code Snippet

`this program creates a one sided 3D triangle using a memblock
`By 29 Games
`14 Sept 2010

sync on
sync rate 65


`create a texture for the object
`required for the MAKE OBJECT command
create bitmap 1, 1, 1
set current bitmap 1
ink rgb(250,0,0),0
line 0,0,1,1
get image 1, 0, 0, 1, 1
set current bitmap 0
delete bitmap 1

`create a memblock for the object
make memblock 1, 108				:`create memblock of correct size

write memblock dword 1, 0, 274		:`write FVF to memblock
write memblock dword 1, 4, 32		:`write FVF size to memblock
write memblock dword 1, 8, 3		:`write number of vertices to memblock

`first vertex
write memblock float 1, 12, 0		:`x coordinate
write memblock float 1, 16, 0		:`y coordinate
write memblock float 1, 20, 0		:`z coordinate
write memblock float 1, 24, 0		:`x nomal
write memblock float 1, 28, 0		:`y normal
write memblock float 1, 32, -1		:`z normal
write memblock float 1, 36, 0		:`u texture coordinate
write memblock float 1, 40, 0		:`z texture coordinate

`second vertex
write memblock float 1, 44, 10		:`x coordinate
write memblock float 1, 48, 10		:`y coordinate
write memblock float 1, 52, 0		:`z coordinate
write memblock float 1, 56, 0		:`x nomal
write memblock float 1, 60, 0		:`y normal
write memblock float 1, 64, -1		:`z normal
write memblock float 1, 68, 0		:`u texture coordinate
write memblock float 1, 72, 0		:`z texture coordinate

`third vertex
write memblock float 1, 76, 20		:`x coordinate
write memblock float 1, 80, 0		:`y coordinate
write memblock float 1, 84, 0		:`z coordinate
write memblock float 1, 88, 0		:`x nomal
write memblock float 1, 92, 0		:`y normal
write memblock float 1, 96, -1		:`z normal
write memblock float 1, 100, 0		:`u texture coordinate
write memblock float 1, 104, 0		:`z texture coordinate

`make a mesh and then an object (which is where the texture comes in)
make mesh from memblock 1,1
make object 1, 1, 1
delete mesh 1

`position and point camera
position camera 0,0,-50
point camera 0,0,0


do

	turn object left 1, 1

	sync

loop

One thing to be careful of is that the inbuilt object commands are using a different FVF format (FVF format = 274 and vertex element size = 32) to that described in the help files (FVF format = 338 and vertex element size = 36). The inbuilt objects don't have any diffuse data. I've used the same format as the inbuilt objects.

Happy coding.

Back to top

Profile PM Email

Quel

17

Years of Service

User Offline

Joined: 13th Mar 2009

Location:

Posted: 15th Sep 2010 09:14

Link

Thank you!!!

Back to top

Profile PM

IanM

Retired Moderator

23

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 15th Sep 2010 15:59

Link

... or you can avoid using memblocks altogether by creating an object (from my plug-ins - MAKE OBJECT NEW) with the correct number of vertices and using DBPro's built-in vertex commands to construct your object.

Using other commands from the same plug-in, it's also possible to construct multiple-limb objects.

Utility plug-ins (26-JUL-2010)
I'm applying terms of use that require you to wear a red nose and honk a horn whenever you use the Internet

Back to top

Profile PM Email Website

Quel

17

Years of Service

User Offline

Joined: 13th Mar 2009

Location:

Posted: 15th Sep 2010 19:40

Link

Which method do you think would be faster Ian - using memblocks to "constantly build a new custom object / delete the previous state" , or building / loading in a custom plain once, and manipulating its vertices? (also per every frame...)

Back to top

Profile PM

Quel

17

Years of Service

User Offline

Joined: 13th Mar 2009

Location:

Posted: 15th Sep 2010 19:42

Link

To that last bit: "manipulating its vertices?" - i meant with the built-in vertex commands, NOT memblocks.

Back to top

Profile PM

Quel

17

Years of Service

User Offline

Joined: 13th Mar 2009

Location:

Posted: 15th Sep 2010 19:45

Link

Oh, a critical little detail: when placing vertices with memblocks object creation, are the required coordinates local, or world XYZ positions?

Back to top

Profile PM

Brendy boy

21

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 15th Sep 2010 20:31

Link

Quote: "are the required coordinates local, or world XYZ positions?"

local

BBB GUI Plugin
Landscape & Map Creator

Back to top

Profile PM Email

Quel

17

Years of Service

User Offline

Joined: 13th Mar 2009

Location:

Posted: 15th Sep 2010 21:01

Link

Why isn't this optional with a flag, would make a lot of sense... and the work easier...

Back to top

Profile PM

Green Gandalf

VIP Member

21

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 15th Sep 2010 21:24

Link

Quote: "and the work easier"

How?

Back to top

Profile PM Email

IanM

Retired Moderator

23

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 15th Sep 2010 21:38

Link

Quote: "Why isn't this optional with a flag"

Why does it need to be?
If you want to work at the world level, then do so, and then just leave the object at coordinates 0,0,0 and rotation 0,0,0 (with that setup, local = global).

Quote: "Which method do you think would be faster Ian"

I would guess that the vertexdata commands would be faster if you aren't manipulating every vertex, or if the number of vertices were small.

You also have the ability to use indexed vertices, which can reduce the number of vertices you need, generally making the object faster to render.

Finally, they are much easier to use/understand IMO too.

Of course, you should try and benchmark it yourself, because all of the above performance points are an educated guess and I don't provide any guarantees

Utility plug-ins (26-JUL-2010)
I'm applying terms of use that require you to wear a red nose and honk a horn whenever you use the Internet

Back to top

Profile PM Email Website

Quel

17

Years of Service

User Offline

Joined: 13th Mar 2009

Location:

Posted: 15th Sep 2010 22:17

Link

Funny thing but i immediately had the idea coming up Ian mentioned after i pushed the enter...

Back to top

Profile PM

29 games

20

Years of Service

User Offline

Joined: 23rd Nov 2005

Location: not entirely sure

Posted: 15th Sep 2010 22:32

Link

Quote: "... or you can avoid using memblocks altogether"

And take away the fun of the needless difficulty?

But then again I'm a DBC user so I'm quite used to needless difficulty.

I don't have anything more constructive to say as I don't know anything about the vertexdata commands but they do look useful.

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Make basic custom objects (plains...) using memblocks?