49 lines
1.2 KiB
Tcl
49 lines
1.2 KiB
Tcl
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_cmd clearmeta
|
|
|
|
foreach m "[sicslist type motor]" {
|
|
if {$m != "dummy_motor"} {
|
|
cm1_cmd motor $m
|
|
}
|
|
}
|
|
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
|
|
}
|