' This example creates a simple 2-bone skeleton and puts it in a model.

' Then it duplicates the model so we can compare Standard versus Cardinal

' transitions.  Next it makes three poses for the first model.  Finally,

' it applies these source clips onto both models and uses Standard

' transitions for the first model and Cardinals for the second.  Cardinal

' transitions require at least four consecutive clips in a row, and they

' give a smoother interpolation than Standard.  It ends by plotting the

' effector position to a curve, to illustrate the difference.

' Create the skeleton for our example.

set oSkelRoot = Create2DSkeleton( 0, 4, 0, 0, 0, 0, , , , , oBone1, oEff )

oBone2 = AppendBone( oEff, 4, 0, 0 )

' Put the skeleton in its own model, pretend it's a "character".

CreateModel oSkelRoot, "Standard", , oModel

' Because AppendBone just returns a string, not the object,

' we prepend the model name onto the front (now that it's inside one).

oBone2 = oModel & "." & oBone2

' Duplicate the model in Branch mode ("B:" indicates branch), rename

' the new model "Cardinal" (the first model is called "Standard").

set oOtherModel = Duplicate( "B:" & oModel, 1 )

SetValue oOtherModel & ".name", "Cardinal"

' The model is the first member of the collection returned by Duplicate.

oOtherModel = oOtherModel(0)

' Take a few "snapshot" poses.  For this example, we translate the

' effector (IK), but capture the values of the bone rotations (FK)

' for later use in the mixer.

rotParams = "/kine.local.rotx,kine.local.roty,kine.local.rotz"

paramStr = oBone1 & "," & oBone2 & rotParams

dim oPoses(5)

posCoords = Array( Array(4,0,0), Array(0,2,0), Array(-1,-3,0), _

			Array(0,-3.5,0), Array(1,-1,0), Array(4,0,0) )

for i = 0 to 5

	SnapshotPose oModel, oEff, oPoses(i), _

			posCoords(i)(0), posCoords(i)(1), posCoords(i)(2), paramStr

next

' Create tracks for the clips (one track in each model).

dim oTracks(1), oClips(5,1)

set oTracks(0) = AddTrack( oModel, , 0 )

set oTracks(1) = AddTrack( oOtherModel, , 0 )

' Now go through and instantiate the sources into single-frame clips on

' the two mixers.  For the first mixer we will add standard transitions

' between each pair of consecutive clips.  For the second one, we

' will add Cardinal transitions.

for i = 0 to 5

	set oClips(i,0) = AddClip( oModel, oPoses((i)), , oTracks(0), i * 19 + 1 )

	set oClips(i,1) = AddClip( oOtherModel, oPoses((i)), , oTracks(1), i * 19 + 1 )

	if i > 0 then

		AddTransition oClips(i-1,0), oClips(i,0), 0	' Standard

		AddTransition oClips(i-1,1), oClips(i,1), 1	' Cardinal

	end if

next

' Just offset the two models so we can see them separately.

SetValue oModel & ".kine.local.posx", -5

SetValue oOtherModel & ".kine.local.posx", 5

' Get the second effector's full name by prepending the

' second model's name to the first effector's "simple" name.

oEff1 = oOtherModel & "." & oEff.name

' Finally, plot the effector positions to compare the paths.

PlotCurve oEff & "," & oEff1, , 1, 96, 1

'==================================================

' Helper method to create a snapshot Action for the chain.

'==================================================

sub SnapshotPose( in_oModel, in_oEff, io_oPose, in_X, in_Y,in_Z, in_paramStr )

	Translate in_oEff, in_X, in_Y, in_Z, siAbsolute, siView, siObj, siXYZ

	Refresh ' needed because StoreAction just looks at current values.

	set io_oPose = StoreAction( in_oModel, in_paramStr, 1, , True, 1, 1 )

end sub