namespace eval ::scan { }

proc scan_file { fname {description ""} } {
  set file_cmd "set file,path=D:\Data,basename=${fname},startnumber=1,imageformat=tif,experimentdetail=${description}"
  cmserver send $file_cmd
}
publish scan_file user

proc ::scan::cm_count {sobj uobj point mode preset} {
    cm1 send "clear meta"

    foreach m "[sicslist type motor]" {
      if {$m != "dummy_motor"} {
        set meta_cmd "set meta,[$m]"
        cm1 send $meta_cmd
      }
    }
    cm1 count $preset
}

publish ::scan::cm_count        user

proc ::scan::isc_initialize {} {
  MakeAsyncQueue cmserver CAMERA [dict get $::CAMERA_HOSTPORT HOST] [dict get $::CAMERA_HOSTPORT PORT]
  MakeCounter cm1 anstocamera cmserver
  foreach {n v} {
    debug            0
    clock            1
    bin              1
    size             2048
    gain             1
    flip             0
    xstart           1
    ystart           1
    xend             2048
    yend             2048
    exposure         60
    temperature      -80
    threshold        800
    shutteropentime  100
    shutterclosetime 200
  } {
    cm1 setpar $n 0 $v
  }

  MakeScanCommand  camscan cm1 $::cfPath(scan)/dingo.hdd recover.bin
  camscan configure script
  camscan function count ::scan::cm_count
}