'/// VisualAnimOffset: ver 1.0 for XSI 3.5+
'/// By Homam Bahnassi - In|Framez 2003
'--------------------------------------

Set oSelection = Application.Selection

For Each oObj in oSelection
CFrame = GetValue ("PlayControl.Current")
For Each oParam in oObj.Parameters
	If oParam.Marked = True Then
		Set oFcurve = oParam.Source
		FCurveValue = oFcurve.Eval(CFrame)
		UserValue = oParam.Value
		CurveOffset = FCurveValue - UserValue
		
		Set oKeys = oFcurve.Keys
		For Each oKey In oKeys
			oKey.Value = oKey.Value - CurveOffset
		Next
	End If
Next
Next