'

' This example builds a simple keyframed animation, puts it in an

' Action and instantiates it on the mixer, transitioning to a second

' (static) clip.

'

posParams = "/kine.local.posx,kine.local.posy,kine.local.posz"

' Create the object for our example.

set oSphere = CreatePrim( "Sphere", "MeshSurface" )

' Animate it and store an Action for the motion.

SetPositionKey oSphere, 1, -5, -5, 0

SetPositionKey oSphere, 30, 5, 5, 0

set oSourceAnim1 = StoreAction( , oSphere & posParams, 2, "Diagonal", True, 1, 30 )

' Store another source which is a static snapshot.

Translate oSphere, -5, 5, 0, siAbsolute, siView, siObj, siXYZ

set oSourceAnim2 = StoreAction( , oSphere & posParams, 1, "Static", True, 1, 10 )

' Create a track for the clips.

set oTrackAnim = AddTrack( oSphere, , 0, "SimpleAnim" )

' Instantiate the animation sources onto the track.

set oClipAnim1 = AddClip( "Scene_Root", oSourceAnim1, , oTrackAnim, 1 )

set oClipAnim2 = AddClip( "Scene_Root", oSourceAnim2, , oTrackAnim, 91 )

' Put a transition between the two clips.

AddTransition oClipAnim1, oClipAnim2, 0

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

' Helper method to key an object somewhere at a given frame.

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

sub SetPositionKey( in_oObj, in_frame, in_posX, in_posY, in_posZ )

	Translate in_oObj, in_posX, in_posY, in_posZ, siAbsolute, siParent, siObj, siXYZ

	SaveKey in_oObj & posParams, in_frame

end sub

' This example demonstrates several mixer-related commands.  It

' makes a couple of shape keys and instantiates them on the mixer,

' transitioning between them.  Then it takes the shape animation,

' puts it into a compound clip and finally adds a bit more shape

' animation inside the compound.

' Create the object for our example.

set oSphere = CreatePrim( "Sphere", "MeshSurface" )

' Store a couple of shape keys (we use the temporarily-applied bulge

' just to have an interesting shape for the second key.

set oSourceShape1 = StoreShapeKey( oSphere, , siShapeLocalReferenceMode )

set oBulge = ApplyOp( "Bulge", oSphere, 3, siPersistentOperation )

set oSourceShape2 = StoreShapeKey( oSphere, , siShapeLocalReferenceMode )

DeleteObj oBulge

' Create a temporary track to put the clips onto.

set oTrackTemp = AddTrack( oSphere, , 1 )

' Instantiate the shape sources onto the track.

set oClipShape1 = AddClip( "Scene_Root", oSourceShape1, , oTrackTemp, 1 )

set oClipShape2 = AddClip( "Scene_Root", oSourceShape2, , oTrackTemp, 90 )

' Put a transition between the two clips.

AddTransition oClipShape1, oClipShape2, 0

' Create a track for a shape compound, then put the two

' shape clips into it.

set oTrackCpd = AddTrack( "Scene_Root", , 1, "ForCompound" )

set oCompound = CreateCompound( "Scene_Root", oClipShape1 & "," & oClipShape2, _

	, oTrackCpd, 1, "MyCompound" )

' Add a new track inside the shape compound, on which

' we will instantiate a couple more sources.  Note that

' we insert it before the other track in the compound,

' so it will appear first.

set oTrackInsideCpd = AddTrack( "Scene_Root", oCompound, , "Extras", 0 )

set oClipShape1 = AddClip( "Scene_Root", oSourceShape2, , oTrackInsideCpd, 30 )

set oClipShape2 = AddClip( "Scene_Root", oSourceShape1, , oTrackInsideCpd, 50 )

SetValue oClipShape2 & ".actionclip.timectrl.scale", 0.5

SetDefaultWeight oClipShape1, siWeightGaussian, 0

SetDefaultWeight oClipShape2, siWeightGaussian, 0

' Get rid of this temporary track...

DeleteObj oTrackTemp