         [slide-explorer.paint :only (enable-anti-aliasing repaint
                                      draw-image repaint-on-change)]
         [slide-explorer.tiles :only (center-tile floor-int)]
-        [slide-explorer.image :only (crop insert-half-tile overlay)]
+        [slide-explorer.image :only (crop insert-half-tile overlay intensity-range)]
         [slide-explorer.user-controls :only (make-view-controllable
                                               handle-resize
                                               setup-fullscreen)]))

  (doto (JFrame. "Slide Explorer II")
    .show
    (.setBounds 10 10 500 500)))

(defn view-panel [memory-tiles acquired-images]
  (let [screen-state (atom (sorted-map :x 0 :y 0 :z 0 :zoom 1
                                       :width 100 :height 10

      (when (<= MIN-ZOOM (:zoom child))
        (propagate-tile tile-map-atom child parent)
        (recur (child-indices child) child)))))

;; CONTRAST

(defn apply-contrast
  "Setup contrast values by using the min and max of a given tile."
  [screen-state [tile-index tile-proc]]
  (update-in screen-state
             [:channels (:nc tile-index)]
             merge
             (intensity-range tile-proc)))

;; OVERLAY

