   ([rgb]
   (vec (map #(/ % 3) rgb)))
   ([rgb d]
-  (vec (map #(* % d) rgb))))
+  (vec (map #(limit-color (* % d)) rgb))))
 
 (defn color->rgb
   [color]

   :fushia      (vec (hex-str-to-dec "D30094"))
   :beige       (vec (hex-str-to-dec "C8B464"))})

(defn rgb->mono
  [rbg]
  (let [avg (/ (reduce + rbg) 3)]

  (let [screen         (state :screen)
        [columns rows] (get-size screen)
        place          (current-place state)
        current-time   (get-in state [:world :time])
        [player-x player-y] (player-xy state)]
    ;(debug "begin-render")
    ;(clear (state :screen))
    (trace "rendering place" (current-place state))
