# $Revision: 1.2 $ # $Date: 2006-10-26 00:32:49 $ # Author: Ferdi Franceschini (ffr@ansto.gov.au) # Last revision by: $Author: ffr $ source hipadaba_support.tcl #------------------------------------------------------------------------- # Install the SICS Hipadaba #------------------------------------------------------------------------- InstallHdb hmake /sample spy none hmake /monochromator spy none hmake /slits spy none hmake /slits/1 spy none hmake /slits/2 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 proc xhlist {opt args} { clientput { } "value" } publish xhlist spy