 (def mperp [[2.379382788590524 48.84552083430268] [2.3791172006642896 48.84528245774338]])
 (compute-perp-polygon mseg mperp)
 
-(defn geo-feature [geo-type coordinates]
+(defn geo-feature [geo-type coordinates properties]
   "Form the perpendicular geojson map"
   { :type "Feature"
-    :properties {:computed true} ;not part of the real source of features
+    :properties (merge properties {:computed true}) ;not part of the real source of features
     :geometry { :type geo-type
                 :coordinates 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)

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