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

Use hipadaba_support.tcl for common commands.

Browse Source 
r1208 | ffr | 2006-10-31 15:02:28 +1100 (Tue, 31 Oct 2006) | 2 lines
This commit is contained in:
Ferdi Franceschini
2006-10-31 15:02:28 +11:00
committed by Douglas Clowes
parent 1edf07f9a3
commit 1cadd01e84
3 changed files with 12 additions and 69 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
site_ansto/instrument/hipd/hipadaba_wombat_configuration.tcl
View File

@@ -1,39 +1,22 @@
# $Revision: 1.2 $
# $Date: 2006-10-15 23:42:18 $
# $Revision: 1.3 $
# $Date: 2006-10-31 03:57:57 $
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
# Last revision by: $Author: ffr $
source motParList.tcl
source hipadaba_support.tcl
#-------------------------------------------------------------------------
# Install the SICS Hipadaba
#-------------------------------------------------------------------------
proc makeHdbMotor {root treename sicsname} {
global parList;
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 /counter spy none
hmake /sample spy none
hmake /monochromator spy none
hmake /slits spy none
hmake /slits/1 spy none
hmake /slits/2 spy none
makeHdbCounter /counter ctr ctr
makeHdbMotor /slits/1 ss1u ss1u
makeHdbMotor /slits/1 ss1d ss1d
makeHdbMotor /slits/1 ss1l ss1l

26
site_ansto/instrument/qld/hipadaba_koala_configuration.tcl
View File

@@ -1,32 +1,12 @@
# $Revision: 1.1 $
# $Date: 2006-10-15 23:50:25 $
# $Revision: 1.2 $
# $Date: 2006-10-31 04:01:14 $
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
# Last revision by: $Author: ffr $
source motParList.tcl
source hipadaba_support.tcl
#-------------------------------------------------------------------------
# Install the SICS Hipadaba
#-------------------------------------------------------------------------
proc makeHdbMotor {root treename sicsname} {
global parList;
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 /slits spy none
hmake /slits/1 spy none

26
site_ansto/instrument/rsd/hipadaba_kowari_configuration.tcl
View File

@@ -1,32 +1,12 @@
# $Revision: 1.1 $
# $Date: 2006-10-15 23:47:45 $
# $Revision: 1.2 $
# $Date: 2006-10-31 04:02:28 $
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
# Last revision by: $Author: ffr $
source motParList.tcl
source hipadaba_support.tcl
#-------------------------------------------------------------------------
# Install the SICS Hipadaba
#-------------------------------------------------------------------------
proc makeHdbMotor {root treename sicsname} {
global parList;
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