28 lines
1.2 KiB
Tcl
28 lines
1.2 KiB
Tcl
# TODO Make readonly getset macro for AttFactor
|
|
|
|
##
|
|
# @file 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.
|
|
|
|
##
|
|
# Note EndFacePosY and RotApPosY are surveyed positions
|
|
foreach {var lname type priv units klass} {
|
|
wavelength wavelength float user Angstrom crystal
|
|
dOmega dOmega float user degrees crystal
|
|
gDQv gDQv float user none crystal
|
|
MainDeadTime MainDeadTime float user s detector
|
|
TransDeadTime TransDeadTime float user s detector
|
|
TransmissionTube TransmissionTube int user none detector
|
|
bkgLevel bkgLevel float user 1 experiment
|
|
deg2QConv deg2QConv float user none experiment
|
|
empLevel empLevel float user none experiment
|
|
level level float user none experiment
|
|
thickness thickness float user mm sample
|
|
defaultMCR defaultMCR float user count/sec monitor
|
|
} {
|
|
::utility::mkVar $var $type $priv $lname true $klass true true
|
|
if {$units != "none"} {
|
|
sicslist setatt $var units $units
|
|
}
|
|
}
|