46 lines
1.6 KiB
Tcl
46 lines
1.6 KiB
Tcl
# $Revision: 1.2 $
|
|
# $Date: 2006-11-14 03:08:30 $
|
|
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
|
# Last revision by: $Author: dcl $
|
|
|
|
# Defines hashes which map motor names to arrays
|
|
source hpaths.tcl
|
|
|
|
#TODO What we really want are duplicates of the SICS Motor and
|
|
# MakeConfigurableMotor commands which
|
|
foreach hp $hpaths { hmake $hp spy none }
|
|
|
|
makeHdbMotor $motor_hpath(ss1u) ss1u ss1u
|
|
makeHdbMotor $motor_hpath(ss1d) ss1d ss1d
|
|
makeHdbMotor $motor_hpath(ss1l) ss1l ss1l
|
|
makeHdbMotor $motor_hpath(ss1r) ss1r ss1r
|
|
makeHdbVirtMotor $motor_hpath(ss1vg) ss1vg ss1vg
|
|
makeHdbVirtMotor $motor_hpath(ss1vo) ss1vo ss1vo
|
|
makeHdbVirtMotor $motor_hpath(ss1hg) ss1hg ss1hg
|
|
makeHdbVirtMotor $motor_hpath(ss1ho) ss1ho ss1ho
|
|
|
|
makeHdbMotor $motor_hpath(ss2u) ss2u ss2u
|
|
makeHdbMotor $motor_hpath(ss2d) ss2d ss2d
|
|
makeHdbMotor $motor_hpath(ss2l) ss2l ss2l
|
|
makeHdbMotor $motor_hpath(ss2r) ss2r ss2r
|
|
makeHdbVirtMotor $motor_hpath(ss2vg) ss2vg ss2vg
|
|
makeHdbVirtMotor $motor_hpath(ss2vo) ss2vo ss2vo
|
|
makeHdbVirtMotor $motor_hpath(ss2hg) ss2hg ss2hg
|
|
makeHdbVirtMotor $motor_hpath(ss2ho) ss2ho ss2ho
|
|
|
|
makeHdbMotor $motor_hpath(som) som som
|
|
makeHdbMotor $motor_hpath(schi) schi schi
|
|
makeHdbMotor $motor_hpath(sphi) sphi sphi
|
|
makeHdbMotor $motor_hpath(sx) sx sx
|
|
makeHdbMotor $motor_hpath(sz) sz sz
|
|
makeHdbMotor $motor_hpath(stth) stth stth
|
|
|
|
makeHdbMotor $motor_hpath(mom) mom mom
|
|
makeHdbMotor $motor_hpath(mchi) mchi mchi
|
|
makeHdbMotor $motor_hpath(mphi) mphi mphi
|
|
makeHdbMotor $motor_hpath(mx) mx mx
|
|
makeHdbMotor $motor_hpath(mz) mz mz
|
|
makeHdbMotor $motor_hpath(mtth) mtth mtth
|
|
|
|
makeHdbHM $motor_hpath(hm) hm hm
|