                              :max-val barrel-height))
 
       [:axis/direction :x-axis]
-      (assoc-in
-        this [:cursor-position :theta]
+      (assoc-in this [:cursor-position :theta]
         (let [theta' (control/adjust-wrapped
                        (:theta cursor-position) event
                        :rate sphere/pi

  ([]
   (init 0.099 (* 0.068 8) {:theta 0 :z 0.20}))
  ([barrel-radius barrel-height cursor-position]
   (BombsMode. barrel-radius barrel-height cursor-position)))

                       :max-val sphere/tau)]
          (if (>= theta' sphere/tau) 0.0 theta')))

      [:button/press :A]
      (assoc-in this [:bombs]
        (conj bombs {:center cursor-position :age 0}))

      this))


  (render
    [this pixel]
    (do
      #_(log/warn pixel bombs)
      (let [bomb-colors (map (partial bomb-color barrel-radius pixel) bombs)
            cursor-delta (distance barrel-radius (:barrel pixel) cursor-position)
            cursor-color (if (< cursor-delta 0.04) (color/gray 1.0) color/none)]
        (overlay (conj bomb-colors cursor-color))))))


(defn init
