23 lines
387 B
Tcl
23 lines
387 B
Tcl
set hpaths [list \
|
|
/slits /slits/1 /slits/2]
|
|
|
|
# Maps devices (eg motors) to hipadaba paths.
|
|
array set motor_hpath [list \
|
|
ss1r /slits/1 \
|
|
ss1l /slits/1 \
|
|
ss1u /slits/1 \
|
|
ss1d /slits/1 \
|
|
ss1vg /slits/1 \
|
|
ss1vo /slits/1 \
|
|
ss1hg /slits/1 \
|
|
ss1ho /slits/1 \
|
|
ss2r /slits/2 \
|
|
ss2l /slits/2 \
|
|
ss2u /slits/2 \
|
|
ss2d /slits/2 \
|
|
ss2vg /slits/2 \
|
|
ss2vo /slits/2 \
|
|
ss2hg /slits/2 \
|
|
ss2ho /slits/2 ]
|
|
|