31 lines
1.0 KiB
Tcl
31 lines
1.0 KiB
Tcl
|
|
set hpaths [list experiment detector detector/monitor detector/histmem ]
|
|
|
|
#A "motor part" may have a group path which can be appended to the
|
|
#following paths.
|
|
# motor_hpath(type) -> hipadaba path
|
|
set motor_hpath [list \
|
|
sample sample \
|
|
collimator collimator \
|
|
crystal monochromator \
|
|
aperture slits ]
|
|
|
|
# Configurable virtual motors
|
|
# obj name path master_obj
|
|
set cvirtmotor_hpath [list \
|
|
ss1vg ss1vg slits/first [list top bottom left right]\
|
|
ss1vo ss1vo slits/first [list top bottom left right]\
|
|
ss1hg ss1hg slits/first [list top bottom left right]\
|
|
ss1ho ss1ho slits/first [list top bottom left right]\
|
|
ss2vg ss2vg slits/second [list top bottom left right]\
|
|
ss2vo ss2vo slits/second [list top bottom left right]\
|
|
ss2hg ss2hg slits/second [list top bottom left right]\
|
|
ss2ho ss2ho slits/second [list top bottom left right]\
|
|
sth sth sample [SplitReply [stth long_name]]\
|
|
mth mth monochromator [SplitReply [mtth long_name]]]
|
|
|
|
array set counter_hpath [ list \
|
|
hm hm /detector/histmem \
|
|
counter counter /detector/monitor ]
|
|
|