'
' This example illustrates how to access the fcurves inside a
' model's actionsource
'
NewScene , false
set oRoot = Application.ActiveProject.ActiveScene.Root
' These commands were cut and pasted from scripting history and modified to work in a script.
' The commands create a simple actionsource from some animation on the null's position
set oNull = GetPrim( "Null" )
strPosParams = oNull & ".kine.local.posx," & oNull & ".kine.local.posy," & oNull & ".kine.local.posz"
Translate oNull, -8.153, 7.015, -0.702, siRelative, siView, siObj, siXYZ
SaveKey strPosParams, 1.000
Translate oNull, 8.350, -8.935, 0.894, siRelative, siView, siObj, siXYZ
SaveKey strPosParams, 50.000
Translate oNull, 9.413, 8.935, -0.894, siRelative, siView, siObj, siXYZ
SaveKey strPosParams, 100.000
StoreAction oRoot, strPosParams, 2, "StoredFcvAction", True, 1, 100
' Get the ActionSource from the model
set oActionSource = oRoot.Sources("StoredFcvAction")
LogMessage oActionSource.Name
for each oSourceItem in oActionSource.SourceItems
        LogMessage vbTab & "target: " & oSourceItem.Target
        set oSource = oSourceItem.Source
        if TypeName(oSource) = "FCurve" then
                strKeys=""
                for each oKey in oSource.Keys
                        if strKeys<>""then
                                strKeys = strKeys & ","
                        end if
                        strKeys = strKeys & oKey.Time & "," & oKey.Value
                next
                LogMessage vbTab & "source: " & "fcurve keys(" & strKeys & ")"
        else
                LogMessage vbTab & "source ignored"
        end if
next
' Output of above script:
'INFO : StoredFcvAction
'INFO :         target: null.kine.local.posx
'INFO :         source: fcurve keys(1,-8.153,50,0.196999999999999,100,9.61)
'INFO :         target: null.kine.local.posy
'INFO :         source: fcurve keys(1,7.015,50,-1.92,100,7.015)
'INFO :         target: null.kine.local.posz
'INFO :         source: fcurve keys(1,-0.702,50,0.192,100,-0.702)

/*
        This example illustrates how to create an empty ActionSource using
        Model.AddActionSource, populate it with 2 static values and 1 fcurve 
        using ActionSource.AddSourceItem, and then replace the fcurve source 
        with a static value for the 2nd and change the static value for the 3rd 
        using AnimationSourceItem.SetAsStatic.
*/
NewScene( null, false );
// Get the scene root
var root = Application.ActiveSceneRoot;
// Create a null and get pointers to the pos parameters
var n = root.AddNull( "null");
var posx = n.posx; var rposx = GetRelativeName(posx);
var posy = n.posy; var rposy = GetRelativeName(posy);
var posz = n.posz; var rposz = GetRelativeName(posz);
// Create an empty actionsource and then populate it with static values
var src = root.AddActionSource( "StaticActionSource" );
var fc = MakeAnFCurve( n, "posy" );
src.AddSourceItem( rposx, 2.0 );        // static value 
src.AddSourceItem( rposy, fc );         // fcurve 
src.AddSourceItem( rposz );             // default static value = 0.0
// Now change the value on the posz parameter using SetAsStatic and change
// the posy parameter source to an fcurve
var animsrcitems = src.SourceItems;
for ( var i=0; i<animsrcitems.Count; i++ ) {
        var srcitem = animsrcitems(i);
        // Get a pointer to the source item (it can be either a StaticSource or an FCurve)
        var datasrc = srcitem.Source;
        if ( datasrc.IsClassOf(siFCurveID) ) {
                // Print the FCurve type
                Application.LogMessage( "AnimationSourceItem[" + i + "] (" + srcitem.Target 
                        + ") has " + datasrc.GetNumKeys() + " keys" );
        }
        if ( datasrc.IsClassOf(siStaticSourceID) ) {
                // Print the current value
                Application.LogMessage( "AnimationSourceItem[" + i + "] (" + srcitem.Target 
                        + ") has this static value: " + datasrc.Value );
        }
        // AnimationSourceItem.Target returns the RelativeName
        if ( srcitem.Target == rposy ) {
                srcitem.SetAsStatic( 1.0 );
                // Check for the new value (we know it's a StaticSource because we just set it)
                var datasrc = srcitem.Source;           // refresh
                Application.LogMessage( "New static value = " + datasrc.Value );
        }
        if ( srcitem.Target == rposz ) {
                srcitem.SetAsStatic( 1.5 );
                // Check for the new value (we know it's a StaticSource because we just set it)
                var datasrc = srcitem.Source;           // refresh
                Application.LogMessage( "New static value = " + datasrc.Value );
        }
}
//INFO : AnimationSourceItem[0] (null.kine.local.posx) has this static value: 2
//INFO : AnimationSourceItem[1] (null.kine.local.posy) has 4 keys
//INFO : New static value = 1
//INFO : AnimationSourceItem[2] (null.kine.local.posz) has this static value: 0
//INFO : New static value = 1.5
// Function to remove the name of the model from the FullName of the specified parameter.
// This is necessary when setting up a source that will later be used to instantiate a
// clip when the parameter lives under a model other than the Scene_Root.
function GetRelativeName( in_param )
{
        var mdlname = in_param.Model.FullName;
        if ( mdlname == "Scene_Root" ) {
                return in_param.FullName;
        } else {
                var tmp = in_param.FullName;
                var re = new RegExp( mdlname + ".", "i" );
                return tmp.replace( re, "" );
        }
}
// Convenience function 
function MakeAnFCurve( in_obj, in_param )
{
        var p = in_obj.Kinematics.Local.Parameters( in_param );
        var fc = p.AddFCurve( siStandardFCurve );
        fc.AddKey( 1.0, 1.25 );
        fc.AddKey( 25.0, 2.0 );
        fc.AddKey( 40.0, 2.75 );
        fc.AddKey( 85.0, 0.0 );
        return fc;
}

// Simple example showing how to access action source items from a collection
        NewScene( false, false ) ;
        var cube = ActiveSceneRoot.AddPrimitive("Cube") ;
        var actionsource = StoreAction( null, "cube.kine.local.posx, cube.kine.local.posy, cube.kine.local.posz", null, "Test", null, 1, 5, null, null, null, 1);  
        var items = actionsource.SourceItems;
        // Log all items
        for ( var i = 0; i< items.Count; i++ )
        {
                LogMessage( items(i).Name );
        }
        // Log specific items
        LogMessage( "cube.kine.local.posx ActionSourceItem active: " + items("cube.kine.local.posx").Active );
        var filtereditems = items.Filter ("","","cube.kine.local.posx");
        LogMessage( "cube.kine.local.posx ActionSourceItem source value: " + filtereditems(0).Source.Value );