                                 on-np
                                 on-sp
                                 normal-poly
-                                polygon-with-holes] search-area))
+                                polygon-with-holes
+                                north-pole
+                                south-pole
+                                normal-point
+                                am-point] search-area))
 
 
 

            [cmr.system-int-test.data2.collection :as dc]
            [cmr.system-int-test.data2.granule :as dg]
            [cmr.system-int-test.data2.core :as d]
            [cmr.spatial.polygon :as p]
            [cmr.spatial.mbr :as m]
            [cmr.spatial.ring :as r]
            [cmr.spatial.derived :as derived]

  [shape]
  (assoc (srl/shape->lr shape) :options {:color "AA76775E"}))

(defmulti ords->shape
  (fn [spatial-type ords]
    spatial-type))

(defmethod ords->shape :polygon
  [spatial-type ords]
  (derived/calculate-derived (apply polygon ords)))

(defmethod ords->shape :bounding_box
  [spatial-type ords]
  (apply m/mbr ords))

(defmethod ords->shape :point
  [spatial-type ords]
  (apply p/point ords))

(defn handle-search-area-moved
  "This is the VDD callback function. Everytime the search area is moved this will be called with the
