Dragon Autopilot control driver demo

dragon.clj

(defn roll
  "Roll the Crew Dragon left or right (CCW or CW)."
  ([driv dir max-roll-rate]
   (if (or
        (< (math/abs (@tel/telem :roll-rate)) max-roll-rate)
        (and
         (pos? (@tel/telem :roll-rate)) (= dir "left"))
        (and
         (neg? (@tel/telem :roll-rate)) (= dir "right")))

     (case dir
       "left" (fill-active driv comma)
       "right" (fill-active driv point)))
   (Thread/sleep min-rot-impulse-interval))
  ([driv dir]
   (roll driv dir max-def-rot-rate)))