add Pelican

r3108 | jgn | 2011-04-20 12:29:55 +1000 (Wed, 20 Apr 2011) | 1 line

site_ansto/instrument/pelican/config/hmm/detector.tcl

@@ -0,0 +1,6 @@
+# Detector voltage controller
+fileeval $cfPath(hmm)/sct_orhvps_common.tcl
+::scobj::dethvps::init ca1-taipan 4001 4.1
+dhv1 max 2600
+dhv1 lower 19
+dhv1 upper 57

site_ansto/instrument/pelican/config/hmm/hmm_configuration.tcl

@@ -0,0 +1,49 @@
+# Author Jing Chen (jgn@ansto.gove.au)
+# Note: all following functions's bodies need to be implemented in real Taipan deployment
+
+source $cfPath(hmm)/hmm_configuration_common_1.tcl
+set sim_mode [SplitReply [hmm_simulation]]
+
+proc ::histogram_memory::init_OAT_TABLE {} {
+}
+
+proc ::histogram_memory::pre_count {} {}
+proc ::histogram_memory::post_count {} {}
+proc ::histogram_memory::isc_initialize {} {
+  # Instrument specific X and Y dimension names
+  #variable INST_NXC "oat_nxc_eff"
+  #variable INST_NYC "oat_nyc_eff"
+
+  if [ catch {
+    ::histogram_memory::init_hmm_objs
+    if {$::sim_mode == "true"} {
+        #hmm configure oat_ntc_eff 1
+        #hmm configure $INST_NYC 127
+        #hmm configure $INST_NXC 127
+    }
+    #BAT_TABLE -init
+    #CAT_TABLE -init
+    #SAT_TABLE -init
+    #OAT_TABLE -init
+    #FAT_TABLE -init
+    ::histogram_memory::ic_initialize
+
+    #detector_active_height_mm [expr 5.08 * 192]
+    #detector_active_width_mm  [expr 5.08 * 192]
+    #detector_active_height_mm lock
+    #detector_active_width_mm  lock
+
+    ::histogram_memory::init_OAT_TABLE
+    ::histogram_memory::upload_config Filler_defaults
+
+    #set ::histogram_memory::histmem_axes(HOR) /instrument/detector/x_pixel_offset
+    #set ::histogram_memory::histmem_axes(VER) /instrument/detector/y_pixel_offset
+  } message ] {
+    return -code error $message
+  }
+}
+
+proc histmem {cmd args} {
+  eval "_histmem $cmd $args"
+}
+publish histmem user