set hpaths [list \
experiment sample monochromator slits \
slits/1 slits/1/horizontal slits/1/vertical slits/2 slits/2/horizontal slits/2/vertical detector detector/monitor detector/histmem ] 

# Maps devices (eg motors) to hipadaba paths.
# obj name path
set motor_hpath [list \
ss1u [SplitReply [ss1u long_name]] slits/1/vertical\
ss1d [SplitReply [ ss1d long_name]] slits/1/vertical\
ss1l [SplitReply [ ss1l long_name]] slits/1/horizontal\
ss1r [SplitReply [ ss1r long_name]] slits/1/horizontal\
ss2u [SplitReply [ ss2u long_name]] slits/2/vertical\
ss2d [SplitReply [ ss2d long_name]] slits/2/vertical\
ss2l [SplitReply [ ss2l long_name]] slits/2/horizontal\
ss2r [SplitReply [ ss2r long_name]] slits/2/horizontal\
som [SplitReply [ som long_name]] sample \
schi [SplitReply [ schi long_name]] sample \
sphi [SplitReply [ sphi long_name]] sample \
sx [SplitReply [ sx long_name]] sample \
sy [SplitReply [ sy long_name]] sample \
stth [SplitReply [ stth long_name]] sample \
mchi [SplitReply [ mchi long_name]] monochromator \
mom [SplitReply [ mom long_name]] monochromator \
mphi [SplitReply [ mphi long_name]] monochromator \
mtth [SplitReply [ mtth long_name]] monochromator \
mx [SplitReply [ mx long_name]] monochromator \
my [SplitReply [ my long_name]] monochromator ]

# Configurable virtual motors
# obj name path master_obj
set cvirtmotor_hpath [list \
ss1hg gap slits/1/horizontal left\
ss1ho offset slits/1/horizontal left\
ss1vg gap slits/1/vertical top\
ss1vo offset slits/1/vertical top\
ss2hg gap slits/2/horizontal left\
ss2ho offset slits/2/horizontal left\
ss2vg gap slits/2/vertical top\
ss2vo offset slits/2/vertical top]

array set counter_hpath [ list \
hm /detector/histmem \
counter /detector/monitor ]