     (visual-interactive-search [polygon-with-holes] search-area))
 
 
-  ;; A bunch of bounding rectangles
-  (let [brs (for [lon (range -170 170 40)
-                  lat (range -70 70 20)]
-              (m/mbr lon (+ lat 5) (+ lon 10) lat))
-        ;; Search area as a polygon
-        ; search-area (assoc (polygon 8.38,12.57,11.38,14.8,3.39,22.53,0.35,21.85,8.38,12.57)
-        ;                    :options {:id "polygon"})
-
-
-        ;; Search area as a bounding rectangle
-        search-area (assoc (m/mbr -5 5 5 -5) :options {:id "bounding_box"})]
-    (visual-interactive-search brs search-area))
-
+  ;; all supported spatial types
   (let [touches-np (m/mbr 45 90 55 70)
         touches-sp (m/mbr -160 -70 -150 -90)
         across-am-br (m/mbr 170 10 -170 -10)
-        normal-br (m/mbr 10 10 20 0)
+        normal-br1 (m/mbr 10 10 20 0)
+        normal-br2 (m/mbr -20 0 -10 -10)
 
         ;; Polygons
         wide-north (polygon -70 20, 70 20, 70 30, -70 30, -70 20)

    (visual-interactive-search [touches-sp
                                across-am-br
                                touches-np
                                normal-br
                                wide-north
                                wide-south
                                across-am-poly

                                polygon-with-holes] search-area))



  )

