Splitting 1 object into 2 along a plane

Author

Message

Madscientist

16

Years of Service

User Offline

Joined: 23rd Aug 2009

Location: Between a rock and a hard place

Posted: 4th May 2011 05:14

Link

I mean the normals of the vertices. And I don't quite get the purpose of vertex normals since I thought only the "facing in or out" of the faces matters.
Also I got some code that adds vertices by memblocks however the code ends up getting rid of all the indices in the mesh. I don't have the code with me atm because it's on another computer, will post it asap.

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: 4th May 2011 13:15

Link

Quote: "And I don't quite get the purpose of vertex normals since I thought only the "facing in or out" of the faces matters."

It depends on what kind of object you have. If it has sharp edges like a crystal then you want face normals, but if you want a smooth curved surface like a sphere then the vertex normals have to be some sort of average of neighbouring face normals so each vertex of a face will have different normals. This allows the lighting calculations to give a smooth transition across the edges of the faces.

Back to top

Profile PM Email

Diggsey

20

Years of Service

User Offline

Joined: 24th Apr 2006

Location: On this web page.

Posted: 5th May 2011 01:53 Edited at: 5th May 2011 01:54

Link

Found this image to demonstrate normals:

All the objects have the same vertices and faces, but one has smoothed normals (ie. vertex normals) and one just has flat normals (ie. face normals). You can see it makes a big difference for curved objects. The middle one is half and half.

[b]

Back to top

Profile PM Email Website

Neuro Fuzzy

19

Years of Service

User Offline

Joined: 11th Jun 2007

Location:

Posted: 5th May 2011 02:24

Link

TBH, if you have a triangle, and you know what side the normal direction is, then you can calculate that face normal, and then you can calculate each vertex normal. HOWEVER this is annoying to calculate, and results in longer loading times. It's a lot faster but uses more memory and is way more convenient than recalculating everything all the time.

Tell me if there's a broken link to images in a thread I post, and I'll fix 'em.

Back to top

Profile PM Email

Madscientist

16

Years of Service

User Offline

Joined: 23rd Aug 2009

Location: Between a rock and a hard place

Posted: 5th May 2011 13:53

Link

Ok, so thanks for the info on vertex normals.
So here's the code I have so far but it's not working properly. It should add 3 vertices to the object however it isn't working properly. It seems to delete all the indices and add 15 vertices.

Rem Project: Dark Basic Pro Project
Rem Created: Thursday, April 28, 2011

Rem ***** Main Source File *****

Backdrop off

Make object cube 1,1
Make object cube 2,1

Make mesh from object 1,1
AddFaceToMEsh(1, 0,0,0, 0,0,0, 0,0,0, 0,0,0, 0,0)

delete object 1
make object 1,1,0
Lock vertexdata for mesh 1

TExt 0,0,"Vertice count: "+Str$(GEt vertexdata vertex count())
TExt 0,10,"Indice count: "+Str$(GEt vertexdata index count())

Unlock vertexdata
wait key
end

Function AddFaceToMesh(Mesh, X1#,Y1#,Z1#, X2#,Y2#,Z2#,X3#,Y3#,Z3#, NX#,NY#,NZ#, U#,V#)
   Mem=FreeMem()
   Make memblock from mesh Mem,Mesh

Mem2=FreeMem()
   Make memblock Mem2,(Get Memblock size(Mem)+108)
   
   Write Memblock dword Mem2,0,memblock dword(Mem,0)
   Write Memblock dword Mem2,4,memblock dword(Mem,4)
   Write Memblock dword Mem2,8,memblock dword(Mem,8)+3
   
   For Pos=12 to get memblock size(Mem)-72 step 36
      For Off=0 to 5
         Write memblock float Mem2,Pos+Off*4,Memblock float(Mem,Pos+Off*4)
      Next Off
      Write memblock dword Mem2,Pos+24,Memblock dword(Mem,Pos+24)
      Write memblock float Mem2,Pos+28,Memblock float(Mem,Pos+28)
      Write memblock float Mem2,Pos+32,Memblock float(Mem,Pos+32)       
   NEXT Pos
   
   Pos=Pos+36
   Write memblock float Mem2,Pos,X1# : Write memblock float Mem2,Pos+4,Y1# : Write memblock float Mem2,Pos+8,Z1#
   Write Memblock float Mem2,Pos+12,NX# : Write Memblock float Mem2,Pos+16,NY# : Write Memblock float Mem2,Pos+20,NZ#
   
   write memblock dword Mem2,Pos+24,rgb(255,255,255)
   
   Write memblock float Mem2,Pos+28,U# : Write memblock float Mem2,Pos+32,V#
   
   Pos=Pos+36
   Write memblock float Mem2,Pos,X2# : Write memblock float Mem2,Pos+4,Y2# : Write memblock float Mem2,Pos+8,Z2#
   Write Memblock float Mem2,Pos+12,NX# : Write Memblock float Mem2,Pos+16,NY# : Write Memblock float Mem2,Pos+20,NZ#
   
   write memblock dword Mem2,Pos+24,rgb(255,255,255)
   
   Write memblock float Mem2,Pos+28,U# : Write memblock float Mem2,Pos+32,V#
   
   Pos=Pos+36
   Write memblock float Mem2,Pos,X3# : Write memblock float Mem2,Pos+4,Y3# : Write memblock float Mem2,Pos+8,Z3#
   Write Memblock float Mem2,Pos+12,NX# : Write Memblock float Mem2,Pos+16,NY# : Write Memblock float Mem2,Pos+20,NZ#
   
   write memblock dword Mem2,Pos+24,rgb(255,255,255)
   
   Write memblock float Mem2,Pos+28,U# : Write memblock float Mem2,Pos+32,V#

Delete Mesh Mesh
   Make mesh from memblock Mesh,Mem2
   Delete memblock Mem
   Delete memblock Mem2
   
   `NewVertBytes=12+VertTotal*36
   `Write memblock byte Mem2,NewVertBytes,X1#
   `Write memblock byte Mem2,NewVertBytes+4,Y1#
   `Write memblock byte Mem2,NewVertBytes+8,Z1#
   
   
ENDFUNCTION

Function FreeMem()
   i=1
   while memblock exist(i)>0
      inc i
   endwhile  
ENDFUNCTION i

Function FreeObj()
   i=1
   while object exist(i)>0
      inc i
   endwhile  
ENDFUNCTION i

+ Code Snippet

Rem Project: Dark Basic Pro Project
Rem Created: Thursday, April 28, 2011

Rem ***** Main Source File *****

Backdrop off

Make object cube 1,1
Make object cube 2,1

Make mesh from object 1,1
AddFaceToMEsh(1, 0,0,0, 0,0,0, 0,0,0, 0,0,0, 0,0)

delete object 1
make object 1,1,0
Lock vertexdata for mesh 1

TExt 0,0,"Vertice count: "+Str$(GEt vertexdata vertex count())
TExt 0,10,"Indice count: "+Str$(GEt vertexdata index count())

Unlock vertexdata
wait key
end

Function AddFaceToMesh(Mesh, X1#,Y1#,Z1#, X2#,Y2#,Z2#,X3#,Y3#,Z3#, NX#,NY#,NZ#, U#,V#)
   Mem=FreeMem()
   Make memblock from mesh Mem,Mesh

   Mem2=FreeMem()
   Make memblock Mem2,(Get Memblock size(Mem)+108)
   
   Write Memblock dword Mem2,0,memblock dword(Mem,0)
   Write Memblock dword Mem2,4,memblock dword(Mem,4)
   Write Memblock dword Mem2,8,memblock dword(Mem,8)+3
   
   For Pos=12 to get memblock size(Mem)-72 step 36
      For Off=0 to 5
         Write memblock float Mem2,Pos+Off*4,Memblock float(Mem,Pos+Off*4)
      Next Off
      Write memblock dword Mem2,Pos+24,Memblock dword(Mem,Pos+24)
      Write memblock float Mem2,Pos+28,Memblock float(Mem,Pos+28)
      Write memblock float Mem2,Pos+32,Memblock float(Mem,Pos+32)       
   NEXT Pos
   
   Pos=Pos+36
   Write memblock float Mem2,Pos,X1# : Write memblock float Mem2,Pos+4,Y1# : Write memblock float Mem2,Pos+8,Z1#
   Write Memblock float Mem2,Pos+12,NX# : Write Memblock float Mem2,Pos+16,NY# : Write Memblock float Mem2,Pos+20,NZ#
   
   write memblock dword Mem2,Pos+24,rgb(255,255,255)
   
   Write memblock float Mem2,Pos+28,U# : Write memblock float Mem2,Pos+32,V#
   
   Pos=Pos+36
   Write memblock float Mem2,Pos,X2# : Write memblock float Mem2,Pos+4,Y2# : Write memblock float Mem2,Pos+8,Z2#
   Write Memblock float Mem2,Pos+12,NX# : Write Memblock float Mem2,Pos+16,NY# : Write Memblock float Mem2,Pos+20,NZ#
   
   write memblock dword Mem2,Pos+24,rgb(255,255,255)
   
   Write memblock float Mem2,Pos+28,U# : Write memblock float Mem2,Pos+32,V#
   
   Pos=Pos+36
   Write memblock float Mem2,Pos,X3# : Write memblock float Mem2,Pos+4,Y3# : Write memblock float Mem2,Pos+8,Z3#
   Write Memblock float Mem2,Pos+12,NX# : Write Memblock float Mem2,Pos+16,NY# : Write Memblock float Mem2,Pos+20,NZ#
   
   write memblock dword Mem2,Pos+24,rgb(255,255,255)
   
   Write memblock float Mem2,Pos+28,U# : Write memblock float Mem2,Pos+32,V#
   

   Delete Mesh Mesh
   Make mesh from memblock Mesh,Mem2
   Delete memblock Mem
   Delete memblock Mem2
   
   `NewVertBytes=12+VertTotal*36
   `Write memblock byte Mem2,NewVertBytes,X1#
   `Write memblock byte Mem2,NewVertBytes+4,Y1#
   `Write memblock byte Mem2,NewVertBytes+8,Z1#
   
   
ENDFUNCTION


Function FreeMem()
   i=1
   while memblock exist(i)>0
      inc i
   endwhile  
ENDFUNCTION i

Function FreeObj()
   i=1
   while object exist(i)>0
      inc i
   endwhile  
ENDFUNCTION i

Back to top

Profile PM

Madscientist

16

Years of Service

User Offline

Joined: 23rd Aug 2009

Location: Between a rock and a hard place

Posted: 7th May 2011 21:05

Link

C'mon, does anyone have any advice on making objects with memblocks??

Back to top

Profile PM

Brendy boy

20

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 7th May 2011 21:44

Link

Quote: " ...it's not working properly."

Quote: " It seems to delete all the indices..."

Memblocks don't contain indices, only vertices. When you convert the object to memblock you lose all the index data. Since the object can't have indices when stored as memblock, it needs to be converted to vertexdata only so there's no shared vertices -> thats probably the reason of 15 additional vertices you reported.

example: Let's say you have a box
Before converting to memblock box will have 24 vertices and 36 indices.
After converting to memblock box will have 36 vertices and 0 indices.

If you need indices for you code to work you'll have to use vertexdata and not memblocks.

BBB GUI Plugin
Landscape & Map Creator

Back to top

Profile PM Email

Madscientist

16

Years of Service

User Offline

Joined: 23rd Aug 2009

Location: Between a rock and a hard place

Posted: 8th May 2011 00:40

Link

Ok thanks for that info, that explains a lot. So my code is actually working but not to the right intension. I need indices so I guess I'll just use ian's command and fill the newly created object with data. But how fast is it in real time to create a complete new object and fill it with vertices?
I'll get to coding and will post back with any problems I run into.

Back to top

Profile PM

Jimpo

21

Years of Service

User Offline

Joined: 9th Apr 2005

Location:

Posted: 8th May 2011 01:44

Link

Quote: "C'mon, does anyone have any advice on making objects with memblocks??"

Don't do it? The vertexdata commands will do everything you need, produce cleaner easier to understand code, and you can edit an object in real time without having to convert from memblock to mesh.

If you want to add vertices to an object using vertexdata, just use the add mesh to vertexdata command.

Back to top

Profile PM Email Website

IanM

Retired Moderator

23

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 8th May 2011 14:20

Link

The vertexdata commands should be at least as fast as memblocks, maybe very marginally faster.

There may be a difference in using different lock modes (which will occur when unlocking), but you'll have to experiment with that.

Get the latest Matrix1Utility plug-ins (20-APR-2011)

Back to top

Profile PM Email Website

Madscientist

16

Years of Service

User Offline

Joined: 23rd Aug 2009

Location: Between a rock and a hard place

Posted: 10th May 2011 13:47

Link

Ok, got a question. Is it posible to lock multiple mesh's vertexdata at once or do I have to lock one mesh, copy 1 part of data such as x,y,and z positions, unlock it, lock the other mesh, paste that data to it, then unlock that, and repeat that entire process for each vertex?

Back to top

Profile PM

Brendy boy

20

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 10th May 2011 15:25

Link

Quote: "Is it posible to lock multiple mesh's vertexdata at once"

no

Quote: "or do I have to lock one mesh, copy 1 part of data such as x,y,and z positions, unlock it, lock the other mesh, paste that data to it, then unlock that, and repeat that entire process for each vertex?
"

you can do that or you can lock one mesh, copy all it's data to array and then lock other mesh and paste that data from the array. That way you will have to lock and unlock vertexdata only twice.

Locking and unlocking for every vertex could be slow on a meshes with lots of vertices and indices.

BBB GUI Plugin
Landscape & Map Creator

Back to top

Profile PM Email

Madscientist

16

Years of Service

User Offline

Joined: 23rd Aug 2009

Location: Between a rock and a hard place

Posted: 12th May 2011 05:19

Link

Ok, so this is my code so far. It copies the old mesh into the new mesh correctly but the face that the function is supposed to add doesnt show up. Also, what is the unit for vertex positions? Is it just dbpro units or is it out of 1.0?

Rem Project: Dark Basic Pro Project
Rem Created: Thursday, April 28, 2011

Rem ***** Main Source File *****

`Backdrop off
sync on
sync rate 60

type vertex
   Global x as float
   Global y as float
   Global z as float
   
   Global nx as float
   Global ny as float
   Global nz as float
   
   Global u as float
   Global v as float
   
   Global dif as dword
endtype

Make object new 1,3,3
`make object cube 1,1
AddFaceToMEsh(1, 0,1,0, -0.5,0.7,0, 0.5,0.7,0, 0,-1,0, 0,-1,0, 0,-1,0, 0,0, 0,0, 0,0)

make mesh from object 1,1
Lock vertexdata for mesh 1
Verts=GEt vertexdata vertex count()
Inds=GEt vertexdata vertex count()
Unlock vertexdata
delete mesh 1

Do
   
   turn object right 1,1
   text 0,0,"Vertex Count: "+Str$(Verts)
   text 0,15,"Index Count: "+Str$(Inds)
   sync
LOOP

wait key
end

Function AddFaceToMesh(Obj, X1#,Y1#,Z1#, X2#,Y2#,Z2#, X3#,Y3#,Z3#, NX1#,NY1#,NZ1#, NX2#,NY2#,NZ2#, NX3#,NY3#,NZ3#, U1#,V1#, U2#,V2#, U3#,V3#)
   Local D as dword
   
   Mesh=FreeMesh()
   Make mesh from object Mesh,Obj
   lock vertexdata for mesh Mesh
   TotalVert=Get vertexdata vertex count()+3
   TotalInd=Get vertexdata index count()+3
   unlock vertexdata
   
   Dim Vert(TotalVert-1) as Vertex
   Dim Ind(TotalInd-1) as integer
   global test as integer
   
   delete object Obj
   Make Object New Obj,TotalVert,TotalInd
   Mesh2=FreeMesh()
   Make mesh from object Mesh2,Obj
   delete object obj
   
   lock vertexdata for mesh Mesh
   For V=0 to TotalVert-4
      Vert(V).X=Get vertexdata position x(V) : Vert(V).Y=Get vertexdata position y(V) : Vert(V).Z=Get vertexdata position z(V)
      Vert(V).NX=Get vertexdata normals x(V) : Vert(V).NY=Get vertexdata normals y(V) : Vert(V).NZ=Get vertexdata normals z(V)
      Vert(V).U=Get vertexdata U(V) : Vert(V).V=Get vertexdata V(V)
      Vert(V).Dif=Get vertexdata diffuse(V)      
   next V
   unlock vertexdata
     
   lock vertexdata for mesh Mesh2
   For V=0 to TotalVert-4
      Set Vertexdata position V,Vert(V).X,Vert(V).Y,Vert(V).Z
      Set vertexdata normals V,Vert(V).NX,Vert(V).NY,Vert(V).NZ
      Set vertexdata UV V,Vert(V).U,Vert(V).V
      set vertexdata diffuse V,Vert(V).Dif
   next V
   unlock vertexdata
   
   lock vertexdata for mesh Mesh 
   For I=0 to TotalInd-4
         Ind(I)=Get Indexdata(I)
   NEXT I
   unlock vertexdata
   
   lock vertexdata for mesh Mesh2
   For I=0 to TotalInd-4
         Set Indexdata I,Ind(I)
   NEXT I
   
   Set vertexdata position TotalVert-3,X1#,Y1#,Z1#
   Set vertexdata position TotalVert-2,X2#,Y2#,Z2#
   Set vertexdata position TotalVert-1,X3#,Y3#,Z3#
   
   Set vertexdata normals TotalVert-3,NX1#,NY1#,NZ1#
   Set vertexdata normals TotalVert-2,NX2#,NY2#,NZ2#
   Set vertexdata normals TotalVert-1,NX3#,NY3#,NZ3#
   
   Set vertexdata UV TotalVert-3,U1#,V1#
   Set vertexdata UV TotalVert-2,U2#,V2#
   Set vertexdata UV TotalVert-1,U3#,V3#

unlock vertexdata

make object Obj,Mesh2,0
   delete mesh mesh
   delete mesh mesh2  
ENDFUNCTION

Function FreeMem()
   i=1
   while memblock exist(i)>0
      inc i
   endwhile  
ENDFUNCTION i

Function FreeObj()
   i=1
   while object exist(i)>0
      inc i
   endwhile  
ENDFUNCTION i

Function FreeMesh()
   i=1
   while mesh exist(i)>0
      inc i
   endwhile  
ENDFUNCTION i

+ Code Snippet

Rem Project: Dark Basic Pro Project
Rem Created: Thursday, April 28, 2011

Rem ***** Main Source File *****

`Backdrop off
sync on
sync rate 60

type vertex
   Global x as float
   Global y as float
   Global z as float
   
   Global nx as float
   Global ny as float
   Global nz as float
   
   Global u as float
   Global v as float
   
   Global dif as dword
endtype

Make object new 1,3,3
`make object cube 1,1
AddFaceToMEsh(1, 0,1,0, -0.5,0.7,0, 0.5,0.7,0, 0,-1,0, 0,-1,0, 0,-1,0, 0,0, 0,0, 0,0)

make mesh from object 1,1
Lock vertexdata for mesh 1
Verts=GEt vertexdata vertex count()
Inds=GEt vertexdata vertex count()
Unlock vertexdata
delete mesh 1

Do
   
   turn object right 1,1
   text 0,0,"Vertex Count: "+Str$(Verts)
   text 0,15,"Index Count: "+Str$(Inds)
   sync
LOOP


wait key
end

Function AddFaceToMesh(Obj, X1#,Y1#,Z1#, X2#,Y2#,Z2#, X3#,Y3#,Z3#, NX1#,NY1#,NZ1#, NX2#,NY2#,NZ2#, NX3#,NY3#,NZ3#, U1#,V1#, U2#,V2#, U3#,V3#)
   Local D as dword
   
   Mesh=FreeMesh()
   Make mesh from object Mesh,Obj
   lock vertexdata for mesh Mesh
   TotalVert=Get vertexdata vertex count()+3
   TotalInd=Get vertexdata index count()+3
   unlock vertexdata
   
   Dim Vert(TotalVert-1) as Vertex
   Dim Ind(TotalInd-1) as integer
   global test as integer
   
   delete object Obj
   Make Object New Obj,TotalVert,TotalInd
   Mesh2=FreeMesh()
   Make mesh from object Mesh2,Obj
   delete object obj
   
   lock vertexdata for mesh Mesh
   For V=0 to TotalVert-4
      Vert(V).X=Get vertexdata position x(V) : Vert(V).Y=Get vertexdata position y(V) : Vert(V).Z=Get vertexdata position z(V)
      Vert(V).NX=Get vertexdata normals x(V) : Vert(V).NY=Get vertexdata normals y(V) : Vert(V).NZ=Get vertexdata normals z(V)
      Vert(V).U=Get vertexdata U(V) : Vert(V).V=Get vertexdata V(V)
      Vert(V).Dif=Get vertexdata diffuse(V)      
   next V
   unlock vertexdata
     
   lock vertexdata for mesh Mesh2
   For V=0 to TotalVert-4
      Set Vertexdata position V,Vert(V).X,Vert(V).Y,Vert(V).Z
      Set vertexdata normals V,Vert(V).NX,Vert(V).NY,Vert(V).NZ
      Set vertexdata UV V,Vert(V).U,Vert(V).V
      set vertexdata diffuse V,Vert(V).Dif
   next V
   unlock vertexdata
   
   lock vertexdata for mesh Mesh 
   For I=0 to TotalInd-4
         Ind(I)=Get Indexdata(I)
   NEXT I
   unlock vertexdata
   
   lock vertexdata for mesh Mesh2
   For I=0 to TotalInd-4
         Set Indexdata I,Ind(I)
   NEXT I
   
   Set vertexdata position TotalVert-3,X1#,Y1#,Z1#
   Set vertexdata position TotalVert-2,X2#,Y2#,Z2#
   Set vertexdata position TotalVert-1,X3#,Y3#,Z3#
   
   Set vertexdata normals TotalVert-3,NX1#,NY1#,NZ1#
   Set vertexdata normals TotalVert-2,NX2#,NY2#,NZ2#
   Set vertexdata normals TotalVert-1,NX3#,NY3#,NZ3#
   
   Set vertexdata UV TotalVert-3,U1#,V1#
   Set vertexdata UV TotalVert-2,U2#,V2#
   Set vertexdata UV TotalVert-1,U3#,V3#

   unlock vertexdata

   make object Obj,Mesh2,0
   delete mesh mesh
   delete mesh mesh2  
ENDFUNCTION


Function FreeMem()
   i=1
   while memblock exist(i)>0
      inc i
   endwhile  
ENDFUNCTION i

Function FreeObj()
   i=1
   while object exist(i)>0
      inc i
   endwhile  
ENDFUNCTION i

Function FreeMesh()
   i=1
   while mesh exist(i)>0
      inc i
   endwhile  
ENDFUNCTION i

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: 12th May 2011 12:17

Link

Are you sure the face isn't there? Could it just be facing the wrong way? Try turning off culling to see if this is the problem.

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: 12th May 2011 15:23

Link

Haven't tested the code, but this seems wrong:
Inds=GEt vertexdata vertex count()

Shouldn't that be:
Inds=GEt vertexdata index count()

Get the latest Matrix1Utility plug-ins (20-APR-2011)

Back to top

Profile PM Email Website

Madscientist

16

Years of Service

User Offline

Joined: 23rd Aug 2009

Location: Between a rock and a hard place

Posted: 13th May 2011 00:33

Link

Whoops, that was a mistake when i was cleaning up the code. But it doesnt matter since it was tested befor that mistake.

Back to top

Profile PM

IanM

Retired Moderator

23

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 13th May 2011 01:08

Link

I've taken a little more time to read your code, and it seems like you are making your code more complex than it really needs to be.

I think what you are trying to accomplish is to have a function that you can use to add a new face to an existing object on demand.

Here's how I'd do it:

sync on
sync rate 60

MakeBlankObject(1)
set object cull 1, 0
AddFaceToMesh(1, 0,1,0, -0.5,0.7,0, 0.5,0.7,0, 0,-1,0, 0,-1,0, 0,-1,0, 0,0, 0,0, 0,0)
AddFaceToMesh(1, 0,-1,0, -0.5,-0.7,0, 0.5,-0.7,0, 0,1,0, 0,1,0, 0,1,0, 0,0, 0,0, 0,0)

Lock vertexdata for limb 1, 0
Verts=get vertexdata vertex count()
Inds=get vertexdata index count()
Unlock vertexdata

Do
   
   turn object right 1,1
   text 0,0,"Vertex Count: "+Str$(Verts)
   text 0,15,"Index Count: "+Str$(Inds)
   sync
LOOP

wait key
end

function MakeBlankObject(Obj)
    Make object new Obj, 3, 3
    lock vertexdata for limb Obj, 0
    delete mesh from vertexdata 0, get vertexdata vertex count(), 0, get vertexdata index count()
    unlock vertexdata
endfunction

function AddFaceToMesh(Obj, X1#,Y1#,Z1#, X2#,Y2#,Z2#, X3#,Y3#,Z3#, NX1#,NY1#,NZ1#, NX2#,NY2#,NZ2#, NX3#,NY3#,NZ3#, U1#,V1#, U2#,V2#, U3#,V3#)
    local no as integer
    local nm as integer
    no = find free object()
    nm = find free mesh()
    
    make object new no, 3, 3
    lock vertexdata for limb no, 0
        set vertexdata position 0, X1#,Y1#,Z1#
        set vertexdata normals  0, NX1#,NY1#,NZ1#
        set vertexdata uv 0, U1#,V1#

set vertexdata position 1, X2#,Y2#,Z2#
        set vertexdata normals  1, NX2#,NY2#,NZ2#
        set vertexdata uv 1, U2#,V2#

set vertexdata position 2, X3#,Y3#,Z3#
        set vertexdata normals  2, NX3#,NY3#,NZ3#
        set vertexdata uv 2, U3#,V3#
        
        set indexdata 0, 0
        set indexdata 1, 1
        set indexdata 2, 2
    unlock vertexdata

make mesh from object nm, no
    delete object no
    
    lock vertexdata for limb Obj, 0, 2
    add mesh to vertexdata nm
    unlock vertexdata
    
    delete mesh nm    
endfunction

+ Code Snippet

sync on
sync rate 60

MakeBlankObject(1)
set object cull 1, 0
AddFaceToMesh(1, 0,1,0, -0.5,0.7,0, 0.5,0.7,0, 0,-1,0, 0,-1,0, 0,-1,0, 0,0, 0,0, 0,0)
AddFaceToMesh(1, 0,-1,0, -0.5,-0.7,0, 0.5,-0.7,0, 0,1,0, 0,1,0, 0,1,0, 0,0, 0,0, 0,0)

Lock vertexdata for limb 1, 0
Verts=get vertexdata vertex count()
Inds=get vertexdata index count()
Unlock vertexdata

Do
   
   turn object right 1,1
   text 0,0,"Vertex Count: "+Str$(Verts)
   text 0,15,"Index Count: "+Str$(Inds)
   sync
LOOP


wait key
end

function MakeBlankObject(Obj)
    Make object new Obj, 3, 3
    lock vertexdata for limb Obj, 0
    delete mesh from vertexdata 0, get vertexdata vertex count(), 0, get vertexdata index count()
    unlock vertexdata
endfunction

function AddFaceToMesh(Obj, X1#,Y1#,Z1#, X2#,Y2#,Z2#, X3#,Y3#,Z3#, NX1#,NY1#,NZ1#, NX2#,NY2#,NZ2#, NX3#,NY3#,NZ3#, U1#,V1#, U2#,V2#, U3#,V3#)
    local no as integer
    local nm as integer
    no = find free object()
    nm = find free mesh()
    
    make object new no, 3, 3
    lock vertexdata for limb no, 0
        set vertexdata position 0, X1#,Y1#,Z1#
        set vertexdata normals  0, NX1#,NY1#,NZ1#
        set vertexdata uv 0, U1#,V1#

        set vertexdata position 1, X2#,Y2#,Z2#
        set vertexdata normals  1, NX2#,NY2#,NZ2#
        set vertexdata uv 1, U2#,V2#

        set vertexdata position 2, X3#,Y3#,Z3#
        set vertexdata normals  2, NX3#,NY3#,NZ3#
        set vertexdata uv 2, U3#,V3#
        
        set indexdata 0, 0
        set indexdata 1, 1
        set indexdata 2, 2
    unlock vertexdata

    make mesh from object nm, no
    delete object no
    
    lock vertexdata for limb Obj, 0, 2
    add mesh to vertexdata nm
    unlock vertexdata
    
    delete mesh nm    
endfunction

If it needs to be faster then I'd consider keeping a mesh permanently in place that can be edited and added to the target object on demand rather than create it and delete it each time as I have here.

Get the latest Matrix1Utility plug-ins (20-APR-2011)

Back to top

Profile PM Email Website

Madscientist

16

Years of Service

User Offline

Joined: 23rd Aug 2009

Location: Between a rock and a hard place

Posted: 13th May 2011 05:23

Link

What if I have a pre existing object like a cube with 24 vertices? Will it still add the 3 vertices to make that object have 27 vertices or will it see that the pre existing vertices is less than the vertices with the 3 new ones and not add them at all?

Back to top

Profile PM

IanM

Retired Moderator

23

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 13th May 2011 08:17

Link

It will add - it will always add 3 vertices and 3 indices. It won't do anything about avoiding duplicate vertices, that's for you to add to this code if it's important to you.

The only requirement that this code has is that the object you are adding to must be using indexes, as that seems to be what you wanted.

Get the latest Matrix1Utility plug-ins (20-APR-2011)

Back to top

Profile PM Email Website

Madscientist

16

Years of Service

User Offline

Joined: 23rd Aug 2009

Location: Between a rock and a hard place

Posted: 15th May 2011 05:44

Link

Is there any specific advantages to using "lock vertexdata for limb" as apposed to locking it for a mesh?
Also I tried recoding your working code Iam because I learn best from doing that but my code isn't working. What mistakes have I made?

+ Code Snippet

Function AddFaceToMesh(Obj, X1#,Y1#,Z1#, X2#,Y2#,Z2#, X3#,Y3#,Z3#, NX1#,NY1#,NZ1#, NX2#,NY2#,NZ2#, NX3#,NY3#,NZ3#, U1#,V1#, U2#,V2#, U3#,V3#)
   
   TempObj=FreeObj()
   make object new TempObj,3,3
   
   Lock vertexdata for limb TempObj,0   
   Set vertexdata position 0,X1#,Y1#,Z1# : Set vertexdata position 1,X2#,Y2#,Z2# : Set vertexdata position 2,X3#,Y3#,Z3#
   Set vertexdata normals 0,NX1#,NY1#,NZ1# : Set vertexdata normals 1,NX2#,NY2#,NZ2# : Set vertexdata normals 2,NX3#,NY3#,NZ3#
   Set vertexdata uv 0,U1#,V1# : Set vertexdata uv 1,U2#,V2# : Set vertexdata uv 2,U3#,V3#
   Unlock vertexdata
   
   Mesh=FreeMesh()
   make mesh from object Mesh,TempObj
   
   Lock vertexdata for limb Obj,0,2
   Add mesh to vertexdata mesh
   unlock vertexdata

   delete mesh Mesh
   delete object TempObj
Endfunction

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 May 2011 10:44

Link

Quote: "Is there any specific advantages to using "lock vertexdata for limb" as apposed to locking it for a mesh?"

No, can't think of any. In fact, it might be faster to manipulate the mesh than the object - try it and see.

Quote: "What mistakes have I made?"

You aren't setting any index data. Your additional 'mesh' is using only the first vertex you've added, making a face from a single point - obviously nothing will show for a zero-sized face.

Get the latest Matrix1Utility plug-ins (20-APR-2011)

Back to top

Profile PM Email Website

Madscientist

16

Years of Service

User Offline

Joined: 23rd Aug 2009

Location: Between a rock and a hard place

Posted: 15th May 2011 15:45 Edited at: 15th May 2011 15:52

Link

Thanks for that info. I got it working now.

Back to top

Profile PM

Madscientist

16

Years of Service

User Offline

Joined: 23rd Aug 2009

Location: Between a rock and a hard place

Posted: 17th May 2011 13:56

Link

So now that I can create faces, I need to be able to make a loop cut using that. Is there any specific algorithm I should follow?

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Splitting 1 object into 2 along a plane