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 ]