/*
        This example shows how an FCurve can be stored on a Custom Property and UI tools can be added 
        via the PPGLayout object
*/
BuildScene()
function BuildScene()
{
        NewScene( null, false ) ;
        var oCustomProperty = ActiveSceneRoot.AddProperty( "CustomProperty", false, "DataTemplate" ) ;
        oCustomProperty.AddFCurveParameter( "Curve" ) ;
        // Create read-only parameters that will be updated by the logic
        oCustomProperty.AddParameter3( "KeyCount", siInt4,null,null,null,false,true ) ;
        oCustomProperty.AddParameter3( "MaxY", siInt4,null,null,null,false,true ) ;
        // Build the Layout
        var oLayout = oCustomProperty.PPGLayout         
        var oLayoutItem = oLayout.AddFCurve( "Curve", 150 );
        oLayout.AddGroup( "Info" ) ;    
        oLayout.AddRow() ;
        oLayout.AddItem( "KeyCount" ) ;
        oLayout.AddItem( "MaxY" ) ;     
        oLayout.EndRow() ;
        oLayout.EndGroup() ;
        oLayout.AddRow() ;
        oLayout.AddButton( "Randomize" ) ;
        oLayout.AddButton( "Reframe" ) ;
        oLayout.EndRow() ;
        oLayout.Language = "JScript" ;
        oLayout.Logic = OnInit.toString() +
                Randomize_OnClicked.toString() +
                Reframe_OnClicked.toString() +
                ReCalcInfo.toString() +
                Curve_OnChanged.toString() ;
        InspectObj( oCustomProperty ) ;
}
//
// The following code is Logic code for the Property Page
//
function Randomize_OnClicked()
{
        // Get access to the curve
        var oFCurve = PPG.Curve.Value;
        oFCurve.BeginEdit();
        oFCurve.RemoveKeys();
        var maxKeys = 10.0 ;
        var maxX = 100.0 ;
        var maxY = 100.0 ;
        var keys = Math.round( maxKeys * Math.random() ) ;
        for ( var i = 0 ; i < keys ; i++ ) {
                var keyFrame = Math.round( maxX * Math.random() )
                oFCurve.AddKey( keyFrame,
                                                        maxY * Math.random() ) ;
        }
        // Always end back at zero
        oFCurve.AddKey( 0, 0 ) ;
        oFCurve.AddKey( maxX, 0 ) ;
        oFCurve.EndEdit() ;     
        ReCalcInfo() ;
}
function Reframe_OnClicked()
{
        //Redraw, which will reframe the new pset
        PPG.Refresh() ;
}
function ReCalcInfo()
{
        // Show the number of keys and maximum
        // Y value for the curves
        var oFCurve = PPG.Curve.Value;
        PPG.KeyCount.Value = oFCurve.Keys.Count
        var maxYFound = 0 ;
        for ( var i = 0 ; i < oFCurve.Keys.Count ; i++ ) {
                var y = oFCurve.GetKeyValue(i) ;        
                if ( y > maxYFound )  {
                        maxYFound = y ;
                }
        }
        PPG.MaxY.Value = maxYFound ;
}
function Curve_OnChanged()
{
        // Called when every the user changes the FCurve from the user interface.
        ReCalcInfo();
}
function OnInit()
{
        // Called when PPG is first draw, use the opportunity to calculate the initial
        // FCurve values
        ReCalcInfo() ;
}

'
' This example shows how the FCurve control can be customized via SetUIAttribute
' All editors show the same curve but the presentation differs
option explicit
dim oCustomProperty, oLayout, oLayoutItem
set oCustomProperty = ActiveSceneRoot.AddProperty( "CustomProperty",false,"FCurves" )
oCustomProperty.AddFCurveParameter "curve1" 
oCustomProperty.AddFCurveParameter "curve2" 
oCustomProperty.AddFCurveParameter "curve3" 
oCustomProperty.AddFCurveParameter "curve4" 
set oLayout = oCustomProperty.PPGLayout
oLayout.AddRow
oLayout.AddFCurve "curve1", 150
oLayout.AddFCurve "curve2"
oLayout.EndRow
oLayout.AddRow
oLayout.AddFCurve "curve3", 150
oLayout.AddFCurve "curve4", 150
oLayout.EndRow
'Now set attributes
set oLayoutItem = oLayout.Item("curve2")
oLayoutItem.SetAttribute "NoGrid", true
oLayoutItem.SetAttribute "NoRulerX", true
oLayoutItem.SetAttribute "NoRulerY", true
'In order to line up nicely with the 
'other curve in the row set a smaller size (because
'the ruler is not showing
oLayoutItem.SetAttribute "CY", 125
set oLayoutItem = oLayout.Item("curve3")
oLayoutItem.SetAttribute "ViewMinX", -100
oLayoutItem.SetAttribute "ViewMaxX", 100
oLayoutItem.SetAttribute "ViewMinY", 0
oLayoutItem.SetAttribute "ViewMaxY", 150
oLayoutItem.SetAttribute "LabelX", "My X-Axis Label"
oLayoutItem.SetAttribute "LabelY", "My Y-Axis Label"
oLayoutItem.SetAttribute "ColorNonBijective", true
oLayoutItem.SetAttribute "Ghosting", true
'Grid spacing is mostly only a hint to the editor.
'It will ignore values that are too small
set oLayoutItem = oLayout.Item("curve4")
oLayoutItem.SetAttribute "GridSpaceX", 25
oLayoutItem.SetAttribute "GridSpaceY", 25
'Snap Grid is independent of the visible grid
oLayoutItem.SetAttribute "SnapX", 10
oLayoutItem.SetAttribute "SnapY", 10
InspectObj oCustomProperty