   (let [nearQuery { :geometry { $near
                              { "$geometry" {
                                 :type "Point"
-                                :coordinates [2.3449641466140747 48.87105583726818] ; Grands boulevards
-                                ;:coordinates [2.378979921340942 48.84630097640122] ; diderot
+                                ;:coordinates [2.3449641466140747 48.87105583726818] ; Grands boulevards
+                                :coordinates [2.378979921340942 48.84630097640122] ; diderot
                                 }
-                               "$maxDistance" 60} } }
+                               "$maxDistance" 200} } }
         ;; get some bati geojson
         results (mc/find-maps db "v" nearQuery)
         ;; get their coordinates

                         (if valid
                           (let [seg-coords (:coords seg)
                                 d-perp (compute-perp (:coords seg) (:calculated_distance closest))]
                             [(compute-perp-polygon seg-coords d-perp)])
                           [])
                         ))
                  perps)

    ;;(json/write-str (map (comp geo-feature second) perps) :value-fn objectId-reader)
    ;;(json/write-str (remove nil? hits) :value-fn objectId-reader)
    ;;(json/write-str filtered-segments :value-fn objectId-reader)
    (str "{ \"type\": \"FeatureCollection\",\"features\": "
         (json/write-str (map #(geo-feature "Polygon" (:coordinates %) (:properties %)) hits) :value-fn objectId-reader)
         "}")
    ))


