 
 (defn init-burst [length trigger-sequence relative-z]
   (core setAutoShutter (@state :init-auto-shutter))
+  (println "autoshutter:" (core getAutoShutter))
   (load-property-sequences (:properties trigger-sequence))
   (let [absolute-slices (load-slice-sequence (:slices trigger-sequence) relative-z)]
     (start-property-sequences (:properties trigger-sequence))

                                  this-time (System/currentTimeMillis)
                                  dt (- 33 (- this-time last-time))]                      
                              (if first-image (reset-snap-window img)  )             
                              (Thread/sleep (max 0 dt))                                     
                              (if (.windowClosed @snap-window) 
                                (edt (.enableLiveMode gui false))  
                                (show-image @snap-window img first-image)  )

             (recall-z-reference current-position))
          #(when-let [wait-time-ms (:wait-time-ms event)]
             (acq-sleep wait-time-ms))
          #(when (:autofocus event)
             (run-autofocus))
          #(when check-z-ref
             (store-z-reference current-position))
