         hole2-cart (rr/ords->ring :cartesian 5.18 -13.08 -1.79 -12.99 -2.65 -15 4.29 -14.95 5.18 -13.08)
         polygon-with-holes-cart (poly/polygon :cartesian [outer-cart hole1-cart hole2-cart])
 
-
         ;; points
         north-pole (p/point 90 0)
         south-pole (p/point -90 0)
         normal-point (p/point 10 22)
         am-point (p/point 180 22)
 
-        ;search-area (assoc (polygon :geodetic -6.45,-3.74,12.34,-4.18,12,9.45,-6.69,9.2,-6.45,-3.74)
-        ;                   :options {:id "polygon"})
-
-        search-area (assoc (m/mbr -23.43 5 25.54 -6.31) :options {:id "bounding_box"})
+        search-area (assoc (polygon :geodetic -6.45,-3.74,12.34,-4.18,12,9.45,-6.69,9.2,-6.45,-3.74)
+                            :options {:id "polygon"})
+
+        ;search-area (assoc (m/mbr -23.43 5 25.54 -6.31) :options {:id "bounding_box"})
 
         ;search-area (assoc (p/point 0 0) :options {:id "point"})
 

                                ; touches-np
                                ; normal-br1
                                ; normal-br2
                                ; wide-north
                                ; wide-south
                                ; across-am-poly

  (:import cmr.spatial.point.Point
           cmr.spatial.geodetic_ring.GeodeticRing
           cmr.spatial.mbr.Mbr
           cmr.spatial.line_string.LineString
           cmr.spatial.polygon.Polygon))

(defn polygon
