'
'	This example demonstrates how to get the keys on an FCurve.
'
set oCube = ActiveSceneRoot.AddGeometry("Cube","MeshSurface")
dim aValues
aValues = array(0.00, 5.00, 1.00, 6.00, 2.00, 7.00, 3.00, 8.00, 4.00, 9.00, 5.00, 10.00)
set oFCurve = oCube.PosX.AddFCurve2( aValues)
' Write the fcurve keys
for each k in oFCurve.Keys
	LogMessage k.Name &" Value: " & k.Value
	LogMessage k.Name &" Locked: " & k.Locked
	LogMessage k.Name &" Left: " & k.Left
	LogMessage k.Name &" Right: " & k.Right
	LogMessage k.Name &" LeftTanX: " & k.LeftTanX
	LogMessage k.Name &" LeftTanY: " & k.LeftTanY
	LogMessage k.Name &" RightTanX: " & k.RightTanX
	LogMessage k.Name &" RightTanY: " & k.RightTanY
	LogMessage k.Name &" Interpolation: " & k.Interpolation
	LogMessage k.Name &" Constraint(siParameterConstraint): " & k.Constraint(siParameterConstraint)
	LogMessage k.Name &" Time: " & k.Time
next
' Outputs:
'INFO :  Value: 5
'INFO :  Locked: False
'INFO :  Left: 5
'INFO :  Right: 5
'INFO :  LeftTanX: 0
'INFO :  LeftTanY: 0
'INFO :  RightTanX: 0.333333333333333
'INFO :  RightTanY: 0
'INFO :  Interpolation: 3
'INFO :  Constraint(siParameterConstraint): False
'INFO :  Time: 0
'	etc.
'INFO :  Value: 10
'INFO :  Locked: False
'INFO :  Left: 10
'INFO :  Right: 10
'INFO :  LeftTanX: -0.333333333333333
'INFO :  LeftTanY: 0
'INFO :  RightTanX: 0
'INFO :  RightTanY: 0
'INFO :  Interpolation: 3
'INFO :  Constraint(siParameterConstraint): False
'INFO :  Time: 5