Adding or Removing Vertice or Faces

Author

Message

pictionaryjr

17

Years of Service

User Offline

Joined: 12th Mar 2009

Location:

Posted: 3rd Jan 2013 18:39

Link

I don't believe this is possible other then using a memblock, but is it possible to add or remove vertice or faces without using a memblock

Back to top

Profile PM Email

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 3rd Jan 2013 18:55

Link

I don't believe so. At least the vertexdata commands show no sign of anything that could achieve it.

If you need help with the memblock version, I'd gladly write up an example.

If you wish to try on your own - or if you already have a running prototype - I must stress that using the commands change mesh from memblock followed by make object are slightly faster than making a mesh from the memblock and then making the object.

TheComet

PonyCraft dev blog(s):
http://blankflankstudios.tumblr.com/
http://blankflankstudios.blogspot.ch/

Back to top

Profile PM Email Website

Andrew_Neale

16

Years of Service

User Offline

Joined: 3rd Nov 2009

Location: The Normandy SR-2

Posted: 3rd Jan 2013 20:14

Link

You can remove faces using the vertexdata commands. Use 'DELETE MESH FROM VERTEXDATA' to remove vertices and/or indices from a mesh.

Previously TEH_CODERER.

Back to top

Profile PM Email Website

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 3rd Jan 2013 21:50

Link

So it does:

+ Code Snippet

rem setup screen
sync on
sync rate 60
backdrop on

rem make a cube
make object cube 1, 10

rem lock vertexdata for editing
lock vertexdata for limb 1, 0

	rem remove one side of the cube
	delete mesh from vertexdata 0, 2, 0, 0
	
	rem I honestly have no idea why this worked. Aren't I supposed to specify 3 indices?

rem unlock vertexdata
unlock vertexdata

rem start of main loop
do
	
	rem control camera
	angle# = wrapvalue( angle# + mousemovex() )
	inc height#, mousemovey()
	set camera to follow 0, 0, 0, angle#, 40, height#, 3, 0
	point camera 0, 0, 0
	
	rem refresh screen
	sync
	
rem end of main loop
loop

I'll be honest, I don't know why that works. I don't understand what to specify for the index data.

TheComet

PonyCraft dev blog(s):
http://blankflankstudios.tumblr.com/
http://blankflankstudios.blogspot.ch/

Back to top

Profile PM Email Website

pictionaryjr

17

Years of Service

User Offline

Joined: 12th Mar 2009

Location:

Posted: 4th Jan 2013 02:43

Link

i don't know what the indices are. i know the vertices are numbered in order of creation so that's what the first 2 variables are, because a face is created by 3 consecutive vertices.

Back to top

Profile PM Email

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 4th Jan 2013 09:07

Link

Yes, but in my example I appear to be deleting 6 vertices (a side of a cube consists of 2 faces).

TheComet

PonyCraft dev blog(s):
http://blankflankstudios.tumblr.com/
http://blankflankstudios.blogspot.ch/

Back to top

Profile PM Email Website

Andrew_Neale

16

Years of Service

User Offline

Joined: 3rd Nov 2009

Location: The Normandy SR-2

Posted: 4th Jan 2013 09:32 Edited at: 4th Jan 2013 09:36

Link

Well you have deleted 3 vertices; 0, 1 and 2. So that would delete all the vertices for one of the triangles but, due to shared vertices using index data, 2 of those vertices would also have been used by the other triangle of the same cube face which. So whilst it doesn't actually delete the triangles completely as their index data would still be there, it still prevents them from rendering as the indices now reference non-existent vertices. So to delete the triangle you would have to delete its one non-shared vertex and its 3 indices rather than its 3 vertices.

[Edit] Corrected a typo. [/Edit]

Previously TEH_CODERER.

Back to top

Profile PM Email Website

pictionaryjr

17

Years of Service

User Offline

Joined: 12th Mar 2009

Location:

Posted: 4th Jan 2013 09:48

Link

If I was creating my own object. How would I share a vertice in an object, or does DBP just assume if two vertices have the same location then they are shared. I don't understand this and also is there anyway to add a face or vertice to an object without loading up the memblock.

Back to top

Profile PM Email

Brendy boy

20

Years of Service

User Offline

Joined: 17th Jul 2005

Location: Croatia

Posted: 4th Jan 2013 10:13

Link

Quote: "If I was creating my own object. How would I share a vertice in an object,"

you will need an object with index buffer (all dbpro primitives have them). The triangles that share a vertex would have the same vertex number assign to one of their indices.
You can use SET INDEXDATA and GET INDEXDATA commands to do that.

Quote: "also is there anyway to add a face or vertice to an object without loading up the memblock."

there is.

To add a face:
1. using DELETE MESH FROM VERTEXDATA commands delete all vertices from a dbpro primitive box and delete all indices except first 3. That way you'll have a box without vertices and with only 3 indices which is equal to 1 triangle.

2. Convert that box to mesh

3. When you want to add a triangle to an object just use ADD MESH TO VERTEXDATA command and as a mesh specify the previously created box mesh with 3 indices.

4. Set the added indices to pint to vertices you want to form a new triangle.

To add a vertex:
The same as above but instead deleting all vertices you would delete all indices and all vertices except one.

BBB GUI Plugin
Landscape & Map Creator

Back to top

Profile PM Email

pictionaryjr

17

Years of Service

User Offline

Joined: 12th Mar 2009

Location:

Posted: 4th Jan 2013 22:21

Link

Thanks Brendy Boy. I'm going to see if I can get that working the way I want. I'll obviously need to do some fiddling. Strangely Enough I had already started working in the direction you described because it was the only command I hadn't looked into yet.

Back to top

Profile PM Email

paul5147

20

Years of Service

User Offline

Joined: 11th Jan 2006

Location: Hot & Sunny

Posted: 5th Jan 2013 13:04 Edited at: 5th Jan 2013 13:06

Link

Small bit of code ripped out of one of my race track editors shows a quick method of deleting single faces or faces within a another triangle,hope this helps.

`*********************************
`enviroment set up

IF CHECK DISPLAY MODE(1024,768,32) 
	SET DISPLAY MODE 1024,768,32
	h=DESKTOP HEIGHT()
	w=DESKTOP WIDTH()
	posx=w/2-512
	posy=h/2-384
ELSE
	SET DISPLAY MODE 640,480,32
	h=DESKTOP HEIGHT()
	w=DESKTOP WIDTH()
	posx=w/2-320
	posy=h/2-240
ENDIF
SET WINDOW POSITION posx,posy

SYNC ON
SYNC RATE 60
AUTOCAM OFF
``HIDE MOUSE
COLOR BACKDROP 0,0
SET TEXT FONT "Arial"
SET TEXT SIZE 20
SET TEXT TRANSPARENT

POSITION CAMERA 50,50,-50
POINT CAMERA 0,0,0
POSITION MOUSE SCREEN WIDTH()/2,SCREEN HEIGHT()/2
dummy=MOUSEMOVEX()
dummy=MOUSEMOVEY()

`*********************************	
`declarations and setup starts here
Global wf=0
MAKE OBJECT PLAIN 1,32,32,64,64,274
SET OBJECT WIREFRAME 1,wf
sc_setupobject 1,0,0

LOCK VERTEXDATA FOR LIMB 1,0
	global num_index
	num_index=get vertexdata index count()
	GLOBAL num_vertex
	num_vertex=get vertexdata vertex count()
UNLOCK VERTEXDATA

DIM index_data(num_index)

TYPE vertex_type
	posx AS FLOAT
	posy AS FLOAT
	posz AS FLOAT
	u AS FLOAT
	v as float
ENDTYPE
dim vertex_data(num_vertex) as vertex_type

LOCK VERTEXDATA FOR LIMB 1,0
	FOR i=0 TO num_index-1
		index_data(i)=get indexdata(i)
	NEXT i
	FOR v=0 TO num_vertex-1
		vertex_data(v).posx=get vertexdata position x(v)
		vertex_data(v).posy=get vertexdata position y(v)
		vertex_data(v).posz=get vertexdata position z(v)
		vertex_data(v).u=get vertexdata u(v)
		vertex_data(v).v=get vertexdata v(v)
	NEXT v
UNLOCK VERTEXDATA

GLOBAL marker=2
GLOBAL target=3
MAKE OBJECT CUBE marker,0.5
color object marker,rgb(255,0,0)
HIDE OBJECT marker
MAKE OBJECT CUBE target,1.0
HIDE OBJECT target
GLOBAL hit

`*********************************
`main loop starts here
DO
	
	TEXT 0,0,"number of indexes "+str$(num_index)+" num faces "+str$(num_index/3)
	TEXT 0,20,"number of vertexes "+str$(num_vertex)
	POSITION OBJECT target,camera position x(),camera position y(),camera position z()
	SET OBJECT TO CAMERA ORIENTATION target
	MOVE OBJECT target,1000
	hit=sc_raycast(0,camera position x(),camera position y(),camera position z(),object position x(target),object position y(target),object position z(target),0) 
	IF hit>0
		px#=sc_getstaticcollisionx()
		py#=sc_getstaticcollisiony()
		pz#=sc_getstaticcollisionz()
		nx#=sc_getcollisionnormalx()*1000.0
		ny#=sc_getcollisionnormaly()*1000.0
		nz#=sc_getcollisionnormalz()*1000.0
		fc=sc_getfacehit()
		POSITION OBJECT marker,px#,py#,pz#
		POINT OBJECT marker,nx#,ny#,nz#
		TEXT 0,40,"face hit "+str$(fc)
		position mouse object screen x(marker),object screen y(marker)
	ENDIF
	
	IF hit>0 AND mouseclick()
		move_index=fc*3+3
		FOR i=move_index TO num_index
			index_data(i-3)=index_data(i)
		NEXT i
		num_index=num_index-3
		SC_REMOVEOBJECT 1
		DELETE OBJECT 1
		MAKE OBJECT NEW 1,num_vertex,num_index,274
		LOCK VERTEXDATA FOR LIMB 1,0
			FOR i=0 TO num_index-1
				set indexdata i,index_data(i)
			NEXT i
			FOR v=0 TO num_vertex-1
				set vertexdata position v,vertex_data(v).posx,vertex_data(v).posy,vertex_data(v).posz
				set vertexdata uv v,vertex_data(v).u,vertex_data(v).v
			NEXT v
		UNLOCK VERTEXDATA
		SET OBJECT WIREFRAME 1,wf
		SET OBJECT NORMALS 1
		sc_setupobject 1,0,0
	ENDIF
	
	IF SPACEKEY()
		px1=rnd(32)-16:pz1=rnd(32)-16
		px2=rnd(32)-16:pz2=rnd(32)-16
		px3=rnd(32)-16:pz3=rnd(32)-16
		
		MAKE OBJECT SPHERE 4,1
		COLOR OBJECT 4,rgb(0,255,0)
		POSITION OBJECT 4,px1,0,pz1
		MAKE OBJECT SPHERE 5,1
		COLOR OBJECT 5,rgb(0,0,255)
		POSITION OBJECT 5,px2,0,pz2
		MAKE OBJECT SPHERE 6,1
		COLOR OBJECT 6,rgb(255,0,255)
		POSITION OBJECT 6,px3,0,pz3
		SYNC
`		SYNC
`		WHILE SPACEKEY()
`			
`		ENDWHILE
		fc=0
		id=0
		DO
			cpx1#=vertex_data(index_data(id)).posx
			cpz1#=vertex_data(index_data(id)).posz
			cpx2#=vertex_data(index_data(id+1)).posx
			cpz2#=vertex_data(index_data(id+1)).posz
			cpx3#=vertex_data(index_data(id+2)).posx
			cpz3#=vertex_data(index_data(id+2)).posz
			id=id+3
			IF triangle_in_triangle(cpx1#,cpz1#,cpx2#,cpz2#,cpx3#,cpz3#,px1,pz1,px2,pz2,px3,pz3)
				move_index=fc*3+3
				FOR i=move_index TO num_index
					index_data(i-3)=index_data(i)
				NEXT i
				num_index=num_index-3
				id=id-3
				dec fc
			ENDIF
			INC fc
			if id>num_index-1 then exit
		LOOP
			
		SC_REMOVEOBJECT 1
		DELETE OBJECT 1
		MAKE OBJECT NEW 1,num_vertex,num_index,274
		LOCK VERTEXDATA FOR LIMB 1,0
			FOR i=0 TO num_index-1
				set indexdata i,index_data(i)
			NEXT i
			FOR v=0 TO num_vertex-1
				set vertexdata position v,vertex_data(v).posx,vertex_data(v).posy,vertex_data(v).posz
				set vertexdata uv v,vertex_data(v).u,vertex_data(v).v
			NEXT v
		UNLOCK VERTEXDATA
		SET OBJECT WIREFRAME 1,wf
		SET OBJECT NORMALS 1
		sc_setupobject 1,0,0
		DELETE OBJECT 4
		DELETE OBJECT 5
		DELETE OBJECT 6
		
	ENDIF
	
	mouse_control(1.0)
	TEXT 0,60,"fps "+str$(screen fps())
	TEXT 0,80,"mouse to look around,wheel to zoom in out,LMB to delete poly"
	TEXT 0,100,"space to delete a triangle section"
	TEXT 0,120,"w wireframe on off"
	IF INKEY$()="w"
		INC wf
		IF wf>1 THEN wf=0
		SET OBJECT WIREFRAME 1,wf
		SYNC
		WHILE INKEY$()="w"
			
		ENDWHILE
	ENDIF
	SYNC
LOOP

`*********************************
`functions start here
FUNCTION mouse_control(speed AS FLOAT)
	XROTATE CAMERA CAMERA ANGLE X()+MOUSEMOVEY()
	YROTATE CAMERA CAMERA ANGLE Y()+MOUSEMOVEX()
	mz=mousemovez()
	IF mz>0 THEN MOVE CAMERA speed
	IF mz<0 THEN MOVE CAMERA (0-speed)
	dummy=MOUSEMOVEX()
	dummy=MOUSEMOVEY()
ENDFUNCTION

FUNCTION triangle_in_triangle(ax1 AS float,az1 as float,ax2 as float,az2 as float,ax3 as float,az3 as float,bx1 as float,bz1 as float,bx2 as float,bz2 as float,bx3 as float,bz3 as float)
   
	LOCAL AB AS FLOAT
   local BC as float
   local CA as float

AB = ((az1-bz1)*(bx2-bx1)) - ((ax1-bx1)*(bz2-bz1))
   BC = ((az1-bz2)*(bx3-bx2)) - ((ax1-bx2)*(bz3-bz2))
   if AB * BC <= 0 then exitfunction 0

CA = (az1-bz3)*(bx1-bx3) - (ax1-bx3)*(bz1-bz3)
   IF BC * CA <= 0 THEN EXITFUNCTION 0
	
	AB = ((az2-bz1)*(bx2-bx1)) - ((ax2-bx1)*(bz2-bz1))
   BC = ((az2-bz2)*(bx3-bx2)) - ((ax2-bx2)*(bz3-bz2))
   if AB * BC <= 0 then exitfunction 0

CA = (az2-bz3)*(bx1-bx3) - (ax2-bx3)*(bz1-bz3)
   IF BC * CA <= 0 THEN EXITFUNCTION 0
	
	AB = ((az3-bz1)*(bx2-bx1)) - ((ax3-bx1)*(bz2-bz1))
   BC = ((az3-bz2)*(bx3-bx2)) - ((ax3-bx2)*(bz3-bz2))
   if AB * BC <= 0 then exitfunction 0

CA = (az3-bz3)*(bx1-bx3) - (ax3-bx3)*(bz1-bz3)
   IF BC * CA <= 0 THEN EXITFUNCTION 0
	
ENDFUNCTION 1

+ Code Snippet

`vertex test
`======================
`©P.Parkinson
`======================
`Main Source File

`*********************************
`enviroment set up

IF CHECK DISPLAY MODE(1024,768,32) 
	SET DISPLAY MODE 1024,768,32
	h=DESKTOP HEIGHT()
	w=DESKTOP WIDTH()
	posx=w/2-512
	posy=h/2-384
ELSE
	SET DISPLAY MODE 640,480,32
	h=DESKTOP HEIGHT()
	w=DESKTOP WIDTH()
	posx=w/2-320
	posy=h/2-240
ENDIF
SET WINDOW POSITION posx,posy

SYNC ON
SYNC RATE 60
AUTOCAM OFF
``HIDE MOUSE
COLOR BACKDROP 0,0
SET TEXT FONT "Arial"
SET TEXT SIZE 20
SET TEXT TRANSPARENT

POSITION CAMERA 50,50,-50
POINT CAMERA 0,0,0
POSITION MOUSE SCREEN WIDTH()/2,SCREEN HEIGHT()/2
dummy=MOUSEMOVEX()
dummy=MOUSEMOVEY()

`*********************************	
`declarations and setup starts here
Global wf=0
MAKE OBJECT PLAIN 1,32,32,64,64,274
SET OBJECT WIREFRAME 1,wf
sc_setupobject 1,0,0


LOCK VERTEXDATA FOR LIMB 1,0
	global num_index
	num_index=get vertexdata index count()
	GLOBAL num_vertex
	num_vertex=get vertexdata vertex count()
UNLOCK VERTEXDATA

DIM index_data(num_index) 

TYPE vertex_type
	posx AS FLOAT
	posy AS FLOAT
	posz AS FLOAT
	u AS FLOAT
	v as float
ENDTYPE
dim vertex_data(num_vertex) as vertex_type

LOCK VERTEXDATA FOR LIMB 1,0
	FOR i=0 TO num_index-1
		index_data(i)=get indexdata(i)
	NEXT i
	FOR v=0 TO num_vertex-1
		vertex_data(v).posx=get vertexdata position x(v)
		vertex_data(v).posy=get vertexdata position y(v)
		vertex_data(v).posz=get vertexdata position z(v)
		vertex_data(v).u=get vertexdata u(v)
		vertex_data(v).v=get vertexdata v(v)
	NEXT v
UNLOCK VERTEXDATA



GLOBAL marker=2
GLOBAL target=3
MAKE OBJECT CUBE marker,0.5
color object marker,rgb(255,0,0)
HIDE OBJECT marker
MAKE OBJECT CUBE target,1.0
HIDE OBJECT target
GLOBAL hit


`*********************************
`main loop starts here
DO
	
	TEXT 0,0,"number of indexes "+str$(num_index)+" num faces "+str$(num_index/3)
	TEXT 0,20,"number of vertexes "+str$(num_vertex)
	POSITION OBJECT target,camera position x(),camera position y(),camera position z()
	SET OBJECT TO CAMERA ORIENTATION target
	MOVE OBJECT target,1000
	hit=sc_raycast(0,camera position x(),camera position y(),camera position z(),object position x(target),object position y(target),object position z(target),0) 
	IF hit>0
		px#=sc_getstaticcollisionx()
		py#=sc_getstaticcollisiony()
		pz#=sc_getstaticcollisionz()
		nx#=sc_getcollisionnormalx()*1000.0
		ny#=sc_getcollisionnormaly()*1000.0
		nz#=sc_getcollisionnormalz()*1000.0
		fc=sc_getfacehit()
		POSITION OBJECT marker,px#,py#,pz#
		POINT OBJECT marker,nx#,ny#,nz#
		TEXT 0,40,"face hit "+str$(fc)
		position mouse object screen x(marker),object screen y(marker)
	ENDIF
	
	IF hit>0 AND mouseclick()
		move_index=fc*3+3
		FOR i=move_index TO num_index
			index_data(i-3)=index_data(i)
		NEXT i
		num_index=num_index-3
		SC_REMOVEOBJECT 1
		DELETE OBJECT 1
		MAKE OBJECT NEW 1,num_vertex,num_index,274
		LOCK VERTEXDATA FOR LIMB 1,0
			FOR i=0 TO num_index-1
				set indexdata i,index_data(i)
			NEXT i
			FOR v=0 TO num_vertex-1
				set vertexdata position v,vertex_data(v).posx,vertex_data(v).posy,vertex_data(v).posz
				set vertexdata uv v,vertex_data(v).u,vertex_data(v).v
			NEXT v
		UNLOCK VERTEXDATA
		SET OBJECT WIREFRAME 1,wf
		SET OBJECT NORMALS 1
		sc_setupobject 1,0,0
	ENDIF
	
	IF SPACEKEY()
		px1=rnd(32)-16:pz1=rnd(32)-16
		px2=rnd(32)-16:pz2=rnd(32)-16
		px3=rnd(32)-16:pz3=rnd(32)-16
		
		MAKE OBJECT SPHERE 4,1
		COLOR OBJECT 4,rgb(0,255,0)
		POSITION OBJECT 4,px1,0,pz1
		MAKE OBJECT SPHERE 5,1
		COLOR OBJECT 5,rgb(0,0,255)
		POSITION OBJECT 5,px2,0,pz2
		MAKE OBJECT SPHERE 6,1
		COLOR OBJECT 6,rgb(255,0,255)
		POSITION OBJECT 6,px3,0,pz3
		SYNC
`		SYNC
`		WHILE SPACEKEY()
`			
`		ENDWHILE
		fc=0
		id=0
		DO
			cpx1#=vertex_data(index_data(id)).posx
			cpz1#=vertex_data(index_data(id)).posz
			cpx2#=vertex_data(index_data(id+1)).posx
			cpz2#=vertex_data(index_data(id+1)).posz
			cpx3#=vertex_data(index_data(id+2)).posx
			cpz3#=vertex_data(index_data(id+2)).posz
			id=id+3
			IF triangle_in_triangle(cpx1#,cpz1#,cpx2#,cpz2#,cpx3#,cpz3#,px1,pz1,px2,pz2,px3,pz3)
				move_index=fc*3+3
				FOR i=move_index TO num_index
					index_data(i-3)=index_data(i)
				NEXT i
				num_index=num_index-3
				id=id-3
				dec fc
			ENDIF
			INC fc
			if id>num_index-1 then exit
		LOOP
			
		SC_REMOVEOBJECT 1
		DELETE OBJECT 1
		MAKE OBJECT NEW 1,num_vertex,num_index,274
		LOCK VERTEXDATA FOR LIMB 1,0
			FOR i=0 TO num_index-1
				set indexdata i,index_data(i)
			NEXT i
			FOR v=0 TO num_vertex-1
				set vertexdata position v,vertex_data(v).posx,vertex_data(v).posy,vertex_data(v).posz
				set vertexdata uv v,vertex_data(v).u,vertex_data(v).v
			NEXT v
		UNLOCK VERTEXDATA
		SET OBJECT WIREFRAME 1,wf
		SET OBJECT NORMALS 1
		sc_setupobject 1,0,0
		DELETE OBJECT 4
		DELETE OBJECT 5
		DELETE OBJECT 6
		
	ENDIF
	
	mouse_control(1.0)
	TEXT 0,60,"fps "+str$(screen fps())
	TEXT 0,80,"mouse to look around,wheel to zoom in out,LMB to delete poly"
	TEXT 0,100,"space to delete a triangle section"
	TEXT 0,120,"w wireframe on off"
	IF INKEY$()="w"
		INC wf
		IF wf>1 THEN wf=0
		SET OBJECT WIREFRAME 1,wf
		SYNC
		WHILE INKEY$()="w"
			
		ENDWHILE
	ENDIF
	SYNC
LOOP

`*********************************
`functions start here
FUNCTION mouse_control(speed AS FLOAT)
	XROTATE CAMERA CAMERA ANGLE X()+MOUSEMOVEY()
	YROTATE CAMERA CAMERA ANGLE Y()+MOUSEMOVEX()
	mz=mousemovez()
	IF mz>0 THEN MOVE CAMERA speed
	IF mz<0 THEN MOVE CAMERA (0-speed)
	dummy=MOUSEMOVEX()
	dummy=MOUSEMOVEY()
ENDFUNCTION

FUNCTION triangle_in_triangle(ax1 AS float,az1 as float,ax2 as float,az2 as float,ax3 as float,az3 as float,bx1 as float,bz1 as float,bx2 as float,bz2 as float,bx3 as float,bz3 as float)
   
	LOCAL AB AS FLOAT
   local BC as float
   local CA as float

   AB = ((az1-bz1)*(bx2-bx1)) - ((ax1-bx1)*(bz2-bz1))
   BC = ((az1-bz2)*(bx3-bx2)) - ((ax1-bx2)*(bz3-bz2))
   if AB * BC <= 0 then exitfunction 0

   CA = (az1-bz3)*(bx1-bx3) - (ax1-bx3)*(bz1-bz3)
   IF BC * CA <= 0 THEN EXITFUNCTION 0
	
	AB = ((az2-bz1)*(bx2-bx1)) - ((ax2-bx1)*(bz2-bz1))
   BC = ((az2-bz2)*(bx3-bx2)) - ((ax2-bx2)*(bz3-bz2))
   if AB * BC <= 0 then exitfunction 0

   CA = (az2-bz3)*(bx1-bx3) - (ax2-bx3)*(bz1-bz3)
   IF BC * CA <= 0 THEN EXITFUNCTION 0
	
	AB = ((az3-bz1)*(bx2-bx1)) - ((ax3-bx1)*(bz2-bz1))
   BC = ((az3-bz2)*(bx3-bx2)) - ((ax3-bx2)*(bz3-bz2))
   if AB * BC <= 0 then exitfunction 0

   CA = (az3-bz3)*(bx1-bx3) - (ax3-bx3)*(bz1-bz3)
   IF BC * CA <= 0 THEN EXITFUNCTION 0
	
ENDFUNCTION 1

it uses matrix1 and sparkys collision plugins

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Adding or Removing Vertice or Faces