'
' This example illustrates how to create an ActionSource 
' from FCurve information.
'
set oRoot = Application.ActiveProject.ActiveScene.Root
if Application.Selection.Count <> 0 then
	set oObject = Application.Selection(0)
else
	' Create sample scene
	set oNull = oRoot.AddNull
	set oObject = oNull.AddNull()
	oObject.posx.AddFCurve2( Array(1, -10, 50, 0, 100, 10) )
	oObject.posy.AddFCurve2( Array(1, 10, 50, 0, 100, 10) )
end if
CreateActionSourceFromLocalFCurves oObject
sub CreateActionSourceFromLocalFCurves( in_object )
	strTitle = "Create ActionSource from Local FCurves"
	if IsObject(in_object) <> True then
		MsgBox "Please select an object", vbExclamation, strTitle
		exit sub
	end if
	if InStr(in_object.Families, "3D Object") = 0 then
		MsgBox "Please select a 3D object", vbExclamation, strTitle
		exit sub
	end if
	set k = in_object.Kinematics
	' ... assuming all animation is on local transform
	set oAnimatedParams = k.AnimatedParameters(siFCurveSource)
	if oAnimatedParams.Count = 0 then
		MsgBox "Please select an object with animation", vbExclamation, strTitle
		exit sub
	end if
	' Find local parameters		
	set oLocalParams = CreateObject("XSI.Collection")
	for each oAnimatedParam in oAnimatedParams
		' Poor man's test for local parameters 
		if InStr( oAnimatedParam.FullName, ".local." ) <> 0 then
			' Only support fcurves for now.
			if TypeName(oAnimatedParam.Source) = "FCurve" then
				oLocalParams.Add oAnimatedParam 
			end if
		end if	
	next
	if oLocalParams.Count = 0 then
		exit sub
	end if
	Dim aTarget, aSource, aActive
	ReDim aTarget(oLocalParams.Count-1)
	ReDim aSource(oLocalParams.Count-1)
	ReDim aActive(oLocalParams.Count-1)
	i=0
	for each oLocalParam in oLocalParams
		aTarget(i) = oLocalParam.FullName
		set aSource(i) = oLocalParam.Source
		aActive(i) = True
		i = i + 1
	next
	set oActionSource = oRoot.AddActionSource( in_object.Name & "-localfcurves", _
		aTarget, aSource, aActive )
	LogMessage "Created new ActionSource " & oActionSource.FullName
end sub