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

Remove obsolete commands and set sample/temperature paramter

Browse Source 
r2976 | ffr | 2010-07-02 14:49:51 +1000 (Fri, 02 Jul 2010) | 2 lines
This commit is contained in:
Ferdi Franceschini
2010-07-02 14:49:51 +10:00
committed by Douglas Clowes
parent b30b783fde
commit 33ba0ed3fd
1 changed files with 13 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
site_ansto/instrument/sans/config/environment/environment.tcl
View File

@@ -8,28 +8,30 @@ switch $envtemp {
"rhqc" { "rhqc" {
puts "Configuring RHQC" puts "Configuring RHQC"
add_sct_ls340 tc1 ca5-[instname] 4001 "\r" 0.5 5.0 add_sct_ls340 tc1 ca5-[instname] 4001 "\r" 0.5 5.0
# TODO Set controlsensor
if { [SplitReply [environment_simulation]] == "false"} { # if { [SplitReply [environment_simulation]] == "false"} {
tc1 controlsensor sensorB # tc1 controlsensor sensorB
} # }
puts "Added tc1 with [tc1 controlsensor]" # puts "Added tc1 with [tc1 controlsensor]"
add_sct_ls340 tc2 ca5-[instname] 4002 "\r" 0.5 5.0 add_sct_ls340 tc2 ca5-[instname] 4002 "\r" 0.5 5.0
if { [SplitReply [environment_simulation]] == "false"} { # TODO Set controlsensor
tc2 controlsensor sensorD # if { [SplitReply [environment_simulation]] == "false"} {
} # tc2 controlsensor sensorD
puts "Added tc2 with [tc2 controlsensor]" # }
# puts "Added tc2 with [tc2 controlsensor]"
} }
"11TMagnet" { "11TMagnet" {
puts "Configuring 11TMagnet" puts "Configuring 11TMagnet"
add_sct_ls340 tc1 ca5-[instname] 4001 "\r" 0.5 5.0 add_sct_ls340 tc1 ca5-[instname] 4001 "\r" 0.5 5.0
if { [SplitReply [environment_simulation]] == "false"} { if { [SplitReply [environment_simulation]] == "false"} {
::utility::macro::getset float temperature {} { ::utility::macro::getset float temperature {} {
return [sicsmsgfmt [hval /sample/tc1_cntrl/sensora/value]] return [sicsmsgfmt [hval /sample/tc1/sensor/sensorValueA]]
} }
sicslist setatt temperature long_name temperature sicslist setatt temperature long_name temperature
sicslist setatt temperature klass sample sicslist setatt temperature klass sample
sicslist setatt temperature units K sicslist setatt temperature units K
tc1 controlsensor sensorA # TODO Set controlsensor
# tc1 controlsensor sensorA
} }
add_ips120 ips120 ca5-quokka 4004 0.001 add_ips120 ips120 ca5-quokka 4004 0.001