Ignore:
Timestamp:
Aug 7, 2019 11:27:26 AM (3 years ago)
Author:
krzywon
Message:

Incorporate suggested changes for cleaner separation of VSANS, USANS, and SANS reduction methods. Plus fixes.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/Dev/branches/nxcansas_writer/NCNR_User_Procedures/Reduction/VSANS/V_Write_VSANS_NXcanSAS.ipf

    r1187 r1189  
    1010        String destStr="", parentBase, nxcansasBase 
    1111        Variable fileID 
    12         Variable refnum,dialog=1 
     12        Variable refnum,dialog=0 
    1313        String/G base = "root:V_NXcanSAS_file" 
    1414         
     
    7474        Make/O/T/N=5 $(dataBase + ":attrVals") = {"SASdata","I","Q","NXdata","0",V_getDataEndTime(folderStr)} 
    7575        CreateStrNxCansas(fileID,dataParent,"","",empty,$(dataBase + ":attr"),$(dataBase + ":attrVals")) 
    76         // 
    77         // TODO: Reinstate Qdev/resolutions when I can fix the reader issue 
    78         // 
    7976        // Create qx and qy entry 
    8077        NewDataFolder/O/S $(dataBase + ":q") 
    81         Make/O/T/N=2 $(dataBase + ":q:attr") = {"units"}//,"resolutions"} 
    82         Make/O/T/N=2 $(dataBase + ":q:attrVals") = {"1/angstrom"}//,"Qdev"} 
     78        Make/O/T/N=2 $(dataBase + ":q:attr") = {"units","resolutions"} 
     79        Make/O/T/N=2 $(dataBase + ":q:attrVals") = {"1/angstrom","Qdev"} 
    8380        CreateVarNxCansas(fileID,dataParent,"sasdata","Q",qw,$(dataBase + ":q:attr"),$(dataBase + ":q:attrVals")) 
    8481        // Create i entry 
     
    137134         
    138135        NewDataFolder/O/S $(base) 
    139         SetDataFolder $(pathStr+folderStr) 
     136        SetDataFolder $("root:Packages:NIST:VSANS:"+folderStr) 
    140137         
    141138        // Check fullpath and dialog 
    142         fileID = NXcanSAS_OpenOrCreate(dialog,saveName,base) 
     139        fileID = NXcanSAS_OpenOrCreate(dialog,pathStr,base) 
    143140                 
    144141        Variable sasentry = NumVarOrDefault("root:Packages:NIST:gSASEntryNumber", 1) 
     
    309306                Make/O/N=(pixX,pixY) shadow 
    310307                Make/O/N=(2,pixX,pixY) SigmaQ_combined 
     308                ii=0 
    311309                do 
    312310                        jj = 0 
    313311                        do 
    314                                 nq = ii * pixX + jj 
     312                                nq = ii * pixY + jj 
    315313                                V_get2DResolution(qval[nq],phi[nq],r_dist[nq],folderStr,detStr,collimationStr,ret1,ret2,ret3) 
    316314                                qxy_vals[0][ii][jj] = qx_val[nq] 
     
    320318                                shadow[ii][jj] = ret3 
    321319                                jj+=1 
    322                         while(jj<pixX) 
     320//                      while(jj<pixX) 
     321                        while(jj<pixY) 
    323322                        ii+=1 
    324                 while(ii<pixY) 
     323//              while(ii<pixY) 
     324                while(ii<pixX) 
    325325v_toc() 
    326326 
     
    353353                NewDataFolder/O/S $(dataBase + ":i") 
    354354                Make/O/T/N=2 $(dataBase + ":i:attr") = {"units","uncertainties"} 
    355                  
    356355                Make/O/T/N=2 $(dataBase + ":i:attrVals") = {"1/cm","Idev"} 
    357356                CreateVarNxCansas(fileID,dataParent,"sasdata","I",data,$(dataBase + ":i:attr"),$(dataBase + ":i:attrVals")) 
Note: See TracChangeset for help on using the changeset viewer.