diff --git a/site_ansto/instrument/hrpd/config/hmm/hmm_configuration.tcl b/site_ansto/instrument/hrpd/config/hmm/hmm_configuration.tcl index 072a63c6..fa9f7835 100644 --- a/site_ansto/instrument/hrpd/config/hmm/hmm_configuration.tcl +++ b/site_ansto/instrument/hrpd/config/hmm/hmm_configuration.tcl @@ -1,5 +1,5 @@ -# $Revision: 1.1 $ -# $Date: 2007-02-16 05:43:59 $ +# $Revision: 1.2 $ +# $Date: 2007-02-20 05:01:44 $ # Author: Mark Lesha (mle@ansto.gov.au) # Last revision by: $Author: ffr $ @@ -161,8 +161,8 @@ MakeHMControl_ANSTO hmc bm hmm # hmscan run 5 timer 1 (termination controlled by the beam monitor) # scan2_runb 5 TIME 100 IMMEDIATE (termination controlled by the histogram server) # -MakeScanCommand hmscan bm $cfPath(scan)/echidna.hdd recover.bin -MakeScanCommand scan2 bm $cfPath(scan)/echidna.hdd recover.bin +MakeScanCommand hmscan bm $cfPath(scan)/scan.hdd recover.bin +MakeScanCommand scan2 bm $cfPath(scan)/scan.hdd recover.bin # # Call is: scan2_runa proc scan2_runa {n} { diff --git a/site_ansto/instrument/hrpd/config/scan/echidna.hdd b/site_ansto/instrument/hrpd/config/scan/scan.hdd similarity index 100% rename from site_ansto/instrument/hrpd/config/scan/echidna.hdd rename to site_ansto/instrument/hrpd/config/scan/scan.hdd diff --git a/site_ansto/instrument/hrpd/config/scan/scan.tcl b/site_ansto/instrument/hrpd/config/scan/scan.tcl index 8e49190c..0eae2c6a 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 echidna.hdd recover.bin +#MakeScanCommand escan counter scan.hdd recover.bin variable scanVariable scan_var scanVarStart 0 scanVarStep 1 proc scan_prepare {sobj uobj} { variable scanVarStart; @@ -119,7 +119,7 @@ proc hdb_hmscan {scanvar scanstart scanincr np mode preset} { publish hdb_hmscan user -MakeScanCommand bmonscan bm $cfPath(scan)/echidna.hdd recover.bin +MakeScanCommand bmonscan bm $cfPath(scan)/scan.hdd recover.bin bmonscan configure script bmonscan function writeheader ::scanCommand::donothing bmonscan function writepoint ::scanCommand::bm_nxaddpoint diff --git a/site_ansto/instrument/hrpd/script_validator/config/hmm/hmm_configuration.tcl b/site_ansto/instrument/hrpd/script_validator/config/hmm/hmm_configuration.tcl index 717141c7..c7283dcc 100644 --- a/site_ansto/instrument/hrpd/script_validator/config/hmm/hmm_configuration.tcl +++ b/site_ansto/instrument/hrpd/script_validator/config/hmm/hmm_configuration.tcl @@ -14,7 +14,7 @@ hmm configure Counter counter hmm configure init 0 hmm init -MakeScanCommand hmscan bm echidna.hdd recover.bin +MakeScanCommand hmscan bm scan.hdd recover.bin proc hs_prepare {scanobjectname userobjectname} {} proc hs_finish {scanobjectname userobjectname} {}