/*
	This example uses PointLocatorData to find closest vertices on a polygon mesh
	within a specific radius, and then creates a cluster on these points.
*/
NewScene(null, false);
var root = Application.ActiveSceneRoot;
var GridObj = root.AddGeometry("Grid", "MeshSurface");
Translate(GridObj, 0, 0, -2.0, siRelative, siView, siObj, siXYZ);
var GridGeom = GridObj.ActivePrimitive.Geometry;
// Set up to closest vertex search
GridGeom.SetupPointLocatorQueries(siClosestVertexOrKnot, GridObj.Kinematics.Global.Transform, null, -1);
// Get all vertices within a radius of 2 units relatively to the world center
var PositionToQuery = XSIMath.CreateVector3(0,0,0);
var PointLocatorsWithinTwoUnits = GridGeom.GetClosestLocationsWithinRadius(PositionToQuery, 2.0);
var VerticesString = " ";
var ClosestVerticesArray = new Array();
var PtLocIndexToQuery = new Array();
for( i=0; i<PointLocatorsWithinTwoUnits.Count; i++ ) {
	// Even though the point locators have be defined to exactly match the vertex 
	// positions, the search data is returned as a position on a specific triangle, 
	// just as any other use of the Point Locator.  However the vertex that matches 
	// can be determined because it will be weighted at 100%.
	PtLocIndexToQuery[0] = i;
	var SubTriangleVertices = GridGeom.GetTriangleVertexIndexArray(
		PointLocatorsWithinTwoUnits, PtLocIndexToQuery).toArray();
	var SubTriangleWeights = GridGeom.GetTriangleWeightArray(
		PointLocatorsWithinTwoUnits, PtLocIndexToQuery).toArray();
	var VtxIdx = SubTriangleVertices[0];
	if(SubTriangleWeights[1] > SubTriangleWeights[0] && SubTriangleWeights[1] > SubTriangleWeights[2])
		VtxIdx = SubTriangleVertices[1];
	else if(SubTriangleWeights[2] > SubTriangleWeights[0] && SubTriangleWeights[2] > SubTriangleWeights[1])
		VtxIdx = SubTriangleVertices[2];
	ClosestVerticesArray[i] = VtxIdx;
	VerticesString += VtxIdx
	if( i != PointLocatorsWithinTwoUnits.Count-1) {
		VerticesString += ", ";
	}
}
// Create a cluster on these vertices
GridGeom.AddCluster(siVertexCluster, "ClosestVertices", ClosestVerticesArray);
Application.LogMessage("There are " + PointLocatorsWithinTwoUnits.Count 
			+ " grid vertices in the 2 unit sphere located at the world center.");
Application.LogMessage("These vertices are (ordered by proximity):");
Application.LogMessage(VerticesString);
// Expected results:
// INFO : There are 5 grid vertices in the 2 unit sphere located at the world center.
// INFO : These vertices are (ordered by proximity):
// INFO :  42, 51, 41, 33, 43