47 lines
815 B
Tcl
47 lines
815 B
Tcl
set hpaths [list \
|
|
/sample /detector /slits \
|
|
/slits/1 /slits/2 /slits/3 /slits/4 ]
|
|
|
|
# Maps devices (eg motors) to hipadaba paths.
|
|
array set motor_hpath [list \
|
|
ss1u /slits/1 \
|
|
ss1d /slits/1 \
|
|
ss1l /slits/1 \
|
|
ss1r /slits/1 \
|
|
ss1vg /slits/1 \
|
|
ss1vo /slits/1 \
|
|
ss1hg /slits/1 \
|
|
ss1ho /slits/1 \
|
|
ss2u /slits/2 \
|
|
ss2d /slits/2 \
|
|
ss2l /slits/2 \
|
|
ss2r /slits/2 \
|
|
ss2vg /slits/2 \
|
|
ss2vo /slits/2 \
|
|
ss2hg /slits/2 \
|
|
ss2ho /slits/2 \
|
|
ss3u /slits/3 \
|
|
ss3d /slits/3 \
|
|
ss3l /slits/3 \
|
|
ss3r /slits/3 \
|
|
ss3vg /slits/3 \
|
|
ss3vo /slits/3 \
|
|
ss3hg /slits/3 \
|
|
ss3ho /slits/3 \
|
|
st3vt /slits/3 \
|
|
ss4u /slits/4 \
|
|
ss4d /slits/4 \
|
|
ss4l /slits/4 \
|
|
ss4r /slits/4 \
|
|
ss4vg /slits/4 \
|
|
ss4vo /slits/4 \
|
|
ss4hg /slits/4 \
|
|
ss4ho /slits/4 \
|
|
st4vt /slits/4 \
|
|
sz /sample \
|
|
sx /sample \
|
|
sth /sample \
|
|
sphi /sample \
|
|
dszvt /detector \
|
|
dezvt /detector ]
|