   (select-values-match?
     @current-album-tags
     image-tags
-    ["Width" "Height" "PixelType"]))  
-
-(defn initialize-display-ranges [window]  
+    ["Width" "Height" "PixelType"]))
+
+(defn initialize-display-ranges [window]
   (do (.setChannelDisplayRange window 0 0 256)
       (.setChannelDisplayRange window 1 0 256)
       (.setChannelDisplayRange window 2 0 256)))

      (pop-burst-image pop-timeout-ms)) ; drop first image if first trigger doesn't happen
    (swap! state assoc :burst-time-offset nil)
    (let [burst-events (assign-z-offsets (event :burst-data))
          camera-index (str (core getCameraDevice) "-CameraChannelIndex")
          camera-channel-count (core getNumberOfCameraChannels)
          bursts-per-camera-channel (vec (repeat camera-channel-count burst-events))
          camera-channel-names (get-camera-channel-names)]
      (doall
        (loop [burst-seqs bursts-per-camera-channel i 0]
          (when (core isBufferOverflowed)
            (swap! state assoc :circular-buffer-overflow true))
          (when (and (not (@state :stop))
                     (not (apply = nil burst-seqs))
                     (or (pos? (core getRemainingImageCount))
                         (and (core isSequenceRunning)
                              (not (@state :circular-buffer-overflow)))))
            (let [image (pop-burst-image pop-timeout-ms)
                  cam-chan (if-let [cam-chan-str (get-in image [:tags camera-index])]
                             (Long/parseLong cam-chan-str)
                             0)
                  camera-channel-name (nth camera-channel-names cam-chan)
                  event (-> (first (burst-seqs cam-chan))
                            (update-in [:channel-index] make-multicamera-channel cam-chan)
                            (update-in [:channel :name] super-channel-name camera-channel-name)
                            (assoc :camera-channel-index cam-chan))]
              (when (zero? i)
                (swap! state assoc
                       :burst-time-offset (- (elapsed-time @state)
                                             (core-time-from-tags (image :tags)))))
              (.put out-queue (make-TaggedImage (annotate-image image event @state
                                                                (burst-time (:tags image) @state))))
              (recur (update-in burst-seqs [cam-chan] next) (inc i)))))))
    (burst-cleanup))) ;; burst is done!

(defn collect-snap-image [event out-queue]
  (let [image

            stage-name (.stageName stage-pos)]
        (when (= 1 (.numAxes stage-pos))
          (when (z-stage-needs-adjustment stage-name)
            (set-msp-z-position msp-index stage-name
                                (get-z-stage-position stage-name))))))))

(defn recall-z-reference [current-position]
  (let [z-drive (@state :default-z-drive)]
