Vertices and melding (or welding) two objects similar to metaballs

Author

Message

Daryn Alsup

18

Years of Service

User Offline

Joined: 5th Jul 2008

Location: In your head... dun dun DUN!!!!!!!!

Posted: 31st May 2010 03:53

Link

Okay here's what I'm looking to do and what I've done.

Say I have two spheres. I lock the vertexdata for one sphere and transform all the locations of its vertices into real world lorcations. What I want to do is also perform this on another sphere and raycast the vertex positions to sphere one. If the distance is correct (note that sphere two is being positioned with the mouse) than the vertices are repositioned and welded to sphere one - kind of like metaballing. The trouble I am having is that lock vertexdata can only be done for one object/limb at a time - and in order to keep moving sphere two, I cannot combine mesh data so that it's part of the object/limb currently locked by the vertexdata command. So are there any ideas for melding/welding two objects via vertexdata commands? Any ideas, suggestions or simple examples would help - I don't want you writing a big strip of code just so I can take it

I'm only looking for understanding.

Jack and Jill went up a hill to fetch a pale of water... but Jill got tired of his s#%& so she shot him.

Back to top

Profile PM Email Website

Daryn Alsup

18

Years of Service

User Offline

Joined: 5th Jul 2008

Location: In your head... dun dun DUN!!!!!!!!

Posted: 31st May 2010 05:27 Edited at: 2nd Jun 2010 10:51

Link

Okay I think I'm grasping it now... If I make a memblock for the first sphere and store all the vertices' real world positions in it then I can use the vertexdata commands to manipulate the second sphere and tell it's vertices how to act in accordance with the first sphere's vertices.

EDIT:
Om nom nom nom - why can't I get this - seems easy enough now that I 'grasp' dbpro

EDIT ONCE MORE:
Okay here's what I've got. Use the middle mouse button to move the object, right click to rotate, arrow keys to move... what I want to have happen is when you click the mouse and have the object near a certain proximity, the two objects will combine... I'm going for a "Spore™" Kind of meta-ball limb effect here

SET DISPLAY MODE DESKTOP WIDTH(), DESKTOP HEIGHT(), 32, 1
SYNC ON : SYNC RATE 0
Make object sphere 1, 10, 20,20
Make Object Sphere 2, 5, 10, 10

AUTOCAM OFF

MA=Make Matrix4(1)
V=Make Vector4(2)
V=Make Vector3(3)
MB=Make Matrix4(4)
V=Make Vector4(5)
V=Make Vector3(6)

ZDepth as float : ZDepth = 10

#constant worldv  7
#constant viewm  8
#constant projectm  9

UpdateVector= MAKE VECTOR3(10)

a=Make vector4(worldv)
a=Make Matrix4(viewm)
a=Make Matrix4(projectm)

#constant CenterX (screen width()/2.0)
#constant CenterY (screen height()/2.0)

`Set camera range 0, 0.01, 3000.0

position camera 0,50,0,50

do
CONTROL CAMERA USING ARROWKEYS 0, 0.5, 0.25
POINT CAMERA 0, OBJECT POSITION X(1), OBJECT POSITION Y(1), OBJECT POSITION Z(1)
sync
`Zooming

VIEW MATRIX4 viewm
PROJECTION MATRIX4 projectm

inc Zdepth, Zdepth*(mousemoveZ()/500.0)

If mouseclick()=2 then TURN OBJECT LEFT 2, 1.0

a=INVERSE MATRIX4 (viewm,viewm)
a=INVERSE MATRIX4 (projectm,projectm)

SET VECTOR4 worldv, (MouseX()-CenterX)/CenterX, (MouseY()-CenterY)/-CenterY,0,1
TRANSFORM VECTOR4 worldv,worldv,projectm
DIVIDE VECTOR4 7, W VECTOR4(7)
set vector4 worldv,x vector4(worldv)*(ZDepth/z vector4(worldv)),y vector4(worldv)*(ZDepth/z vector4(worldv)),ZDepth,1

object MATRIX4 1,1
object MATRIX4 4,2

transform vector4 worldv,worldv,viewm

Text 10, 10, "X: "+Str$(x vector4(worldv))
  Text 10, 25,  "Y: "+Str$(y vector4(worldv))
  Text 10,40, "Z: "+Str$(z vector4(worldv))
  
  POSITION OBJECT 2, x vector4(worldv),y vector4(worldv),z vector4(worldv)
AUTOMATIC OBJECT COLLISION 2, 2, 1

MeldMesh(1,0,2,0,1)

sync
loop

Function MeldMesh(Obj1#, Limb1#, Obj2#, Limb2#, Mouse_Clicked_Number) `Obj1# and Limb1# are the base or "body" object
If MouseClick()=Mouse_Clicked_Number
Lock vertexdata for limb Obj1#,Limb1#
GetVa=Get vertexdata vertex count()
If memblock exist(1)=0
Make Memblock 1,GetVa*3
endif
For VCounta=0 to GetVa
VerX#=Get vertexdata position X(Vcounta)
VerY#=Get vertexdata position Y(Vcounta)
VerZ#=Get vertexdata position Z(Vcounta)

Set Vector4 2,VerX#,VerY#,VerZ#,0 ` vector 4 has for values for each set of four 1) Orientation, 2) Position, 3) Rotation and 4) Locals 
Transform Vector4 2,2,1
Set Vector3 3, X Vector4(2), Y Vector4(2), Z Vector4(2) ` setting this vector 3 with vector 4 values converts local values to real world values
Normalize vector3 3,3

`this adds the vertex positons (XYZ) into the memblock
Write memblock float 1, Vcounta+0, X vector3 (3)
Write Memblock float 1, Vcounta+1, Y Vector3 (3)
Write memblock float 1, Vcounta+2, Z Vector3 (3)

Next VCounta
Unlock Vertexdata

Lock vertexdata for limb Obj2#, Limb2#
GetVb=Get vertexdata vertex count()
For VcountB=0 to GetVb
VerXa#=Get Vertexdata position x(VcountB)
VerYa#=Get Vertexdata position y(VcountB)
VerZa#=Get Vertexdata position z(VcountB)

set vector4 5, VerXa#, VerYa#, VerZa#, 0
Transform vector4 5,5,1
Set Vector3 6, X vector4(5), Y vector4(5), Z vector4(5)
normalize vector3 6,6

MemSize=Get memblock size(1)

Text 10,55, Str$(MemSize)

For MemCount=0 to GetVa
CheckVerX#=memblock float (1,MemCount+0)
CheckVerY#=memblock float (1,MemCount+1)
CheckVerZ#=memblock float (1,MemCount+2)

SET VECTOR3 10, CheckVerX#, CheckVerY#, CheckVerZ#
If OBJECT SIZE(Obj1#)-X VECTOR3(10)=<5 and OBJECT SIZE(Obj1#)-Y VECTOR3(10)=<5 and OBJECT SIZE(Obj1#)-Z VECTOR3(10)=<5
SET VERTEXDATA POSITION Memcount, X VECTOR3(6), Y VECTOR3(6), Z VECTOR3(6)
endif
next memcount
UNLOCK VERTEXDATA
next vcountb
endif
If MEMBLOCK EXIST(1)=1
Delete Memblock 1
endif
Endfunction

+ Code Snippet

SET DISPLAY MODE DESKTOP WIDTH(), DESKTOP HEIGHT(), 32, 1
SYNC ON : SYNC RATE 0
Make object sphere 1, 10, 20,20
Make Object Sphere 2, 5, 10, 10

AUTOCAM OFF

MA=Make Matrix4(1)
V=Make Vector4(2)
V=Make Vector3(3)
MB=Make Matrix4(4)
V=Make Vector4(5)
V=Make Vector3(6)


ZDepth as float : ZDepth = 10

#constant worldv  7
#constant viewm  8
#constant projectm  9

UpdateVector= MAKE VECTOR3(10)

a=Make vector4(worldv)
a=Make Matrix4(viewm)
a=Make Matrix4(projectm)

#constant CenterX (screen width()/2.0)
#constant CenterY (screen height()/2.0)

`Set camera range 0, 0.01, 3000.0



position camera 0,50,0,50


do
CONTROL CAMERA USING ARROWKEYS 0, 0.5, 0.25
POINT CAMERA 0, OBJECT POSITION X(1), OBJECT POSITION Y(1), OBJECT POSITION Z(1)
sync
`Zooming

VIEW MATRIX4 viewm
PROJECTION MATRIX4 projectm

inc Zdepth, Zdepth*(mousemoveZ()/500.0)

If mouseclick()=2 then TURN OBJECT LEFT 2, 1.0

a=INVERSE MATRIX4 (viewm,viewm)
a=INVERSE MATRIX4 (projectm,projectm)

SET VECTOR4 worldv, (MouseX()-CenterX)/CenterX, (MouseY()-CenterY)/-CenterY,0,1
TRANSFORM VECTOR4 worldv,worldv,projectm
DIVIDE VECTOR4 7, W VECTOR4(7)
set vector4 worldv,x vector4(worldv)*(ZDepth/z vector4(worldv)),y vector4(worldv)*(ZDepth/z vector4(worldv)),ZDepth,1

object MATRIX4 1,1
object MATRIX4 4,2

transform vector4 worldv,worldv,viewm

  Text 10, 10, "X: "+Str$(x vector4(worldv))
  Text 10, 25,  "Y: "+Str$(y vector4(worldv))
  Text 10,40, "Z: "+Str$(z vector4(worldv))
  
  POSITION OBJECT 2, x vector4(worldv),y vector4(worldv),z vector4(worldv)
AUTOMATIC OBJECT COLLISION 2, 2, 1

  
  MeldMesh(1,0,2,0,1)


sync
loop

Function MeldMesh(Obj1#, Limb1#, Obj2#, Limb2#, Mouse_Clicked_Number) `Obj1# and Limb1# are the base or "body" object
If MouseClick()=Mouse_Clicked_Number
Lock vertexdata for limb Obj1#,Limb1#
GetVa=Get vertexdata vertex count()
If memblock exist(1)=0
Make Memblock 1,GetVa*3
endif
For VCounta=0 to GetVa
VerX#=Get vertexdata position X(Vcounta)
VerY#=Get vertexdata position Y(Vcounta)
VerZ#=Get vertexdata position Z(Vcounta)

Set Vector4 2,VerX#,VerY#,VerZ#,0 ` vector 4 has for values for each set of four 1) Orientation, 2) Position, 3) Rotation and 4) Locals 
Transform Vector4 2,2,1
Set Vector3 3, X Vector4(2), Y Vector4(2), Z Vector4(2) ` setting this vector 3 with vector 4 values converts local values to real world values
Normalize vector3 3,3

`this adds the vertex positons (XYZ) into the memblock
Write memblock float 1, Vcounta+0, X vector3 (3)
Write Memblock float 1, Vcounta+1, Y Vector3 (3)
Write memblock float 1, Vcounta+2, Z Vector3 (3)

Next VCounta
Unlock Vertexdata

Lock vertexdata for limb Obj2#, Limb2#
GetVb=Get vertexdata vertex count()
For VcountB=0 to GetVb
VerXa#=Get Vertexdata position x(VcountB)
VerYa#=Get Vertexdata position y(VcountB)
VerZa#=Get Vertexdata position z(VcountB)

set vector4 5, VerXa#, VerYa#, VerZa#, 0
Transform vector4 5,5,1
Set Vector3 6, X vector4(5), Y vector4(5), Z vector4(5)
normalize vector3 6,6

MemSize=Get memblock size(1)

Text 10,55, Str$(MemSize)

For MemCount=0 to GetVa
CheckVerX#=memblock float (1,MemCount+0)
CheckVerY#=memblock float (1,MemCount+1)
CheckVerZ#=memblock float (1,MemCount+2)

SET VECTOR3 10, CheckVerX#, CheckVerY#, CheckVerZ#
If OBJECT SIZE(Obj1#)-X VECTOR3(10)=<5 and OBJECT SIZE(Obj1#)-Y VECTOR3(10)=<5 and OBJECT SIZE(Obj1#)-Z VECTOR3(10)=<5
SET VERTEXDATA POSITION Memcount, X VECTOR3(6), Y VECTOR3(6), Z VECTOR3(6)
endif
next memcount
UNLOCK VERTEXDATA
next vcountb
endif
If MEMBLOCK EXIST(1)=1
Delete Memblock 1
endif
Endfunction

Can someone help me out here... I'm kind of lost... many thanks to any who try... really!

EDIT ONCE AGAIN:
OI I don't get it... no one can shed any light on this? Anything at all

-Daryn

EDIT:
okay - now I am doing this

SET DISPLAY MODE DESKTOP WIDTH(), DESKTOP HEIGHT(), 32, 1
SYNC ON : SYNC RATE 0
Make object sphere 1, 10, 20,20
Make Object Sphere 2, 5, 10, 10

AUTOCAM OFF

MA=Make Matrix4(1)
V=Make Vector4(2)
V=Make Vector3(3)
MB=Make Matrix4(4)
V=Make Vector4(5)
V=Make Vector3(6)

ZDepth as float : ZDepth = 10

#constant worldv  7
#constant viewm  8
#constant projectm  9

UpdateVector= MAKE VECTOR3(10)

a=Make vector4(worldv)
a=Make Matrix4(viewm)
a=Make Matrix4(projectm)

#constant CenterX (screen width()/2.0)
#constant CenterY (screen height()/2.0)

`Set camera range 0, 0.01, 3000.0

position camera 0,50,0,50

do
CONTROL CAMERA USING ARROWKEYS 0, 0.5, 0.25
POINT CAMERA 0, OBJECT POSITION X(1), OBJECT POSITION Y(1), OBJECT POSITION Z(1)
sync
`Zooming
object MATRIX4 1,1
object MATRIX4 4,2

VIEW MATRIX4 viewm
PROJECTION MATRIX4 projectm

inc Zdepth, Zdepth*(mousemoveZ()/500.0)

If mouseclick()=2 then TURN OBJECT LEFT 2, 1.0

a=INVERSE MATRIX4 (viewm,viewm)
a=INVERSE MATRIX4 (projectm,projectm)

SET VECTOR4 worldv, (MouseX()-CenterX)/CenterX, (MouseY()-CenterY)/-CenterY,0,1
TRANSFORM VECTOR4 worldv,worldv,projectm
DIVIDE VECTOR4 7, W VECTOR4(7)
set vector4 worldv,x vector4(worldv)*(ZDepth/z vector4(worldv)),y vector4(worldv)*(ZDepth/z vector4(worldv)),ZDepth,1

transform vector4 worldv,worldv,viewm

Text 10, 10, "X: "+Str$(x vector4(worldv))
  Text 10, 25,  "Y: "+Str$(y vector4(worldv))
  Text 10,40, "Z: "+Str$(z vector4(worldv))
  
  POSITION OBJECT 2, x vector4(worldv),y vector4(worldv),z vector4(worldv)
AUTOMATIC OBJECT COLLISION 2, 2, 1

MeldMesh(1,0,2,0,1)

sync
loop

Function MeldMesh(Obj1#, Limb1#, Obj2#, Limb2#, Mouse_Clicked_Number) `Obj1# and Limb1# are the base or "body" object
If MouseClick()=Mouse_Clicked_Number

LOCK VERTEXDATA FOR LIMB Obj1#, Limb1#
ArrayObj1=GET VERTEXDATA VERTEX COUNT()
UNLOCK VERTEXDATA

LOCK VERTEXDATA FOR LIMB Obj2#,Limb2#
ArrayObj2=GET VERTEXDATA VERTEX COUNT()
UNLOCK VERTEXDATA

For FirstVer=0 to ArrayObj1-1
LOCK VERTEXDATA FOR LIMB Obj1#, Limb1#
VaX#=GET VERTEXDATA POSITION X(FirstVer)
VaY#=GET VERTEXDATA POSITION Y(FirstVer)
VaZ#=GET VERTEXDATA POSITION Z(FirstVer)

`Remstart
Set Vector4 2, VaX#, VaY#, VaZ#,0
Transform Vector4 2,2,1
Set Vector3 3, X Vector4(2), Y Vector4(2), Z Vector4(2)
Normalize Vector3 3,3

VaX#=X VECTOR3(3)
VaY#=Y VECTOR3(3)
VaZ#=Z VECTOR3(3)
`remend

UNLOCK VERTEXDATA

For SecVer=0 to ArrayObj2-1
LOCK VERTEXDATA FOR LIMB Obj2#, Limb2#
VbX#=GET VERTEXDATA POSITION X(SecVer)
VbY#=GET VERTEXDATA POSITION Y(SecVer)
VbZ#=GET VERTEXDATA POSITION Z(SecVer)

`Remstart
Set Vector4 5,VbX#, VbY#, VbZ#,0
Transform Vector4 5,5,4
Set Vector3 6, X Vector4(5), Y Vector4(5), Z Vector4(5)
Normalize Vector3 6,6

VbX#=X VECTOR3(6)
VbY#=Y VECTOR3(6)
VbZ#=Z VECTOR3(6)
`Remend

If abs(VbX#-VaX#)=<10.0 or abs(VbX#-VaX#)>0.0 and abs(VbY#-VaY#)=<10.0 or abs(VbY#-VaY#)>0.0 and abs(VbZ#-VaZ#)=<10.0 or abs(VbZ#-VaZ#)>0.0
SET VERTEXDATA POSITION SecVer, VaX#, VaY#, VaZ#
endif

UNLOCK VERTEXDATA
Next SecVer
UNLOCK VERTEXDATA
Next FirstVer
Text 10, 55, "Vertex X: "+Str$(VbX#-VaX#)+", Vertex Y: "+Str$(VbY#-VaY#)+", Vertex Z: "+Str$(VaZ#-VbZ#)
`Text 10, 55, "Vertex X: "+Str$(X VECTOR3(6))+", Vertex Y: "+Str$(Y VECTOR3(6))+", Vertex Z: "+Str$(Z VECTOR3(6))

endif
`delete memblocks
Endfunction

+ Code Snippet

SET DISPLAY MODE DESKTOP WIDTH(), DESKTOP HEIGHT(), 32, 1
SYNC ON : SYNC RATE 0
Make object sphere 1, 10, 20,20
Make Object Sphere 2, 5, 10, 10

AUTOCAM OFF

MA=Make Matrix4(1)
V=Make Vector4(2)
V=Make Vector3(3)
MB=Make Matrix4(4)
V=Make Vector4(5)
V=Make Vector3(6)


ZDepth as float : ZDepth = 10

#constant worldv  7
#constant viewm  8
#constant projectm  9

UpdateVector= MAKE VECTOR3(10)

a=Make vector4(worldv)
a=Make Matrix4(viewm)
a=Make Matrix4(projectm)

#constant CenterX (screen width()/2.0)
#constant CenterY (screen height()/2.0)

`Set camera range 0, 0.01, 3000.0



position camera 0,50,0,50


do
CONTROL CAMERA USING ARROWKEYS 0, 0.5, 0.25
POINT CAMERA 0, OBJECT POSITION X(1), OBJECT POSITION Y(1), OBJECT POSITION Z(1)
sync
`Zooming
object MATRIX4 1,1
object MATRIX4 4,2

VIEW MATRIX4 viewm
PROJECTION MATRIX4 projectm

inc Zdepth, Zdepth*(mousemoveZ()/500.0)

If mouseclick()=2 then TURN OBJECT LEFT 2, 1.0

a=INVERSE MATRIX4 (viewm,viewm)
a=INVERSE MATRIX4 (projectm,projectm)

SET VECTOR4 worldv, (MouseX()-CenterX)/CenterX, (MouseY()-CenterY)/-CenterY,0,1
TRANSFORM VECTOR4 worldv,worldv,projectm
DIVIDE VECTOR4 7, W VECTOR4(7)
set vector4 worldv,x vector4(worldv)*(ZDepth/z vector4(worldv)),y vector4(worldv)*(ZDepth/z vector4(worldv)),ZDepth,1




transform vector4 worldv,worldv,viewm

  Text 10, 10, "X: "+Str$(x vector4(worldv))
  Text 10, 25,  "Y: "+Str$(y vector4(worldv))
  Text 10,40, "Z: "+Str$(z vector4(worldv))
  
  POSITION OBJECT 2, x vector4(worldv),y vector4(worldv),z vector4(worldv)
AUTOMATIC OBJECT COLLISION 2, 2, 1

  
  MeldMesh(1,0,2,0,1)


sync
loop

Function MeldMesh(Obj1#, Limb1#, Obj2#, Limb2#, Mouse_Clicked_Number) `Obj1# and Limb1# are the base or "body" object
If MouseClick()=Mouse_Clicked_Number

LOCK VERTEXDATA FOR LIMB Obj1#, Limb1#
ArrayObj1=GET VERTEXDATA VERTEX COUNT()
UNLOCK VERTEXDATA

LOCK VERTEXDATA FOR LIMB Obj2#,Limb2#
ArrayObj2=GET VERTEXDATA VERTEX COUNT()
UNLOCK VERTEXDATA

For FirstVer=0 to ArrayObj1-1
LOCK VERTEXDATA FOR LIMB Obj1#, Limb1#
VaX#=GET VERTEXDATA POSITION X(FirstVer)
VaY#=GET VERTEXDATA POSITION Y(FirstVer)
VaZ#=GET VERTEXDATA POSITION Z(FirstVer)

`Remstart
Set Vector4 2, VaX#, VaY#, VaZ#,0
Transform Vector4 2,2,1
Set Vector3 3, X Vector4(2), Y Vector4(2), Z Vector4(2)
Normalize Vector3 3,3

VaX#=X VECTOR3(3)
VaY#=Y VECTOR3(3)
VaZ#=Z VECTOR3(3)
`remend

UNLOCK VERTEXDATA

For SecVer=0 to ArrayObj2-1
LOCK VERTEXDATA FOR LIMB Obj2#, Limb2#
VbX#=GET VERTEXDATA POSITION X(SecVer)
VbY#=GET VERTEXDATA POSITION Y(SecVer)
VbZ#=GET VERTEXDATA POSITION Z(SecVer)

`Remstart
Set Vector4 5,VbX#, VbY#, VbZ#,0
Transform Vector4 5,5,4
Set Vector3 6, X Vector4(5), Y Vector4(5), Z Vector4(5)
Normalize Vector3 6,6

VbX#=X VECTOR3(6)
VbY#=Y VECTOR3(6)
VbZ#=Z VECTOR3(6)
`Remend

If abs(VbX#-VaX#)=<10.0 or abs(VbX#-VaX#)>0.0 and abs(VbY#-VaY#)=<10.0 or abs(VbY#-VaY#)>0.0 and abs(VbZ#-VaZ#)=<10.0 or abs(VbZ#-VaZ#)>0.0
SET VERTEXDATA POSITION SecVer, VaX#, VaY#, VaZ#
endif

UNLOCK VERTEXDATA
Next SecVer
UNLOCK VERTEXDATA
Next FirstVer
Text 10, 55, "Vertex X: "+Str$(VbX#-VaX#)+", Vertex Y: "+Str$(VbY#-VaY#)+", Vertex Z: "+Str$(VaZ#-VbZ#)
`Text 10, 55, "Vertex X: "+Str$(X VECTOR3(6))+", Vertex Y: "+Str$(Y VECTOR3(6))+", Vertex Z: "+Str$(Z VECTOR3(6))

endif
`delete memblocks
Endfunction

The only thing I can deduce is that it's something to do with the vertices. I've tried leaving them as locals, converting them into 3d space, projecting their positions from the center of both spheres - and nada - all I want them to do is have one static object and the other conform to it when it gets close enough.

If it's something easy that I am over looking, someone point me in the right direction 'cause I've sat and just ran through it in my head and it seems to be right - but this is programming

Anyone, really - just give me a heads up.

Jack and Jill went up a hill to fetch a pale of water... but Jill got tired of his s#%& so she shot him.

Back to top

Profile PM Email Website

Mobiius

Valued Member

23

Years of Service

User Offline

Joined: 27th Feb 2003

Location: The Cold North

Posted: 2nd Jun 2010 12:42

Link

Can't you have the two spheres as limbs of 1 object therefore being able to use memblocks on them?

My signature is NOT a moderator plaything! Stop changing it!

Back to top

Profile PM Email Website

Van B

Moderator

23

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 2nd Jun 2010 13:49

Link

Tricky one, no matter how you do it, there is no easy method for this, not in any language.

Might be worth trying to magnetize instead. Well, you could check the vertices in one sphere against the vertices in another sphere, and if 2 vertices are close enough, work out the average position and set both vertices to that. This means that each vertex in a moving sphere would need to find the closest vertex in the static sphere.

You would have some real problems with complex shapes, but spheres might just work well enough, especially geospheres - DBPro's spheres are a bit grid-ish for the job, a geosphere would mould much better (more equi-sized polygons you see).

If this is purely for sticking an arm onto some mad creature, then maybe another angle is needed. For instance, you might have 10 vertexes on the shoulder of an arm that you want to attach, like an open end. Then these vertexes would need to be flagged so you know which ones should mould onto the body shape. So if you have an arm, with the 10 vertexes, you could find the closest 10 vertexes on the body mesh and adjust the positions of your flagged vertexes and the 10 nearest vertexes, maybe average the positions again.

Health, Ammo, and bacon and eggs!

Back to top

Profile PM Email

Daryn Alsup

18

Years of Service

User Offline

Joined: 5th Jul 2008

Location: In your head... dun dun DUN!!!!!!!!

Posted: 2nd Jun 2010 15:44 Edited at: 2nd Jun 2010 16:33

Link

I see what your saying Van B, maybe tell the arm object to close it's end and then spread it and connect when near the sphere. Lord Einstein gave me some help last night and actually got two sphere's to mold together - but they both had to be static and vectors weren't used.

Would it be worth the trouble creating projections from the center of both spheres to their vertices?

(I mean... Say I had only one sphere just to explain this - from the center of the sphere a ray would be cast out to all vertices on that sphere... if another object was doing the same and an intersection occured, the vertices that have collided or obscured the raycast would be moved to the opposing sphere's obscurring vertices and then the poly's deleted) This is so confusing. When I printed these results to the screen, the positions weren't real world - am I transposing vectors right or using the wrong base matrix? I have no clue. Thanks for answering - I thought no one would

EDIT:
Also I figured it wouldn't work but I also tried:

SET DISPLAY MODE DESKTOP WIDTH(), DESKTOP HEIGHT(), 32, 1
SYNC ON : SYNC RATE 0
Make object sphere 1, 10, 20,20
Make Object Sphere 2, 5, 10, 10

AUTOCAM OFF

MA=Make Matrix4(1)
V=Make Vector4(2)
V=Make Vector3(3)
MB=Make Matrix4(4)
V=Make Vector4(5)
V=Make Vector3(6)

ZDepth as float : ZDepth = 10

#constant worldv  7
#constant viewm  8
#constant projectm  9

UpdateVector= MAKE VECTOR3(10)

a=Make vector4(worldv)
a=Make Matrix4(viewm)
a=Make Matrix4(projectm)

#constant CenterX (screen width()/2.0)
#constant CenterY (screen height()/2.0)

`Set camera range 0, 0.01, 3000.0

position camera 0,50,0,50

do
CONTROL CAMERA USING ARROWKEYS 0, 0.5, 0.25
POINT CAMERA 0, OBJECT POSITION X(1), OBJECT POSITION Y(1), OBJECT POSITION Z(1)
sync

`This is for the function matrix 4's
OBJECT MATRIX4 1, 1
OBJECT MATRIX4 4, 2

VIEW MATRIX4 viewm
PROJECTION MATRIX4 projectm
inc Zdepth, Zdepth*(mousemoveZ()/500.0)
If mouseclick()=2 then TURN OBJECT LEFT 2, 1.0

a=INVERSE MATRIX4 (viewm,viewm)
a=INVERSE MATRIX4 (projectm,projectm)

SET VECTOR4 worldv, (MouseX()-CenterX)/CenterX, (MouseY()-CenterY)/-CenterY,0,1
TRANSFORM VECTOR4 worldv,worldv,projectm
DIVIDE VECTOR4 7, W VECTOR4(7)
set vector4 worldv,x vector4(worldv)*(ZDepth/z vector4(worldv)),y vector4(worldv)*(ZDepth/z vector4(worldv)),ZDepth,1
transform vector4 worldv,worldv,viewm

Text 10, 10, "X: "+Str$(x vector4(worldv))
  Text 10, 25,  "Y: "+Str$(y vector4(worldv))
  Text 10,40, "Z: "+Str$(z vector4(worldv))
  
  POSITION OBJECT 2, x vector4(worldv),y vector4(worldv),z vector4(worldv)
AUTOMATIC OBJECT COLLISION 2, 2, 1

MeldMesh(1,2,1)
sync
loop

Function MeldMesh(Obj1#, Obj2#, Mouse_Clicked_Number) `Obj1# = base or "body" object
If MouseClick()=Mouse_Clicked_Number
MAKE MESH FROM OBJECT Obj1#, Obj1#
MAKE MEMBLOCK FROM MESH Obj1#, Obj1#
Memblock1=MEMBLOCK DWORD(Obj1#,3)

MAKE MESH FROM OBJECT Obj2#, Obj2#
MAKE MEMBLOCK FROM MESH Obj2#, Obj2#
Memblock2=MEMBLOCK DWORD(Obj2#,3)

`Object 1
for ObjectOne=0 to Memblock1 step 4
ObjXa#=MEMBLOCK FLOAT(Obj1#,ObjectOne)
ObjYa#=MEMBLOCK FLOAT(Obj1#,ObjectOne+4)
ObjZa#=MEMBLOCK FLOAT(Obj1#,ObjectOne+8)

SET VECTOR4 2, ObjXa#, ObjYa#, ObjZa#, 0
TRANSFORM VECTOR4 2, 2, 1
Set Vector3 3, X Vector4(2), Y Vector4(2), Z Vector4(2)
Normalize Vector3 3,3

Xvertex1#=X VECTOR3(3)
Yvertex1#=Y VECTOR3(3)
Zvertex1#=Z VECTOR3(3)
next ObjectOne

`Object 2
for ObjectTwo=0 to Memblock2 step 4
ObjXb#=MEMBLOCK FLOAT(Obj2#,ObjectTwo)
ObjYb#=MEMBLOCK FLOAT(Obj2#,ObjectTwo+4)
ObjZb#=MEMBLOCK FLOAT(Obj2#,ObjectTwo+8)

SET VECTOR4 5, ObjXb#, ObjYb#, ObjZb#, 0
TRANSFORM VECTOR4 5, 5, 4
Set Vector3 6, X Vector4(5), Y Vector4(5), Z Vector4(5)
Normalize Vector3 6,6

Xvertex2#=X VECTOR3(6)
Yvertex2#=Y VECTOR3(6)
Zvertex2#=Z VECTOR3(6)
next ObjectTwo

Text 10,85, "Object One Vertex X: "+Str$(Xvertex1#)
Text 10,100, "Object One Vertex Y: "+Str$(Yvertex1#)
Text 10,115, "Object One Vertex Z: "+Str$(Zvertex1#)

Text 10,130, "Object Two Vertex X: "+Str$(Xvertex2#)
Text 10,145, "Object Two Vertex Y: "+Str$(Yvertex2#)
Text 10,160, "Object Two Vertex Z: "+Str$(Zvertex2#)

endif
endfunction

+ Code Snippet

SET DISPLAY MODE DESKTOP WIDTH(), DESKTOP HEIGHT(), 32, 1
SYNC ON : SYNC RATE 0
Make object sphere 1, 10, 20,20
Make Object Sphere 2, 5, 10, 10

AUTOCAM OFF

MA=Make Matrix4(1)
V=Make Vector4(2)
V=Make Vector3(3)
MB=Make Matrix4(4)
V=Make Vector4(5)
V=Make Vector3(6)

ZDepth as float : ZDepth = 10

#constant worldv  7
#constant viewm  8
#constant projectm  9

UpdateVector= MAKE VECTOR3(10)

a=Make vector4(worldv)
a=Make Matrix4(viewm)
a=Make Matrix4(projectm)

#constant CenterX (screen width()/2.0)
#constant CenterY (screen height()/2.0)

`Set camera range 0, 0.01, 3000.0

position camera 0,50,0,50

do
CONTROL CAMERA USING ARROWKEYS 0, 0.5, 0.25
POINT CAMERA 0, OBJECT POSITION X(1), OBJECT POSITION Y(1), OBJECT POSITION Z(1)
sync

`This is for the function matrix 4's
OBJECT MATRIX4 1, 1
OBJECT MATRIX4 4, 2

VIEW MATRIX4 viewm
PROJECTION MATRIX4 projectm
inc Zdepth, Zdepth*(mousemoveZ()/500.0)
If mouseclick()=2 then TURN OBJECT LEFT 2, 1.0

a=INVERSE MATRIX4 (viewm,viewm)
a=INVERSE MATRIX4 (projectm,projectm)

SET VECTOR4 worldv, (MouseX()-CenterX)/CenterX, (MouseY()-CenterY)/-CenterY,0,1
TRANSFORM VECTOR4 worldv,worldv,projectm
DIVIDE VECTOR4 7, W VECTOR4(7)
set vector4 worldv,x vector4(worldv)*(ZDepth/z vector4(worldv)),y vector4(worldv)*(ZDepth/z vector4(worldv)),ZDepth,1
transform vector4 worldv,worldv,viewm

  Text 10, 10, "X: "+Str$(x vector4(worldv))
  Text 10, 25,  "Y: "+Str$(y vector4(worldv))
  Text 10,40, "Z: "+Str$(z vector4(worldv))
  
  POSITION OBJECT 2, x vector4(worldv),y vector4(worldv),z vector4(worldv)
AUTOMATIC OBJECT COLLISION 2, 2, 1

  MeldMesh(1,2,1)
sync
loop

Function MeldMesh(Obj1#, Obj2#, Mouse_Clicked_Number) `Obj1# = base or "body" object
If MouseClick()=Mouse_Clicked_Number
MAKE MESH FROM OBJECT Obj1#, Obj1#
MAKE MEMBLOCK FROM MESH Obj1#, Obj1#
Memblock1=MEMBLOCK DWORD(Obj1#,3)

MAKE MESH FROM OBJECT Obj2#, Obj2#
MAKE MEMBLOCK FROM MESH Obj2#, Obj2#
Memblock2=MEMBLOCK DWORD(Obj2#,3)

`Object 1
for ObjectOne=0 to Memblock1 step 4
ObjXa#=MEMBLOCK FLOAT(Obj1#,ObjectOne)
ObjYa#=MEMBLOCK FLOAT(Obj1#,ObjectOne+4)
ObjZa#=MEMBLOCK FLOAT(Obj1#,ObjectOne+8)

SET VECTOR4 2, ObjXa#, ObjYa#, ObjZa#, 0
TRANSFORM VECTOR4 2, 2, 1
Set Vector3 3, X Vector4(2), Y Vector4(2), Z Vector4(2)
Normalize Vector3 3,3

Xvertex1#=X VECTOR3(3)
Yvertex1#=Y VECTOR3(3)
Zvertex1#=Z VECTOR3(3)
next ObjectOne

`Object 2
for ObjectTwo=0 to Memblock2 step 4
ObjXb#=MEMBLOCK FLOAT(Obj2#,ObjectTwo)
ObjYb#=MEMBLOCK FLOAT(Obj2#,ObjectTwo+4)
ObjZb#=MEMBLOCK FLOAT(Obj2#,ObjectTwo+8)

SET VECTOR4 5, ObjXb#, ObjYb#, ObjZb#, 0
TRANSFORM VECTOR4 5, 5, 4
Set Vector3 6, X Vector4(5), Y Vector4(5), Z Vector4(5)
Normalize Vector3 6,6

Xvertex2#=X VECTOR3(6)
Yvertex2#=Y VECTOR3(6)
Zvertex2#=Z VECTOR3(6)
next ObjectTwo

Text 10,85, "Object One Vertex X: "+Str$(Xvertex1#)
Text 10,100, "Object One Vertex Y: "+Str$(Yvertex1#)
Text 10,115, "Object One Vertex Z: "+Str$(Zvertex1#)

Text 10,130, "Object Two Vertex X: "+Str$(Xvertex2#)
Text 10,145, "Object Two Vertex Y: "+Str$(Yvertex2#)
Text 10,160, "Object Two Vertex Z: "+Str$(Zvertex2#)

endif
endfunction

Jack and Jill went up a hill to fetch a pale of water... but Jill got tired of his s#%& so she shot him.

Back to top

Profile PM Email Website

Daryn Alsup

18

Years of Service

User Offline

Joined: 5th Jul 2008

Location: In your head... dun dun DUN!!!!!!!!

Posted: 2nd Jun 2010 19:15 Edited at: 2nd Jun 2010 20:32

Link

Ooooh - what's this a new post... oh my... lookie what I have...

om-nom nom nom boogie cheese skillet muffin milf! ha ha!

SET DISPLAY MODE DESKTOP WIDTH(), DESKTOP HEIGHT(), 32, 1
SYNC ON : SYNC RATE 0
Make object sphere 1, 10, 20,20
Make Object Sphere 2, 5, 10, 10

set object normals 2
set object normals 1

AUTOCAM OFF

MA=Make Matrix4(1)
Va=Make Vector3(2)
Mb=Make Matrix4(3)
Vb=Make Vector3(4)

`Set camera range 0, 0.01, 3000.0

position camera 0,0,0,50

POSITION OBJECT 2, 0, 0, 35

do
Newmousez = MousemoveZ()
If oldmousez <> newmousez
If oldmousez < newmousez then mousezz=-1
If oldmousez > newmousez then mousezz=1
Oldmousez =Mousemovez()
MOVE CAMERA 0, 0+MouseZz
else
Mousezz=0
endif

POINT CAMERA 0, OBJECT POSITION X(1), OBJECT POSITION Y(1), OBJECT POSITION Z(1)

If DownKey()=1
MOVE OBJECT 2, 0.5
endif
If Upkey()=1
MOVE OBJECT 2, -0.5
endif
If Leftkey()=1
MOVE OBJECT LEFT 2, 0.5
endif
if RightKey()=1
MOVE OBJECT RIGHT 2, 0.5
endif
sync

`This is for the function matrix 4's
Object MATRIX4 1,1
OBJECT MATRIX4 3,2

`AUTOMATIC OBJECT COLLISION 2, 2, 1
ObjectNumber#=PICK OBJECT (MouseX(), MouseY(), 2, 2)
Dist#=GET PICK DISTANCE()
PICK SCREEN MouseX(), MouseY(), Dist#

MeldMesh(1, 2, 1)
sync
loop

Function MeldMesh(Obj1#, Obj2#, Mouse_Clicked_Number) `Obj1# = base or "body" object
If MouseClick()=Mouse_Clicked_Number

If MEMBLOCK EXIST(Obj1#)=0
MAKE MESH FROM OBJECT Obj1#, Obj1#
MAKE MEMBLOCK FROM MESH Obj1#, Obj1#
Memblock1=MEMBLOCK DWORD(Obj1#,3)
else
Memblock1=MEMBLOCK DWORD(Obj1#,3)
endif

If MEMBLOCK EXIST(Obj2#)=0
MAKE MESH FROM OBJECT Obj2#, Obj2#
MAKE MEMBLOCK FROM MESH Obj2#, Obj2#
Memblock2=MEMBLOCK DWORD(Obj2#,3)
else
Memblock2=MEMBLOCK DWORD(Obj2#,3)
endif

`Object 1
for ObjectOne=0 to Memblock1 step 4
ObjXa#=MEMBLOCK FLOAT(Obj1#,ObjectOne)
ObjYa#=MEMBLOCK FLOAT(Obj1#,ObjectOne+4)
ObjZa#=MEMBLOCK FLOAT(Obj1#,ObjectOne+8)

Set Vector3 2, ObjXa#, ObjYa#, ObjZa#
TRANSFORM COORDS VECTOR3 2,2,1

Xvertex1#=X VECTOR3(2)
Yvertex1#=Y VECTOR3(2)
Zvertex1#=Z VECTOR3(2)
next ObjectOne

`Object 2
for ObjectTwo=0 to Memblock2 step 4
ObjXb#=MEMBLOCK FLOAT(Obj2#,ObjectTwo)
ObjYb#=MEMBLOCK FLOAT(Obj2#,ObjectTwo+4)
ObjZb#=MEMBLOCK FLOAT(Obj2#,ObjectTwo+8)

Set Vector3 4, ObjXb#, ObjYb#, ObjZb#
TRANSFORM COORDS VECTOR3 4,4,3

Xvertex2#=X VECTOR3(4)
Yvertex2#=Y VECTOR3(4)
Zvertex2#=Z VECTOR3(4)
next ObjectTwo

Text 10,85, "Object One Vertex X: "+Str$(Xvertex1#)
Text 10,100, "Object One Vertex Y: "+Str$(Yvertex1#)
Text 10,115, "Object One Vertex Z: "+Str$(Zvertex1#)

Text 10,130, "Object Two Vertex X: "+Str$(Xvertex2#)
Text 10,145, "Object Two Vertex Y: "+Str$(Yvertex2#)
Text 10,160, "Object Two Vertex Z: "+Str$(Zvertex2#)

`DELETE MEMBLOCK Obj1#
`DELETE MEMBLOCK Obj2#
endif
endfunction

+ Code Snippet

SET DISPLAY MODE DESKTOP WIDTH(), DESKTOP HEIGHT(), 32, 1
SYNC ON : SYNC RATE 0
Make object sphere 1, 10, 20,20
Make Object Sphere 2, 5, 10, 10

set object normals 2
set object normals 1

AUTOCAM OFF

MA=Make Matrix4(1)
Va=Make Vector3(2)
Mb=Make Matrix4(3)
Vb=Make Vector3(4)


`Set camera range 0, 0.01, 3000.0

position camera 0,0,0,50

POSITION OBJECT 2, 0, 0, 35

do
Newmousez = MousemoveZ()
If oldmousez <> newmousez
If oldmousez < newmousez then mousezz=-1
If oldmousez > newmousez then mousezz=1
Oldmousez =Mousemovez()
MOVE CAMERA 0, 0+MouseZz
else
Mousezz=0
endif

POINT CAMERA 0, OBJECT POSITION X(1), OBJECT POSITION Y(1), OBJECT POSITION Z(1)

If DownKey()=1
MOVE OBJECT 2, 0.5
endif
If Upkey()=1
MOVE OBJECT 2, -0.5
endif
If Leftkey()=1
MOVE OBJECT LEFT 2, 0.5
endif
if RightKey()=1
MOVE OBJECT RIGHT 2, 0.5
endif
sync

`This is for the function matrix 4's
Object MATRIX4 1,1
OBJECT MATRIX4 3,2

  

`AUTOMATIC OBJECT COLLISION 2, 2, 1
ObjectNumber#=PICK OBJECT (MouseX(), MouseY(), 2, 2)
Dist#=GET PICK DISTANCE()
PICK SCREEN MouseX(), MouseY(), Dist#

  MeldMesh(1, 2, 1)
sync
loop

Function MeldMesh(Obj1#, Obj2#, Mouse_Clicked_Number) `Obj1# = base or "body" object
If MouseClick()=Mouse_Clicked_Number

If MEMBLOCK EXIST(Obj1#)=0
MAKE MESH FROM OBJECT Obj1#, Obj1#
MAKE MEMBLOCK FROM MESH Obj1#, Obj1#
Memblock1=MEMBLOCK DWORD(Obj1#,3)
else
Memblock1=MEMBLOCK DWORD(Obj1#,3)
endif

If MEMBLOCK EXIST(Obj2#)=0
MAKE MESH FROM OBJECT Obj2#, Obj2#
MAKE MEMBLOCK FROM MESH Obj2#, Obj2#
Memblock2=MEMBLOCK DWORD(Obj2#,3)
else
Memblock2=MEMBLOCK DWORD(Obj2#,3)
endif

`Object 1
for ObjectOne=0 to Memblock1 step 4
ObjXa#=MEMBLOCK FLOAT(Obj1#,ObjectOne)
ObjYa#=MEMBLOCK FLOAT(Obj1#,ObjectOne+4)
ObjZa#=MEMBLOCK FLOAT(Obj1#,ObjectOne+8)

Set Vector3 2, ObjXa#, ObjYa#, ObjZa#
TRANSFORM COORDS VECTOR3 2,2,1

Xvertex1#=X VECTOR3(2)
Yvertex1#=Y VECTOR3(2)
Zvertex1#=Z VECTOR3(2)
next ObjectOne

`Object 2
for ObjectTwo=0 to Memblock2 step 4
ObjXb#=MEMBLOCK FLOAT(Obj2#,ObjectTwo)
ObjYb#=MEMBLOCK FLOAT(Obj2#,ObjectTwo+4)
ObjZb#=MEMBLOCK FLOAT(Obj2#,ObjectTwo+8)

Set Vector3 4, ObjXb#, ObjYb#, ObjZb#
TRANSFORM COORDS VECTOR3 4,4,3

Xvertex2#=X VECTOR3(4)
Yvertex2#=Y VECTOR3(4)
Zvertex2#=Z VECTOR3(4)
next ObjectTwo

Text 10,85, "Object One Vertex X: "+Str$(Xvertex1#)
Text 10,100, "Object One Vertex Y: "+Str$(Yvertex1#)
Text 10,115, "Object One Vertex Z: "+Str$(Zvertex1#)

Text 10,130, "Object Two Vertex X: "+Str$(Xvertex2#)
Text 10,145, "Object Two Vertex Y: "+Str$(Yvertex2#)
Text 10,160, "Object Two Vertex Z: "+Str$(Zvertex2#)

`DELETE MEMBLOCK Obj1#
`DELETE MEMBLOCK Obj2#
endif
endfunction

Took me two days to figure that out - wtf - needed to convert coordinates and not normalize... silly me

Here's a simple example - you can meddle with the camera if you want a better view - speed ain't bad but it could be better...

SET DISPLAY MODE DESKTOP WIDTH(), DESKTOP HEIGHT(), 32, 1
SYNC ON : SYNC RATE 0
Make object sphere 1, 10, 20,20
Make Object Sphere 2, 5, 10, 10

AUTOCAM OFF

MA=Make Matrix4(1)
Va=Make Vector3(2)
Mb=Make Matrix4(3)
Vb=Make Vector3(4)
Text1=Make Vector3(5)
MTest1=Make Matrix4(6)

POSITION OBJECT 2, 0.0, 0.0, 35.0

LOCK VERTEXDATA FOR LIMB 2,0
ArrayGet=GET VERTEXDATA VERTEX COUNT()
Dim BaseShape#(ArrayGet,2)
For MakeV= 0 to ArrayGet
OBJECT MATRIX4 6, 1
BaseShape#(MakeV,0)=GET VERTEXDATA POSITION X(MakeV)
BaseShape#(MakeV,1)=GET VERTEXDATA POSITION Y(MakeV)
BaseShape#(MakeV,2)=GET VERTEXDATA POSITION Z(MakeV)
Set Vector3 5, BaseShape#(MakeV,0), BaseShape#(MakeV,1), BaseShape#(MakeV,2)
TRANSFORM COORDS VECTOR3 5,5,6
Next MakeV
UNLOCK VERTEXDATA

`Set camera range 0, 0.01, 3000.0

position camera 0,0,0,50

do
Newmousez = MousemoveZ()
If oldmousez <> newmousez
If oldmousez < newmousez then mousezz=-1
If oldmousez > newmousez then mousezz=1
Oldmousez =Mousemovez()
MOVE CAMERA 0, 0+MouseZz
else
Mousezz=0
endif

If Mouseclick()=2
Newmousex = Mousemovex()
If oldmousex <> newmousex
If oldmousex < newmousex then mouseXX=-3
If oldmousex > newmousex then mouseXX=3
Oldmousex =Mousemovex()
TURN OBJECT RIGHT 2, MouseXX
else
Mousexx=0
endif
Endif

POINT CAMERA 0, OBJECT POSITION X(1), OBJECT POSITION Y(1), OBJECT POSITION Z(1)

If DownKey()=1
MOVE OBJECT 2, 0.5
endif
If Upkey()=1
MOVE OBJECT 2, -0.5
endif
If Leftkey()=1
MOVE OBJECT LEFT 2, 0.5
endif
if RightKey()=1
MOVE OBJECT RIGHT 2, 0.5
endif
sync

`This is for the function matrix 4's
Object MATRIX4 1,1
OBJECT MATRIX4 3,2

`AUTOMATIC OBJECT COLLISION 2, 2, 1
ObjectNumber#=PICK OBJECT (MouseX(), MouseY(), 2, 2)
Dist#=GET PICK DISTANCE()
PICK SCREEN MouseX(), MouseY(), Dist#

MeldMesh(1, 2, 1)
sync
loop

Function MeldMesh(Obj1#, Obj2#, Mouse_Clicked_Number) `Obj1# = base or "body" object
If MouseClick()=Mouse_Clicked_Number

`Object 1
LOCK VERTEXDATA FOR LIMB Obj1#,0
Memblock1=GET VERTEXDATA VERTEX COUNT()
UNLOCK VERTEXDATA
for ObjectOne=0 to Memblock1
LOCK VERTEXDATA FOR LIMB Obj1#,0
ObjXa#=GET VERTEXDATA POSITION X(ObjectOne)
ObjYa#=GET VERTEXDATA POSITION Y(ObjectOne)
ObjZa#=GET VERTEXDATA POSITION Z(ObjectOne)

Set Vector3 2, ObjXa#, ObjYa#, ObjZa#
TRANSFORM COORDS VECTOR3 2,2,1
UNLOCK VERTEXDATA

LOCK VERTEXDATA FOR LIMB Obj2#,0
Memblock2=GET VERTEXDATA VERTEX COUNT()
UNLOCK VERTEXDATA

`Object 2
for ObjectTwo=0 to Memblock2
LOCK VERTEXDATA FOR LIMB Obj2#,0
ObjXb#=GET VERTEXDATA POSITION X(ObjectTwo)
ObjYb#=GET VERTEXDATA POSITION Y(ObjectTwo)
ObjZb#=GET VERTEXDATA POSITION Z(ObjectTwo)

Set Vector3 4, ObjXb#, ObjYb#, ObjZb#
TRANSFORM COORDS VECTOR3 4,4,3
UNLOCK VERTEXDATA

If abs(X Vector3(4)-X VECTOR3(2))<10.0 and abs(Y VECTOR3(4)-Y VECTOR3(2))<10.0 and abs(Z VECTOR3(4)-Z VECTOR3(2))<10.0
LOCK VERTEXDATA FOR LIMB Obj2#,0
SET VERTEXDATA POSITION ObjectTwo, X VECTOR3(2), Y VECTOR3(2), Z VECTOR3(2)
UNLOCK VERTEXDATA
Else
LOCK VERTEXDATA FOR LIMB Obj2#,0
SET VERTEXDATA POSITION ObjectTwo, BaseShape#(ObjectTwo,0), BaseShape#(ObjectTwo,1), BaseShape#(ObjectTwo,2)
UNLOCK VERTEXDATA
endif
next ObjectTwo
next ObjectOne
endif
endfunction

+ Code Snippet

SET DISPLAY MODE DESKTOP WIDTH(), DESKTOP HEIGHT(), 32, 1
SYNC ON : SYNC RATE 0
Make object sphere 1, 10, 20,20
Make Object Sphere 2, 5, 10, 10

AUTOCAM OFF

MA=Make Matrix4(1)
Va=Make Vector3(2)
Mb=Make Matrix4(3)
Vb=Make Vector3(4)
Text1=Make Vector3(5)
MTest1=Make Matrix4(6)

POSITION OBJECT 2, 0.0, 0.0, 35.0

LOCK VERTEXDATA FOR LIMB 2,0
ArrayGet=GET VERTEXDATA VERTEX COUNT()
Dim BaseShape#(ArrayGet,2)
For MakeV= 0 to ArrayGet
OBJECT MATRIX4 6, 1
BaseShape#(MakeV,0)=GET VERTEXDATA POSITION X(MakeV)
BaseShape#(MakeV,1)=GET VERTEXDATA POSITION Y(MakeV)
BaseShape#(MakeV,2)=GET VERTEXDATA POSITION Z(MakeV)
Set Vector3 5, BaseShape#(MakeV,0), BaseShape#(MakeV,1), BaseShape#(MakeV,2)
TRANSFORM COORDS VECTOR3 5,5,6
Next MakeV
UNLOCK VERTEXDATA


`Set camera range 0, 0.01, 3000.0

position camera 0,0,0,50



do
Newmousez = MousemoveZ()
If oldmousez <> newmousez
If oldmousez < newmousez then mousezz=-1
If oldmousez > newmousez then mousezz=1
Oldmousez =Mousemovez()
MOVE CAMERA 0, 0+MouseZz
else
Mousezz=0
endif

If Mouseclick()=2
Newmousex = Mousemovex()
If oldmousex <> newmousex
If oldmousex < newmousex then mouseXX=-3
If oldmousex > newmousex then mouseXX=3
Oldmousex =Mousemovex()
TURN OBJECT RIGHT 2, MouseXX
else
Mousexx=0
endif
Endif

POINT CAMERA 0, OBJECT POSITION X(1), OBJECT POSITION Y(1), OBJECT POSITION Z(1)

If DownKey()=1
MOVE OBJECT 2, 0.5
endif
If Upkey()=1
MOVE OBJECT 2, -0.5
endif
If Leftkey()=1
MOVE OBJECT LEFT 2, 0.5
endif
if RightKey()=1
MOVE OBJECT RIGHT 2, 0.5
endif
sync

`This is for the function matrix 4's
Object MATRIX4 1,1
OBJECT MATRIX4 3,2

  

`AUTOMATIC OBJECT COLLISION 2, 2, 1
ObjectNumber#=PICK OBJECT (MouseX(), MouseY(), 2, 2)
Dist#=GET PICK DISTANCE()
PICK SCREEN MouseX(), MouseY(), Dist#

  MeldMesh(1, 2, 1)
sync
loop

Function MeldMesh(Obj1#, Obj2#, Mouse_Clicked_Number) `Obj1# = base or "body" object
If MouseClick()=Mouse_Clicked_Number

`Object 1
LOCK VERTEXDATA FOR LIMB Obj1#,0
Memblock1=GET VERTEXDATA VERTEX COUNT()
UNLOCK VERTEXDATA
for ObjectOne=0 to Memblock1
LOCK VERTEXDATA FOR LIMB Obj1#,0
ObjXa#=GET VERTEXDATA POSITION X(ObjectOne)
ObjYa#=GET VERTEXDATA POSITION Y(ObjectOne)
ObjZa#=GET VERTEXDATA POSITION Z(ObjectOne)

Set Vector3 2, ObjXa#, ObjYa#, ObjZa#
TRANSFORM COORDS VECTOR3 2,2,1
UNLOCK VERTEXDATA

LOCK VERTEXDATA FOR LIMB Obj2#,0
Memblock2=GET VERTEXDATA VERTEX COUNT()
UNLOCK VERTEXDATA

`Object 2
for ObjectTwo=0 to Memblock2
LOCK VERTEXDATA FOR LIMB Obj2#,0
ObjXb#=GET VERTEXDATA POSITION X(ObjectTwo)
ObjYb#=GET VERTEXDATA POSITION Y(ObjectTwo)
ObjZb#=GET VERTEXDATA POSITION Z(ObjectTwo)

Set Vector3 4, ObjXb#, ObjYb#, ObjZb#
TRANSFORM COORDS VECTOR3 4,4,3
UNLOCK VERTEXDATA

If abs(X Vector3(4)-X VECTOR3(2))<10.0 and abs(Y VECTOR3(4)-Y VECTOR3(2))<10.0 and abs(Z VECTOR3(4)-Z VECTOR3(2))<10.0
LOCK VERTEXDATA FOR LIMB Obj2#,0
SET VERTEXDATA POSITION ObjectTwo, X VECTOR3(2), Y VECTOR3(2), Z VECTOR3(2)
UNLOCK VERTEXDATA
Else
LOCK VERTEXDATA FOR LIMB Obj2#,0
SET VERTEXDATA POSITION ObjectTwo, BaseShape#(ObjectTwo,0), BaseShape#(ObjectTwo,1), BaseShape#(ObjectTwo,2)
UNLOCK VERTEXDATA
endif
next ObjectTwo
next ObjectOne
endif
endfunction

Jack and Jill went up a hill to fetch a pale of water... but Jill got tired of his s#%& so she shot him.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Vertices and melding (or welding) two objects similar to metaballs