radius index

sample: SELECT * FROM SpatialIndex.Test WHERE %ID %FIND search_index(x1F,'radius','x=55,y=55,radius=2') and name %StartsWith 'Z' or SELECT * FROM SpatialIndex.Test WHERE %ID %FIND search_index(x1F,'radius','x=55,y=55,radiusX=2,radiusY=2') and name %StartsWith 'Z'

Author: adaptun

SpatialIndex_SQLResult.xml

@@ -23,17 +23,17 @@
 <FormalSpec>indexGlobal:%String,queryType:%String,queryParams:%Binary</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-//for now we only have queryType = window
-for i = 1:1:4 {
-set item = $Piece(queryParams, ",", i)
-set param = $Piece(item, "=", 1)
-set value = $Piece(item, "=" ,2)
-set arg(param) = value
-}
-//set rset = ##class(%ResultSet).%New("SpatialIndex.QueryExecutor:FindWindow")
-	//do rset.Execute(indexGlobal,arg("minx"),arg("miny"),arg("maxx"),arg("maxy"))
-	//while (rset.Next()){
- //	set id = rset.Get("Id")
+if queryType = "window" {
+for i = 1:1:4 {
+set item = $Piece(queryParams, ",", i)
+set param = $Piece(item, "=", 1)
+set value = $Piece(item, "=" ,2)
+set arg(param) = value
+}
+//set rset = ##class(%ResultSet).%New("SpatialIndex.QueryExecutor:FindWindow")
+	//do rset.Execute(indexGlobal,arg("minx"),arg("miny"),arg("maxx"),arg("maxy"))
+	//while (rset.Next()){
+ //	set id = rset.Get("Id")
 	set qHandle("indexGlobal") = indexGlobal
 	do ##class(SpatialIndex.QueryExecutor).InternalFindWindow(.qHandle,arg("minx"),arg("miny"),arg("maxx"),arg("maxy"))
 	set id = ""
@@ -43,7 +43,32 @@
 	set tChunk = (id\64000)+1, tPos=(id#64000)+1
 	set $BIT(i%ResultBits(tChunk),tPos) = 1
 	}
-	quit $$$OK
+}elseif queryType = "radius" {
+/*
+SELECT *
+FROM SpatialIndex.Test
+WHERE %ID %FIND search_index(x1F,'radius','x=55,y=55,radius=100m')
+	and name %StartsWith 'Z'
+	*/
+	for i = 1:1:$L(queryParams, ",") {
+set item = $Piece(queryParams, ",", i)
+set param = $Piece(item, "=", 1)
+set value = $Piece(item, "=" ,2)
+set arg(param) = value
+}
+set qHandle("indexGlobal") = indexGlobal
+set arg("radiusX") = $G(arg("radiusX"),arg("radius"))
+set arg("radiusY") = $G(arg("radiusY"),arg("radius"))
+	do ##class(SpatialIndex.QueryExecutor).InternalFindRadius(.qHandle,arg("x"),arg("y"),arg("radiusX"),arg("radiusY"))
+	set id = ""
+	for {
+	set id = $O(qHandle("data", id))
+	quit:id=""
+	set tChunk = (id\64000)+1, tPos=(id#64000)+1
+	set $BIT(i%ResultBits(tChunk),tPos) = 1
+	}
+}
+quit $$$OK
 ]]></Implementation>
 </Method>