From e96652d818e740176fad31f265a5f14abbf4c653 Mon Sep 17 00:00:00 2001
From: Douglas Clowes <dcl@ansto.gov.au>
Date: Mon, 15 Jan 2007 09:12:07 +1100
Subject: [PATCH] initial version

r1399 | dcl | 2007-01-15 09:12:07 +1100 (Mon, 15 Jan 2007) | 2 lines
---
 site_ansto/instrument/qld/hpaths.tcl | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/site_ansto/instrument/qld/hpaths.tcl b/site_ansto/instrument/qld/hpaths.tcl
index e69de29b..e3d3ba27 100644
--- a/site_ansto/instrument/qld/hpaths.tcl
+++ b/site_ansto/instrument/qld/hpaths.tcl
@@ -0,0 +1,22 @@
+set hpaths [list \
+/slits /slits/1 /slits/2] 
+
+# Maps devices (eg motors) to hipadaba paths.
+array set motor_hpath [list \
+ss1r /slits/1 \
+ss1l /slits/1 \
+ss1u /slits/1 \
+ss1d /slits/1 \
+ss1vg /slits/1 \
+ss1vo /slits/1 \
+ss1hg /slits/1 \
+ss1ho /slits/1 \
+ss2r /slits/2 \
+ss2l /slits/2 \
+ss2u /slits/2 \
+ss2d /slits/2 \
+ss2vg /slits/2 \
+ss2vo /slits/2 \
+ss2hg /slits/2 \
+ss2ho /slits/2 ]
+