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

Save me from replies regarding negative altitudes.

Browse Source
This commit is contained in:
John Wiseman 2020-07-07 12:52:20 -07:00
parent 6225efcb86
commit 8869c130c1
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -149,7 +149,7 @@
(let [icao (:icao ac) (let [icao (:icao ac)
new-history-entry {:lat (:lat ac) new-history-entry {:lat (:lat ac)
:lon (:lon ac) :lon (:lon ac)
:alt (:geom-alt ac) :alt (max (:geom-alt ac) (:alt ac))
:gnd? (:gnd? ac) :gnd? (:gnd? ac)
:time (:postime ac)}] :time (:postime ac)}]
(if (contains? db icao) (if (contains? db icao)
@ -240,7 +240,7 @@
(defn ac-desc [ac] (defn ac-desc [ac]
(str (:icao ac) " " "http://tar1090.adsbexchange.com/?icao=" (:icao ac) (str (:icao ac) " " "http://tar1090.adsbexchange.com/?icao=" (:icao ac)
" " (:lat ac) " " (:lon ac) " " (:lat ac) " " (:lon ac)
" " (:registration ac) " " (:geom-alt ac) " " (:curviness ac) " " " " (:registration ac) " " (:alt ac) " " (:curviness ac) " "
(:normalized-curviness ac))) (:normalized-curviness ac)))
@ -571,7 +571,7 @@
:geometry :geometry
{:type "LineString" {:type "LineString"
:coordinates (map (fn [pos] :coordinates (map (fn [pos]
[(:lon pos) (:lat pos) (util/feet-to-meters (:geom-alt pos))]) [(:lon pos) (:lat pos) (util/feet-to-meters (:alt pos))])
coords)}}) coords)}})