Ignore:
Timestamp:
Feb 6, 2007 3:58:38 PM (16 years ago)
Author:
srkline
Message:

bug fixes and performance tweaks

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/SANSReduction/trunk/Put in User Procedures/SANS_Reduction_v5.00/ProtocolAsPanel.ipf

    r41 r47  
    21122112//Proc AskForAbsoluteParams_Quest() 
    21132113Function AskForAbsoluteParams_Quest()    
    2114         Variable isNG5=0,loc 
    2115          
    2116         Variable err 
     2114         
     2115        Variable err, isNG5=0,loc,refnum 
    21172116        //ask user if he wants to use a transmision file for absolute scaling 
    21182117        //or if he wants to enter his own information 
     
    21602159                String filename=tw[0],tempStr 
    21612160                err = GetXYBoxFromFile(filename,x1,x2,y1,y2)            //xy's are passed/returned by reference 
    2162 //              Print x1,x2,y1,y2 
     2161                Print x1,x2,y1,y2 
    21632162 
    21642163                if( ((x1-x2)==0) || ((y1-y2)==0) )      //need to re-select the box 
     
    21672166                                Abort "Box not selected properly - Please re-set the ABS parameters" 
    21682167                        Endif 
     2168                        //box is OK, write box values to file (this does the same as SetXYBoxCoords) 
     2169                        String tempName = FindValidFilename(filename) 
     2170                        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 
    21692182                else 
    21702183                        //give option to override 
Note: See TracChangeset for help on using the changeset viewer.