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

sct_julabo_lh45.tcl

Browse Source 
Create object when in simulation mode

nxscripts_common_1.tcl
Set units attributes on script context objects data

sans aperture_configuration.tcl
Update rotary attenuator lookup table. Set parameters when motors positions are
within tolerance of the lookup table positions.

sans, parameters.tcl sct_velsel.tcl
Set units and update parameter names to be consistent

quokka_configuration.tcl
Add convenience command to load environment controllers.

server_config.tcl
Make sure that controllers are properly generated when loading them from the ext
raconfig.tcl.

r2881 | ffr | 2010-01-29 16:50:51 +1100 (Fri, 29 Jan 2010) | 20 lines
This commit is contained in:
Ferdi Franceschini
2010-01-29 16:50:51 +11:00
committed by Douglas Clowes
parent ce113f26fd
commit 4f3fb5e250
8 changed files with 176 additions and 140 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
site_ansto/instrument/sans/quokka_configuration.tcl
View File

@@ -38,14 +38,36 @@ source gumxml.tcl
::utility::mkVar ::anticollider::protect_detector text manager protect_detector false detector true false
::anticollider::protect_detector "true"
if {[SplitReply [environment_simulation]]=="false"} {
# catch { add_lh45 tc1 137.157.202.85 4003 1} message
# puts $message
#catch { add_ls340t tc1 127.0.0.1 4001 1} message
#puts $message
proc select_environment_controller {envtemp} {
if [ catch {
puts "selecting $envtemp for environment control"
switch $envtemp {
"lh45" {
add_lh45 tc1 ca5-quokka 4003 1
}
"rhqc" {
puts "Configuring RHQC"
::environment::temperature::add_ls340 tc1 1
tc1 controlsensor sensorB
puts "Added tc1 with [tc1 controlsensor]"
::environment::temperature::add_ls340 tc2 2
tc2 controlsensor sensorD
puts "Added tc2 with [tc2 controlsensor]"
}
"11TMagnet" {
puts "Configuring 11TMagnet"
::environment::temperature::add_ls340 tc1 1
tc1 controlsensor sensorA
}
default {
clientput "No temperature controller configured"
}
}
#::environment::temperature::add_ls340 tc1 1
} msg ] {
puts "Failed to configure $envtemp: $msg"
}
}
server_init
###########################################
# WARNING: Do not add any code below server_init, if you do SICS may fail to initialise properly.