/*

	This example demonstrates how to get the parent of an fcurve.

*/ 

// Set up the scene with a custom pset on a null

NewScene( null, false );

var n = ActiveSceneRoot.AddNull();

var pset = n.AddCustomProperty( "CustomPSet" );

var x = pset.AddParameter3( "X", siDouble, 0, 0, 100 );

LogMessage( "x value = " + x.value, siInfo )

LogMessage( "x min/max = " + x.min + ", " + x.max, siInfo )

// Set an fcurve on the custom parameter

var fc = x.AddFCurve2( null, null );

var param = fc.Parent;

LogMessage( "parent of fcurve = " + param.FullName, siInfo );

LogMessage( "param isequal to x = " + param.IsEqualTo(x), siInfo );

// Outputs:

//INFO : "x value = 0"

//INFO : "x min/max = 0, 100"

//INFO : "parent of fcurve = null.CustomPSet.X"

//INFO : "param isequal to x = true"

' ==========================================================================

'   This part of the script just sets up the sphere, curve, and the path

'   constraint between them.

' --------------------------------------------------------------------------

' Set up scene context

Set oRoot = ActiveSceneRoot

' Create sphere that will be animated with path constraint

Set oSphere = oRoot.AddGeometry( "Sphere", "MeshSurface" )

' Create curve for path constraint

Set oCrv = SICreateCurve( "crvlist", 3, 0 )

SIAddPointOnCurveAtEnd oCrv, _

	-7.87711815167134, -1.9399113143663, 0.193991131436629, False

SIAddPointOnCurveAtEnd oCrv, _

	8.74360114835504, -5.93730432578764, 0.593730432578766, False

SIAddPointOnCurveAtEnd oCrv, _

	7.60141901636287, 5.15350177452872, -0.515350177452866, False

SIAddPointOnCurveAtEnd oCrv, _

	-6.30169452133709, 5.03593139183983, -0.50359313918398, False

SIAddPointOnCurveAtEnd oCrv, _

	2.71760576232661, -6.21163521872843, 0.621163521872845, False

' Apply path constraint to sphere 

SelectObj oSphere, , True

ApplyPath oSphere, oCrv, 10.0, 95.5, 2, False, False



' ==========================================================================

'   This part of the script finds the existing fcurve & gets the time in 

'   frames of the first and last key.

' --------------------------------------------------------------------------

' Get all the meshes under the root

Set oMeshes = oRoot.FindChildren(,,siMeshFamily)

LogMessage "Number of meshes found: " & oMeshes.Count

' Iterate over the meshes to find the one with the fcurve

For Each s In oMeshes

	' Get the path constraint on the object

	Set oCns = s.Kinematics.Constraints("PathCns")

	' Just to make sure script doesn't crash if not found

	If oCns <> "Nothing" Then

		' Getting path percentage to check that it's ok

		LogMessage "Path percentage = " & oCns.perc.Value

		' Get fcurve attached to path percentage

		Set oFCurve = oCns.perc.Source

		' Getting first & last curves on source

		If oFCurve.Keys.Count > 0 Then

			dFCKeyA = oFCurve.Keys(0).Time

			dFCKeyZ = oFCurve.Keys(oFCurve.Keys.Count - 1).Time

			' Print values

			LogMessage "First key in time is at frame " & dFCKeyA

			LogMessage "Last key in time is at frame " & dFCKeyZ

		End If

	End If

Next

' Output of above script is:

' --------------------------

'INFO : "Number of meshes found: 1"

'INFO : "Path percentage = 100"

'INFO : "First key in time is at frame 4.126"

'INFO : "Last key in time is at frame 90.274"

' 

' This example manipulates the FCurve that drives a Linked Parameter

' 

dim oControlPSet, oControlledPSet

set oControlPSet = ActiveSceneRoot.AddProperty( "CustomProperty", false, "ControlPSet" )

oControlPSet.AddParameter2 "LinkSrc", siInt4, 5, 0, 20, 0, 20, 0, siAnimatable 

set oControlledPSet = ActiveSceneRoot.AddProperty( "CustomProperty", false, "ControlledPSet" )

oControlledPSet.AddParameter2 "LinkDest", siInt4, 5, 0, 20, 0, 20, 0, siAnimatable 

'Create linked parameter

SetExpr "ControlledPSet.LinkDest", "l_fcv( ControlPset.LinkSrc )"

'Important: This is how you get to the FCurve so you can

'create the specific relationship

dim oFCurve, oExpr	

set oExpr = oControlledPSet.Parameters( "LinkDest" ).Source			

set oFCurve = oExpr.Parameters( "l_fcv" ).Source

oFCurve.BeginEdit

oFCurve.RemoveKeys

oFCurve.Interpolation = siLinearInterpolation

'Important: Linked fcurves are time independant.  So the in_Frame value is

'used directly as input (i.e. no conversion from frames to seconds is done).

'When linksrc is 0 then linkdest is 0

oFCurve.AddKey 0, 1

'when linksrc is 1 then linkdest is 3

oFCurve.AddKey 1, 3

'when linksrc is 2 then listdest is 2

oFCurve.AddKey 2, 2

'When linksrc is 10 the listdest is 20

oFCurve.AddKey 10, 20

oFCurve.EndEdit

'Demonstrate the relationship

oControlPSet.LinkSrc.Value = 1

Logmessage oControlledPSet.LinkDest.Value 

oControlPSet.LinkSrc.Value = 10

Logmessage oControlledPSet.LinkDest.Value 

'Expected results:

'INFO : 3

'INFO : 20