From fcbdfd51d1927329b65034395dc8fea0435fe3d8 Mon Sep 17 00:00:00 2001
From: Ferdi Franceschini <ffr@ansto.gov.au>
Date: Thu, 20 Feb 2014 07:52:46 +1100
Subject: [PATCH] Added parameters requested by Christine.

---
 .../config/parameters/parameters.tcl          | 27 +++++++++++++++++++
 .../kookaburra/kookaburra_configuration.tcl   |  3 ++-
 2 files changed, 29 insertions(+), 1 deletion(-)
 create mode 100644 site_ansto/instrument/kookaburra/config/parameters/parameters.tcl

diff --git a/site_ansto/instrument/kookaburra/config/parameters/parameters.tcl b/site_ansto/instrument/kookaburra/config/parameters/parameters.tcl
new file mode 100644
index 00000000..a3580efa
--- /dev/null
+++ b/site_ansto/instrument/kookaburra/config/parameters/parameters.tcl
@@ -0,0 +1,27 @@
+# TODO Make readonly getset macro for AttFactor 
+
+##
+# @file The velocity selector position is used as the reference for other instrument
+# component positions. For simplicity we set it as the origin x=y=z=0.
+
+##
+# Note EndFacePosY and RotApPosY are surveyed positions
+foreach {var lname type priv units klass} {
+  wavelength       wavelength       float user Angstrom crystal
+  MainDeadTime     MainDeadTime     float user s        detector
+  TransDeadTime    TransDeadTime    float user s        detector
+  TransmissionTube TransmissionTube float user none     detector
+  bkgLevel         bkgLevel         float user 1        experiment
+  deg2QConv        deg2QConv        float user none     experiment
+  dOmega           dOmega           float user degrees  experiment
+  empLevel         empLevel         float user none     experiment
+  gDQv             gDQv             float user none     experiment
+  level            level            float user none     experiment
+  thickness        thickness        float user mm       sample
+  defaultMCR       defaultMCR       float user mm       monitor
+} {
+  ::utility::mkVar $var $type $priv $lname true $klass true true
+  if {$units != "none"} {
+    sicslist setatt $var units $units
+  }
+}
diff --git a/site_ansto/instrument/kookaburra/kookaburra_configuration.tcl b/site_ansto/instrument/kookaburra/kookaburra_configuration.tcl
index 41bc0993..dd68e0e2 100644
--- a/site_ansto/instrument/kookaburra/kookaburra_configuration.tcl
+++ b/site_ansto/instrument/kookaburra/kookaburra_configuration.tcl
@@ -24,13 +24,14 @@ fileeval $cfPath(motors)/motor_configuration.tcl
 fileeval $cfPath(plc)/plc.tcl
 fileeval $cfPath(counter)/counter.tcl
 #fileeval $cfPath(environment)/temperature/sct_lakeshore_218.tcl
-#fileeval $cfPath(counter)/sct_bm.tcl
+fileeval $cfPath(counter)/sct_bm.tcl
 fileeval $cfPath(hmm)/hmm_configuration.tcl
 fileeval $cfPath(nexus)/nxscripts.tcl
 fileeval $cfPath(scan)/scan.tcl
 fileeval $cfPath(commands)/commands.tcl
 #fileeval $cfPath(commands)/monodrive.tcl
 fileeval $cfPath(anticollider)/anticollider.tcl
+fileeval $cfPath(parameters)/parameters.tcl
 
 source gumxml.tcl