From 361b6dda58b258845f3bb04da6bad667b3721ab6 Mon Sep 17 00:00:00 2001
From: Jing Chen <jgn@ansto.gov.au>
Date: Fri, 18 Nov 2011 14:13:10 +1100
Subject: [PATCH] configurationi init r3262 | jgn | 2011-11-18 14:13:10 +1100
 (Fri, 18 Nov 2011) | 1 line

---
 .../pelican/config/hmm/hmm_configuration.tcl  | 176 ++++++++++++++++--
 1 file changed, 161 insertions(+), 15 deletions(-)

diff --git a/site_ansto/instrument/pelican/config/hmm/hmm_configuration.tcl b/site_ansto/instrument/pelican/config/hmm/hmm_configuration.tcl
index 66b49a60..081a172f 100644
--- a/site_ansto/instrument/pelican/config/hmm/hmm_configuration.tcl
+++ b/site_ansto/instrument/pelican/config/hmm/hmm_configuration.tcl
@@ -1,41 +1,185 @@
 # 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
+#source $cfPath(hmm)/hmm_cylindrical_detector_configuration.tcl
 set sim_mode [SplitReply [hmm_simulation]]
 
 proc ::histogram_memory::init_OAT_TABLE {} {
+  if [ catch {
+
+    OAT_TABLE X -setdata MAX_CHAN 200
+    OAT_TABLE Y -setdata MAX_CHAN 1024
+    OAT_TABLE X -setdata BMIN -0.5
+    OAT_TABLE X -setdata BMAX  199.5
+    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 1024 T { 0 3333 } NTC 1 
+  } message ] {
+    if {$::errorCode=="NONE"} {return $message}
+    return -code error $message
+  }
+}
+
+proc CAT_TABLE {args} {
+return {
+                <CAT>
+                        <WIX APPLY="ENABLE" MIN_RAW="0" MAX_RAW="199" TABLE_SIZE="200">
+                                <link_numeric_file filename="../../pelican_wix.dat" default_filename="../HMconfig/Default/pelican_wix.dat" />
+                        </WIX>
+                        <OFFSET_Y_PER_X APPLY="ENABLE" MIN_RAW="0" MAX_RAW="199" TABLE_SIZE="200" BASE_VAL="0">
+                                <link_numeric_file filename="../../pelican_offset_y_per_x.dat" default_filename="../HMconfig/Default/pelican_offset_y_per_x.dat" />
+                        </OFFSET_Y_PER_X>
+                        <MAGNIFY APPLY="ENABLE" MIN_RAW="0" MAX_RAW="199" TABLE_SIZE="200" DIRECTION="X" MAX_IN="1023" MAX_OUT="1023" RANGE="UNSIGNED">
+                                <link_numeric_file filename="../../pelican_magnify.dat" default_filename="../HMconfig/Default/pelican_magnify.dat" />
+                        </MAGNIFY>
+                </CAT>
+}
+}
+
+proc ::histogram_memory::init_CAT_TABLE {} {
+  CAT_TABLE -set MESYTEC_MPSD8_CHANNEL_GAINS {
+    1.00 1.00 1.00 1.00 1.00 1.00 1.00 1.00
+      1.00 1.00 1.00 1.00 1.00 1.00 1.00 1.00
+      1.00 1.00 1.00 1.00 1.00 1.00 1.00 1.00
+      1.00 1.00 1.00 1.00 1.00 1.00 1.00 1.00
+      1.00 1.00 1.00 1.00 1.00 1.00 1.00 1.00
+      1.00 1.00 1.00 1.00 1.00 1.00 1.00 1.00
+      1.00 1.00 1.00 1.00 1.00 1.00 1.00 1.00
+      1.00 1.00 1.00 1.00 1.00 1.00 1.00 1.00
+      1.00 1.00 1.00 1.00 1.00 1.00 1.00 1.00
+      1.00 1.00 1.00 1.00 1.00 1.00 1.00 1.00
+      1.00 1.00 1.00 1.00 1.00 1.00 1.00 1.00
+      1.00 1.00 1.00 1.00 1.00 1.00 1.00 1.00
+      1.00 1.00 1.00 1.00 1.00 1.00 1.00 1.00
+      1.00 1.00 1.00 1.00 1.00 1.00 1.00 1.00
+      1.00 1.00 1.00 1.00 1.00 1.00 1.00 1.00
+      1.00 1.00 1.00 1.00 1.00 1.00 1.00 1.00
+  }
+  CAT_TABLE -set MESYTEC_MPSD8_THRESHOLDS { 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 }
+  CAT_TABLE -set MESYTEC_TUBE_PAIR_RESISTANCE_RATIOS {
+    1. 1. 1. 1. 1. 1. 1. 1.
+      1. 1. 1. 1. 1. 1. 1. 1.
+      1. 1. 1. 1. 1. 1. 1. 1.
+      1. 1. 1. 1. 1. 1. 1. 1.
+      1. 1. 1. 1. 1. 1. 1. 1.
+      1. 1. 1. 1. 1. 1. 1. 1.
+      1. 1. 1. 1. 1. 1. 1. 1.
+      1. 1. 1. 1. 1. 1. 1. 1.
+      1. 1. 1. 1. 1. 1. 1. 1.
+      1. 1. 1. 1. 1. 1. 1. 1.
+      1. 1. 1. 1. 1. 1. 1. 1.
+      1. 1. 1. 1. 1. 1. 1. 1.
+      1. 1. 1. 1. 1. 1. 1. 1.
+      1. 1. 1. 1. 1. 1. 1. 1.
+      1. 1. 1. 1. 1. 1. 1. 1.
+      1. 1. 1. 1. 1. 1. 1. 1.
+  }
+  CAT_TABLE -set MESYTEC_TUBE_MAGNIFICATIONS {
+    1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1.
+      1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1.
+      1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1.
+      1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1.
+      1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1.
+      1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1.
+      1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1.
+      1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1.
+      1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1.
+      1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1.
+      1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1.
+      1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1.
+      1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1.
+      1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1.
+      1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1.
+      1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1.
+  }
+  CAT_TABLE -set MESYTEC_TUBE_OFFSETS {
+    0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0.
+      0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0.
+      0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0.
+      0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0.
+      0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0.
+      0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0.
+      0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0.
+      0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0.
+      0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0.
+      0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0.
+      0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0.
+      0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0.
+      0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0.
+      0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0.
+      0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0.
+      0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0.
+  }
+  CAT_TABLE -set MESYTEC_TUBE_HISTOGRAM_WEIGHTS {
+    1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+      1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+      1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+      1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+      1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+      1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+      1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+      1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+      1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+      1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+      1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+      1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+      1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+      1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+      1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+      1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+  }
+}
+
+##
+# @brief Return the detector position
+proc ::histogram_memory::detector_posn_degrees {} {
+  return [SplitReply [stth]]
 }
 
 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
+        hmm configure oat_ntc_eff 1
+        hmm configure $INST_NYC 1024
+        hmm configure $INST_NXC 200
     }
-    #BAT_TABLE -init
-    #CAT_TABLE -init
-    #SAT_TABLE -init
-    #OAT_TABLE -init
-    #FAT_TABLE -init
+    BAT_TABLE -init
+#   CAT_TABLE -init
+    SAT_TABLE -init
+    OAT_TABLE -init
+    FAT_TABLE -init
     ::histogram_memory::ic_initialize
+    ::histogram_memory::set_graphtype "two_theta" "boundaries"
 
-    #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
+    detector_active_height_mm 335
+    detector_active_height_mm lock
+    detector_active_width_mm 3490.64
+    detector_active_width_mm lock
+    detector_radius_mm 1250.0
+    detector_radius_mm lock
 
+  # hmm configure FAT_SIMULATED_EVENT_Y0 $y_bb0
+  # hmm configure FAT_SIMULATED_EVENT_Y1 $ybbmax
+  # hmm configure FAT_SIMULATED_EVENT_X0 $x_bb0
+  # hmm configure FAT_SIMULATED_EVENT_X1 $xbbmax
     ::histogram_memory::init_OAT_TABLE
+    ::histogram_memory::init_SAT_TABLE
+#   ::histogram_memory::init_CAT_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
+    set ::histogram_memory::histmem_axes(HOR) /instrument/detector/x_pixel_angular_offset
+    set ::histogram_memory::histmem_axes(VER) /instrument/detector/y_pixel_offset
   } message ] {
+    if {$::errorCode=="NONE"} {return $message}
     return -code error $message
   }
 }
@@ -44,3 +188,5 @@ proc histmem {cmd args} {
   eval "_histmem $cmd $args"
 }
 publish histmem user
+
+