   (core setXYPosition (core getXYStageDevice) (.x position) (.y position)))
   
 ;; run using acquisitions
+
+;;; channel setup
 
 (defn initial-channel-display-settings [tagged-image-processors]
   (merge-with merge

(defn acquire-processor-sequence []
  (map tagged-image-to-processor (acquire-tagged-image-sequence)))

;; stage communications

(defn get-xy-position []

        (for [[chan lut-map] (initial-channel-display-settings tagged-image-processors)]
          [chan {:lut (lut-object lut-map)}])))

;; tile acquisition management

(defn add-tiles-at [available-tiles [nx ny] affine-stage-to-pixel]
  (doseq [image (acquire-at (inverse-transform (Point. (* 512 nx) (* 512 ny)) affine-stage-to-pixel))]
    (add-to-available-tiles 
      available-tiles
      {:nx nx
       :ny ny
       :nz (get-in image [:tags "SliceIndex"])
       :nt 0
       :nc (or (get-in image [:tags "Channel"]) "Default")}
      (image :proc)))
  (await available-tiles))

(defn available-tile-coords [available-tiles]
