/*
        This JScript example illustrates how to use the FCurve.SetKey method
        to translate keys.
*/
// Create a null
Application.NewScene( null, false );
var nullobj = ActiveSceneRoot.AddNull();
// Create an fcurve on the posx parameter from the null
var fc = nullobj.posx.AddFCurve()
// Create a custom property set on the null
var cpset = nullobj.AddCustomProperty( "CustomPSet" );
var empty;
var x = cpset.AddParameter( "X", siDouble, empty, siAnimatable, "X", "X", empty, 5, 0, 5 );
var y = cpset.AddParameter( "Y", siInt4, empty, siAnimatable, "Y", "Y", empty, 5, 0, 5 );
var fc1 = x.AddFCurve();
var fc2 = y.AddFCurve();
// Start editing the fcurves
fc1.BeginEdit();
fc2.BeginEdit();
// Add keys to the fcurves
fc1.Resample();
fc2.Resample();
// Assign some values to keys
var val, X;
for ( i=0; i<fc1.GetNumKeys(); i++ )
{
        X = ( (i+1) - 10 )/10;
        fc1.GetKeyAtIndex(i).Value = Math.atan( X / Sqr( -X * X + 1 ) );
        // Copy the value to fc2 for comparison
        fc2.GetKeyAtIndex(i).Value = fc1.GetKeyValue(i);
}
var ckeys = fc1.GetNumKeys();
var tangents = new Array( ckeys * 4 );
var itan = 0;
// Save tangents
for ( i=0; i<ckeys; i++ )
{
        var key = fc1.GetKeyAtIndex(i);
        // Save the tangents
        tangents[itan++] = key.LeftTanX;
        tangents[itan++] = key.LeftTanY;
        tangents[itan++] = key.RightTanX;
        tangents[itan++] = key.RightTanY;
}
// Translate the keys
for ( i=0; i<ckeys; i++ )
{
        frame = fc1.GetKeyFrame(i);
        val = fc1.GetKeyValue(i);
        key = fc1.GetKey(frame);
        fc1.SetKey( i, frame-100, val * 1.25 );
}
// Reset the tangents
fc1.SetKeyTangents(tangents);
// End editing the fcurves
fc1.EndEdit();
fc2.EndEdit();
// Utility function
function Sqr( x ) 
{
        return x * x;
}