TheGameCreators - CodeBase - Simple object deformation using an object

Return to the CodeBase listing

Category: Complete Applications

Version: Only one

Information

Uploaded: 4th May 2005 04:27

Modified: 4th May 2005 04:29

Author: Narf The Mouse

Summary

Squish one object with another.

Full Description

This code will hopefully help with such things as making sure your characters' hair doesn't appear outside the characters' helmet/hat/whatever.<br /> <br /> It contains two example codes, one which is direction-oriented for a single plain and one which is uni-directional. It uses the new VertexData commands

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

sync on : sync rate 0 : hide mouse : randomize timer( )

make object sphere 1, 50 ` The object to be deformed. The one below this will do the deforming

make object plain 2, 50, 50 : position object 2, 50, 0, 0 : rotate object 2, 0, 90, 0

Marker = 3 : make object sphere Marker, 5 : hide object Marker ` A marker object

LOCK VERTEXDATA FOR LIMB 1, 0 : n=GET VERTEXDATA VERTEX COUNT( ) ` So we can move vertices

global dim OVertexPos#( n, 2 ) ` Get all the vertices original vertex data

for t = 0 to n

OVertexPos#( t, 0 ) = GET VERTEXDATA POSITION X( t )

OVertexPos#( t, 1 ) = GET VERTEXDATA POSITION Y( t )

OVertexPos#( t, 2 ) = GET VERTEXDATA POSITION Z( t )

next t

x# = object position x( 1 ) : y# = object position y( 1 ) : z# = object position z( 1 )

px# = 100 ` Get object #1's centerpoint above; this line is the initial position of object #2

for t = 0 to n ` Go through all the vertices

x2# = GET VERTEXDATA POSITION X( t ) ` Get the vertex position

y2# = GET VERTEXDATA POSITION Y( t )

z2# = GET VERTEXDATA POSITION Z( t )

x3# = OVertexPos#( t, 0 ) : y3# = OVertexPos#( t, 1 ) : z3# = OVertexPos#( t, 2 )

x4# = x3# - x2# : y4# = y3# - y2# : z4# = z3# - z2# ` This tries to move all the vertices

x2# = x2# + ( x4# * 0.01 ) : y2# = y2# + ( y4# * 0.01 ) : z2# = z2# + ( z4# * 0.01 )

SET VERTEXDATA POSITION t, x2#, y2#, z2# ` back to their original positions

position object Marker, x2#, y2#, z2#

rotate object Marker, object angle x( 2 ), object angle y( 2 ), object angle z( 2 )

move object Marker, -20

xb# = object position x( 3 ) : yb# = object position y( 3 ) : zb# = object position z( 3 )

d# = intersect object( 2, xb#, yb#, zb#, x2#, y2#, z2# )

` The above code is a simple way of checking wether the vertex is being affected by the plain.

` It checks against the anlge of the plain. At the bottom is code that will check from the

` middle of the object.

if d# <> 0 ` If the vertex is behind the plain

move object Marker, d#

SET VERTEXDATA POSITION t, object position x( Marker ), object position y( Marker ), object position z( Marker )

` That repositions the vertex onto the plain. :)

endif

next t

rem cy# = wrapvalue( cy# + 0.1 ) ` Code to rotate the camera

position camera px#, 0, 0

rotate camera 0, cy#, 0

move camera 0, -200

pxm# = mousemovex( ) : pxm# = pxm# * 0.156 : px# = px# + pxm#

position object 2, px#, 0, 0 ` So we can move the plain with the mouse.

sync

loop

` This code has the advantage of operating independant

` of the object that's doing the squishing. It also

` squishes towards the center - But for helmets and hair

` nobody's going to see, anyway. :)

remstart

if d# <> 0

x3# = abs( x2# - x# ) : y3# = abs( y2# - y# ) : z3# = abs( z2# - z# )

tc# = ( x3#^2 + y3#^2 + z3#^2 ) ^ 0.5 ` Get the distance between the center and the vertex

x4# = x3# / tc# : y4# = y3# / tc# : z4# = z3# / tc#

x5# = x4# * d# : y5# = y4# * d# : z5# = z4# * d# ` And squish

if x2# < 0 then x5# = x5# * -1

if y2# < 0 then y5# = y5# * -1

if z2# < 0 then z5# = z5# * -1

SET VERTEXDATA POSITION t, x5#, y5#, z5#

endif

remend

Download

Please login to download

Comments

No comments yet.

Author Name:	Narf The Mouse
CodeBase Entries:	1

CodeBase - Simple object deformation using an object