From 8eb9a86c01e621e099a1ef3e949b0a060adb724a Mon Sep 17 00:00:00 2001
From: Jing Chen <jgn@ansto.gov.au>
Date: Mon, 11 Apr 2011 11:34:11 +1000
Subject: [PATCH] r3100 | jgn | 2011-04-11 11:34:11 +1000 (Mon, 11 Apr 2011) |
 1 line

---
 .../tas/config/hmm/hmm_configuration.tcl      | 41 +++++++++++++++++++
 .../instrument/tas/config/nexus/nxscripts.tcl |  1 -
 2 files changed, 41 insertions(+), 1 deletion(-)

diff --git a/site_ansto/instrument/tas/config/hmm/hmm_configuration.tcl b/site_ansto/instrument/tas/config/hmm/hmm_configuration.tcl
index c823c109..4f4f9e51 100644
--- a/site_ansto/instrument/tas/config/hmm/hmm_configuration.tcl
+++ b/site_ansto/instrument/tas/config/hmm/hmm_configuration.tcl
@@ -1,7 +1,48 @@
+# 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"
 }
diff --git a/site_ansto/instrument/tas/config/nexus/nxscripts.tcl b/site_ansto/instrument/tas/config/nexus/nxscripts.tcl
index b1ad4365..5f4166ab 100644
--- a/site_ansto/instrument/tas/config/nexus/nxscripts.tcl
+++ b/site_ansto/instrument/tas/config/nexus/nxscripts.tcl
@@ -1,5 +1,4 @@
 source $cfPath(nexus)/nxscripts_common_1.tcl
 proc ::nexus::isc_initialize {} {
-}
   ::nexus::ic_initialize
 }