Add a beam monitor counter to Koala
r2628 | dcl | 2008-06-12 17:21:40 +1000 (Thu, 12 Jun 2008) | 2 lines
This commit is contained in:
19
site_ansto/instrument/qld/counter.tcl
Executable file
19
site_ansto/instrument/qld/counter.tcl
Executable file
@@ -0,0 +1,19 @@
|
||||
set sim_mode "true"
|
||||
#set sim_mode [SplitReply [counter_simulation]]
|
||||
if {$sim_mode == "true"} {
|
||||
MakeCounter bm SIM 0.0;
|
||||
} else {
|
||||
# Make and configure an ANSTO beam monitor counter.
|
||||
# This must be sourced before the hmm_configuration.tcl until we separate the scan setup from the hmm setup
|
||||
MakeCounter bm anstomonitor [ params host "137.157.204.65" port "33000" ]
|
||||
}
|
||||
|
||||
#source $cfPath(counter)/counter_common_1.tcl
|
||||
bm SetExponent 0
|
||||
sicslist setatt bm privilege internalunset sim_mode
|
||||
|
||||
## TODO Put all the counter macros in the counter namespace
|
||||
namespace eval counter {
|
||||
proc set_sobj_attributes {} {
|
||||
}
|
||||
}
|
||||
@@ -1,5 +1,5 @@
|
||||
# $Revision: 1.4 $
|
||||
# $Date: 2006-11-19 23:42:42 $
|
||||
# $Revision: 1.5 $
|
||||
# $Date: 2008-06-12 07:21:40 $
|
||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
||||
# Last revision by: $Author: dcl $
|
||||
|
||||
@@ -20,5 +20,6 @@ Instrument lock
|
||||
|
||||
|
||||
fileeval motor_configuration.tcl
|
||||
fileeval counter.tcl
|
||||
source gen_hipadaba.tcl
|
||||
fileeval extraconfig.tcl
|
||||
|
||||
Reference in New Issue
Block a user