'
' This example demonstrates how to use the EqualizeAction command to 
' create a new (equalized) compound clip from an existing action source.
'
' Create an object for our example.
set oSphere = CreatePrim( "Sphere", "MeshSurface" )
posParams = "/kine.local.posx,kine.local.posy,kine.local.posz"
' Make an Action with it moving diagonally over 20 frames.
SetPositionKey oSphere, 1, -5, -5, 0
SetPositionKey oSphere, 20, 5, 5, 0
set oSource = StoreAction( , oSphere & posParams, 2, "Diagonal", True, 1, 20 )
' Create a track and instantiate the Action onto it, starting at frame 10.
set oTrack = AddTrack( "Scene_Root", , 0 )
set oClip1 = AddClip( "Scene_Root", oSource, , oTrack, 10 )
' Use that action to create a new compound clip
set oClip2 = EqualizeAction( oSource, 4, 10, "EqualizedActionClip" )
'==================================================
' 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