added Lyrebird instrument config

r3038 | jgn | 2010-12-13 16:10:57 +1100 (Mon, 13 Dec 2010) | 1 line

site_ansto/instrument/lyrebird/config/environment/environment.tcl

@@ -0,0 +1,55 @@
+proc select_environment_controller {envtemp} {
+if [ catch {
+puts "selecting $envtemp for environment control"
+switch $envtemp {
+  "lh45" {
+    add_lh45 tc1 ca5-lyrebird 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"} {
+#     tc2 controlsensor sensorD
+#   }
+#   puts "Added tc2 with [tc2 controlsensor]"
+  }
+  "11TMagnet" {
+    puts "Configuring 11TMagnet"
+    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/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-lyrebird 4004 0.001
+
+  }
+  default {
+    clientput "Unknown environment controller $envtemp"
+  }
+}
+} msg ] {
+  puts "Failed to configure $envtemp: $msg"
+}
+}