26 lines
534 B
Tcl
26 lines
534 B
Tcl
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
|
|
}
|
|
}
|