         search-area (polygon 0 0, 1 0, 1 1, 0 0)]
     (visual-interactive-search [polygon-with-holes] search-area))
 
-
   ;; all supported spatial types
   (let [touches-np (m/mbr 45 90 55 70)
         touches-sp (m/mbr -160 -70 -150 -90)

    (ingest/reset)
    (ingest/create-provider "PROV1")

    (let [coll (d/ingest "PROV1" (dc/collection {:spatial-coverage (dc/spatial :geodetic)}))]
      (doseq [shape shapes]
        (d/ingest "PROV1" (dg/granule coll {:spatial-coverage (dg/spatial shape)}))))
    (index/refresh-elastic-index)

    ;; Save the shapes for display

                                on-sp
                                normal-poly
                                polygon-with-holes
                                wide-north-cart
                                wide-south-cart
                                very-wide-cart
                                very-tall-cart
                                north-pole
                                south-pole
                                normal-point
