'
'       Get an FCurve's type
'
Main()
function WriteType (in_fcurvetype)
        if in_fcurvetype = 0 then
                WriteType = "siUnknownFCurve"
        elseif in_fcurvetype = 10 then
                WriteType = "siBooleanFCurve"
        elseif in_fcurvetype = 15 then
                WriteType = "siIntegerFCurve"
        elseif in_fcurvetype = 20 then
                WriteType = "siStandardFCurve"
        elseif in_fcurvetype = 30 then
                WriteType = "siRawDataFCurve"
        elseif in_fcurvetype = 40 then
                WriteType = "siQuaternionFCurve"
        else
                WriteType = "Invalid FCurve type"
        end if
end function
sub main()
        set oCube = Application.ActiveProject.ActiveScene.Root.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 type : " & WriteType(oFCurve.Type)
end sub