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

Fix some duplicate definitions.

Browse Source
This commit is contained in:
Ferdi Franceschini
2015-02-06 07:39:56 +11:00
parent 2a739e2f09
commit 79fb7292bc
2 changed files with 1 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
site_ansto/instrument/bilby/config/commands/commands.tcl
View File

@ -9,18 +9,8 @@ namespace eval motor {
variable is_homing_list "" variable is_homing_list ""
} }
# Some metadata variables about the beamstop and the beam
foreach {var lname type priv units klass} {
BeamCenterX BeamCenterX float user mm parameter
BeamCenterY BeamCenterY float user mm parameter
BeamStop BeamStop int user none parameter
} {
::utility::mkVar $var $type $priv $lname true $klass true true
if {$units != "none"} {
sicslist setatt $var units $units
}
}
# TODO Implement BeamStop as a macro which checks actual beamstop positions. # TODO Implement BeamStop as a macro which checks actual beamstop positions.
::utility::mkVar BeamStop int user BeamStop true parameter true true
BeamStop -1 BeamStop -1
## ##

1
site_ansto/instrument/bilby/config/parameters/parameters.tcl
View File

@ -1,7 +1,6 @@
foreach {var lname type priv units klass} { foreach {var lname type priv units klass} {
BeamCenterX BeamCenterX float user mm parameter BeamCenterX BeamCenterX float user mm parameter
BeamCenterZ BeamCenterZ float user mm parameter BeamCenterZ BeamCenterZ float user mm parameter
BeamStop BeamStop int user none parameter
} { } {
::utility::mkVar $var $type $priv $lname true $klass true true ::utility::mkVar $var $type $priv $lname true $klass true true
if {$units != "none"} { if {$units != "none"} {