source $cfPath(scan)/scan_common_1.tcl
proc ::scan::pre_hmm_scan_prepare {} {}

proc ::scan::isc_initialize {} {
  ::scan::ic_initialize

  foreach {n v} {
    clock            1
    bin              1
    size             2048
    gain             1
    flip             0
    xstart           1
    ystart           1
    xend             2048
    yend             2048
    exposure         0.777
    temperature      -50
    threshold        800
    shutteropentime  100
    shutterclosetime 200
  } {
    cm1 setpar $n 0 $v
  }
}