 
 (defn collect-burst-images [event out-queue]
   (when (first-trigger-missing?)
-    (pop-burst-image)) ; drop first image if first trigger doesn't happen
+    (pop-burst-image (* 10 (:exposure event)))) ; 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")

      (or 
        (successful? (attempt#)) ; first attempt
        (do (log "second attempt") (successful? (attempt#)))
        (do (log "reload and try a third time")
            (successful? (reload-device ~device) (attempt#)))) ; third attempt after reloading
      (throw (Exception. (str "Device failure: " ~device)))
      (swap! state assoc :stop true)
      nil)))

(defn execute [event-fns]
  (doseq [event-fn event-fns :while (not (:stop @state))]
    (check-for-serious-error)
    (event-fn)
    (await-resume)))

(defn run-acquisition [this settings out-queue]
