'

' The following example illustrates how to access the position

' information stored in a shape key. Adding a shape key using  

' local reference mode will store the positions as deltas to 

' the local referential of each point. To calculate the 

' absolute position for each point you need the local

' referential for the point and the original position before

' the shape was applied. 

'

' Create the scene with an object with a shape clip	

NewScene , false

set root = ActiveSceneRoot

set c1 = root.AddGeometry( "Cube", "MeshSurface" )

set c2 = Duplicate( c1, , 2, 1, 1, 0, 0, 1, 0, 1 )(0)

Translate c2, 10, 0, -2, siRelative, siView, siObj, siXYZ

Translate c2 & ".pnt[2,3,6,LAST]", -6, -4, 4, siRelative, siView, siObj, siXYZ

' Add a shapeclip where the position data is stored as deltas to 

' the point's local referential. You can also store the shape in

' absolute mode in which case the cluster property contains 

' for the shape the actual point data or you can store it in 

' object mode in which case deltas are stored in the object

' referential (i.e. the pose of the object). 

set key = SelectShapeKey( c1, c2, siShapeLocalReferenceMode )

dim mix

if root.HasMixer() then

	set mix = root.Mixer

else

	set mix = root.AddMixer()

end if

set shapetrack = AddTrack( root, mix, 1 )

AddClip root, key, , shapetrack, 1, , , , False

'

' Get the shapeclip 

' 

dim clip

for each c in mix.Clips

	if c.Type = siClipShapeType then

		set clip = c

	end if

next

' We need to mute the shape combiner and all the operators above it 

' inorder to get the local reference frame and position of each

' point before the shape animation was applied to the geometry. 

' (This gives the position values before the shape that was stored 

' and does not include the result of deformations applied afterwards.) 

set geom = Nothing

set oMatrix33 = XSIMath.CreateMatrix3

set oDelta = XSIMath.CreateVector3

set oXAxis = XSIMath.CreateVector3

set oYAxis = XSIMath.CreateVector3

set oZAxis = XSIMath.CreateVector3

for idx=0 to clip.MappedItems.Count-1

	set mi = clip.MappedItems(idx)

	LogMessage TypeName(mi)

	LogMessage TypeName(mi.Source2)

	' Get the cluster property/shape key stored in the shapeclip

	set clsprop = mi.Source2

	' Since the geometry for each mappeditem will be

	' the same we'll only need to get it once.	

	if TypeName(geom) = "Nothing" then

		' Get the cluster, primitive and geometry from the 

		' cluster property

		set cls = clsprop.Parent

		set geom = cls.Parent

		set prim = geom.Parent

		' Deactivate all operators above and including the shape combiner

		DeactivateAbove prim.FullName & ".clustershapecombiner", True

		' Get the position array from the geometry

		aPosition = geom.Points.PositionArray

		' Get the old Geometry0D object to access 

		' the local reference frame for each point

		set geomv1 = geom.Parent.Obj

		set o0DGeometry = geomv1.Geometry0D 

	end if

	' Assume that the number of cluster property elements

	' matches the geometry and that they are same order i.e. 

	' point0 == clusterelement0

	' Get the delta position array from the clusterproperty

	aDelta = clsprop.Elements.Array

	' Figure out the absolute position value using the deltas,

	' the original point position and the local referential 

	' of each point

	for i=LBound( aDelta, 2 ) to UBound( aDelta, 2 )

		' Set a vector3 with the delta for the position

		oDelta.Set aDelta( 0, i ), aDelta( 1, i ), aDelta( 2, i )

		' Get the local reference frame for the point

		o0DGeometry.LocalReferenceFrame i, _

			oXAxis, oXAxisValid, _

			oYAxis, oYAxisValid, _

			oZAxis, oZAxisValid

		' Get the transformation matrix to go from point

		' local reference frame to object referential

		oMatrix33.Set _

				oXAxis.X , oXAxis.Y, oXAxis.Z, _

				oYAxis.X , oYAxis.Y, oYAxis.Z, _

				oZAxis.X , oZAxis.Y, oZAxis.Z 

		oDelta.MulByMatrix3 oDelta, oMatrix33 

		' Set a vector3 with the point position		

		set oPosition = XSIMath.CreateVector3

		oPosition.Set _

			aPosition( 0, i ), _

			aPosition( 1, i ), _

			aPosition( 2, i )

		' Compute the absolute position by adding the delta

		oPosition.AddInPlace oDelta

		' Log the absolute position values for the point

		LogMessage oPosition.X & "," & oPosition.Y & "," & oPosition.Z		

	next

next

' Reactivate shapecombiner and all operators above it 

if TypeName(prim) <> "Nothing" then

	DeactivateAbove prim.FullName & ".clustershapecombiner", False

end if	

' Enumerate the shapeclips under the mixer shape track.

for each t in ActiveSceneRoot.Mixer.Tracks

	if t.Type = siTrackShapeType then

		set shapetrack = t

		exit for

	end if

next

for each shapeclip in shapetrack.Clips

	LogMessage shapeclip

next

'Expected results:

'INFO : MappedItem

'INFO : ShapeKey

'INFO : -4,-4,-4

'INFO : 4,-4,-4

'INFO : -10,1.33226762955019E-15,-1.33226762955019E-15

'INFO : -2,1.33226762955019E-15,-1.33226762955019E-15

'INFO : -4,-4,4

'INFO : 4,-4,4

'INFO : -10,8.88178419700125E-16,8

'INFO : -2,8.88178419700125E-16,8

'INFO : Mixer.Mixer_Shape_Track.cube1_ShapeKey_Clip

/*

	This Shape Animation example demonstrates how to use GetDrivingActions() 

	to get at the ShapeClips which animate an object. It also demonstrates 

	how to access the fcurves on each clip

*/

// Create a little sample scene with a simple animated sphere

NewScene( null, false );

// Make sure we are in Mixed Weight Mode

SetUserPref( "ShapeInstancingMode", 1 );

var oSphere = ActiveSceneRoot.AddGeometry( "Sphere", "MeshSurface" );

SaveShapeKey( "sphere", null, null, 1, null, null, null, null, 

	siShapeLocalReferenceMode );

// Move a vertice and record that as the shape at frame 20

SelectGeometryComponents( "sphere.pnt[33]" );

Translate( null, 3, 0, 0, siRelative, siView, siObj, siXYZ );

SaveShapeKey( oSphere + ".pnt[33]", null, null, 20, null, null, null, null, 

	siShapeLocalReferenceMode );

// Move another point as shape for frame 30

SelectGeometryComponents( "sphere.pnt[1]" );

Translate( null, 0, 3, 0, siRelative, siView, siObj, siXYZ );

SaveShapeKey( oSphere + ".pnt[1]", null, null, 30, null, null, null, null, 

	siShapeLocalReferenceMode );

// Access the ShapeClips which have been created on the object

var oClips = GetDrivingActions( oSphere, false, null, false, false );

for ( var i=0; i<oClips.Count; i++ ) {

	// Get the clip

	var oClip = oClips(i);

	// Access the animated parameter which controls the weight of the clip

	// in the mixer

	var oParam = Dictionary.GetObject( oClip + ".actionclip.weight" );

	var oFCurve = oParam.Source;

	// At frame 40 we will do an equal blend of all the shapes

	oFCurve.AddKey( 40, 1 );

	// Print out the keys	

	var oFCurveKeys = oFCurve.Keys;

	LogMessage( "FCurve on " + oClip );

	for ( var j=0; j<oFCurveKeys.Count; j++ ) {

		var oFCurveKey = oFCurveKeys.Item( i );

		LogMessage( "    Time:" + oFCurveKey.Time + "-" + oFCurveKey.Value );

	}

}

// Expected result:

//INFO : FCurve on Mixer.Mixer_Shape_Track.Shape_ClusterClip.Mixer_Shape_Track3.ShapeKey2_Clip

//INFO :     Time:20-0

//INFO :     Time:20-0

//INFO :     Time:20-0

//INFO : FCurve on Mixer.Mixer_Shape_Track.Shape_ClusterClip.Mixer_Shape_Track2.ShapeKey1_Clip

//INFO :     Time:20-1

//INFO :     Time:20-1

//INFO :     Time:20-1

//INFO :     Time:20-1

//INFO : FCurve on Mixer.Mixer_Shape_Track.Shape_ClusterClip.Mixer_Shape_Track1.ShapeKey_Clip

//INFO :     Time:40-1

//INFO :     Time:40-1

//INFO :     Time:40-1