'
' This VBScript example demonstrates how to evaluate an FCurve at different frames.
'
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 )
for i=0 to 6
LogMessage "FCurve at " & i & " = " & oFCurve.Eval(i)
next
' Outputs:
'INFO : FCurve at 0 = 5
'INFO : FCurve at 1 = 6
'INFO : FCurve at 2 = 7
'INFO : FCurve at 3 = 8
'INFO : FCurve at 4 = 9
'INFO : FCurve at 5 = 10
'INFO : FCurve at 6 = 10 |