               width (calculate-text-width graphics font text)]
           (.setFont graphics font)
           (.setPaint graphics no-effects-active-color)
-          (timbre/info width (math/round (- (/ Wayang/DISPLAY_WIDTH 2) (/ width 2))))
           (.drawString graphics text (int (math/round (- (/ Wayang/DISPLAY_WIDTH 2) (/ width 2))))
                        (/ Wayang/DISPLAY_HEIGHT 2)))))))
 

(defn calculate-text-width
  "Figure out how many pixels wide some text will be in a given font."
  [graphics font text]
  (let [metrics (.getFontMetrics graphics font)]
    (.stringWidth metrics text)))

(defn draw-bottom-button-label
  "Draw a label for a button below the graphical display."
  [controller index text color]
  (let [graphics (create-graphics controller)
        font (get-display-font :roboto-medium Font/BOLD 14)
        metrics (.getFontMetrics graphics font)
        label (fit-string text metrics (- button-cell-width button-cell-margin))
        width (.stringWidth metrics label)]
    (set-graphics-color graphics color)
    (.setFont graphics font)
    (.drawString graphics label (int (math/round (- (* (+ index 0.5) button-cell-width) (/ width 2))))

  parameters."
  [show port-in port-out device refresh-interval display-name]
  {:pre [(some? show)]}
  (load-fonts)
  (let [modes (atom #{})
        controller
        (with-meta
