37 lines
652 B
Tcl
37 lines
652 B
Tcl
set hpaths [list \
|
|
/sample /monochromator /slits \
|
|
/slits/1 /slits/2 /detector ]
|
|
|
|
# Maps devices (eg motors) to hipadaba paths.
|
|
array set motor_hpath [list \
|
|
ss1u /slits/1 \
|
|
ss1d /slits/1 \
|
|
ss1l /slits/1 \
|
|
ss1r /slits/1 \
|
|
ss1vg /slits/1 \
|
|
ss1vo /slits/1 \
|
|
ss1hg /slits/1 \
|
|
ss1ho /slits/1 \
|
|
ss2u /slits/2 \
|
|
ss2d /slits/2 \
|
|
ss2l /slits/2 \
|
|
ss2r /slits/2 \
|
|
ss2vg /slits/2 \
|
|
ss2vo /slits/2 \
|
|
ss2hg /slits/2 \
|
|
ss2ho /slits/2 \
|
|
som /sample \
|
|
schi /sample \
|
|
sphi /sample \
|
|
sx /sample \
|
|
sz /sample \
|
|
stth /sample \
|
|
mom /monochromator \
|
|
mchi /monochromator \
|
|
mphi /monochromator \
|
|
mx /monochromator \
|
|
mz /monochromator \
|
|
mtth /monochromator \
|
|
hm /detector ]
|
|
|