Changeset 1193


Ignore:
Timestamp:
Aug 13, 2019 3:13:32 PM (3 years ago)
Author:
krzywon
Message:

Load 2D NXcanSAS data correctly.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/Dev/branches/nxcansas_writer/NCNR_User_Procedures/Common/NIST_NXcanSAS_v709.ipf

    r1191 r1193  
    249249         
    250250        Variable refnum,fileID 
    251         Variable rr,gg,bb 
     251        Variable rr,gg,bb,xdim,ydim 
    252252        SetDataFolder root:             //build sub-folders for each data set under root 
    253253         
     
    311311                                HDF5LoadData /O/Z/N=$(baseStr + "_dqw") fileID, entryBase + dataBase + "dQw" 
    312312                                HDF5LoadData /O/Z/N=$(baseStr + "_s") fileID, entryBase + dataBase + "Idev" 
    313                                 if (isMultiData == 1) 
     313                                if (DimSize($(baseStr + "_i"), 1) > 1) 
     314                                        // Do not auto-plot 2D data 
     315                                        doPlot = 0 
     316                                        xdim = DimSize($(baseStr + "_i"), 0) 
     317                                        ydim = DimSize($(baseStr + "_i"), 1) 
     318                                        Wave q = $(baseStr + "_q") 
     319                                        Wave dq = $(baseStr + "_dq") 
     320                                        Make/O/N=(xdim,ydim) $(baseStr + "_qx") = q[0] 
     321                                        Make/O/N=(xdim,ydim) $(baseStr + "_qy") = q[1] 
     322                                        if (numpnts(dq)>0) 
     323                                                Make/O/N=(xdim,ydim) $(baseStr + "_dqx") = dq[0] 
     324                                                Make/O/N=(xdim,ydim) $(baseStr + "_dqy") = dq[1] 
     325                                        EndIf 
     326                                        KillWaves $(baseStr + "_q") 
     327                                EndIf 
     328                                if (isMultiData) 
    314329                                        sprintf dataBase,dataUnformatted,ii 
    315330                                        // Open next group to see if it exists 
     
    323338                        while (groupID != 0) 
    324339                        inc += 1 
    325                         If (isMultiData == 1) 
     340                        If (isMultiData) 
    326341                                sprintf dataBase,dataUnformatted,ii 
    327342                        endIf 
Note: See TracChangeset for help on using the changeset viewer.