30 lines
542 B
Tcl
30 lines
542 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 \
|
|
mom /monochromator \
|
|
mtth /monochromator \
|
|
mth /monochromator \
|
|
mchi /monochromator \
|
|
mphi /monochromator \
|
|
my /monochromator \
|
|
mx /monochromator \
|
|
som /sample \
|
|
stth /sample \
|
|
sth /sample \
|
|
echi /sample \
|
|
ephi /sample \
|
|
sy /sample \
|
|
sx /sample \
|
|
sz /sample \
|
|
psp /slits/1 \
|
|
psw /slits/1 \
|
|
psh /slits/1 \
|
|
psho /slits/1 \
|
|
ssp /slits/2 \
|
|
ssw /slits/2 \
|
|
ssh /slits/2 \
|
|
ssho /slits/2 ]
|