From b6aa49d3c2573e486671bc629ad2b67f815d7bf8 Mon Sep 17 00:00:00 2001 From: Ferdi Franceschini Date: Thu, 26 Oct 2006 10:32:49 +1000 Subject: [PATCH] Using hipadaba_support file r1186 | ffr | 2006-10-26 10:32:49 +1000 (Thu, 26 Oct 2006) | 2 lines --- .../hrpd/hipadaba_echidna_configuration.tcl | 27 +++---------------- 1 file changed, 3 insertions(+), 24 deletions(-) diff --git a/site_ansto/instrument/hrpd/hipadaba_echidna_configuration.tcl b/site_ansto/instrument/hrpd/hipadaba_echidna_configuration.tcl index 20117007..07e7daed 100644 --- a/site_ansto/instrument/hrpd/hipadaba_echidna_configuration.tcl +++ b/site_ansto/instrument/hrpd/hipadaba_echidna_configuration.tcl @@ -1,33 +1,12 @@ -# $Revision: 1.1 $ -# $Date: 2006-10-13 06:39:42 $ +# $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 #------------------------------------------------------------------------- -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