/*
	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