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

Use geometric/corrected altitude.

Browse Source
This commit is contained in:
John Wiseman 2020-07-05 14:11:38 -07:00
parent 9e603728e6
commit 6225efcb86
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -86,7 +86,11 @@
:lon (numstr (e "lon"))
:icao (e "icao")
:registration (nilstr (e "reg"))
;; Altitude in feet at standard pressure.
:alt (numstr (e "alt"))
;; The altitude adjusted for local air pressure, should be
;; roughly the height above mean sea level.
:geom-alt (numstr (e "galt"))
:gnd? (boolstr (e "gnd"))
:mlat? (= (e "mlat") "1")
:speed (numstr (e "spd"))
@ -145,7 +149,7 @@
(let [icao (:icao ac)
new-history-entry {:lat (:lat ac)
:lon (:lon ac)
:alt (:alt ac)
:alt (:geom-alt ac)
:gnd? (:gnd? ac)
:time (:postime ac)}]
(if (contains? db icao)
@ -236,7 +240,7 @@
(defn ac-desc [ac]
(str (:icao ac) " " "http://tar1090.adsbexchange.com/?icao=" (:icao ac)
" " (:lat ac) " " (:lon ac)
" " (:registration ac) " " (:alt ac) " " (:curviness ac) " "
" " (:registration ac) " " (:geom-alt ac) " " (:curviness ac) " "
(:normalized-curviness ac)))
@ -567,7 +571,7 @@
:geometry
{:type "LineString"
:coordinates (map (fn [pos]
[(:lon pos) (:lat pos) (util/feet-to-meters (:alt pos))])
[(:lon pos) (:lat pos) (util/feet-to-meters (:geom-alt pos))])
coords)}})