49 lines
1.2 KiB
Tcl
49 lines
1.2 KiB
Tcl
set hpaths [list \
|
|
experiment sample monochromator slits \
|
|
slits/1 slits/2 detector detector/monitor detector/histmem ]
|
|
|
|
# Maps devices (eg motors) to hipadaba paths.
|
|
# obj name path
|
|
set motor_hpath [list \
|
|
ss1u top /slits/1 \
|
|
ss1d bottom /slits/1 \
|
|
ss1l left /slits/1 \
|
|
ss1r right /slits/1 \
|
|
ss2u ss2u /slits/2 \
|
|
ss2d ss2d /slits/2 \
|
|
ss2l ss2l /slits/2 \
|
|
ss2r ss2r /slits/2 \
|
|
som rotate /sample \
|
|
schi chi /sample \
|
|
sphi phi /sample \
|
|
sx translate_x /sample \
|
|
sy translate_y /sample \
|
|
stth detector_rotate /sample \
|
|
pcx pcx /monochromator \
|
|
pcr pcr /monochromator \
|
|
mom mom /monochromator \
|
|
mchi mchi /monochromator \
|
|
mphi mphi /monochromator \
|
|
mx mx /monochromator \
|
|
my my /monochromator \
|
|
mtth mtth /monochromator ]
|
|
|
|
# Configurable virtual motors
|
|
# obj name path master_obj
|
|
set cvirtmotor_hpath [list \
|
|
ss1vg ss1vg /slits/1 top\
|
|
ss1vo ss1vo /slits/1 top\
|
|
ss1hg ss1hg /slits/1 right\
|
|
ss1ho ss1ho /slits/1 right\
|
|
ss2vg ss2vg /slits/2 ss2u\
|
|
ss2vo ss2vo /slits/2 ss2u\
|
|
ss2hg ss2hg /slits/2 ss2r\
|
|
ss2ho ss2ho /slits/2 ss2r\
|
|
sth sth /sample detector_rotate\
|
|
mth mth /monochromator mtth]
|
|
|
|
array set counter_hpath [ list \
|
|
hm hm /detector/histmem \
|
|
counter counter /detector/monitor ]
|
|
|