'

'	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