                                (multi-color-tile memory-tile-atom tile
                                                  (:channels @screen-state-atom)))))))
 
-(defn visible-loader
-  "Loads tiles needed for drawing."
+(defn monochrome-loader
+  "Loads monochrome tiles needed for drawing."
   [screen-state-atom memory-tile-atom acquired-images]
   (let [visible-tile-positions (tiles-in-pixel-rectangle
                                  (screen-rectangle @screen-state-atom)

;; Loading visible tiles

(defn overlay-loader
  [screen-state-atom memory-tile-atom overlay-tiles-atom]
  (let [visible-tile-positions (tiles-in-pixel-rectangle
                                 (screen-rectangle @screen-state-atom)

      (paint-tiles overlay-tiles-atom screen-state [tile-width tile-height])
      enable-anti-aliasing
      (.setTransform original-transform)
      ;(show-mouse-pos screen-state)
      (.setColor Color/WHITE)
      (.drawString (str (select-keys screen-state [:mouse :x :y :zoom])) 10 20)
      (.drawString (str (absolute-mouse-position screen-state)) 10 40))))
