'
' This example demonstrates how to get and set
' an FCurve's extrapolation.
'
Main()
function WriteExtrapolation (in_extrapolation)
if in_extrapolation = 1 then
WriteExtrapolation = "siConstantExtrapolation"
elseif in_extrapolation = 2 then
WriteExtrapolation = "siLinearExtrapolation"
elseif in_extrapolation = 3 then
WriteExtrapolation = "siPeriodicExtrapolation"
elseif in_extrapolation = 4 then
WriteExtrapolation = "siPeriodicRelativeExtrapolation"
else
WriteExtrapolation = "Invalid Extrapolation type"
end if
end function
sub Main()
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)
LogMessage "FCurve extrapolation : " & WriteExtrapolation(oFCurve.Extrapolation)
oFCurve.Extrapolation = siLinearExtrapolation
LogMessage "FCurve extrapolation : " & WriteExtrapolation(oFCurve.Extrapolation)
end sub
' Outputs:
'INFO : FCurve extrapolation : siConstantExtrapolation
'INFO : FCurve extrapolation : siLinearExtrapolation
|