20 lines
608 B
Tcl
Executable File
20 lines
608 B
Tcl
Executable File
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 {} {
|
|
}
|
|
}
|