Save me from replies regarding negative altitudes.

This commit is contained in:
John Wiseman 2020-07-07 12:52:20 -07:00
parent 6225efcb86
commit 8869c130c1

View File

@ -149,7 +149,7 @@
(let [icao (:icao ac)
new-history-entry {:lat (:lat ac)
:lon (:lon ac)
:alt (:geom-alt ac)
:alt (max (:geom-alt ac) (:alt ac))
:gnd? (:gnd? ac)
:time (:postime ac)}]
(if (contains? db icao)
@ -240,7 +240,7 @@
(defn ac-desc [ac]
(str (:icao ac) " " "http://tar1090.adsbexchange.com/?icao=" (:icao ac)
" " (:lat ac) " " (:lon ac)
" " (:registration ac) " " (:geom-alt ac) " " (:curviness ac) " "
" " (:registration ac) " " (:alt ac) " " (:curviness ac) " "
(:normalized-curviness ac)))
@ -571,7 +571,7 @@
:geometry
{:type "LineString"
: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)}})