   (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

    ;;(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)
    (json/write-str (map #(geo-feature "Polygon" %) hits) :value-fn objectId-reader)
    ))



(def mperp [[2.379382788590524 48.84552083430268] [2.3791172006642896 48.84528245774338]])
(compute-perp-polygon mseg mperp)

(defn geo-feature [geo-type coordinates properties]
  "Form the perpendicular geojson map"
  { :type "Feature"
    :properties (merge properties {:computed true}) ;not part of the real source of features
    :geometry { :type geo-type
                :coordinates coordinates}})

