/*

	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"