/*

	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