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

Removed 300 foot minimum altitude threshold.

Browse Source
This commit is contained in:
John Wiseman 2020-07-01 18:40:53 -07:00
parent df8837600a
commit 6079f238cd
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -289,14 +289,12 @@
(defn circling? [ac config] (defn circling? [ac config]
(and (> (geo/flight-curviness (filter #(not (:gnd? %)) (:history ac))) (and (> (geo/flight-curviness (filter #(not (:gnd? %)) (:history ac)))
(:curviness-threshold-degrees config)) (:curviness-threshold-degrees config))))
(> (:alt ac) 300)))
(defn circling2? [ac config] (defn circling2? [ac config]
(let [relevant-history (filter #(not (:gnd? %)) (:history ac))] (let [relevant-history (filter #(not (:gnd? %)) (:history ac))]
(and (> (geo/flight-curviness relevant-history) (:curviness-threshold-degrees config)) (and (> (geo/flight-curviness relevant-history) (:curviness-threshold-degrees config)))))
(> (:alt ac) 300))))
;; Returns a vector of two elements, ;; Returns a vector of two elements,