tyrel/advisory-circular
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

--airport-geojson now generates a circle for the region of interest.

Browse Source
This commit is contained in:
John Wiseman 2020-06-06 22:49:58 -07:00
parent 421c43c044
commit 84186f5be4
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/main/lemondronor/advisorycircular.cljs
View File

@ -304,7 +304,14 @@
airports (nearby-airports config lat lon {:radius (+ (:radius-km config) airports (nearby-airports config lat lon {:radius (+ (:radius-km config)
(:minimum-airport-distance-km config))})] (:minimum-airport-distance-km config))})]
{:type "FeatureCollection" {: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] (defn log-table [table keys]