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

hmm_configuration_common_1.tcl

Browse Source 
The post_count callback should be called when the count ends.

quokka_configuration.tcl
Added lakeshore 336, qlink, and rheometer configurations.

quokka sct_flipper.tcl
Report "-1" for fields which return corrupt or invalid readings.

quokka environment.tcl
Implement histogram memory pre_count and post_count callbacks to record temperature before and after an acquisition.

quokka motor_configuration.tcl
Set correct max speed for detector motor, ie it is now 53mm/s instead of 40

wombat_configuration.tcl
Added lakeshore 336 driver and julabo and qlink.
r3034 | ffr | 2010-12-03 11:07:49 +1100 (Fri, 03 Dec 2010) | 17 lines
This commit is contained in:
Ferdi Franceschini
2010-12-03 11:07:49 +11:00
committed by Douglas Clowes
parent e7e857b70e
commit 8d066dec11
8 changed files with 56 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -4,15 +4,24 @@ puts "selecting $envtemp for environment control"
switch $envtemp {
"lh45" {
add_lh45 tc1 ca5-quokka 4003 1
proc ::histogram_memory::pre_count {} {
hset /sample/tc1/sensor/start_temperature [hval /sample/tc1/sensor/value]
hset /sample/tc1/sensor/end_temperature [hval /sample/tc1/sensor/value]
}
proc ::histogram_memory::post_count {} {
hset /sample/tc1/sensor/end_temperature [hval /sample/tc1/sensor/value]
}
}
"rhqc" {
puts "Configuring RHQC"
# 9600 8 1 None None Enable
add_sct_ls340 tc1 ca5-[instname] 4001 "\r" 0.5 5.0
# TODO Set controlsensor
# if { [SplitReply [environment_simulation]] == "false"} {
# tc1 controlsensor sensorB
# }
# puts "Added tc1 with [tc1 controlsensor]"
# 9600 8 1 None None Enable
add_sct_ls340 tc2 ca5-[instname] 4002 "\r" 0.5 5.0
# TODO Set controlsensor
# if { [SplitReply [environment_simulation]] == "false"} {
@@ -22,17 +31,17 @@ switch $envtemp {
}
"11TMagnet" {
puts "Configuring 11TMagnet"
add_sct_ls340 tc1 ca5-[instname] 4001 "\r" 0.5 5.0
add_sct_ls340 tc2 ca5-[instname] 4001 "\r" 0.5 5.0
if { [SplitReply [environment_simulation]] == "false"} {
::utility::macro::getset float temperature {} {
return [sicsmsgfmt [hval /sample/tc1/sensor/sensorValueA]]
return [sicsmsgfmt [hval /sample/tc2/sensor/sensorValueA]]
}
sicslist setatt temperature long_name temperature
sicslist setatt temperature klass sample
sicslist setatt temperature units K
# TODO Set controlsensor
# tc1 controlsensor sensorA
}
# }
add_ips120 ips120 ca5-quokka 4004 0.001
}