' This example illustrates several mapping template commands.
' It creates an Action on a sphere, then uses a value mapping
' template to create an offset effect when this Action is instanced.
' Then it creates a connection mapping template so the sphere
' animation can be applied to a number of different objects (using a
' wildcard to do this).  Finally, the second clip (driving the cones)
' is accessed as a value map itself, and clip effects on it are
' created using SetMappingRule.
NewScene , False
' Create some objects for our example.
set oSphere = CreatePrim( "Sphere", "MeshSurface" )
set oCone = CreatePrim( "Cone", "MeshSurface" )
Duplicate oCone, 4
posParams = "/kine.local.posx,kine.local.posy,kine.local.posz"
' Make an Action with the sphere moving diagonally.
SetPositionKey oSphere, 1, -5, -3, 0
SetPositionKey oSphere, 50, 5, 3, 0
set oSource = StoreAction( , oSphere & posParams, 2, "Diagonal", True, 1, 50 )
' Create a value map and add some rules to it to map the
' sphere animation to be negated in X position and offset
' in Y.  We use a big index to indicate the rule should
' be added at the end.
CreateEmptyValueMap "Scene_Root", oValMap
AddMappingRule oValMap, oSphere & ".kine.local.posx", "(this)*-1", 10000
AddMappingRule oValMap, oSphere & ".kine.local.posy", "(this)-5", 10000
' Instantiate a clip which uses this value map to modify
' the sphere animation.
set oClip = AddClip( "Scene_Root", oSource, , , 1, "Sphere", , oValMap )
' Create a connection map, and add a single rule to it
' that will map the sphere animation to all cones, using
' a wildcard.
CreateEmptyConnectionMap "Scene_Root", oCnxMap
AddMappingRule oCnxMap, oSphere, "cone*"
' Instantiate a clip which uses this connection map to
' connect the sphere source to all the cones.
set oClip = AddClip( "Scene_Root", oSource, , , 1, "Cones", oCnxMap )
' Bonus part...  For fun we'll modify the value mapping of each
' item in the cone clip, treating it like it's a fixed-size value
' map (can't add new items to it).
clip = oClip & ".actionclip"
offsetAmt = 0
n = GetNumMappingRules( clip )
for i = 1 to n
        GetMappingRule clip, i, param, expr, active
        if right( param, 4 ) = "posy" then
                SetMappingRule clip, param, "(this)+time*" & offsetAmt, i, active
                offsetAmt = offsetAmt + 1
        end if
next
'==================================================
' 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