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

SICS-251 Added transmission and beamcenter parameters

Browse Source 
r2675 | ffr | 2008-08-13 14:41:05 +1000 (Wed, 13 Aug 2008) | 2 lines
This commit is contained in:
Ferdi Franceschini
2008-08-13 14:41:05 +10:00
committed by Douglas Clowes
parent 8a07f5eaf6
commit f7c357a56d
1 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
site_ansto/instrument/sans/config/parameters/parameters.tcl
View File

@@ -18,10 +18,6 @@ foreach {var lname nxname} {
##
# @brief User privilege text variables
#
# TODO SICS-117 Redo as get/set macros like the "kind=command" macros but kind=getset and it is saveable
# The set parameter will have a domain. If the param is readonly then the hdb privilege is readonly
# Pros, GumTree will know the data type of the parameter (text params will have a list of valid values).
# Cons, There is no "instant" feedback, macros are polled on the hdb tree.
foreach {var lname nxname priv klass} {
SApShape SApShape shape user parameter
BSShape BSShape shape user parameter
@@ -29,7 +25,8 @@ foreach {var lname nxname priv klass} {
::utility::mkVar $var text $priv $lname true $klass true true
}
# The velocity selector position is used as the reference for other instrument
##
# @brief The velocity selector position is used as the reference for other instrument
# component positions. For simplicity we set it as the origin x=y=z=0.
foreach {var lname nxname units klass} {
VelSelPosXmm VelSelPosXmm x mm @none
@@ -46,7 +43,8 @@ foreach {var lname nxname units klass} {
::utility::mkVar SampleNum int readonly changer_position true parameter true true
# Parameter SicsVariables
##
# @brief Parameter SicsVariables
foreach {var lname nxname units priv } {
LambdaA LambdaA wavelength nm user
LambdaResFWHM_percent LambdaResFWHM_percent wavelength_spread 1 user
@@ -65,6 +63,9 @@ foreach {var lname nxname units priv } {
DetPosYOffsetmm DetPosYOffsetmm detposyoffset mm user
BSXmm BSXmm x mm user
BSZmm BSZmm z mm user
Transmission Transmission Transmission 1 user
BeamCenterX BeamCenterX BeamCenterX mm user
BeamCenterY BeamCenterY BeamCenterY mm user
} {
::utility::mkVar $var float $priv $lname true parameter true true
if {$units != 1} {