 
 (def angle (atom 0))
 
-(defn grab-tagged-image
+(def grab-tagged-image
   "Grab a single image from camera."
-  []
-  (core snapImage)
-  (core getTaggedImage))
+  (memoize (fn []
+             (core snapImage)
+             (core getTaggedImage))))
 
 (def pixel-size (core getPixelSizeUm true))
 

  (bind-window-key window "ADD" #(swap! zoom-atom update-in [:zoom] inc))
  (bind-window-key window "SUBTRACT" #(swap! zoom-atom update-in [:zoom] dec)))
  
(defn display-follow [panel reference]
  (add-watch reference "display"
    (fn [_ _ _ _]
      (.repaint panel))))

(defn main-panel [screen-state available-tiles]
  (doto

(defn test-tiles [nx ny]
  (.start (Thread.
            #(doseq [i (range (- nx) (inc nx)) j (range (- ny) (inc ny))]
               ;(Thread/sleep 1000)
               (test-tile i j)))))

(defn test-rotate []
