/*
        This example demonstrates how to get the newly generated object after
        applying one of the generator ops with the ApplyGenOp command. 
        It also demonstrates how to extract the newly applied operator
        object from the special ISIVTCollection which is a workaround for 
        languages like JScript that don't support output arguments. 
*/
NewScene( null, false );
// Use a Nurbs disc to apply the Fit Surface operator 
var original_3dobject = CreatePrim( "Disc", "NurbsSurface" );
original_3dobject.innerradius.Value = 0.5;
Application.LogMessage( original_3dobject.Name + " is a " + ClassName(original_3dobject) );
// Get the ISIVTCollection back from this command. In this example, it contains 
// only one object (our operator), so we can just use this shortcut
// NB: You cannot use siImmediateOperation for the ImmediateMode parameter if you
//     want to get at the new object, because a frozen operator is invalid.
var new_srffit_op = ApplyGenOp( "SrfFit", "NurbsSurface", original_3dobject, 
        siUnspecified, siPersistentOperation, siKeepGenOpInputs, null)(0);
Application.LogMessage( new_srffit_op.Name + " is a " + ClassName(new_srffit_op) );
// You can change the operator's parameters to tweak the new surface mesh
new_srffit_op.Parameters( "upoints" ).Value = 5;
new_srffit_op.Parameters( "upoints" ).Value = 5;
new_srffit_op.Parameters( "udeg" ).Value = 1;
new_srffit_op.Parameters( "vdeg" ).Value = 1;
// You can also get the newly generated object 
var newly_generated_object = new_srffit_op.OutputPorts(0).Target2.Parent;
Application.LogMessage( newly_generated_object.Name + " is a " + ClassName(newly_generated_object) );
// Output of above script:
//INFO : disc is a X3DObject
//INFO : Fit surface is a Operator
//INFO : surfmsh is a X3DObject

'
'       This example demonstrates how to merge two mesh objects together and automatically delete the originals.
'
CreatePrim "Grid", "MeshSurface"
Duplicate "grid", , 2, 1, 1, 0, 0, 1, 0, 1, , , , , , , , , , , 0
Translate , 8.31067961165049, -8.32607541679225E-18, 0.135979621382887, siRelative, siView, siObj, siXYZ
SelectObj "grid", , True
AddToSelection "grid1", , True
ApplyGenOp "MeshMerge", , , 3, siImmediateOperation, siDeleteGenOpInputs

'
'       This example demonstrates how to create surfaces from curves. It creates two polymsh objects and two 
'       srfmesh objects from the same input curves.
'
NewScene , false
Dim oMeshRev, oMeshExt
Dim oNurbsRev, oNurbsExt
' Create the two curves to use to create surfaces
CreatePrim "Circle", "NurbsCurve"
CreatePrim "Circle", "NurbsCurve"
SetValue "circle1.circle.radius", 2
Translate "circle1", 7, 0, 0, siAbsolute, siParent, siObj, siX
' Create NURBS surfaces of revolution and extrusion.
ApplyGenOp "RevolutionAroundAxis", "NurbsSurface", "circle1", 3, siPersistentOperation, siKeepGenOpInputs, oNurbsRev
Translate , 16, 0, 0, siAbsolute, siParent, siObj, siX
Translate , 0, 8, 0, siAbsolute, siParent, siObj, siY
ApplyGenOp "Extrusion", "NurbsSurface", "circle1;circle", 3, siPersistentOperation, siKeepGenOpInputs, oNurbsExt
Translate , 16, 0, 0, siAbsolute, siParent, siObj, siX
' Create Mesh surfaces of revolution and extrusion.
ApplyGenOp "RevolutionAroundAxis", "MeshSurface", "circle1", 3, siPersistentOperation, siKeepGenOpInputs, oMeshRev
Translate , -12, 0, 0, siAbsolute, siParent, siObj, siX
Translate , 0, 8, 0, siAbsolute, siParent, siObj, siY
ApplyGenOp "Extrusion", "MeshSurface", "circle1;circle", 3, siPersistentOperation, siKeepGenOpInputs, oMeshExt
Translate , -12, 0, 0, siAbsolute, siParent, siObj, siX
' Move a point on input circle to show the effect on all created surfaces from curve.
Translate "circle1.pnt[12]", 0.0, 2, 0.0, siRelative, siView, siObj, siXYZ
SetDisplayMode "Camera", "shaded"
' Select output and log information about created surfaces.
SelectObj oMeshRev,,True
AddToSelection oMeshExt,,True
AddToSelection oNurbsRev,,True
AddToSelection oNurbsExt,,True
Application.LogMessage "Mesh Created from Revolution: " & oMeshRev
Application.LogMessage "Mesh Created from Extrusion: " & oMeshExt
Application.LogMessage "NURBS Created from Revolution: " & oNurbsRev
Application.LogMessage "NURBS Created from Extrusion: " & oNurbsExt
' Running this script should log the following:
' ---------------------------------------------
'INFO : "Mesh Created from Revolution: polymsh"
'INFO : "Mesh Created from Extrusion: polymsh1"
'INFO : "NURBS Created from Revolution: surfmsh"
'INFO : "NURBS Created from Extrusion: surfmsh1"