'

'	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