'
' 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 );