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/ProtocolAsPanel.ipf

    r47 r72  
    10991099 
    11001100//procedure called by protocol panel to ask user for agerage type choices 
    1101 // somewhat confusing and complex, but maybe as good as it gets. 
     1101// somewhat confusing and complex, but may be as good as it gets. 
    11021102// 
    11031103Proc GetAvgInfo(av_typ,autoSave,autoName,autoPlot,side,phi,dphi,width,QCtr,QDelta) 
     
    21662166                                Abort "Box not selected properly - Please re-set the ABS parameters" 
    21672167                        Endif 
    2168                         //box is OK, write box values to file (this does the same as SetXYBoxCoords) 
    2169                         String tempName = FindValidFilename(filename) 
     2168                        //box is OK, write box values to file 
    21702169                        PathInfo/S catPathName 
    2171                         print S_Path + tempname 
    2172                         Open/A/T="????TEXT" refnum as (S_Path + tempname) 
    2173                         FSetPos refnum,478 
    2174                         FBinWrite/F=3/B=3 refNum, x1 
    2175                         FBinWrite/F=3/B=3 refNum, x2 
    2176                         FBinWrite/F=3/B=3 refNum, y1 
    2177                         FBinWrite/F=3/B=3 refNum, y2 
    2178                         //move to the end of the file before closing 
    2179                         FStatus refnum 
    2180                         FSetPos refnum,V_logEOF 
    2181                         Close refnum 
     2170                        String tempName = S_Path + FindValidFilename(filename) 
     2171                        WriteXYBoxToHeader(tempName,x1,x2,y1,y2) 
    21822172                else 
    21832173                        //give option to override 
     
    22332223End 
    22342224 
    2235 //box coordinate are returned by reference 
    2236 Function GetXYBoxFromFile(filename,x1,x2,y1,y2) 
    2237         String filename 
    2238         Variable &x1,&x2,&y1,&y2 
    2239          
    2240         Variable refnum 
    2241         String emptyFile = FindValidFilename(filename) 
    2242          
    2243 //      Print emptyfile 
    2244          
    2245         Open/R/P=catPathName refnum as emptyFile 
    2246         FSetPos refnum,478 
    2247         FBinRead/F=3/B=3 refnum, x1 
    2248         FBinRead/F=3/B=3 refnum, x2 
    2249         FBinRead/F=3/B=3 refnum, y1 
    2250         FBinRead/F=3/B=3 refnum, y2 
    2251         Close refnum 
    2252          
    2253         return(0) 
    2254 End 
    2255  
    22562225Function UserSelectBox_Continue(ctrlName) :buttonControl 
    22572226        String ctrlName 
Note: See TracChangeset for help on using the changeset viewer.