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

quokka parameters.tcl

Browse Source 
Moved Attfactor, Transmission, BeamCenterX, and BeamCenterZ back to the parameters group.
r3144 | ffr | 2011-05-19 08:48:16 +1000 (Thu, 19 May 2011) | 2 lines
This commit is contained in:
Ferdi Franceschini
2011-05-19 08:48:16 +10:00
committed by Douglas Clowes
parent 3d0d0a9647
commit 3660b95ee4
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -7,8 +7,8 @@
## ##
# Note EndFacePosY and RotApPosY are surveyed positions # Note EndFacePosY and RotApPosY are surveyed positions
foreach {var lname type priv units klass} { foreach {var lname type priv units klass} {
BeamCenterX BeamCenterX float user mm reduce BeamCenterX BeamCenterX float user mm parameter
BeamCenterZ BeamCenterZ float user mm reduce BeamCenterZ BeamCenterZ float user mm parameter
BeamStop BeamStop int user none parameter BeamStop BeamStop int user none parameter
BSdiam BSdiam float user mm parameter BSdiam BSdiam float user mm parameter
DetPosYOffset DetPosYOffset float user mm parameter DetPosYOffset DetPosYOffset float user mm parameter
@@ -19,7 +19,7 @@ foreach {var lname type priv units klass} {
RotApPosY RotApPosY float readonly mm @none RotApPosY RotApPosY float readonly mm @none
SampleThickness SampleThickness float user mm sample SampleThickness SampleThickness float user mm sample
SamYOffset SamYOffset float user mm parameter SamYOffset SamYOffset float user mm parameter
Transmission Transmission float user 1 reduce Transmission Transmission float user 1 parameter
TransmissionFlag TransmissionFlag int user none sample TransmissionFlag TransmissionFlag int user none sample
} { } {
::utility::mkVar $var $type $priv $lname true $klass true true ::utility::mkVar $var $type $priv $lname true $klass true true
@@ -42,7 +42,7 @@ sicslist setatt Plex klass parameter
return [sicsmsgfmt [ ::optics::AttRotLookup [SplitReply [att]] "attfactor" [SplitReply [att precision]] ]] return [sicsmsgfmt [ ::optics::AttRotLookup [SplitReply [att]] "attfactor" [SplitReply [att precision]] ]]
} }
sicslist setatt AttFactor long_name AttFactor sicslist setatt AttFactor long_name AttFactor
sicslist setatt AttFactor klass reduce sicslist setatt AttFactor klass parameter
::utility::macro::getset float EApX {} { ::utility::macro::getset float EApX {} {
return [sicsmsgfmt [::optics::EApLookUp [SplitReply [srce]] "size" [SplitReply [srce precision]] ]] return [sicsmsgfmt [::optics::EApLookUp [SplitReply [srce]] "size" [SplitReply [srce precision]] ]]