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

Added parameters requested by Christine.

Browse Source
This commit is contained in:
Ferdi Franceschini
2014-02-20 07:52:46 +11:00
parent d187f888fb
commit fcbdfd51d1
2 changed files with 29 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
site_ansto/instrument/kookaburra/config/parameters/parameters.tcl Normal file
View File

@ -0,0 +1,27 @@
# 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
MainDeadTime MainDeadTime float user s detector
TransDeadTime TransDeadTime float user s detector
TransmissionTube TransmissionTube float user none detector
bkgLevel bkgLevel float user 1 experiment
deg2QConv deg2QConv float user none experiment
dOmega dOmega float user degrees experiment
empLevel empLevel float user none experiment
gDQv gDQv float user none experiment
level level float user none experiment
thickness thickness float user mm sample
defaultMCR defaultMCR float user mm monitor
} {
::utility::mkVar $var $type $priv $lname true $klass true true
if {$units != "none"} {
sicslist setatt $var units $units
}
}

3
site_ansto/instrument/kookaburra/kookaburra_configuration.tcl
View File

@ -24,13 +24,14 @@ fileeval $cfPath(motors)/motor_configuration.tcl
fileeval $cfPath(plc)/plc.tcl
fileeval $cfPath(counter)/counter.tcl
#fileeval $cfPath(environment)/temperature/sct_lakeshore_218.tcl
#fileeval $cfPath(counter)/sct_bm.tcl
fileeval $cfPath(counter)/sct_bm.tcl
fileeval $cfPath(hmm)/hmm_configuration.tcl
fileeval $cfPath(nexus)/nxscripts.tcl
fileeval $cfPath(scan)/scan.tcl
fileeval $cfPath(commands)/commands.tcl
#fileeval $cfPath(commands)/monodrive.tcl
fileeval $cfPath(anticollider)/anticollider.tcl
fileeval $cfPath(parameters)/parameters.tcl
source gumxml.tcl