            (last absolute-slices))))
   
 (defn pop-burst-image []
-  (while (and (core isSequenceRunning) (zero? (core getRemainingImageCount)))
+  (while (and (. mmc isSequenceRunning) (zero? (. mmc getRemainingImageCount)))
     (Thread/sleep 5))
   (let [md (Metadata.)
         pix (core popNextImageMD md)

      (.put out-queue (make-TaggedImage (annotate-image image event-data @state))))
   (if (core isBufferOverflowed)
      (do (swap! state assoc :stop true)
          (ReportingUtils/showError "Circular buffer overflowed.")))))

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

(defn compute-time-from-core [tags]
  (when (@state :burst-init-time)
    (when-let [t (tags "ElapsedTime-ms")]
      (log "ElapsedTime-ms" t)
      (+ (Double/parseDouble t)
         (@state :burst-init-time)))))

