30 lines
989 B
Tcl
30 lines
989 B
Tcl
set hpaths [list experiment detector detector/monitor detector/histmem ]
|
|
|
|
# Maps devices (eg motors) to hipadaba paths.
|
|
# obj name path
|
|
set motor_hpath [list \
|
|
sample sample \
|
|
collimator collimator \
|
|
crystal monochromator \
|
|
monochromator 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 /detector/histmem \
|
|
counter /detector/monitor ]
|
|
|