linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Use generic name for scan header.

Browse Source 
r1529 | ffr | 2007-02-20 16:06:09 +1100 (Tue, 20 Feb 2007) | 2 lines
This commit is contained in:
Ferdi Franceschini
2007-02-20 16:06:09 +11:00
committed by Douglas Clowes
parent b5d26e4560
commit 1d82d1b681
4 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
site_ansto/instrument/hrpd/config/hmm/hmm_configuration.tcl
View File

@ -1,5 +1,5 @@
# $Revision: 1.1 $ # $Revision: 1.2 $
# $Date: 2007-02-16 05:43:59 $ # $Date: 2007-02-20 05:01:44 $
# Author: Mark Lesha (mle@ansto.gov.au) # Author: Mark Lesha (mle@ansto.gov.au)
# Last revision by: $Author: ffr $ # 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) # hmscan run 5 timer 1 (termination controlled by the beam monitor)
# scan2_runb 5 TIME 100 IMMEDIATE (termination controlled by the histogram server) # scan2_runb 5 TIME 100 IMMEDIATE (termination controlled by the histogram server)
# #
MakeScanCommand hmscan bm $cfPath(scan)/echidna.hdd recover.bin MakeScanCommand hmscan bm $cfPath(scan)/scan.hdd recover.bin
MakeScanCommand scan2 bm $cfPath(scan)/echidna.hdd recover.bin MakeScanCommand scan2 bm $cfPath(scan)/scan.hdd recover.bin
# #
# Call is: scan2_runa <n> # Call is: scan2_runa <n>
proc scan2_runa {n} { proc scan2_runa {n} {

0
site_ansto/instrument/hrpd/config/scan/echidna.hdd → site_ansto/instrument/hrpd/config/scan/scan.hdd
View File

4
site_ansto/instrument/hrpd/config/scan/scan.tcl
View File

@ -1,5 +1,5 @@
namespace eval scanCommand { 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 variable scanVariable scan_var scanVarStart 0 scanVarStep 1
proc scan_prepare {sobj uobj} { proc scan_prepare {sobj uobj} {
variable scanVarStart; variable scanVarStart;
@ -119,7 +119,7 @@ proc hdb_hmscan {scanvar scanstart scanincr np mode preset} {
publish hdb_hmscan user 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 configure script
bmonscan function writeheader ::scanCommand::donothing bmonscan function writeheader ::scanCommand::donothing
bmonscan function writepoint ::scanCommand::bm_nxaddpoint bmonscan function writepoint ::scanCommand::bm_nxaddpoint

2
site_ansto/instrument/hrpd/script_validator/config/hmm/hmm_configuration.tcl
View File

@ -14,7 +14,7 @@ hmm configure Counter counter
hmm configure init 0 hmm configure init 0
hmm init hmm init
MakeScanCommand hmscan bm echidna.hdd recover.bin MakeScanCommand hmscan bm scan.hdd recover.bin
proc hs_prepare {scanobjectname userobjectname} {} proc hs_prepare {scanobjectname userobjectname} {}
proc hs_finish {scanobjectname userobjectname} {} proc hs_finish {scanobjectname userobjectname} {}