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