           (.drawLine g 0 -2000 0 2000))))
     
     ; draw telemetry
-    (when-let [{:keys [pitch yaw roll alt vel-x vel-y vel-z control-state battery-percent]} (:telemetry s)]
+    (when-let [{:keys [pitch yaw roll alt vel-x vel-y vel-z control-state battery-percent]} telemetry]
       (with-transforms g
         (.setColor g telemetry-color)
-        (.drawString g (str control-state) 10 20)
+        (.drawString g (str (name control-state)) 10 20)
         (.drawString g (str "bat: " battery-percent "%") 10 40)
         (.drawString g (format "yaw: %5.1f pitch: %5.1f roll: %5.1f alt: %8.3f" yaw pitch roll alt) 10 60)
         (.drawString g (format "x: %5.1f y: %5.1f z: %5.1f" vel-x vel-y vel-z) 10 80)

(key->status! 32 :space)

(defn render [^Graphics2D g ^long w ^long h]
  (let [s      @status
        w2     (/ w 2.0)
        w6     (/ w 6.0)
        h2     (/ h 2.0)


    ; status
    (.setColor g key-color)
    (let [{:keys [left right up down space]} keys]
      (when left   (.fill g (swing/->shape w6 h2 (* 2 w6) (* 2 h6) (* 2 w6) (* 4 h6))))
      (when right  (.fill g (swing/->shape (* 5 w6) h2 (* 4 w6) (* 2 h6) (* 4 w6) (* 4 h6))))
      (when up     (.fill g (swing/->shape w2 h6 (* 4 w6) (* 2 h6) (* 2 w6) (* 2 h6))))
