Returns the value from the siFCurveType enum that describes this fcurve's curve type.
' ' 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 |