       0 (interpret-tempo-tap this)
       1 (rhythm/metro-phrase-start metro (rhythm/metro-phrase metro))
       2 (rhythm/metro-bar-start metro (rhythm/metro-bar metro))
-      3 (interpret-beat-tap this))))
+      3 (interpret-beat-tap this)))
+  (-bang this))

  parameter."
  [this new-value]
  (if (zero? (.parentGetInlet this))
    (set-bpm this new-value)
    (-inlet-int this (int new-value))))

(defn interpret-tempo-tap

    0 (set-bpm this new-value)
    1 (rhythm/metro-phrase-start (:metronome (.state this)) new-value)
    2 (set-bar this new-value)
    3 (set-beat this new-value))
  (-bang this))

;; TODO: accept a list in the first inlet, to set the bars per phrase and beats per bar as well as BPM.

