linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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.

Browse Source 
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
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
site_ansto/instrument/config/nexus/nxscripts_common_1.tcl
View File

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