'
'       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