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

Modified during MK's visit.

Browse Source 
r1461 | ffr | 2007-02-12 12:01:02 +1100 (Mon, 12 Feb 2007) | 2 lines
This commit is contained in:
Ferdi Franceschini
2007-02-12 12:01:02 +11:00
committed by Douglas Clowes
parent 7cb2b92263
commit 9ac6c7b414
10 changed files with 178 additions and 107 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
site_ansto/instrument/utility.tcl
View File

@@ -1,7 +1,7 @@
# Some useful functions for SICS configuration.
# $Revision: 1.5 $
# $Date: 2006-11-07 01:57:45 $
# $Revision: 1.6 $
# $Date: 2007-02-12 01:01:02 $
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
# Last revision by $Author: ffr $
@@ -22,8 +22,6 @@ if {$args == ""} {clientput $usage; return}
set lowlim [expr $home - $params(-lowrange)]
set uplim [expr $home + $params(-uprange)]
uplevel 1 "$motor hardlowerlim $lowlim"
uplevel 1 "$motor hardupperlim $uplim"
uplevel 1 "$motor softlowerlim $lowlim"
uplevel 1 "$motor softupperlim $uplim"
uplevel 1 "$motor home $home"