Fix order of axes to match the order in which the histogram memory is written

ie Time, Vertical, Horizontal.

r2171 | ffr | 2007-10-03 10:07:27 +1000 (Wed, 03 Oct 2007) | 3 lines
This commit is contained in:
Ferdi Franceschini
2007-10-03 10:07:27 +10:00
committed by Douglas Clowes
parent 67810158ee
commit 75e7862cc6
2 changed files with 20 additions and 14 deletions

View File

@@ -1,5 +1,5 @@
# $Revision: 1.17 $
# $Date: 2007-09-26 06:11:40 $
# $Revision: 1.18 $
# $Date: 2007-10-03 00:07:26 $
# Author: Mark Lesha (mle@ansto.gov.au)
# Last revision by: $Author: ffr $
@@ -456,6 +456,7 @@ namespace eval histogram_memory {
# Don't calculate axis values, we're just setting or getting the graph_type
} else {
set i 0
array unset ${proc_name}_array
if {$state($proc_name,graph_type) == "boundaries"} {
foreach bb $boundaries {
set val [expr {$scale_factor*$bb + $offset}]
@@ -927,13 +928,13 @@ proc ::histogram_memory::configure_server {instdef} {
}
::histogram_memory::setup
if {[instname] == "wombat"} {
hmm_dim0 [hmmdictitemval hmm stitch_nxc]
hmm_dim1 [hmmdictitemval hmm stitch_nyc]
hmm_dim2 [hmmdictitemval hmm stitch_nxc]
} else {
hmm_dim0 [hmmdictitemval hmm oat_nxc_eff]
hmm_dim1 [hmmdictitemval hmm oat_nyc_eff]
hmm_dim2 [hmmdictitemval hmm oat_nxc_eff]
}
hmm_dim2 [hmmdictitemval hmm oat_ntc_eff]
hmm_dim0 [hmmdictitemval hmm oat_ntc_eff]
hmm_length [expr {[SplitReply [hmm_dim0]] * [SplitReply [hmm_dim1]] * [SplitReply [hmm_dim2]]} ]
hmm configure dim0 [SplitReply [hmm_dim0]]
hmm configure dim1 [SplitReply [hmm_dim1]]