      ~@body
      (.setTransform ~g t#)))
 
-(defn draw-hand [^Graphics2D g w h tw th td {:keys [quality roll pitch yaw]} {:keys [norm lo]}]
-  (.setColor g hud-hi-color)
-  (.drawString g
-    (format "  %+5.2f    %+5.2f    %+5.2f" roll pitch yaw)
-    (int (- (/ w 4) (/ tw 2)))
-    (int (- h td)))
+(defn draw-hand [^Graphics2D g w h {:keys [quality roll pitch yaw]} {:keys [norm lo]}]
   (when (pos? quality)
     (.setColor g (nth quality-colors (dec quality)))
     (doseq [n (range 5 (* 10 quality) 10)]

    (doseq [y (map (fn [v] (int (* v (/ h 50.0)))) (range 50))]
      (.drawLine g (- (/ w 4) 5) y (+ (/ w 4) 5) y)
      (.drawLine g (- (* 3 (/ w 4)) 5) y (+ (* 3 (/ w 4)) 5) y))
    (when left-hand (draw-hand g w h tw th td left-hand (:left hand-colors)))
    (.setClip g (Rectangle. 0 0 (inc w) (inc h)))
    (.translate g (double (/ w 2)) (double 0.0))
    (when right-hand (draw-hand g w h tw th td right-hand (:right hand-colors)))))


(defn dummy-source []

                     (Color.   64  192  64    32)
                     (Color.   64  192  64    64)])

(def pitch-bounds (partial math/bound -0.5 0.5))
(def yaw-bounds (partial math/bound -0.4 0.4))
(def roll-bounds (partial math/bound -1.2 1.2))
