'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