' The following code illustrates how to get a ConstructionHistory, 

' filter the construction history for DeformOperators and then iterate 

' the converters using the For Each...Next statement: 

Dim oGPig

' See if there are any DeformOperators now

Set oGPig = ActiveSceneRoot.AddGeometry( "Torus", "MeshSurface" )

ShowTransforms oGPig 

' Apply a Bend Operator and then see

ApplyOp "bend", oGPig

ShowTransforms oGPig 

' Apply a Twist Operator and then see

ApplyOp "twist", oGPig

ShowTransforms oGPig 

Function ShowTransforms( in_object )

	Dim oStack, oTransform, sMemberList 

	Set oStack = in_object.ActivePrimitive.ConstructionHistory.Filter( , siDeformOperatorFamily )

	If oStack.Count > 0 Then

		For Each oTransform In oStack

			sMemberList = sMemberList & oTransform.Name & ", "

		Next

		sMemberList = Left( sMemberList, ( Len( sMemberList ) - 2 ) )

	Else

		sMemberList = "(none found)"

	End If

	LogMessage sMemberList

	ShowConstructionHistory = sMemberList

End Function

' Output of above script:

'INFO : "(none found)"

'INFO : "Bend Op"

'INFO : "Twist Op, Bend Op"