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