diff --git a/site_ansto/instrument/qld/counter.tcl b/site_ansto/instrument/qld/counter.tcl new file mode 100755 index 00000000..91c7de09 --- /dev/null +++ b/site_ansto/instrument/qld/counter.tcl @@ -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 {} { + } +} diff --git a/site_ansto/instrument/qld/koala_configuration.tcl b/site_ansto/instrument/qld/koala_configuration.tcl index 563a68f5..9379cc73 100644 --- a/site_ansto/instrument/qld/koala_configuration.tcl +++ b/site_ansto/instrument/qld/koala_configuration.tcl @@ -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