7e5725e14c
in the lists terminates with ] instead of \ r1271 | ffr | 2006-11-10 09:18:21 +1100 (Fri, 10 Nov 2006) | 3 lines
47 lines
803 B
Tcl
47 lines
803 B
Tcl
set hpaths [list \
|
|
/sample /detector /slits \
|
|
/slits/1 /slits/2 /slits/3 /slits/4 ]
|
|
|
|
# Maps devices (eg motors) to hipadaba paths.
|
|
array set motor_hpath [list \
|
|
s1up /slits/1 \
|
|
s1lo /slits/1 \
|
|
s1le /slits/1 \
|
|
s1ri /slits/1 \
|
|
s1vg /slits/1 \
|
|
s1vo /slits/1 \
|
|
s1hg /slits/1 \
|
|
s1ho /slits/1 \
|
|
s2up /slits/2 \
|
|
s2lo /slits/2 \
|
|
s2le /slits/2 \
|
|
s2ri /slits/2 \
|
|
s2vg /slits/2 \
|
|
s2vo /slits/2 \
|
|
s2hg /slits/2 \
|
|
s2ho /slits/2 \
|
|
s3up /slits/3 \
|
|
s3lo /slits/3 \
|
|
s3le /slits/3 \
|
|
s3ri /slits/3 \
|
|
s3vg /slits/3 \
|
|
s3vo /slits/3 \
|
|
s3hg /slits/3 \
|
|
s3ho /slits/3 \
|
|
st3vt /slits/3 \
|
|
s4up /slits/4 \
|
|
s4lo /slits/4 \
|
|
s4le /slits/4 \
|
|
s4ri /slits/4 \
|
|
s4vg /slits/4 \
|
|
s4vo /slits/4 \
|
|
s4hg /slits/4 \
|
|
s4ho /slits/4 \
|
|
st4vt /slits/4 \
|
|
say /sample \
|
|
sax /sample \
|
|
sath /sample \
|
|
saphi /sample \
|
|
dsyvt /detector \
|
|
deyvt /detector ]
|