                                                                (update-in out-char [1] (comp rgb->mono darken-rgb))
                                                              (contains? cell :harvestable)
                                                                (let [[chr fg bg] out-char]
-                                                                 [chr bg fg])
+                                                                 [chr bg (night-tint (color->rgb fg) d)])
                                                              (contains? (set (map :id cell-items)) :raft)
                                                                (let [[chr fg bg] out-char]
                                                                  (log/info "raft-cell" out-char cell-items)

  (let [avg (bit-shift-right (+ (max r g b) (min r g b)) 1)]
   [avg avg avg]))

(defn darken-rgb
  ([rgb]
  (mapv #(int (/ % 10)) rgb))

    [r g b]
    [(/ r 4) (/ g 3) (/ (max r g b) 2)]))

(defn night-tint-npc
  [[s fg bg] d]
   [s (night-tint (color->rgb (or fg :white)) d) (color->rgb (or bg :black))])

(defn move-cursor
  ([^robinson.aterminal.ATerminal screen x y]
