 
 ;; tests
 
+(defn set-rgb-luts []
+  (swap! ss assoc :luts rgb))
+
 (defn test-tile [nx ny]
-  (add-to-available-tiles at 0 [nx ny 0 0 0]))
+  (add-to-available-tiles at 0 {:nx nx
+                                :ny ny
+                                :nz 0 
+                                :nt 0
+                                :nc 0}))
 
 (defn test-tiles [nx ny]
   (.start (Thread.


(def pixel-size (core getPixelSizeUm true))

(defn image-sequence []
  (let [q (.runSilent (AcqEngine.))]
    (take-while #(not= % TaggedImageQueue/POISON)
                (repeatedly #(.take q)))))

;; image properties


                           RenderingHints/VALUE_ANTIALIAS_OFF)))))
       
(defn paint-tiles [^Graphics2D g available-tiles zoom]
  (doseq [[{:keys [nx ny nz nt nc]} image] (get available-tiles zoom)]
    (let [[x y] (tile-to-pixels [nx ny] [512 512] zoom)]
      (when image
        (.drawImage g image
