From 7044d8beba965fe6ac186fe637395394f41a7683 Mon Sep 17 00:00:00 2001 From: Ferdi Franceschini Date: Fri, 13 Oct 2006 16:35:29 +1000 Subject: [PATCH] Renamed file. r1145 | ffr | 2006-10-13 16:35:29 +1000 (Fri, 13 Oct 2006) | 2 lines --- .../hipd/hipadaba_wombat_configuration.tcl | 568 ++++++++++++++++++ site_ansto/instrument/hipd/wombat.hdd | 8 + 2 files changed, 576 insertions(+) create mode 100644 site_ansto/instrument/hipd/hipadaba_wombat_configuration.tcl create mode 100644 site_ansto/instrument/hipd/wombat.hdd diff --git a/site_ansto/instrument/hipd/hipadaba_wombat_configuration.tcl b/site_ansto/instrument/hipd/hipadaba_wombat_configuration.tcl new file mode 100644 index 00000000..d2480844 --- /dev/null +++ b/site_ansto/instrument/hipd/hipadaba_wombat_configuration.tcl @@ -0,0 +1,568 @@ +# $Revision: 1.1 $ +# $Date: 2006-10-13 06:35:03 $ +# Author: Ferdi Franceschini (ffr@ansto.gov.au) +# Last revision by: $Author: ffr $ + +#------------------------------------------------------------------------- +# Install the SICS Hipadaba +#------------------------------------------------------------------------- +proc makeHdbMotor {root treename sicsname} { + set parList [list hardlowerlim hardupperlim softlowerlim softupperlim \ + softzero fixed interruptmode precision accesscode sign failafter \ + maxretry ignorefault movecount] + append motName $root "/" $treename + eval hmake $motName spy none + eval hmakescript "$motName/position" \"$sicsname\" \"run $sicsname\" float + foreach par $parList { + set parName [format "%s/%s" $motName $par] + eval hmakescript $parName \"$sicsname $par\" \"$sicsname $par\" float + } +} +proc makeHdbVirtMotor {root treename sicsname} { + append motName $root "/" $treename + eval hmake $motName spy none + eval hmakescript "$motName/position" \"$sicsname\" \"run $sicsname\" float +} +#------------------------------------------------------------------------ +proc hdbReadOnly {} { + error "Parameter is READ ONLY" +} +#------------------------------------------------------------------------- +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 + diff --git a/site_ansto/instrument/hipd/wombat.hdd b/site_ansto/instrument/hipd/wombat.hdd new file mode 100644 index 00000000..396d06a4 --- /dev/null +++ b/site_ansto/instrument/hipd/wombat.hdd @@ -0,0 +1,8 @@ +##SICS ASCII at HIPD +*************************** HRPD SCAN File ******************************** +Original Filename = !!FILE!! +Title = !!VAR(Title)!! +User = !!VAR(User)!! +Sample Name = !!VAR(sample)!! +File Creation Date = !!DATE!! +**************************** DATA ******************************************