46 lines
1.2 KiB
Tcl
46 lines
1.2 KiB
Tcl
# $Revision: 1.1 $
|
|
# $Date: 2006-11-06 22:06:23 $
|
|
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
|
# Last revision by: $Author: ffr $
|
|
|
|
hmake /sample spy none
|
|
hmake /monochromator spy none
|
|
hmake /slits spy none
|
|
hmake /slits/1 spy none
|
|
hmake /slits/2 spy none
|
|
hmake /detector spy none
|
|
|
|
makeHdbMotor /slits/1 ss1u ss1u
|
|
makeHdbMotor /slits/1 ss1d ss1d
|
|
makeHdbMotor /slits/1 ss1l ss1l
|
|
makeHdbMotor /slits/1 ss1r ss1r
|
|
makeHdbVirtMotor /slits/1 ss1vg ss1vg
|
|
makeHdbVirtMotor /slits/1 ss1vo ss1vo
|
|
makeHdbVirtMotor /slits/1 ss1hg ss1hg
|
|
makeHdbVirtMotor /slits/1 ss1ho ss1ho
|
|
|
|
makeHdbMotor /slits/2 ss2u ss2u
|
|
makeHdbMotor /slits/2 ss2d ss2d
|
|
makeHdbMotor /slits/2 ss2l ss2l
|
|
makeHdbMotor /slits/2 ss2r ss2r
|
|
makeHdbVirtMotor /slits/2 ss2vg ss2vg
|
|
makeHdbVirtMotor /slits/2 ss2vo ss2vo
|
|
makeHdbVirtMotor /slits/2 ss2hg ss2hg
|
|
makeHdbVirtMotor /slits/2 ss2ho ss2ho
|
|
|
|
makeHdbMotor /sample som som
|
|
makeHdbMotor /sample schi schi
|
|
makeHdbMotor /sample sphi sphi
|
|
makeHdbMotor /sample sx sx
|
|
makeHdbMotor /sample sz sz
|
|
makeHdbMotor /sample stth stth
|
|
|
|
makeHdbMotor /monochromator mom mom
|
|
makeHdbMotor /monochromator mchi mchi
|
|
makeHdbMotor /monochromator mphi mphi
|
|
makeHdbMotor /monochromator mx mx
|
|
makeHdbMotor /monochromator mz mz
|
|
makeHdbMotor /monochromator mtth mtth
|
|
|
|
makeHdbHM /detector hm hm
|