Changeset 401
- Timestamp:
- Sep 10, 2008 8:21:47 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
sans/Dev/trunk/NCNR_User_Procedures/SANS/Reduction/WriteQIS.ipf
r394 r401 517 517 Make/O/T/N=(numTextLines) labelWave 518 518 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] 519 sprintf tmpStr," '%s' '%s' '%s'",textw[0],textw[1],textw[2] 521 520 labelWave[0] = tmpStr 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] 521 labelWave[1] = textw[6] //label 522 523 sprintf tmpStr," %d %g %g %g",intw[2],rw[0],rw[39],rw[2] 526 524 labelWave[2] = tmpStr 527 525 labelWave[3] = " Cnt.Time(sec.) Mon. Cnt. Trans. Det. Cnt. Tot. Det. Cnt." 528 526 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] 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] 531 528 labelWave[4] = tmpStr 532 529 labelWave[5] = " Trans. Thckns Temp. H Field Table Holder Pos" 533 530 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] 531 sprintf tmpStr," %g %g %d '%s' %g",rw[26],rw[27],intw[9],textw[9],rw[7] 536 532 labelWave[6] = tmpStr 537 533 labelWave[7] = " Wavelength & Spread(FWHM) Det.# Type Sample Rotation Angle" 538 534 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] 535 sprintf tmpStr," %g %g %g %g %g %g",rw[18],rw[19],rw[16],rw[17],rw[21],rw[3] 541 536 labelWave[8] = tmpStr 542 537 labelWave[9] = " Sam-Det Dis.(m) Det.Ang.(cm.) Beam Center(x,y) Beam Stop(mm) Atten.No." 543 538 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] 539 sprintf tmpStr," %g %g %g %g %g %g",rw[10],rw[11],rw[12],rw[13],rw[14],rw[15] 546 540 labelWave[10] = tmpStr 547 541 labelWave[11] = " Det. Calib Consts. (x) Det. Calib Consts. (y)" 548 542 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] 543 sprintf tmpStr," %g %g %g '%s' %g %g",rw[23],rw[24],rw[25]," F",rw[45],rw[46] 551 544 labelWave[12] = tmpStr 552 545 labelWave[13] = " Aperture (A1,A2) Sizes(mm) Sep.(m) Flip ON Horiz. and Vert. Cur.(amps)" 553 546 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] 547 sprintf tmpStr," %d %d %d %d %g %g %g",intw[19],intw[20],intw[21],intw[22],rw[47],rw[48],rw[49] 556 548 labelWave[14] = tmpStr 557 549 labelWave[15] = " Rows Cols Factor Qmin Qmax" … … 583 575 // Print "at top, ePt = ",ePt 584 576 sPt=ePt 585 while(ePt<len -1)577 while(ePt<len) 586 578 587 579 Open refNum as fullpath … … 613 605 // pad to 80 chars 614 606 ePt = sPt + numPt 607 //printf "%d : ", strlen(retstr) 615 608 if(strlen(retStr) < 80) 616 609 do … … 618 611 while(strlen(retStr) < 80) 619 612 endif 620 // Print strlen(retStr),sPt,ePt 613 //Print strlen(retStr),sPt,ePt," : ",retstr 621 614 break 622 615 endif … … 819 812 820 813 // returns the path to the file, or null if the user cancelled 821 // fancy use of optional parameters 822 Function/S DoSaveFileDialog(msg,[fname,suffix]) 823 String msg,fname,suffix 814 Function/S DoSaveFileDialog(msg) 815 String msg 824 816 Variable refNum 825 817 // String message = "Save the file as" 826 827 if(ParamIsDefault(fname)) 828 // Print "fname not supplied" 829 fname = "" 830 endif 831 if(ParamIsDefault(suffix)) 832 // Print "suffix not supplied" 833 suffix = "" 834 endif 835 836 String outputPath,tmpName 837 tmpName = fname + suffix 838 839 Open/D/M=msg/T="????" refNum as tmpName 818 String outputPath 819 820 Open/D/M=msg/T="????" refNum 840 821 outputPath = S_fileName 841 822
Note: See TracChangeset
for help on using the changeset viewer.