   (let [screen         (state :screen)
         [columns rows] (get-size screen)
         place          (current-place state)
-        current-time   (get-in state [:world :time])]
+        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))

                                        [chr fg :brown]
                                        ["\u2225" :black :brown]))
                                  :else
                                    out-char)]
              (apply put-string screen x y shaded-out-char)))))
    ;; draw character
    ;(debug (-> state :world :player))

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

(defn color->rgb
  [color]
