--airport-geojson now generates a circle for the region of interest.
This commit is contained in:
parent
421c43c044
commit
84186f5be4
@ -304,7 +304,14 @@
|
||||
airports (nearby-airports config lat lon {:radius (+ (:radius-km config)
|
||||
(:minimum-airport-distance-km config))})]
|
||||
{:type "FeatureCollection"
|
||||
:features (map airport->feature airports)}))
|
||||
:features (conj
|
||||
(map airport->feature airports)
|
||||
{:type "Feature"
|
||||
:properties {:shape "Circle"
|
||||
:radius (* 1000 (:radius-km config))
|
||||
:name "Center"}
|
||||
:geometry {:type "Point"
|
||||
:coordinates [(:lon config) (:lat config)]}})}))
|
||||
|
||||
|
||||
(defn log-table [table keys]
|
||||
|
Loading…
Reference in New Issue
Block a user