From e9e4d81c30ec43366ad8d3a614ee840f70f816a8 Mon Sep 17 00:00:00 2001
From: Ferdi Franceschini <ffr@ansto.gov.au>
Date: Wed, 10 Sep 2014 14:57:40 +1000
Subject: [PATCH] Add variables for Bilby beamcenter position and selected
 beamstop.

---
 .../instrument/bilby/config/parameters/parameters.tcl  | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 site_ansto/instrument/bilby/config/parameters/parameters.tcl

diff --git a/site_ansto/instrument/bilby/config/parameters/parameters.tcl b/site_ansto/instrument/bilby/config/parameters/parameters.tcl
new file mode 100644
index 00000000..c514762c
--- /dev/null
+++ b/site_ansto/instrument/bilby/config/parameters/parameters.tcl
@@ -0,0 +1,10 @@
+foreach {var lname type priv units klass} {
+  BeamCenterX      BeamCenterX        float user     mm   parameter
+  BeamCenterZ      BeamCenterZ        float user     mm   parameter
+  BeamStop         BeamStop           int   user     none parameter
+} {
+  ::utility::mkVar $var $type $priv $lname true $klass true true
+  if {$units != "none"} {
+    sicslist setatt $var units $units
+  }
+}