#
# This example demonstrates how to work with a subset of points on a polygon mesh
#
app = Application
app.NewScene( "", 0 )
oObj = app.ActiveSceneRoot.AddGeometry( "Cube","MeshSurface" )
oPointColl = oObj.ActivePrimitive.Geometry.Points
oSubComponent = oPointColl(2).SubComponent
app.LogMessage( "%s has %s components of type %s" % ( oSubComponent.FullName , len(oSubComponent.ElementArray)+1, \
        app.ClassName(oSubComponent.ComponentCollection(0)) ) )
oObj = app.ActiveSceneRoot.AddGeometry( "Cube","MeshSurface" )
oSubComponent = oObj.ActivePrimitive.Geometry.Points(2).SubComponent
oSubComponent.AddElement(3)
app.LogMessage( "%s has %s components of type %s" % ( oSubComponent.FullName , len(oSubComponent.ElementArray)+1, \
        app.ClassName(oSubComponent.ComponentCollection(0)) ) )
# Expected results:
#INFO : cube.pnt[2] has 2 components of type Vertex
#INFO : cube1.pnt[2,3] has 3 components of type Vertex

/*
        This example demonstrates how to access a NURBS-specific property
        on a NurbsSurfaceMesh. First it starts out getting the generic
        Points collection. From the PointCollection it creates a SubComponent.
        From the SubComponent, it gets the NURBS-specific ControlPointCollection
*/
NewScene( null, false );
// Setup: create a NURBS mesh and get its point collection
var grid = Application.ActiveSceneRoot.AddGeometry( "Grid", "NurbsSurface" );
var pnts = grid.ActivePrimitive.Geometry.Points;
// Convert it to SubComponent and just for fun, consider only ten points 
// chosen at random
var subcmp = pnts.SubComponent;
var subset = new Array(13, 92, 24, 65, 11, 2, 4, 64, 100, 111);
subcmp.ElementArray = subset;
// Now convert the SubComponent to a ControlPointCollection using the
// SubComponent.ComponentCollection property and then loop through the 
// array, checking to see if we have any boundaries
var ctrlpnts = subcmp.ComponentCollection;
for (var i=0; i<ctrlpnts.Count; i++) {
        var results = ( ctrlpnts(i).IsBoundary ) ? "" : "NOT ";
        Application.LogMessage( "CtrlPnt[" + i + "] is at index " + ctrlpnts(i).Index 
                + " on the NurbsSurface and is " + results + " a boundary." );
}
// Expected results:
//INFO : CtrlPnt[0] is at index 13 on the NurbsSurface and is NOT  a boundary.
//INFO : CtrlPnt[1] is at index 92 on the NurbsSurface and is NOT  a boundary.
//INFO : CtrlPnt[2] is at index 24 on the NurbsSurface and is NOT  a boundary.
//INFO : CtrlPnt[3] is at index 65 on the NurbsSurface and is  a boundary.
//INFO : CtrlPnt[4] is at index 11 on the NurbsSurface and is  a boundary.
//INFO : CtrlPnt[5] is at index 2 on the NurbsSurface and is  a boundary.
//INFO : CtrlPnt[6] is at index 4 on the NurbsSurface and is  a boundary.
//INFO : CtrlPnt[7] is at index 64 on the NurbsSurface and is NOT  a boundary.
//INFO : CtrlPnt[8] is at index 100 on the NurbsSurface and is NOT  a boundary.
//INFO : CtrlPnt[9] is at index 111 on the NurbsSurface and is  a boundary.

'
' This example demonstrates how to determine which points are selected
' in the UI by using the SubComponent object via the Selection
' 
NewScene , false
' Setup: create a polygon mesh and select some vertices on it
set torus = Application.ActiveSceneRoot.AddGeometry( "Torus", "MeshSurface" )
Selection.Clear
Selection.SetAsText torus.Name & ".pnt[2-7,17,18,21-23,26,29,47,51,55]" 
' When components are selected, the first member of the Selection
' is returned as a CollectionItem which can then be converted to a
' SubComponent object. From there, the ComponentCollection property
' converts it to the proper collection type (in this case a VertexCollection)
set selected = Selection(0).SubComponent.ComponentCollection
for each sel in selected 
        Application.LogMessage "edge[" & sel.Index & "] is selected."
next
' Expected results:
'INFO : edge[2] is selected.
'INFO : edge[3] is selected.
'INFO : edge[4] is selected.
'INFO : edge[5] is selected.
'INFO : edge[6] is selected.
'INFO : edge[7] is selected.
'INFO : edge[17] is selected.
'INFO : edge[18] is selected.
'INFO : edge[21] is selected.
'INFO : edge[22] is selected.
'INFO : edge[23] is selected.
'INFO : edge[26] is selected.
'INFO : edge[29] is selected.
'INFO : edge[47] is selected.
'INFO : edge[51] is selected.
'INFO : edge[55] is selected.