Make sure that putslab gets the histogram memory directly just in case we need to do an unbuffered hmm get as is the case for wombat.

r1746 | ffr | 2007-03-30 17:54:55 +1000 (Fri, 30 Mar 2007) | 2 lines
This commit is contained in:
Ferdi Franceschini
2007-03-30 17:54:55 +10:00
committed by Douglas Clowes
parent a617837388
commit 7391c7122d

View File

@@ -2,7 +2,7 @@
# with filename
set tmpstr [string map {"$" ""} {$Name: not supported by cvs2svn $}]
set nx_content_release_tag [lindex $tmpstr [expr [llength $tmpstr] - 1]]
set tmpstr [string map {"$" ""} {$Revision: 1.11 $}]
set tmpstr [string map {"$" ""} {$Revision: 1.12 $}]
set nx_content_revision_num [lindex $tmpstr [expr [llength $tmpstr] - 1]]
MakeNXScript
@@ -91,11 +91,10 @@ proc hmm_save {nxobj entryname point} {
$nxobj putfloat dradius [SplitReply [detector_radius_mm]]
$nxobj puttext dlayout area
# $nxobj puthm dcounts hmm [SplitReply [hmm_start]] [SplitReply [hmm_length]] [SplitReply [hmm_bank]]
#XXX set histo_length [SplitReply [hmm_length]]
set histo_length [SplitReply [hmm_length]]
$nxobj updatedictvar padim0 $dim0
$nxobj updatedictvar padim1 $dim1
$nxobj putslab hmcounts [list $point 0 0] [list 1 $dim0 $dim1 ] hmm
#XXX $nxobj putslab hmcounts [list $point 0 0] [list 1 $dim0 $dim1 ] hmm [SplitReply [hmm_start]] $histo_length [SplitReply [hmm_bank]]
$nxobj putslab hmcounts [list $point 0 0] [list 1 $dim0 $dim1 ] hmm $nxobj putslab hmcounts [list $point 0 0] [list 1 $dim0 $dim1 ] hmm [SplitReply [hmm_start]] $histo_length [SplitReply [hmm_bank]]
# $nxobj putslab dcounts [list $point] [list 1] nxscript_data
$nxobj makelink scandata hmcounts
$nxobj makelink scanvertaxis dvaxis