Ignore:
Timestamp:
Mar 30, 2007 5:26:06 PM (16 years ago)
Author:
srkline
Message:

more transferring of functions to NCNR_* files.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/SANSReduction/branches/kline_29MAR07/Put in User Procedures/SANS_Reduction_v5.00/Marquee.ipf

    r70 r72  
    44 
    55//////////// 
    6 // vers 1.21 3 may 06 needs some changes after total transmission incorporated (BSG) 
     6// vers 1.21 3 may 06 total transmission incorporated (BSG) 
    77// 
    88//************************** 
     
    143143        Endif 
    144144         
    145         //go find the file, open it and write 4 integers to the file 
    146         //in the positions for analysis.rows(2), .cols(2) = 4 unused 4byte integers 
    147         Variable refnum 
    148         Open/A/T="????TEXT" refnum as filename 
    149         FSetPos refnum,478 
    150         FBinWrite/F=3/B=3 refNum, x1 
    151         FBinWrite/F=3/B=3 refNum, x2 
    152         FBinWrite/F=3/B=3 refNum, y1 
    153         FBinWrite/F=3/B=3 refNum, y2 
    154         //move to the end of the file before closing 
    155         FStatus refnum 
    156         FSetPos refnum,V_logEOF 
    157         Close refnum 
     145        WriteXYBoxToHeader(filename,x1,x2,y1,y2) 
     146         
    158147        //ReWriteReal() takes care of open/close on its own 
    159148        Print counts, " counts in XY box" 
Note: See TracChangeset for help on using the changeset viewer.