Changeset 402


Ignore:
Timestamp:
Sep 11, 2008 9:52:13 AM (14 years ago)
Author:
srkline
Message:

Some older formatting changes to the GRASP export were obliterated (somehow) with version 401? Changes to a separate subroutine were lost too. These have been replaced here, keeping the correction to the indexing.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/Dev/trunk/NCNR_User_Procedures/SANS/Reduction/WriteQIS.ipf

    r401 r402  
    517517        Make/O/T/N=(numTextLines) labelWave 
    518518         
    519         sprintf tmpStr," '%s'   '%s'   '%s'",textw[0],textw[1],textw[2] 
     519//      sprintf tmpStr," '%s'   '%s'   '%s'",textw[0],textw[1],textw[2] 
     520        sprintf tmpStr," '%s'        '%s'        '%s'     'SAn''ABC''A123'",GetFileNameFromPathNoSemi(fullPath),textw[1],textw[2] 
    520521        labelWave[0] = tmpStr 
    521         labelWave[1] = textw[6]         //label 
    522          
    523         sprintf tmpStr," %d  %g  %g  %g",intw[2],rw[0],rw[39],rw[2] 
     522        labelWave[1] = " "+textw[6]             //label 
     523         
     524//      sprintf tmpStr," %d  %g  %g  %g",intw[2],rw[0],rw[39],rw[2] 
     525        sprintf tmpStr," %6d        %13.5E     %13.5E     %13.5E",intw[2],rw[0],rw[39],rw[2] 
    524526        labelWave[2] = tmpStr 
    525527        labelWave[3] = " Cnt.Time(sec.)    Mon. Cnt.      Trans. Det. Cnt.  Tot. Det. Cnt." 
    526528         
    527         sprintf tmpStr," %g  %g  %g '%s' %g '%s' %d  %d  %g",rw[4],rw[5],rw[8],textw[7],rw[9],textw[8],intw[4],intw[5],rw[6] 
     529//      sprintf tmpStr," %g  %g  %g '%s' %g '%s' %d  %d  %g",rw[4],rw[5],rw[8],textw[7],rw[9],textw[8],intw[4],intw[5],rw[6] 
     530        sprintf tmpStr,"%10.3g   %9.2g%8.2f '%6s'%8.2f '%6s'%7d%7d%7.2f",rw[4],rw[5],rw[8],textw[7],rw[9],textw[8],intw[4],intw[5],rw[6] 
    528531        labelWave[4] = tmpStr 
    529532        labelWave[5] = " Trans.      Thckns       Temp.           H Field         Table  Holder  Pos" 
    530533         
    531         sprintf tmpStr," %g  %g  %d  '%s'  %g",rw[26],rw[27],intw[9],textw[9],rw[7] 
     534//      sprintf tmpStr," %g  %g  %d  '%s'  %g",rw[26],rw[27],intw[9],textw[9],rw[7] 
     535        sprintf tmpStr," %8.2f        %5.2f          %2d   '%6s'          %6.2f",rw[26],rw[27],intw[9],textw[9],rw[7] 
    532536        labelWave[6] = tmpStr 
    533537        labelWave[7] = " Wavelength &  Spread(FWHM)    Det.#  Type      Sample Rotation Angle" 
    534538         
    535         sprintf tmpStr," %g  %g  %g  %g  %g  %g",rw[18],rw[19],rw[16],rw[17],rw[21],rw[3] 
     539//      sprintf tmpStr," %g  %g  %g  %g  %g  %g",rw[18],rw[19],rw[16],rw[17],rw[21],rw[3] 
     540        sprintf tmpStr," %12.2f%12.2f          %6.2f  %6.2f  %10.2f        %4.1f",rw[18],rw[19],rw[16],rw[17],rw[21],rw[3] 
    536541        labelWave[8] = tmpStr 
    537542        labelWave[9] = " Sam-Det Dis.(m)   Det.Ang.(cm.)   Beam Center(x,y)  Beam Stop(mm)  Atten.No." 
    538543         
    539         sprintf tmpStr," %g  %g  %g  %g  %g  %g",rw[10],rw[11],rw[12],rw[13],rw[14],rw[15] 
     544//      sprintf tmpStr," %g  %g  %g  %g  %g  %g",rw[10],rw[11],rw[12],rw[13],rw[14],rw[15] 
     545        sprintf tmpStr," %8.3f      %10.4E  %10.4E%8.3f      %10.4E  %10.4E",rw[10],rw[11],rw[12],rw[13],rw[14],rw[15] 
    540546        labelWave[10] = tmpStr 
    541547        labelWave[11] = "        Det. Calib Consts. (x)           Det. Calib Consts. (y)" 
    542548         
    543         sprintf tmpStr," %g  %g  %g  '%s'  %g  %g",rw[23],rw[24],rw[25],"    F",rw[45],rw[46] 
     549//      sprintf tmpStr," %g  %g  %g  '%s'  %g  %g",rw[23],rw[24],rw[25],"    F",rw[45],rw[46] 
     550        sprintf tmpStr,"%12.2f%12.2f%12.2f      '%s'%8.2f    %8.2f",rw[23],rw[24],rw[25],"     F",rw[45],rw[46] 
    544551        labelWave[12] = tmpStr 
    545552        labelWave[13] = " Aperture (A1,A2) Sizes(mm)    Sep.(m)    Flip ON   Horiz. and Vert. Cur.(amps)" 
    546553         
    547         sprintf tmpStr," %d  %d  %d  %d  %g  %g  %g",intw[19],intw[20],intw[21],intw[22],rw[47],rw[48],rw[49] 
     554//      sprintf tmpStr," %d  %d  %d  %d  %g  %g  %g",intw[19],intw[20],intw[21],intw[22],rw[47],rw[48],rw[49] 
     555        sprintf tmpStr,"%6d%6d%6d%6d%10.3f%10.6f%10.6f",intw[19],intw[20],intw[21],intw[22],rw[47],rw[48],rw[49] 
    548556        labelWave[14] = tmpStr 
    549557        labelWave[15] = "      Rows        Cols       Factor   Qmin      Qmax" 
     
    812820 
    813821// returns the path to the file, or null if the user cancelled 
    814 Function/S DoSaveFileDialog(msg) 
    815         String msg 
     822// fancy use of optional parameters 
     823Function/S DoSaveFileDialog(msg,[fname,suffix]) 
     824        String msg,fname,suffix 
    816825        Variable refNum 
    817826//      String message = "Save the file as" 
    818         String outputPath 
    819          
    820         Open/D/M=msg/T="????" refNum 
     827 
     828        if(ParamIsDefault(fname)) 
     829//              Print "fname not supplied" 
     830                fname = "" 
     831        endif 
     832        if(ParamIsDefault(suffix)) 
     833//              Print "suffix not supplied" 
     834                suffix = "" 
     835        endif 
     836         
     837        String outputPath,tmpName 
     838        tmpName = fname + suffix 
     839         
     840        Open/D/M=msg/T="????" refNum as tmpName 
    821841        outputPath = S_fileName 
    822842         
Note: See TracChangeset for help on using the changeset viewer.