Ignore:
Timestamp:
Oct 22, 2009 2:37:45 PM (13 years ago)
Author:
srkline
Message:

fixes in USANS:

  • now a click in the white space of the file list will not bring up two open file dialogs. Instead, the null string is caught.

when writing out simulated VAX files:

  • now a proper date is written to the file header
  • runNumber can be entered, and automatically increments
Location:
sans/Dev/trunk/NCNR_User_Procedures/Reduction
Files:
2 edited

Legend:

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

    r573 r578  
    22412241        Close refNum 
    22422242         
     2243         
     2244        // write out the results into a text file 
     2245        //      SetDataFolder $destStr 
     2246        WAVE results=results 
     2247        WAVE/T results_desc=results_desc 
     2248         
     2249        //check each wave 
     2250        If(!(WaveExists(results))) 
     2251                Abort "results DNExist WriteVAXData()" 
     2252        Endif 
     2253        If(!(WaveExists(results_desc))) 
     2254                Abort "results_desc DNExist WriteVAXData()" 
     2255        Endif 
     2256         
     2257        Save/T results_desc,results as fullpath+".itx" 
     2258         
     2259        /////////////////////////////// 
     2260         
    22432261        // all done 
    22442262        Killwaves/Z tmpFile,dataWRecMarkers 
     
    23962414        // [9] det type "ORNL  " (6 chars) 
    23972415         
    2398         tw[1] = "01-JAN-2009 12:12:12" 
     2416        tw[1] = Secs2Date(DateTime,-2)+"  "+ Secs2Time(DateTime,3)              //20 chars, not quite VAX format 
    23992417        tw[2] = "SIM" 
    24002418        tw[3] = "[NG7SANS99]" 
     
    24062424        SVAR prefix = root:Packages:NIST:SAS:gSavePrefix 
    24072425 
    2408         tw[0] = prefix+num2str(index)+".SA2_SIM_A"+num2str(index) 
    2409         index += 1 
     2426 
    24102427         
    24112428        String labelStr=" "      
     2429        Variable runNum = index 
    24122430        Prompt labelStr, "Enter sample label "          // Set prompt for x param 
    2413         DoPrompt "Enter sample label", labelStr 
     2431        Prompt runNum,"Run Number (automatically increments)" 
     2432        DoPrompt "Enter sample label", labelStr,runNum 
    24142433        if (V_Flag) 
    24152434                //Print "no sample label entered - no file written" 
    2416                 index -=1 
     2435                //index -=1 
    24172436                return -1                                                               // User canceled 
    24182437        endif 
     2438         
     2439        if(runNum != index) 
     2440                index = runNum 
     2441        endif 
     2442        index += 1 
     2443 
     2444        tw[0] = prefix+num2str(runNum)+".SA2_SIM_A"+num2str(runNum) 
    24192445         
    24202446        labelStr = PadString(labelStr,60,0x20)  //60 fortran-style spaces 
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/USANS/Main_USANS.ipf

    r570 r578  
    608608        endif 
    609609        //Print fname 
    610         err = LoadBT5File(fname,"RAW") 
    611         if(err) 
    612                 return(err) 
    613         endif 
    614         //if the "Raw Data" Graph exists, do nothing - else draw it 
    615         //DoWindow/F RawDataWin 
    616         if(WinType("RawDataWin")!=1) 
    617                 Execute "GraphRawData()" 
    618         else 
    619                 //just update the textbox 
    620                 //String textStr=StringForRawGraph() 
    621                 //TextBox/W=RawDataWin/C/N=text1/A=RC/X=0.50/Y=-2 textStr 
    622                 //TextBox/W=RawDataWin/C/E=2/A=MT/X=0/Y=0/N=text0 textStr 
    623                 TitleForRawGraph() 
    624         Endif 
     610        if(strlen(fileWave[ii]) > 0)            //make sure that this is not a click in blank space 
     611                err = LoadBT5File(fname,"RAW") 
     612                if(err) 
     613                        return(err) 
     614                endif 
     615                //if the "Raw Data" Graph exists, do nothing - else draw it 
     616                //DoWindow/F RawDataWin 
     617                if(WinType("RawDataWin")!=1) 
     618                        Execute "GraphRawData()" 
     619                else 
     620                        //just update the textbox 
     621                        //String textStr=StringForRawGraph() 
     622                        //TextBox/W=RawDataWin/C/N=text1/A=RC/X=0.50/Y=-2 textStr 
     623                        //TextBox/W=RawDataWin/C/E=2/A=MT/X=0/Y=0/N=text0 textStr 
     624                        TitleForRawGraph() 
     625                Endif 
     626        endif 
    625627        //bring the panel back to the front 
    626628        DoWindow/F USANS_Panel 
     
    692694        endif            
    693695        //Print fname 
    694         ReadBT5Header(fname) 
     696        if(strlen(fileWave[ii]) > 0)            //make sure that this is not a click in blank space 
     697                ReadBT5Header(fname) 
     698        endif 
    695699End 
    696700 
Note: See TracChangeset for help on using the changeset viewer.