From 67a8a8c0c3f500aaf10851e14f637f5dbe108dad Mon Sep 17 00:00:00 2001
From: Ferdi Franceschini <ffr@ansto.gov.au>
Date: Wed, 3 Oct 2007 10:08:40 +1000
Subject: [PATCH] Fixed maximum and minimum bin boundaries. Code cleanup.

r2172 | ffr | 2007-10-03 10:08:40 +1000 (Wed, 03 Oct 2007) | 3 lines
---
 .../hrpd/config/hmm/hmm_configuration.tcl     |  6 ++--
 .../sans/config/hmm/hmm_configuration.tcl     | 28 +++++++++----------
 2 files changed, 17 insertions(+), 17 deletions(-)

diff --git a/site_ansto/instrument/hrpd/config/hmm/hmm_configuration.tcl b/site_ansto/instrument/hrpd/config/hmm/hmm_configuration.tcl
index 3e528d38..9a799c6d 100644
--- a/site_ansto/instrument/hrpd/config/hmm/hmm_configuration.tcl
+++ b/site_ansto/instrument/hrpd/config/hmm/hmm_configuration.tcl
@@ -109,10 +109,10 @@ proc ::histogram_memory::initialize {} {
   } else {
     set y_bin1 [expr {$y_bin0-$y_binwidth}]
   }
-  OAT_TABLE -init X_min $x_bin0 X_max $x_binmax Y_min $y_bin0 Y_max $y_binmax
+  OAT_TABLE -init X_MIN $x_bin0 X_MAX $x_binmax Y_MIN $y_bin0 Y_MAX $y_binmax
   # We default to one big bin for time
-  set t_bin0 [OAT_TABLE -get T_min]
-  set t_bin1 [OAT_TABLE -get T_max]
+  set t_bin0 [OAT_TABLE -get T_MIN]
+  set t_bin1 [OAT_TABLE -get T_MAX]
   OAT_TABLE X "$x_bin0 $x_bin1" Y "$y_bin0 $y_bin1" T "$t_bin0 $t_bin1"
   ::histogram_memory::configure_server Filler_defaults
 
diff --git a/site_ansto/instrument/sans/config/hmm/hmm_configuration.tcl b/site_ansto/instrument/sans/config/hmm/hmm_configuration.tcl
index 07f5b6f6..55d5d229 100644
--- a/site_ansto/instrument/sans/config/hmm/hmm_configuration.tcl
+++ b/site_ansto/instrument/sans/config/hmm/hmm_configuration.tcl
@@ -99,28 +99,28 @@ proc ::histogram_memory::setmode {mode} {
 proc ::histogram_memory::initialize {} {
   ::histogram_memory::_initialize
 
-  detector_active_height_mm  500
-  detector_active_width_mm 500
+  detector_active_height_mm  192
+  detector_active_width_mm 192
 
-  set x_bin0 -0.5; set x_binmax 500.5
-  set y_bin0 -0.5; set y_binmax 500.5
+  set x_bb0 -0.5; set xbbmax 191.5
+  set y_bb0 -0.5; set ybbmax 191.5
   set x_binwidth 1
-  if {[expr {$x_binmax - $x_bin0}] > 0} {
-    set x_bin1 [expr {$x_bin0+$x_binwidth}]
+  if {[expr {$xbbmax - $x_bb0}] > 0} {
+    set x_bb1 [expr {$x_bb0+$x_binwidth}]
   } else {
-    set x_bin1 [expr {$x_bin0-$x_binwidth}]
+    set x_bb1 [expr {$x_bb0-$x_binwidth}]
   }
   set y_binwidth 1
-  if {[expr {$y_binmax - $y_bin0}] > 0} {
-    set y_bin1 [expr {$y_bin0+$y_binwidth}]
+  if {[expr {$ybbmax - $y_bb0}] > 0} {
+    set y_bb1 [expr {$y_bb0+$y_binwidth}]
   } else {
-    set y_bin1 [expr {$y_bin0-$y_binwidth}]
+    set y_bb1 [expr {$y_bb0-$y_binwidth}]
   }
-  OAT_TABLE -init X_MIN $x_bin0 X_MAX $x_binmax Y_MIN $y_bin0 Y_MAX $y_binmax
+  OAT_TABLE -init X_MIN $x_bb0 X_MAX $xbbmax Y_MIN $y_bb0 Y_MAX $ybbmax
   # We default to one big bin for time
-  set t_bin0 [OAT_TABLE -get T_MIN]
-  set t_bin1 [OAT_TABLE -get T_MAX]
-  OAT_TABLE X "$x_bin0 $x_bin1" Y "$y_bin0 $y_bin1" T "$t_bin0 $t_bin1"
+  set t_bb0 [OAT_TABLE -get T_MIN]
+  set t_bb1 [OAT_TABLE -get T_MAX]
+  OAT_TABLE X "$x_bb0 $x_bb1" Y "$y_bb0 $y_bb1" T "$t_bb0 $t_bb1"
   ::histogram_memory::configure_server Filler_defaults
 
   ::nexus::data alias ::histogram_memory::vertical_axis ::histogram_memory::y_pixel_offset