     (doseq [y (range (/ h 50) h (/ h 50))] (.drawLine g (- w2 5) y (+ w2 5) y))
 
     ; draw "aim"
-    (when-let [leap (:leap s)]
+    (when leap
       ; draw quality boxes
-      (let [quality (get-in s [:leap :quality] 0)]
+      (let [quality (:quality leap)]
         (.setColor g (nth quality-colors quality))
         (doseq [y (range 5)]
           (when (>= y quality) (.setColor g hud-lo-color))


    ; status
    (.setColor g key-color)
    (let [{:keys [left right up down space]} (:keys s)]
      (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))))

(key->status! 32 :space)

(defn render [^Graphics2D g ^long w ^long h]
  (let [{:keys [leap telemetry keys]} @status
        w2     (/ w 2.0)
        w6     (/ w 6.0)
        h2     (/ h 2.0)
