linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Using hipadaba_support file

Browse Source 
r1186 | ffr | 2006-10-26 10:32:49 +1000 (Thu, 26 Oct 2006) | 2 lines
This commit is contained in:
Ferdi Franceschini
2006-10-26 10:32:49 +10:00
committed by Douglas Clowes
parent a7aa7ea9be
commit b6aa49d3c2
1 changed files with 3 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
site_ansto/instrument/hrpd/hipadaba_echidna_configuration.tcl
View File

@@ -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