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