From a0eee420225e15e6a07cef3ec438e4ba69b4c756 Mon Sep 17 00:00:00 2001
From: Ferdi Franceschini <ffr@ansto.gov.au>
Date: Wed, 26 Sep 2012 10:05:40 +1000
Subject: [PATCH] hmm_configuration.tcl Added time of flight channel width
 (tofw) and elastic peak index (elpk)

r3750 | ffr | 2012-09-26 10:05:40 +1000 (Wed, 26 Sep 2012) | 3 lines
---
 .../pelican/config/hmm/hmm_configuration.tcl        | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/site_ansto/instrument/pelican/config/hmm/hmm_configuration.tcl b/site_ansto/instrument/pelican/config/hmm/hmm_configuration.tcl
index cec01be4..a5437ee5 100644
--- a/site_ansto/instrument/pelican/config/hmm/hmm_configuration.tcl
+++ b/site_ansto/instrument/pelican/config/hmm/hmm_configuration.tcl
@@ -5,9 +5,17 @@ source $cfPath(hmm)/hmm_configuration_common_1.tcl
 source $cfPath(hmm)/hmm_cylindrical_detector_configuration.tcl
 set sim_mode [SplitReply [hmm_simulation]]
 
+# Elastic peak index and time of flight channel width
+::utility::mkVar elpk int user elpk true detector true true
+sicslist setatt elpk link data_set
+::utility::mkVar tofw int user tofw true detector true true
+sicslist setatt tofw link data_set
+sicslist setatt tofw units [::histogram_memory::clock_scale units]
+
 proc ::histogram_memory::init_OAT_TABLE {} {
   if [ catch {
 
+    set twidth 3333
     OAT_TABLE X -setdata MAX_CHAN 200
     OAT_TABLE Y -setdata MAX_CHAN 1024
     OAT_TABLE X -setdata BMIN -0.5
@@ -15,6 +23,7 @@ proc ::histogram_memory::init_OAT_TABLE {} {
     OAT_TABLE Y -setdata BMIN -0.5
     OAT_TABLE Y -setdata BMAX  1023.5
 
+    OAT_TABLE -set X { 199.5 198.5 } NXC 200 Y { -0.5 0.5 } NYC 64 T " 0 $twidth " NTC 1024
     OAT_TABLE -set X { 199.5 198.5 } NXC 200 Y { -0.5 0.5 } NYC 1024 T { 0 3333 } NTC 1 
   } message ] {
     if {$::errorCode=="NONE"} {return $message}
@@ -148,8 +157,8 @@ proc ::histogram_memory::isc_initialize {} {
   if [ catch {
     ::histogram_memory::init_hmm_objs
     if {$::sim_mode == "true"} {
-        hmm configure oat_ntc_eff 1
-        hmm configure $INST_NYC 1024
+        hmm configure oat_ntc_eff 1024
+        hmm configure $INST_NYC 64
         hmm configure $INST_NXC 200
     }
     BAT_TABLE -init