diff --git a/site_ansto/instrument/hrpd/config/scan/scan.tcl b/site_ansto/instrument/hrpd/config/scan/scan.tcl index 0eae2c6a..e787cb6f 100644 --- a/site_ansto/instrument/hrpd/config/scan/scan.tcl +++ b/site_ansto/instrument/hrpd/config/scan/scan.tcl @@ -1,5 +1,5 @@ namespace eval scanCommand { -#MakeScanCommand escan counter scan.hdd recover.bin + variable scanVariable scan_var scanVarStart 0 scanVarStep 1 proc scan_prepare {sobj uobj} { variable scanVarStart; @@ -107,7 +107,7 @@ proc hdb_hmscan {scanvar scanstart scanincr np mode preset} { hmscan clear hmscan configure script - hmscan add $scanvar scanstart scanincr + hmscan add $scanvar $scanstart $scanincr set status [catch {hmscan run $np $mode $preset} msg] hmscan configure soft if {$status == 0} {