58 lines
2.1 KiB
Tcl
58 lines
2.1 KiB
Tcl
# $Revision: 1.2 $
|
|
# $Date: 2006-11-13 21:29:39 $
|
|
# 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(s1up) s1up s1up
|
|
makeHdbMotor $motor_hpath(s1lo) s1lo s1lo
|
|
makeHdbMotor $motor_hpath(s1le) s1le s1le
|
|
makeHdbMotor $motor_hpath(s1ri) s1ri s1ri
|
|
makeHdbVirtMotor $motor_hpath(s1vg) s1vg s1vg
|
|
makeHdbVirtMotor $motor_hpath(s1vo) s1vo s1vo
|
|
makeHdbVirtMotor $motor_hpath(s1hg) s1hg s1hg
|
|
makeHdbVirtMotor $motor_hpath(s1ho) s1ho s1ho
|
|
|
|
makeHdbMotor $motor_hpath(s2up) s2up s2up
|
|
makeHdbMotor $motor_hpath(s2lo) s2lo s2lo
|
|
makeHdbMotor $motor_hpath(s2le) s2le s2le
|
|
makeHdbMotor $motor_hpath(s2ri) s2ri s2ri
|
|
makeHdbVirtMotor $motor_hpath(s2vg) s2vg s2vg
|
|
makeHdbVirtMotor $motor_hpath(s2vo) s2vo s2vo
|
|
makeHdbVirtMotor $motor_hpath(s2hg) s2hg s2hg
|
|
makeHdbVirtMotor $motor_hpath(s2ho) s2ho s2ho
|
|
|
|
makeHdbMotor $motor_hpath(s3up) s3up s3up
|
|
makeHdbMotor $motor_hpath(s3lo) s3lo s3lo
|
|
makeHdbMotor $motor_hpath(s3le) s3le s3le
|
|
makeHdbMotor $motor_hpath(s3ri) s3ri s3ri
|
|
makeHdbVirtMotor $motor_hpath(s3vg) s3vg s3vg
|
|
makeHdbVirtMotor $motor_hpath(s3vo) s3vo s3vo
|
|
makeHdbVirtMotor $motor_hpath(s3hg) s3hg s3hg
|
|
makeHdbVirtMotor $motor_hpath(s3ho) s3ho s3ho
|
|
makeHdbMotor $motor_hpath(st3vt) st3vt st3vt
|
|
|
|
makeHdbMotor $motor_hpath(s4up) s4up s4up
|
|
makeHdbMotor $motor_hpath(s4lo) s4lo s4lo
|
|
makeHdbMotor $motor_hpath(s4le) s4le s4le
|
|
makeHdbMotor $motor_hpath(s4ri) s4ri s4ri
|
|
makeHdbVirtMotor $motor_hpath(s4vg) s4vg s4vg
|
|
makeHdbVirtMotor $motor_hpath(s4vo) s4vo s4vo
|
|
makeHdbVirtMotor $motor_hpath(s4hg) s4hg s4hg
|
|
makeHdbVirtMotor $motor_hpath(s4ho) s4ho s4ho
|
|
makeHdbMotor $motor_hpath(st4vt) st4vt st4vt
|
|
|
|
makeHdbMotor $motor_hpath(saz) saz saz
|
|
makeHdbMotor $motor_hpath(sax) sax sax
|
|
makeHdbMotor $motor_hpath(sath) sath sath
|
|
makeHdbMotor $motor_hpath(saphi) saphi saphi
|
|
|
|
makeHdbMotor $motor_hpath(dszvt) dszvt dszvt
|
|
makeHdbMotor $motor_hpath(dezvt) dezvt dezvt
|