Ignore:
Timestamp:
Nov 16, 2017 10:57:32 AM (5 years ago)
Author:
srkline
Message:

lots of changes here:
many little fixes to clean up TODO items and marke them DONE

changed the handling of the panel "gap" to split the gap evenly. Q-calculations have been re-verified with this change.

re-named the list of "bin Type" values, and added a few more choices. Streamlined how the averaging and plotting works with this list so that it can be more easily modified as different combinations of binning are envisioned. This resulted in a lot of excess code being cut out and replaced with cleaner logic. This change has also been verified to work as intended.

Attenuation is now always calculated from the table. The table also by (NEW) definition has values for the white beam (one waelength) and graphite (multiple possible wavelengths) where the wavelengths are artificially scaled (*1000) or *1e6) so that the interpolations can be done internally without the need for multiple attenuator tables.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/V_DataPlotting.ipf

    r1050 r1073  
    408408        SVAR type = root:Packages:NIST:VSANS:Globals:gCurDispType 
    409409 
    410         V_QBinAllPanels_Circular(type,popNum) 
     410// dispatch based on the string, not on the number of selection in the pop string 
     411        V_QBinAllPanels_Circular(type,V_BinTypeStr2Num(popStr)) 
    411412 
    412413        String str,winStr="V_1D_Data",workTypeStr 
    413414        workTypeStr = "root:Packages:NIST:VSANS:"+type 
    414415         
    415         sprintf str,"(\"%s\",%d,\"%s\")",workTypeStr,popNum,winStr 
     416        sprintf str,"(\"%s\",%d,\"%s\")",workTypeStr,V_BinTypeStr2Num(popStr),winStr 
    416417 
    417418        Execute ("V_Back_IQ_Graph"+str) 
    … …  
    460461 
    461462// clear EVERYTHING 
    462  
     463        ClearIQIfDisplayed_AllFldr("MLRTB",winNameStr) 
     464        ClearIQIfDisplayed_AllFldr("MLR",winNameStr) 
     465        ClearIQIfDisplayed_AllFldr("MTB",winNameStr)            //this returns to root: 
     466        ClearIQIfDisplayed_AllFldr("MT",winNameStr)      
     467        ClearIQIfDisplayed_AllFldr("ML",winNameStr)      
     468        ClearIQIfDisplayed_AllFldr("MR",winNameStr)      
     469        ClearIQIfDisplayed_AllFldr("MB",winNameStr)              
     470 
     471 
     472// then replace the traces as needed, depending on the binType 
    463473 
    464474        if(binType==1) 
    465                 ClearIQIfDisplayed_AllFldr("MLRTB",winNameStr) 
    466                 ClearIQIfDisplayed_AllFldr("MLR",winNameStr) 
    467                 ClearIQIfDisplayed_AllFldr("MTB",winNameStr)            //this returns to root: 
    468                 ClearIQIfDisplayed_AllFldr("MT",winNameStr)      
    469                 ClearIQIfDisplayed_AllFldr("ML",winNameStr)      
    470                 ClearIQIfDisplayed_AllFldr("MR",winNameStr)      
    471                 ClearIQIfDisplayed_AllFldr("MB",winNameStr)                      
     475         
    472476                SetDataFolder $(fullPathToFolder) 
    473477                CheckDisplayed/W=$winNameStr iBin_qxqy_ML 
    … …  
    495499         
    496500        if(binType==2) 
    497 // clear EVERYTHING 
    498                 ClearIQIfDisplayed_AllFldr("MLRTB",winNameStr) 
    499                 ClearIQIfDisplayed_AllFldr("MLR",winNameStr) 
    500                 ClearIQIfDisplayed_AllFldr("MTB",winNameStr)            //this returns to root: 
    501                 ClearIQIfDisplayed_AllFldr("MT",winNameStr)      
    502                 ClearIQIfDisplayed_AllFldr("ML",winNameStr)      
    503                 ClearIQIfDisplayed_AllFldr("MR",winNameStr)      
    504                 ClearIQIfDisplayed_AllFldr("MB",winNameStr)              
    505          
    506 //              ClearIQIfDisplayed_AllFldr("MLRTB") 
    507 //              ClearIQIfDisplayed_AllFldr("MT")         
    508 //              ClearIQIfDisplayed_AllFldr("ML")         
    509 //              ClearIQIfDisplayed_AllFldr("MR")         
    510 //              ClearIQIfDisplayed_AllFldr("MB") 
    511          
    512  
    513501                SetDataFolder $(fullPathToFolder) 
    514502                CheckDisplayed/W=$winNameStr iBin_qxqy_MLR 
    … …  
    535523         
    536524        if(binType==3) 
    537 // clear EVERYTHING 
    538                 ClearIQIfDisplayed_AllFldr("MLRTB",winNameStr) 
    539                 ClearIQIfDisplayed_AllFldr("MLR",winNameStr) 
    540                 ClearIQIfDisplayed_AllFldr("MTB",winNameStr)            //this returns to root: 
    541                 ClearIQIfDisplayed_AllFldr("MT",winNameStr)      
    542                 ClearIQIfDisplayed_AllFldr("ML",winNameStr)      
    543                 ClearIQIfDisplayed_AllFldr("MR",winNameStr)      
    544                 ClearIQIfDisplayed_AllFldr("MB",winNameStr)              
    545          
    546 //              ClearIQIfDisplayed_AllFldr("MLR") 
    547 //              ClearIQIfDisplayed_AllFldr("MTB")        
    548 //              ClearIQIfDisplayed_AllFldr("MT")         
    549 //              ClearIQIfDisplayed_AllFldr("ML")         
    550 //              ClearIQIfDisplayed_AllFldr("MR")         
    551 //              ClearIQIfDisplayed_AllFldr("MB")         
    552          
     525 
    553526                SetDataFolder $(fullPathToFolder) 
    554527                CheckDisplayed/W=$winNameStr iBin_qxqy_MLRTB 
    … …  
    572545 
    573546        if(binType==4)          // slit aperture binning - MT, ML, MR, MB are averaged 
    574 // clear EVERYTHING 
    575                 ClearIQIfDisplayed_AllFldr("MLRTB",winNameStr) 
    576                 ClearIQIfDisplayed_AllFldr("MLR",winNameStr) 
    577                 ClearIQIfDisplayed_AllFldr("MTB",winNameStr)            //this returns to root: 
    578                 ClearIQIfDisplayed_AllFldr("MT",winNameStr)      
    579                 ClearIQIfDisplayed_AllFldr("ML",winNameStr)      
    580                 ClearIQIfDisplayed_AllFldr("MR",winNameStr)      
    581                 ClearIQIfDisplayed_AllFldr("MB",winNameStr)              
    582          
    583          
    584 //              ClearIQIfDisplayed_AllFldr("MLRTB") 
    585 //              ClearIQIfDisplayed_AllFldr("MLR") 
    586 //              ClearIQIfDisplayed_AllFldr("MTB") 
    587                  
     547 
    588548                SetDataFolder $(fullPathToFolder) 
    589549                CheckDisplayed/W=$winNameStr iBin_qxqy_ML 
    … …  
    592552                        AppendToGraph/W=$winNameStr iBin_qxqy_ML vs qBin_qxqy_ML 
    593553                        AppendToGraph/W=$winNameStr iBin_qxqy_MR vs qBin_qxqy_MR 
    594                         AppendToGraph/W=$winNameStr iBin_qxqy_MT vs qBin_qxqy_MT 
    595                         AppendToGraph/W=$winNameStr iBin_qxqy_MB vs qBin_qxqy_MB 
     554//                      AppendToGraph/W=$winNameStr iBin_qxqy_MT vs qBin_qxqy_MT 
     555//                      AppendToGraph/W=$winNameStr iBin_qxqy_MB vs qBin_qxqy_MB 
    596556                        ErrorBars/T=0 iBin_qxqy_ML Y,wave=(:eBin_qxqy_ML,:eBin_qxqy_ML) 
    597557                        ErrorBars/T=0 iBin_qxqy_MR Y,wave=(:eBin_qxqy_MR,:eBin_qxqy_MR) 
    598                         ErrorBars/T=0 iBin_qxqy_MT Y,wave=(:eBin_qxqy_MT,:eBin_qxqy_MT) 
    599                         ErrorBars/T=0 iBin_qxqy_MB Y,wave=(:eBin_qxqy_MB,:eBin_qxqy_MB) 
     558//                      ErrorBars/T=0 iBin_qxqy_MT Y,wave=(:eBin_qxqy_MT,:eBin_qxqy_MT) 
     559//                      ErrorBars/T=0 iBin_qxqy_MB Y,wave=(:eBin_qxqy_MB,:eBin_qxqy_MB) 
    600560                         
    601561                        ModifyGraph/W=$winNameStr mode=4 
    602562                        ModifyGraph/W=$winNameStr marker=19 
    603                         ModifyGraph/W=$winNameStr rgb(iBin_qxqy_ML)=(65535,0,0),rgb(iBin_qxqy_MB)=(1,16019,65535),rgb(iBin_qxqy_MR)=(65535,0,0),rgb(iBin_qxqy_MT)=(1,16019,65535) 
     563                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_ML)=(65535,0,0),rgb(iBin_qxqy_MR)=(65535,0,0) 
     564//                      ModifyGraph/W=$winNameStr rgb(iBin_qxqy_MB)=(1,16019,65535),rgb(iBin_qxqy_MT)=(1,16019,65535) 
    604565                        ModifyGraph/W=$winNameStr msize=2 
    605                         ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_ML)={0,4},muloffset(iBin_qxqy_MB)={0,2},muloffset(iBin_qxqy_MR)={0,8} 
     566                        ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_ML)={0,4},muloffset(iBin_qxqy_MR)={0,8} 
     567//                      ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_MB)={0,2} 
    606568                        ModifyGraph/W=$winNameStr grid=1 
    607569                        ModifyGraph/W=$winNameStr log=1 
    608570                        ModifyGraph/W=$winNameStr mirror=2 
    609571                endif            
     572                         
     573        endif 
     574 
     575        if(binType==5) 
     576 
     577                SetDataFolder $(fullPathToFolder) 
     578                CheckDisplayed/W=$winNameStr iBin_qxqy_MLRTB 
     579                 
     580                if(V_flag==0) 
     581                        AppendtoGraph/W=$winNameStr iBin_qxqy_MLRTB vs qBin_qxqy_MLRTB 
     582                        ErrorBars/T=0 iBin_qxqy_MLRTB Y,wave=(:eBin_qxqy_MLRTB,:eBin_qxqy_MLRTB) 
     583                         
     584                        ModifyGraph/W=$winNameStr mode=4 
     585                        ModifyGraph/W=$winNameStr marker=19 
     586                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_MLRTB)=(65535,0,0) 
     587                        ModifyGraph/W=$winNameStr msize=2 
     588                        ModifyGraph/W=$winNameStr grid=1 
     589                        ModifyGraph/W=$winNameStr log=1 
     590                        ModifyGraph/W=$winNameStr mirror=2 
     591                        Label/W=$winNameStr left "Intensity (1/cm)" 
     592                        Label/W=$winNameStr bottom "Q (1/A)" 
     593                endif    
     594                         
     595        endif 
     596 
     597        if(binType==6) 
     598 
     599                SetDataFolder $(fullPathToFolder) 
     600                CheckDisplayed/W=$winNameStr iBin_qxqy_MLR 
     601                 
     602                if(V_flag==0) 
     603                        AppendtoGraph/W=$winNameStr iBin_qxqy_MLR vs qBin_qxqy_MLR 
     604                        ErrorBars/T=0 iBin_qxqy_MLR Y,wave=(:eBin_qxqy_MLR,:eBin_qxqy_MLR) 
     605                         
     606                        ModifyGraph/W=$winNameStr mode=4 
     607                        ModifyGraph/W=$winNameStr marker=19 
     608                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_MLR)=(65535,0,0) 
     609                        ModifyGraph/W=$winNameStr msize=2 
     610                        ModifyGraph/W=$winNameStr grid=1 
     611                        ModifyGraph/W=$winNameStr log=1 
     612                        ModifyGraph/W=$winNameStr mirror=2 
     613                        Label/W=$winNameStr left "Intensity (1/cm)" 
     614                        Label/W=$winNameStr bottom "Q (1/A)" 
     615                endif    
     616                         
     617        endif 
     618 
     619        if(binType==7) 
     620 
     621                SetDataFolder $(fullPathToFolder) 
     622                CheckDisplayed/W=$winNameStr iBin_qxqy_MLR 
     623                 
     624                if(V_flag==0) 
     625                        AppendtoGraph/W=$winNameStr iBin_qxqy_MLR vs qBin_qxqy_MLR 
     626                        ErrorBars/T=0 iBin_qxqy_MLR Y,wave=(:eBin_qxqy_MLR,:eBin_qxqy_MLR) 
     627                         
     628                        ModifyGraph/W=$winNameStr mode=4 
     629                        ModifyGraph/W=$winNameStr marker=19 
     630                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_MLR)=(65535,0,0) 
     631                        ModifyGraph/W=$winNameStr msize=2 
     632                        ModifyGraph/W=$winNameStr grid=1 
     633                        ModifyGraph/W=$winNameStr log=1 
     634                        ModifyGraph/W=$winNameStr mirror=2 
     635                        Label/W=$winNameStr left "Intensity (1/cm)" 
     636                        Label/W=$winNameStr bottom "Q (1/A)" 
     637                endif    
    610638                         
    611639        endif 
    … …  
    635663 
    636664// clear EVERYTHING 
    637 //              ClearIQIfDisplayed_AllFldr("FLRTB") 
    638 //               
    639 //              ClearIQIfDisplayed_AllFldr("FLR") 
    640 //              ClearIQIfDisplayed_AllFldr("FTB") 
    641 // 
    642 //              ClearIQIfDisplayed_AllFldr("FT")         
    643 //              ClearIQIfDisplayed_AllFldr("FL")         
    644 //              ClearIQIfDisplayed_AllFldr("FR")         
    645 //              ClearIQIfDisplayed_AllFldr("FB") 
     665        ClearIQIfDisplayed_AllFldr("FLRTB",winNameStr) 
     666         
     667        ClearIQIfDisplayed_AllFldr("FLR",winNameStr) 
     668        ClearIQIfDisplayed_AllFldr("FTB",winNameStr) 
     669 
     670        ClearIQIfDisplayed_AllFldr("FT",winNameStr)      
     671        ClearIQIfDisplayed_AllFldr("FL",winNameStr)      
     672        ClearIQIfDisplayed_AllFldr("FR",winNameStr)      
     673        ClearIQIfDisplayed_AllFldr("FB",winNameStr) 
    646674                 
    647675        if(binType==1) 
    648                 ClearIQIfDisplayed_AllFldr("FLRTB",winNameStr) 
    649                  
    650                 ClearIQIfDisplayed_AllFldr("FLR",winNameStr) 
    651                 ClearIQIfDisplayed_AllFldr("FTB",winNameStr) 
    652  
    653                 ClearIQIfDisplayed_AllFldr("FT",winNameStr)      
    654                 ClearIQIfDisplayed_AllFldr("FL",winNameStr)      
    655                 ClearIQIfDisplayed_AllFldr("FR",winNameStr)      
    656                 ClearIQIfDisplayed_AllFldr("FB",winNameStr) 
    657                                  
     676 
    658677                SetDataFolder $(fullPathToFolder) 
    659678                CheckDisplayed/W=$winNameStr iBin_qxqy_FL 
    … …  
    683702         
    684703        if(binType==2) 
    685         // clear EVERYTHING 
    686                 ClearIQIfDisplayed_AllFldr("FLRTB",winNameStr) 
    687                  
    688                 ClearIQIfDisplayed_AllFldr("FLR",winNameStr) 
    689                 ClearIQIfDisplayed_AllFldr("FTB",winNameStr) 
    690  
    691                 ClearIQIfDisplayed_AllFldr("FT",winNameStr)      
    692                 ClearIQIfDisplayed_AllFldr("FL",winNameStr)      
    693                 ClearIQIfDisplayed_AllFldr("FR",winNameStr)      
    694                 ClearIQIfDisplayed_AllFldr("FB",winNameStr) 
    695 //              ClearIQIfDisplayed_AllFldr("FLRTB") 
    696 //              ClearIQIfDisplayed_AllFldr("FT")         
    697 //              ClearIQIfDisplayed_AllFldr("FL")         
    698 //              ClearIQIfDisplayed_AllFldr("FR")         
    699 //              ClearIQIfDisplayed_AllFldr("FB")         
    700704 
    701705                SetDataFolder $(fullPathToFolder) 
    … …  
    722726        endif 
    723727         
    724         if(binType==3) 
    725 // clear EVERYTHING 
    726                 ClearIQIfDisplayed_AllFldr("FLRTB",winNameStr) 
    727                  
    728                 ClearIQIfDisplayed_AllFldr("FLR",winNameStr) 
    729                 ClearIQIfDisplayed_AllFldr("FTB",winNameStr) 
    730  
    731                 ClearIQIfDisplayed_AllFldr("FT",winNameStr)      
    732                 ClearIQIfDisplayed_AllFldr("FL",winNameStr)      
    733                 ClearIQIfDisplayed_AllFldr("FR",winNameStr)      
    734                 ClearIQIfDisplayed_AllFldr("FB",winNameStr)      
    735          
    736 //              ClearIQIfDisplayed_AllFldr("FLR") 
    737 //              ClearIQIfDisplayed_AllFldr("FTB")        
    738 //              ClearIQIfDisplayed_AllFldr("FT")         
    739 //              ClearIQIfDisplayed_AllFldr("FL")         
    740 //              ClearIQIfDisplayed_AllFldr("FR")         
    741 //              ClearIQIfDisplayed_AllFldr("FB")         
     728        if(binType==3)   
    742729         
    743730                SetDataFolder $(fullPathToFolder) 
    … …  
    762749 
    763750        if(binType==4)          // slit aperture binning - MT, ML, MR, MB are averaged 
    764 // clear EVERYTHING 
    765                 ClearIQIfDisplayed_AllFldr("FLRTB",winNameStr) 
    766                  
    767                 ClearIQIfDisplayed_AllFldr("FLR",winNameStr) 
    768                 ClearIQIfDisplayed_AllFldr("FTB",winNameStr) 
    769  
    770                 ClearIQIfDisplayed_AllFldr("FT",winNameStr)      
    771                 ClearIQIfDisplayed_AllFldr("FL",winNameStr)      
    772                 ClearIQIfDisplayed_AllFldr("FR",winNameStr)      
    773                 ClearIQIfDisplayed_AllFldr("FB",winNameStr)      
    774          
    775          
    776 //              ClearIQIfDisplayed_AllFldr("FLRTB") 
    777 //              ClearIQIfDisplayed_AllFldr("FLR") 
    778 //              ClearIQIfDisplayed_AllFldr("FTB") 
    779751                 
    780752                SetDataFolder $(fullPathToFolder) 
    … …  
    784756                        AppendtoGraph/W=$winNameStr iBin_qxqy_FL vs qBin_qxqy_FL 
    785757                        AppendToGraph/W=$winNameStr iBin_qxqy_FR vs qBin_qxqy_FR 
    786                         AppendToGraph/W=$winNameStr iBin_qxqy_FT vs qBin_qxqy_FT 
    787                         AppendToGraph/W=$winNameStr iBin_qxqy_FB vs qBin_qxqy_FB 
     758//                      AppendToGraph/W=$winNameStr iBin_qxqy_FT vs qBin_qxqy_FT 
     759//                      AppendToGraph/W=$winNameStr iBin_qxqy_FB vs qBin_qxqy_FB 
    788760                        ErrorBars/T=0 iBin_qxqy_FL Y,wave=(:eBin_qxqy_FL,:eBin_qxqy_FL) 
    789761                        ErrorBars/T=0 iBin_qxqy_FR Y,wave=(:eBin_qxqy_FR,:eBin_qxqy_FR) 
    790                         ErrorBars/T=0 iBin_qxqy_FT Y,wave=(:eBin_qxqy_FT,:eBin_qxqy_FT) 
    791                         ErrorBars/T=0 iBin_qxqy_FB Y,wave=(:eBin_qxqy_FB,:eBin_qxqy_FB) 
     762//                      ErrorBars/T=0 iBin_qxqy_FT Y,wave=(:eBin_qxqy_FT,:eBin_qxqy_FT) 
     763//                      ErrorBars/T=0 iBin_qxqy_FB Y,wave=(:eBin_qxqy_FB,:eBin_qxqy_FB) 
    792764                         
    793765                        ModifyGraph/W=$winNameStr mode=4 
    794766                        ModifyGraph/W=$winNameStr marker=19 
    795                         ModifyGraph/W=$winNameStr rgb(iBin_qxqy_FL)=(39321,26208,1),rgb(iBin_qxqy_FB)=(2,39321,1),rgb(iBin_qxqy_FR)=(39321,26208,1),rgb(iBin_qxqy_FT)=(2,39321,1) 
     767                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_FL)=(39321,26208,1),rgb(iBin_qxqy_FR)=(39321,26208,1) 
     768//                      ModifyGraph/W=$winNameStr rgb(iBin_qxqy_FB)=(2,39321,1),rgb(iBin_qxqy_FT)=(2,39321,1) 
    796769                        ModifyGraph/W=$winNameStr msize=2 
    797                         ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_FL)={0,4},muloffset(iBin_qxqy_FB)={0,2},muloffset(iBin_qxqy_FR)={0,8} 
     770                        ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_FL)={0,4},muloffset(iBin_qxqy_FR)={0,8} 
     771//                      ModifyGraph/W=$winNameStr,muloffset(iBin_qxqy_FB)={0,2} 
    798772                        ModifyGraph/W=$winNameStr grid=1 
    799773                        ModifyGraph/W=$winNameStr log=1 
    … …  
    802776                         
    803777        endif 
     778 
     779        if(binType==5) 
     780 
     781                SetDataFolder $(fullPathToFolder) 
     782                CheckDisplayed/W=$winNameStr iBin_qxqy_FLR 
     783                 
     784                if(V_flag==0) 
     785                        AppendtoGraph/W=$winNameStr iBin_qxqy_FLR vs qBin_qxqy_FLR 
     786                        AppendToGraph/W=$winNameStr iBin_qxqy_FTB vs qBin_qxqy_FTB 
     787                        ErrorBars/T=0 iBin_qxqy_FLR Y,wave=(:eBin_qxqy_FLR,:eBin_qxqy_FLR) 
     788                        ErrorBars/T=0 iBin_qxqy_FTB Y,wave=(:eBin_qxqy_FTB,:eBin_qxqy_FTB) 
     789 
     790                        ModifyGraph/W=$winNameStr mode=4 
     791                        ModifyGraph/W=$winNameStr marker=19 
     792                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_FLR)=(39321,26208,1),rgb(iBin_qxqy_FTB)=(2,39321,1) 
     793                        ModifyGraph/W=$winNameStr msize=2 
     794                        ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_FLR)={0,2} 
     795                        ModifyGraph/W=$winNameStr grid=1 
     796                        ModifyGraph/W=$winNameStr log=1 
     797                        ModifyGraph/W=$winNameStr mirror=2 
     798//                      Label/W=$winNameStr left "Intensity (1/cm)" 
     799//                      Label/W=$winNameStr bottom "Q (1/A)" 
     800                endif    
     801                         
     802        endif 
     803 
     804        if(binType==6)   
     805         
     806                SetDataFolder $(fullPathToFolder) 
     807                CheckDisplayed/W=$winNameStr iBin_qxqy_FLRTB 
     808                 
     809                if(V_flag==0) 
     810                        AppendtoGraph/W=$winNameStr iBin_qxqy_FLRTB vs qBin_qxqy_FLRTB 
     811                        ErrorBars/T=0 iBin_qxqy_FLRTB Y,wave=(:eBin_qxqy_FLRTB,:eBin_qxqy_FLRTB) 
     812 
     813                        ModifyGraph/W=$winNameStr mode=4 
     814                        ModifyGraph/W=$winNameStr marker=19 
     815                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_FLRTB)=(39321,26208,1) 
     816                        ModifyGraph/W=$winNameStr msize=2 
     817                        ModifyGraph/W=$winNameStr grid=1 
     818                        ModifyGraph/W=$winNameStr log=1 
     819                        ModifyGraph/W=$winNameStr mirror=2 
     820                        Label/W=$winNameStr left "Intensity (1/cm)" 
     821                        Label/W=$winNameStr bottom "Q (1/A)" 
     822                endif    
     823                         
     824        endif 
     825         
     826        if(binType==7) 
     827 
     828                SetDataFolder $(fullPathToFolder) 
     829                CheckDisplayed/W=$winNameStr iBin_qxqy_FLR 
     830                 
     831                if(V_flag==0) 
     832                        AppendtoGraph/W=$winNameStr iBin_qxqy_FLR vs qBin_qxqy_FLR 
     833                        AppendToGraph/W=$winNameStr iBin_qxqy_FTB vs qBin_qxqy_FTB 
     834                        ErrorBars/T=0 iBin_qxqy_FLR Y,wave=(:eBin_qxqy_FLR,:eBin_qxqy_FLR) 
     835                        ErrorBars/T=0 iBin_qxqy_FTB Y,wave=(:eBin_qxqy_FTB,:eBin_qxqy_FTB) 
     836 
     837                        ModifyGraph/W=$winNameStr mode=4 
     838                        ModifyGraph/W=$winNameStr marker=19 
     839                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_FLR)=(39321,26208,1),rgb(iBin_qxqy_FTB)=(2,39321,1) 
     840                        ModifyGraph/W=$winNameStr msize=2 
     841                        ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_FLR)={0,2} 
     842                        ModifyGraph/W=$winNameStr grid=1 
     843                        ModifyGraph/W=$winNameStr log=1 
     844                        ModifyGraph/W=$winNameStr mirror=2 
     845//                      Label/W=$winNameStr left "Intensity (1/cm)" 
     846//                      Label/W=$winNameStr bottom "Q (1/A)" 
     847                endif    
     848                         
     849        endif 
     850 
    804851         
    805852        SetDataFolder root: 
    … …  
    829876//      binType = V_GetBinningPopMode() 
    830877         
     878        ClearIQIfDisplayed_AllFldr("B",winNameStr) 
     879 
    831880 
    832881        SetDataFolder $(fullPathToFolder)        
    833882 
     883//      if(binType==1 || binType==2 || binType==3) 
    834884        if(binType==1 || binType==2 || binType==3) 
    835885         
    836                 ClearIQIfDisplayed_AllFldr("B",winNameStr) 
    837886                SetDataFolder $(fullPathToFolder)        
    838887                CheckDisplayed/W=$winNameStr iBin_qxqy_B 
    … …  
    851900                endif 
    852901                 
    853 //              ClearIQIfDisplayed_AllFldr("B") 
    854 //              SetDataFolder $(fullPathToFolder)        
    855 //              CheckDisplayed/W=V_1D_Data iBin_qxqy_B 
    856 //               
    857 //              if(V_flag==0) 
    858 //                      AppendtoGraph/W=V_1D_Data iBin_qxqy_B vs qBin_qxqy_B 
    859 //                      ModifyGraph/W=V_1D_Data mode=4 
    860 //                      ModifyGraph/W=V_1D_Data marker=19 
    861 //                      ModifyGraph/W=V_1D_Data rgb(iBin_qxqy_B)=(1,52428,52428) 
    862 //                      ModifyGraph/W=V_1D_Data msize=2 
    863 //                      ModifyGraph/W=V_1D_Data grid=1 
    864 //                      ModifyGraph/W=V_1D_Data log=1 
    865 //                      ModifyGraph/W=V_1D_Data mirror=2 
    866 //              endif 
    867                  
    868902        endif 
    869903 
    … …  
    871905        if(binType==4) 
    872906         
    873                 ClearIQIfDisplayed_AllFldr("B",winNameStr) 
    874907                SetDataFolder $(fullPathToFolder)                               // ClearIQIfDisplayed_AllFldr() resets to root: 
    875908                CheckDisplayed/W=$winNameStr iBin_qxqy_B 
    … …  
    885918                        ModifyGraph/W=$winNameStr mirror=2 
    886919                endif 
     920        endif 
     921 
     922        if(binType==5 || binType==6 || binType==7) 
     923         
     924                SetDataFolder $(fullPathToFolder)        
     925                CheckDisplayed/W=$winNameStr iBin_qxqy_B 
     926                 
     927                if(V_flag==0) 
     928                        AppendtoGraph/W=$winNameStr iBin_qxqy_B vs qBin_qxqy_B 
     929                        ErrorBars/T=0 iBin_qxqy_B Y,wave=(:eBin_qxqy_B,:eBin_qxqy_B) 
     930                        ModifyGraph/W=$winNameStr mode(iBin_qxqy_B)=4 
     931                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_B)=(1,52428,52428) 
     932                        ModifyGraph/W=$winNameStr grid=1 
     933                        ModifyGraph/W=$winNameStr log=1 
     934                        ModifyGraph/W=$winNameStr mirror=2 
     935                        ModifyGraph/W=$winNameStr marker(iBin_qxqy_B)=19,msize(iBin_qxqy_B)=2 
     936//                      ModifyGraph/W=$winNameStr msize(iBin_qxqy_B)=3,textMarker(iBin_qxqy_B)={"B","default",1,0,5,0.00,0.00} 
     937 
     938                endif 
     939                 
    887940        endif 
    888941 
Note: See TracChangeset for help on using the changeset viewer.