15 lines
402 B
Tcl
15 lines
402 B
Tcl
source $cfPath(scan)/scan_common_1.tcl
|
|
::scan::runscan_reset_position true
|
|
##
|
|
# @brief Make sure that the chopper is ready before starting a scan.
|
|
# SICS-635 Don't set histmem freq because it takes too long.
|
|
#proc ::scan::pre_hmm_scan_prepare {} {
|
|
# if [catch {::histogram_memory::tochfreq} errmsg] {
|
|
# return -code error $errmsg
|
|
# }
|
|
#}
|
|
|
|
proc ::scan::isc_initialize {} {
|
|
::scan::ic_initialize
|
|
}
|