'VBScript example

set oRoot = Application.ActiveProject.ActiveScene.Root

set oGrid = oRoot.AddGeometry("Grid","MeshSurface")

set oCluster = oGrid.ActivePrimitive.Geometry.AddCluster(siPolygonCluster, "PolygonClusterOnGrid", array(59,60,61))

set oCone = Application.ActiveProject.ActiveScene.Root.AddGeometry("Cone","MeshSurface")

set oNull = Application.ActiveProject.ActiveScene.Root.AddNull

set oCylinder = Application.ActiveProject.ActiveScene.Root.AddGeometry("Cylinder","MeshSurface")

set oCluster.CenterReference = oCone

set oClsRef = oCluster.CenterReference

' find the operators on the grid

for each op in oGrid.ActivePrimitive.ConstructionHistory

	LogMessage op.Name & ", " & op.Type

	for each oIP in op.InputPorts

		LogMessage oIP.Name & ", " & oIP.Type

	next

next