Parameter.Disconnect.2.vbs Example

NewScene , false
set oCube = Application.ActiveSceneRoot.AddGeometry( "Cube", "MeshSurface" )
set oPosXParam = oCube.PosX
dim aValues
aValues = Array( 0.00, 5.00, 1.00, 6.00, 2.00, 7.00, 3.00, 8.00 )
oPosXParam.AddFCurve2( aValues )
set oFCurve = oPosXParam.Source
Application.LogMessage "Expected value at frame 10: " & oFCurve.Eval( 10 )  
' Disconnect the FCurve
set oFCurve = oPosXParam.Disconnect
' You can still evalute the fcurve but it doesn't belong to the parameter
Application.LogMessage "FCurve value at Frame 10:" & oFCurve.Eval( 10 )  
' Prove that the FCurve is gone.
Application.LogMessage "Source driving Parameter value: " & TypeName( oPosXParam.Source ) 
SetValue "PlayControl.Current", 10
Application.LogMessage( "Parameter value with no FCurve: " & oPosXParam.Value ) 
' Expected output
'INFO : Expected value at frame 10: 8
'INFO : FCurve value at Frame 10:8
'INFO : Source driving Parameter value: Nothing
'INFO : Parameter value with no FCurve: 5