# $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