Ignore:
Timestamp:
Mar 24, 2017 2:13:01 PM (6 years ago)
Author:
srkline
Message:

First pass at routines to interactively combine and mask VSANS 1-D data sets. Based on masking as done in the USANS Desmearing panel.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/V_DataPlotting.ipf

    r1027 r1030  
    105105// TODO: 
    106106// x- "B" detector is currently skipped - Q is not yet calculated 
    107         String str 
    108         sprintf str,"(\"%s\",%d)",workType,binType 
     107        String str,winStr="V_1D_Data" 
     108        sprintf str,"(\"%s\",%d,\"%s\")",workType,binType,winStr 
    109109         
    110110        Execute ("V_Back_IQ_Graph"+str) 
     
    384384// just rebin 
    385385// 
     386// see V_CombineModePopup() in V_Combine_1D.ipf for a duplicate verison of this function 
     387// 
    386388Function V_BinningModePopup(ctrlName,popNum,popStr) : PopupMenuControl 
    387389        String ctrlName 
     
    393395        V_QBinAllPanels(type,popNum) 
    394396 
    395         String str 
    396         sprintf str,"(\"%s\",%d)",Type,popNum 
     397        String str,winStr="V_1D_Data" 
     398        sprintf str,"(\"%s\",%d,\"%s\")",type,popNum,winStr 
    397399 
    398400        Execute ("V_Back_IQ_Graph"+str) 
     
    451453// input "type" is the data type and defines the folder 
    452454// 
    453 Proc V_Middle_IQ_Graph(type,binType)  
     455Proc V_Middle_IQ_Graph(type,binType,winNameStr)  
    454456        String type 
    455457        Variable binType 
     458        String winNameStr 
    456459 
    457460//      binType = V_GetBinningPopMode() 
     
    468471 
    469472        if(binType==1) 
    470                 ClearAllIQIfDisplayed("MLRTB") 
    471                 ClearAllIQIfDisplayed("MLR") 
    472                 ClearAllIQIfDisplayed("MTB")            //this returns to root: 
    473                 ClearAllIQIfDisplayed("MT")      
    474                 ClearAllIQIfDisplayed("ML")      
    475                 ClearAllIQIfDisplayed("MR")      
    476                 ClearAllIQIfDisplayed("MB")                      
     473                ClearAllIQIfDisplayed("MLRTB",winNameStr) 
     474                ClearAllIQIfDisplayed("MLR",winNameStr) 
     475                ClearAllIQIfDisplayed("MTB",winNameStr)         //this returns to root: 
     476                ClearAllIQIfDisplayed("MT",winNameStr 
     477                ClearAllIQIfDisplayed("ML",winNameStr 
     478                ClearAllIQIfDisplayed("MR",winNameStr 
     479                ClearAllIQIfDisplayed("MB",winNameStr)                   
    477480                SetDataFolder $("root:Packages:NIST:VSANS:"+type) 
    478                 CheckDisplayed/W=V_1D_Data iBin_qxqy_ML 
    479                  
    480                 if(V_flag==0) 
    481                         AppendtoGraph/W=V_1D_Data iBin_qxqy_ML vs qBin_qxqy_ML 
    482                         AppendToGraph/W=V_1D_Data iBin_qxqy_MR vs qBin_qxqy_MR 
    483                         AppendToGraph/W=V_1D_Data iBin_qxqy_MT vs qBin_qxqy_MT 
    484                         AppendToGraph/W=V_1D_Data iBin_qxqy_MB vs qBin_qxqy_MB 
    485                         ModifyGraph/W=V_1D_Data mode=4 
    486                         ModifyGraph/W=V_1D_Data marker=19 
    487                         ModifyGraph/W=V_1D_Data 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) 
    488                         ModifyGraph/W=V_1D_Data msize=2 
    489                         ModifyGraph/W=V_1D_Data muloffset(iBin_qxqy_ML)={0,4},muloffset(iBin_qxqy_MB)={0,2},muloffset(iBin_qxqy_MR)={0,8} 
    490                         ModifyGraph/W=V_1D_Data grid=1 
    491                         ModifyGraph/W=V_1D_Data log=1 
    492                         ModifyGraph/W=V_1D_Data mirror=2 
     481                CheckDisplayed/W=$winNameStr iBin_qxqy_ML 
     482                 
     483                if(V_flag==0) 
     484                        AppendtoGraph/W=$winNameStr iBin_qxqy_ML vs qBin_qxqy_ML 
     485                        AppendToGraph/W=$winNameStr iBin_qxqy_MR vs qBin_qxqy_MR 
     486                        AppendToGraph/W=$winNameStr iBin_qxqy_MT vs qBin_qxqy_MT 
     487                        AppendToGraph/W=$winNameStr iBin_qxqy_MB vs qBin_qxqy_MB 
     488                        ModifyGraph/W=$winNameStr mode=4 
     489                        ModifyGraph/W=$winNameStr marker=19 
     490                        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) 
     491                        ModifyGraph/W=$winNameStr msize=2 
     492                        ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_ML)={0,4},muloffset(iBin_qxqy_MB)={0,2},muloffset(iBin_qxqy_MR)={0,8} 
     493                        ModifyGraph/W=$winNameStr grid=1 
     494                        ModifyGraph/W=$winNameStr log=1 
     495                        ModifyGraph/W=$winNameStr mirror=2 
    493496                endif            
    494497        endif 
     
    496499        if(binType==2) 
    497500// clear EVERYTHING 
    498                 ClearAllIQIfDisplayed("MLRTB") 
    499                 ClearAllIQIfDisplayed("MLR") 
    500                 ClearAllIQIfDisplayed("MTB")            //this returns to root: 
    501                 ClearAllIQIfDisplayed("MT")      
    502                 ClearAllIQIfDisplayed("ML")      
    503                 ClearAllIQIfDisplayed("MR")      
    504                 ClearAllIQIfDisplayed("MB")              
     501                ClearAllIQIfDisplayed("MLRTB",winNameStr) 
     502                ClearAllIQIfDisplayed("MLR",winNameStr) 
     503                ClearAllIQIfDisplayed("MTB",winNameStr)         //this returns to root: 
     504                ClearAllIQIfDisplayed("MT",winNameStr 
     505                ClearAllIQIfDisplayed("ML",winNameStr 
     506                ClearAllIQIfDisplayed("MR",winNameStr 
     507                ClearAllIQIfDisplayed("MB",winNameStr)           
    505508         
    506509//              ClearAllIQIfDisplayed("MLRTB") 
     
    512515 
    513516                SetDataFolder $("root:Packages:NIST:VSANS:"+type) 
    514                 CheckDisplayed/W=V_1D_Data iBin_qxqy_MLR 
    515                  
    516                 if(V_flag==0) 
    517                         AppendtoGraph/W=V_1D_Data iBin_qxqy_MLR vs qBin_qxqy_MLR 
    518                         AppendToGraph/W=V_1D_Data iBin_qxqy_MTB vs qBin_qxqy_MTB 
    519                         ModifyGraph/W=V_1D_Data mode=4 
    520                         ModifyGraph/W=V_1D_Data marker=19 
    521                         ModifyGraph/W=V_1D_Data rgb(iBin_qxqy_MLR)=(65535,0,0),rgb(iBin_qxqy_MTB)=(1,16019,65535) 
    522                         ModifyGraph/W=V_1D_Data msize=2 
    523                         ModifyGraph/W=V_1D_Data muloffset(iBin_qxqy_MLR)={0,2} 
    524                         ModifyGraph/W=V_1D_Data grid=1 
    525                         ModifyGraph/W=V_1D_Data log=1 
    526                         ModifyGraph/W=V_1D_Data mirror=2 
    527                         Label/W=V_1D_Data left "Intensity (1/cm)" 
    528                         Label/W=V_1D_Data bottom "Q (1/A)" 
     517                CheckDisplayed/W=$winNameStr iBin_qxqy_MLR 
     518                 
     519                if(V_flag==0) 
     520                        AppendtoGraph/W=$winNameStr iBin_qxqy_MLR vs qBin_qxqy_MLR 
     521                        AppendToGraph/W=$winNameStr iBin_qxqy_MTB vs qBin_qxqy_MTB 
     522                        ModifyGraph/W=$winNameStr mode=4 
     523                        ModifyGraph/W=$winNameStr marker=19 
     524                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_MLR)=(65535,0,0),rgb(iBin_qxqy_MTB)=(1,16019,65535) 
     525                        ModifyGraph/W=$winNameStr msize=2 
     526                        ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_MLR)={0,2} 
     527                        ModifyGraph/W=$winNameStr grid=1 
     528                        ModifyGraph/W=$winNameStr log=1 
     529                        ModifyGraph/W=$winNameStr mirror=2 
     530                        Label/W=$winNameStr left "Intensity (1/cm)" 
     531                        Label/W=$winNameStr bottom "Q (1/A)" 
    529532                endif    
    530533                         
     
    533536        if(binType==3) 
    534537// clear EVERYTHING 
    535                 ClearAllIQIfDisplayed("MLRTB") 
    536                 ClearAllIQIfDisplayed("MLR") 
    537                 ClearAllIQIfDisplayed("MTB")            //this returns to root: 
    538                 ClearAllIQIfDisplayed("MT")      
    539                 ClearAllIQIfDisplayed("ML")      
    540                 ClearAllIQIfDisplayed("MR")      
    541                 ClearAllIQIfDisplayed("MB")              
     538                ClearAllIQIfDisplayed("MLRTB",winNameStr) 
     539                ClearAllIQIfDisplayed("MLR",winNameStr) 
     540                ClearAllIQIfDisplayed("MTB",winNameStr)         //this returns to root: 
     541                ClearAllIQIfDisplayed("MT",winNameStr 
     542                ClearAllIQIfDisplayed("ML",winNameStr 
     543                ClearAllIQIfDisplayed("MR",winNameStr 
     544                ClearAllIQIfDisplayed("MB",winNameStr)           
    542545         
    543546//              ClearAllIQIfDisplayed("MLR") 
     
    549552         
    550553                SetDataFolder $("root:Packages:NIST:VSANS:"+type) 
    551                 CheckDisplayed/W=V_1D_Data iBin_qxqy_MLRTB 
    552                  
    553                 if(V_flag==0) 
    554                         AppendtoGraph/W=V_1D_Data iBin_qxqy_MLRTB vs qBin_qxqy_MLRTB 
    555                         ModifyGraph/W=V_1D_Data mode=4 
    556                         ModifyGraph/W=V_1D_Data marker=19 
    557                         ModifyGraph/W=V_1D_Data rgb(iBin_qxqy_MLRTB)=(65535,0,0) 
    558                         ModifyGraph/W=V_1D_Data msize=2 
    559                         ModifyGraph/W=V_1D_Data grid=1 
    560                         ModifyGraph/W=V_1D_Data log=1 
    561                         ModifyGraph/W=V_1D_Data mirror=2 
    562                         Label/W=V_1D_Data left "Intensity (1/cm)" 
    563                         Label/W=V_1D_Data bottom "Q (1/A)" 
     554                CheckDisplayed/W=$winNameStr iBin_qxqy_MLRTB 
     555                 
     556                if(V_flag==0) 
     557                        AppendtoGraph/W=$winNameStr iBin_qxqy_MLRTB vs qBin_qxqy_MLRTB 
     558                        ModifyGraph/W=$winNameStr mode=4 
     559                        ModifyGraph/W=$winNameStr marker=19 
     560                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_MLRTB)=(65535,0,0) 
     561                        ModifyGraph/W=$winNameStr msize=2 
     562                        ModifyGraph/W=$winNameStr grid=1 
     563                        ModifyGraph/W=$winNameStr log=1 
     564                        ModifyGraph/W=$winNameStr mirror=2 
     565                        Label/W=$winNameStr left "Intensity (1/cm)" 
     566                        Label/W=$winNameStr bottom "Q (1/A)" 
    564567                endif    
    565568                         
     
    568571        if(binType==4)          // slit aperture binning - MT, ML, MR, MB are averaged 
    569572// clear EVERYTHING 
    570                 ClearAllIQIfDisplayed("MLRTB") 
    571                 ClearAllIQIfDisplayed("MLR") 
    572                 ClearAllIQIfDisplayed("MTB")            //this returns to root: 
    573                 ClearAllIQIfDisplayed("MT")      
    574                 ClearAllIQIfDisplayed("ML")      
    575                 ClearAllIQIfDisplayed("MR")      
    576                 ClearAllIQIfDisplayed("MB")              
     573                ClearAllIQIfDisplayed("MLRTB",winNameStr) 
     574                ClearAllIQIfDisplayed("MLR",winNameStr) 
     575                ClearAllIQIfDisplayed("MTB",winNameStr)         //this returns to root: 
     576                ClearAllIQIfDisplayed("MT",winNameStr 
     577                ClearAllIQIfDisplayed("ML",winNameStr 
     578                ClearAllIQIfDisplayed("MR",winNameStr 
     579                ClearAllIQIfDisplayed("MB",winNameStr)           
    577580         
    578581         
     
    582585                 
    583586                SetDataFolder $("root:Packages:NIST:VSANS:"+type) 
    584                 CheckDisplayed/W=V_1D_Data iBin_qxqy_ML 
    585                  
    586                 if(V_flag==0) 
    587                         AppendToGraph/W=V_1D_Data iBin_qxqy_ML vs qBin_qxqy_ML 
    588                         AppendToGraph/W=V_1D_Data iBin_qxqy_MR vs qBin_qxqy_MR 
    589                         AppendToGraph/W=V_1D_Data iBin_qxqy_MT vs qBin_qxqy_MT 
    590                         AppendToGraph/W=V_1D_Data iBin_qxqy_MB vs qBin_qxqy_MB 
    591                         ModifyGraph/W=V_1D_Data mode=4 
    592                         ModifyGraph/W=V_1D_Data marker=19 
    593                         ModifyGraph/W=V_1D_Data 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) 
    594                         ModifyGraph/W=V_1D_Data msize=2 
    595                         ModifyGraph/W=V_1D_Data muloffset(iBin_qxqy_ML)={0,4},muloffset(iBin_qxqy_MB)={0,2},muloffset(iBin_qxqy_MR)={0,8} 
    596                         ModifyGraph/W=V_1D_Data grid=1 
    597                         ModifyGraph/W=V_1D_Data log=1 
    598                         ModifyGraph/W=V_1D_Data mirror=2 
     587                CheckDisplayed/W=$winNameStr iBin_qxqy_ML 
     588                 
     589                if(V_flag==0) 
     590                        AppendToGraph/W=$winNameStr iBin_qxqy_ML vs qBin_qxqy_ML 
     591                        AppendToGraph/W=$winNameStr iBin_qxqy_MR vs qBin_qxqy_MR 
     592                        AppendToGraph/W=$winNameStr iBin_qxqy_MT vs qBin_qxqy_MT 
     593                        AppendToGraph/W=$winNameStr iBin_qxqy_MB vs qBin_qxqy_MB 
     594                        ModifyGraph/W=$winNameStr mode=4 
     595                        ModifyGraph/W=$winNameStr marker=19 
     596                        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) 
     597                        ModifyGraph/W=$winNameStr msize=2 
     598                        ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_ML)={0,4},muloffset(iBin_qxqy_MB)={0,2},muloffset(iBin_qxqy_MR)={0,8} 
     599                        ModifyGraph/W=$winNameStr grid=1 
     600                        ModifyGraph/W=$winNameStr log=1 
     601                        ModifyGraph/W=$winNameStr mirror=2 
    599602                endif            
    600603                         
     
    615618// 
    616619// 
    617 Proc V_Front_IQ_Graph(type,binType)  
     620Proc V_Front_IQ_Graph(type,binType,winNameStr)  
    618621        String type 
    619622        Variable binType 
     623        String winNameStr 
    620624 
    621625 
     
    635639                 
    636640        if(binType==1) 
    637                 ClearAllIQIfDisplayed("FLRTB") 
    638                  
    639                 ClearAllIQIfDisplayed("FLR") 
    640                 ClearAllIQIfDisplayed("FTB") 
    641  
    642                 ClearAllIQIfDisplayed("FT")      
    643                 ClearAllIQIfDisplayed("FL")      
    644                 ClearAllIQIfDisplayed("FR")      
    645                 ClearAllIQIfDisplayed("FB") 
     641                ClearAllIQIfDisplayed("FLRTB",winNameStr) 
     642                 
     643                ClearAllIQIfDisplayed("FLR",winNameStr) 
     644                ClearAllIQIfDisplayed("FTB",winNameStr) 
     645 
     646                ClearAllIQIfDisplayed("FT",winNameStr 
     647                ClearAllIQIfDisplayed("FL",winNameStr 
     648                ClearAllIQIfDisplayed("FR",winNameStr 
     649                ClearAllIQIfDisplayed("FB",winNameStr) 
    646650                                 
    647651                SetDataFolder $("root:Packages:NIST:VSANS:"+type) 
    648                 CheckDisplayed/W=V_1D_Data iBin_qxqy_FL 
    649                  
    650                 if(V_flag==0) 
    651                         AppendtoGraph/W=V_1D_Data iBin_qxqy_FL vs qBin_qxqy_FL 
    652                         AppendToGraph/W=V_1D_Data iBin_qxqy_FR vs qBin_qxqy_FR 
    653                         AppendToGraph/W=V_1D_Data iBin_qxqy_FT vs qBin_qxqy_FT 
    654                         AppendToGraph/W=V_1D_Data iBin_qxqy_FB vs qBin_qxqy_FB 
    655                         ModifyGraph/W=V_1D_Data mode=4 
    656                         ModifyGraph/W=V_1D_Data marker=19 
    657                         ModifyGraph/W=V_1D_Data 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) 
    658                         ModifyGraph/W=V_1D_Data msize=2 
    659                         ModifyGraph/W=V_1D_Data muloffset(iBin_qxqy_FL)={0,4},muloffset(iBin_qxqy_FB)={0,2},muloffset(iBin_qxqy_FR)={0,8} 
    660                         ModifyGraph/W=V_1D_Data grid=1 
    661                         ModifyGraph/W=V_1D_Data log=1 
    662                         ModifyGraph/W=V_1D_Data mirror=2 
     652                CheckDisplayed/W=$winNameStr iBin_qxqy_FL 
     653                 
     654                if(V_flag==0) 
     655                        AppendtoGraph/W=$winNameStr iBin_qxqy_FL vs qBin_qxqy_FL 
     656                        AppendToGraph/W=$winNameStr iBin_qxqy_FR vs qBin_qxqy_FR 
     657                        AppendToGraph/W=$winNameStr iBin_qxqy_FT vs qBin_qxqy_FT 
     658                        AppendToGraph/W=$winNameStr iBin_qxqy_FB vs qBin_qxqy_FB 
     659                        ModifyGraph/W=$winNameStr mode=4 
     660                        ModifyGraph/W=$winNameStr marker=19 
     661                        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) 
     662                        ModifyGraph/W=$winNameStr msize=2 
     663                        ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_FL)={0,4},muloffset(iBin_qxqy_FB)={0,2},muloffset(iBin_qxqy_FR)={0,8} 
     664                        ModifyGraph/W=$winNameStr grid=1 
     665                        ModifyGraph/W=$winNameStr log=1 
     666                        ModifyGraph/W=$winNameStr mirror=2 
    663667                endif            
    664668        endif 
     
    666670        if(binType==2) 
    667671        // clear EVERYTHING 
    668                 ClearAllIQIfDisplayed("FLRTB") 
    669                  
    670                 ClearAllIQIfDisplayed("FLR") 
    671                 ClearAllIQIfDisplayed("FTB") 
    672  
    673                 ClearAllIQIfDisplayed("FT")      
    674                 ClearAllIQIfDisplayed("FL")      
    675                 ClearAllIQIfDisplayed("FR")      
    676                 ClearAllIQIfDisplayed("FB") 
     672                ClearAllIQIfDisplayed("FLRTB",winNameStr) 
     673                 
     674                ClearAllIQIfDisplayed("FLR",winNameStr) 
     675                ClearAllIQIfDisplayed("FTB",winNameStr) 
     676 
     677                ClearAllIQIfDisplayed("FT",winNameStr 
     678                ClearAllIQIfDisplayed("FL",winNameStr 
     679                ClearAllIQIfDisplayed("FR",winNameStr 
     680                ClearAllIQIfDisplayed("FB",winNameStr) 
    677681//              ClearAllIQIfDisplayed("FLRTB") 
    678682//              ClearAllIQIfDisplayed("FT")      
     
    682686 
    683687                SetDataFolder $("root:Packages:NIST:VSANS:"+type) 
    684                 CheckDisplayed/W=V_1D_Data iBin_qxqy_FLR 
    685                  
    686                 if(V_flag==0) 
    687                         AppendtoGraph/W=V_1D_Data iBin_qxqy_FLR vs qBin_qxqy_FLR 
    688                         AppendToGraph/W=V_1D_Data iBin_qxqy_FTB vs qBin_qxqy_FTB 
    689                         ModifyGraph/W=V_1D_Data mode=4 
    690                         ModifyGraph/W=V_1D_Data marker=19 
    691                         ModifyGraph/W=V_1D_Data rgb(iBin_qxqy_FLR)=(39321,26208,1),rgb(iBin_qxqy_FTB)=(2,39321,1) 
    692                         ModifyGraph/W=V_1D_Data msize=2 
    693                         ModifyGraph/W=V_1D_Data muloffset(iBin_qxqy_FLR)={0,2} 
    694                         ModifyGraph/W=V_1D_Data grid=1 
    695                         ModifyGraph/W=V_1D_Data log=1 
    696                         ModifyGraph/W=V_1D_Data mirror=2 
    697                         Label/W=V_1D_Data left "Intensity (1/cm)" 
    698                         Label/W=V_1D_Data bottom "Q (1/A)" 
     688                CheckDisplayed/W=$winNameStr iBin_qxqy_FLR 
     689                 
     690                if(V_flag==0) 
     691                        AppendtoGraph/W=$winNameStr iBin_qxqy_FLR vs qBin_qxqy_FLR 
     692                        AppendToGraph/W=$winNameStr iBin_qxqy_FTB vs qBin_qxqy_FTB 
     693                        ModifyGraph/W=$winNameStr mode=4 
     694                        ModifyGraph/W=$winNameStr marker=19 
     695                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_FLR)=(39321,26208,1),rgb(iBin_qxqy_FTB)=(2,39321,1) 
     696                        ModifyGraph/W=$winNameStr msize=2 
     697                        ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_FLR)={0,2} 
     698                        ModifyGraph/W=$winNameStr grid=1 
     699                        ModifyGraph/W=$winNameStr log=1 
     700                        ModifyGraph/W=$winNameStr mirror=2 
     701                        Label/W=$winNameStr left "Intensity (1/cm)" 
     702                        Label/W=$winNameStr bottom "Q (1/A)" 
    699703                endif    
    700704                         
     
    703707        if(binType==3) 
    704708// clear EVERYTHING 
    705                 ClearAllIQIfDisplayed("FLRTB") 
    706                  
    707                 ClearAllIQIfDisplayed("FLR") 
    708                 ClearAllIQIfDisplayed("FTB") 
    709  
    710                 ClearAllIQIfDisplayed("FT")      
    711                 ClearAllIQIfDisplayed("FL")      
    712                 ClearAllIQIfDisplayed("FR")      
    713                 ClearAllIQIfDisplayed("FB")      
     709                ClearAllIQIfDisplayed("FLRTB",winNameStr) 
     710                 
     711                ClearAllIQIfDisplayed("FLR",winNameStr) 
     712                ClearAllIQIfDisplayed("FTB",winNameStr) 
     713 
     714                ClearAllIQIfDisplayed("FT",winNameStr 
     715                ClearAllIQIfDisplayed("FL",winNameStr 
     716                ClearAllIQIfDisplayed("FR",winNameStr 
     717                ClearAllIQIfDisplayed("FB",winNameStr 
    714718         
    715719//              ClearAllIQIfDisplayed("FLR") 
     
    721725         
    722726                SetDataFolder $("root:Packages:NIST:VSANS:"+type) 
    723                 CheckDisplayed/W=V_1D_Data iBin_qxqy_FLRTB 
    724                  
    725                 if(V_flag==0) 
    726                         AppendtoGraph/W=V_1D_Data iBin_qxqy_FLRTB vs qBin_qxqy_FLRTB 
    727                         ModifyGraph/W=V_1D_Data mode=4 
    728                         ModifyGraph/W=V_1D_Data marker=19 
    729                         ModifyGraph/W=V_1D_Data rgb(iBin_qxqy_FLRTB)=(39321,26208,1) 
    730                         ModifyGraph/W=V_1D_Data msize=2 
    731                         ModifyGraph/W=V_1D_Data grid=1 
    732                         ModifyGraph/W=V_1D_Data log=1 
    733                         ModifyGraph/W=V_1D_Data mirror=2 
    734                         Label/W=V_1D_Data left "Intensity (1/cm)" 
    735                         Label/W=V_1D_Data bottom "Q (1/A)" 
     727                CheckDisplayed/W=$winNameStr iBin_qxqy_FLRTB 
     728                 
     729                if(V_flag==0) 
     730                        AppendtoGraph/W=$winNameStr iBin_qxqy_FLRTB vs qBin_qxqy_FLRTB 
     731                        ModifyGraph/W=$winNameStr mode=4 
     732                        ModifyGraph/W=$winNameStr marker=19 
     733                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_FLRTB)=(39321,26208,1) 
     734                        ModifyGraph/W=$winNameStr msize=2 
     735                        ModifyGraph/W=$winNameStr grid=1 
     736                        ModifyGraph/W=$winNameStr log=1 
     737                        ModifyGraph/W=$winNameStr mirror=2 
     738                        Label/W=$winNameStr left "Intensity (1/cm)" 
     739                        Label/W=$winNameStr bottom "Q (1/A)" 
    736740                endif    
    737741                         
     
    740744        if(binType==4)          // slit aperture binning - MT, ML, MR, MB are averaged 
    741745// clear EVERYTHING 
    742                 ClearAllIQIfDisplayed("FLRTB") 
    743                  
    744                 ClearAllIQIfDisplayed("FLR") 
    745                 ClearAllIQIfDisplayed("FTB") 
    746  
    747                 ClearAllIQIfDisplayed("FT")      
    748                 ClearAllIQIfDisplayed("FL")      
    749                 ClearAllIQIfDisplayed("FR")      
    750                 ClearAllIQIfDisplayed("FB")      
     746                ClearAllIQIfDisplayed("FLRTB",winNameStr) 
     747                 
     748                ClearAllIQIfDisplayed("FLR",winNameStr) 
     749                ClearAllIQIfDisplayed("FTB",winNameStr) 
     750 
     751                ClearAllIQIfDisplayed("FT",winNameStr 
     752                ClearAllIQIfDisplayed("FL",winNameStr 
     753                ClearAllIQIfDisplayed("FR",winNameStr 
     754                ClearAllIQIfDisplayed("FB",winNameStr 
    751755         
    752756         
     
    756760                 
    757761                SetDataFolder $("root:Packages:NIST:VSANS:"+type) 
    758                 CheckDisplayed/W=V_1D_Data iBin_qxqy_FL 
    759                  
    760                 if(V_flag==0) 
    761                         AppendtoGraph/W=V_1D_Data iBin_qxqy_FL vs qBin_qxqy_FL 
    762                         AppendToGraph/W=V_1D_Data iBin_qxqy_FR vs qBin_qxqy_FR 
    763                         AppendToGraph/W=V_1D_Data iBin_qxqy_FT vs qBin_qxqy_FT 
    764                         AppendToGraph/W=V_1D_Data iBin_qxqy_FB vs qBin_qxqy_FB 
    765                         ModifyGraph/W=V_1D_Data mode=4 
    766                         ModifyGraph/W=V_1D_Data marker=19 
    767                         ModifyGraph/W=V_1D_Data 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) 
    768                         ModifyGraph/W=V_1D_Data msize=2 
    769                         ModifyGraph/W=V_1D_Data muloffset(iBin_qxqy_FL)={0,4},muloffset(iBin_qxqy_FB)={0,2},muloffset(iBin_qxqy_FR)={0,8} 
    770                         ModifyGraph/W=V_1D_Data grid=1 
    771                         ModifyGraph/W=V_1D_Data log=1 
    772                         ModifyGraph/W=V_1D_Data mirror=2 
     762                CheckDisplayed/W=$winNameStr iBin_qxqy_FL 
     763                 
     764                if(V_flag==0) 
     765                        AppendtoGraph/W=$winNameStr iBin_qxqy_FL vs qBin_qxqy_FL 
     766                        AppendToGraph/W=$winNameStr iBin_qxqy_FR vs qBin_qxqy_FR 
     767                        AppendToGraph/W=$winNameStr iBin_qxqy_FT vs qBin_qxqy_FT 
     768                        AppendToGraph/W=$winNameStr iBin_qxqy_FB vs qBin_qxqy_FB 
     769                        ModifyGraph/W=$winNameStr mode=4 
     770                        ModifyGraph/W=$winNameStr marker=19 
     771                        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) 
     772                        ModifyGraph/W=$winNameStr msize=2 
     773                        ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_FL)={0,4},muloffset(iBin_qxqy_FB)={0,2},muloffset(iBin_qxqy_FR)={0,8} 
     774                        ModifyGraph/W=$winNameStr grid=1 
     775                        ModifyGraph/W=$winNameStr log=1 
     776                        ModifyGraph/W=$winNameStr mirror=2 
    773777                endif            
    774778                         
     
    783787// x- currently  hard-wired == 1 
    784788// 
     789// 
     790//      type = the data folder 
     791// binType = numerical index of the bin type (1->4) 
     792//  one;two;four;slit 
     793// winNameStr = the name of the target window 
     794// 
    785795////////////to plot the back panel I(q) 
    786 Proc V_Back_IQ_Graph(type,binType) 
     796Proc V_Back_IQ_Graph(type,binType,winNameStr) 
    787797        String type 
    788798        Variable binType 
     799        String winNameStr 
    789800         
    790801//      SetDataFolder root:Packages:NIST:VSANS:VCALC:entry:instrument:detector_B 
     
    794805//      binType = V_GetBinningPopMode() 
    795806         
     807 
    796808        SetDataFolder $("root:Packages:NIST:VSANS:"+type)        
    797809 
    798810        if(binType==1 || binType==2 || binType==3) 
    799811         
    800                 ClearAllIQIfDisplayed("B") 
     812                ClearAllIQIfDisplayed("B",winNameStr) 
    801813                SetDataFolder $("root:Packages:NIST:VSANS:"+type)        
    802                 CheckDisplayed/W=V_1D_Data iBin_qxqy_B 
    803                  
    804                 if(V_flag==0) 
    805                         AppendtoGraph/W=V_1D_Data iBin_qxqy_B vs qBin_qxqy_B 
    806                         ModifyGraph/W=V_1D_Data mode=4 
    807                         ModifyGraph/W=V_1D_Data marker=19 
    808                         ModifyGraph/W=V_1D_Data rgb(iBin_qxqy_B)=(1,52428,52428) 
    809                         ModifyGraph/W=V_1D_Data msize=2 
    810                         ModifyGraph/W=V_1D_Data grid=1 
    811                         ModifyGraph/W=V_1D_Data log=1 
    812                         ModifyGraph/W=V_1D_Data mirror=2 
     814                CheckDisplayed/W=$winNameStr iBin_qxqy_B 
     815                 
     816                if(V_flag==0) 
     817                        AppendtoGraph/W=$winNameStr iBin_qxqy_B vs qBin_qxqy_B 
     818                        ModifyGraph/W=$winNameStr mode=4 
     819                        ModifyGraph/W=$winNameStr marker=19 
     820                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_B)=(1,52428,52428) 
     821                        ModifyGraph/W=$winNameStr msize=2 
     822                        ModifyGraph/W=$winNameStr grid=1 
     823                        ModifyGraph/W=$winNameStr log=1 
     824                        ModifyGraph/W=$winNameStr mirror=2 
    813825                endif 
     826                 
     827//              ClearAllIQIfDisplayed("B") 
     828//              SetDataFolder $("root:Packages:NIST:VSANS:"+type)        
     829//              CheckDisplayed/W=V_1D_Data iBin_qxqy_B 
     830//               
     831//              if(V_flag==0) 
     832//                      AppendtoGraph/W=V_1D_Data iBin_qxqy_B vs qBin_qxqy_B 
     833//                      ModifyGraph/W=V_1D_Data mode=4 
     834//                      ModifyGraph/W=V_1D_Data marker=19 
     835//                      ModifyGraph/W=V_1D_Data rgb(iBin_qxqy_B)=(1,52428,52428) 
     836//                      ModifyGraph/W=V_1D_Data msize=2 
     837//                      ModifyGraph/W=V_1D_Data grid=1 
     838//                      ModifyGraph/W=V_1D_Data log=1 
     839//                      ModifyGraph/W=V_1D_Data mirror=2 
     840//              endif 
     841                 
    814842        endif 
    815843 
     
    817845        if(binType==4) 
    818846         
    819                 ClearAllIQIfDisplayed("B") 
     847                ClearAllIQIfDisplayed("B",winNameStr) 
    820848                SetDataFolder $("root:Packages:NIST:VSANS:"+type)        
    821                 CheckDisplayed/W=V_1D_Data iBin_qxqy_B 
    822                  
    823                 if(V_flag==0) 
    824                         AppendtoGraph/W=V_1D_Data iBin_qxqy_B vs qBin_qxqy_B 
    825                         ModifyGraph/W=V_1D_Data mode=4 
    826                         ModifyGraph/W=V_1D_Data marker=19 
    827                         ModifyGraph/W=V_1D_Data rgb(iBin_qxqy_B)=(1,52428,52428) 
    828                         ModifyGraph/W=V_1D_Data msize=2 
    829                         ModifyGraph/W=V_1D_Data grid=1 
    830                         ModifyGraph/W=V_1D_Data log=1 
    831                         ModifyGraph/W=V_1D_Data mirror=2 
     849                CheckDisplayed/W=$winNameStr iBin_qxqy_B 
     850                 
     851                if(V_flag==0) 
     852                        AppendtoGraph/W=$winNameStr iBin_qxqy_B vs qBin_qxqy_B 
     853                        ModifyGraph/W=$winNameStr mode=4 
     854                        ModifyGraph/W=$winNameStr marker=19 
     855                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_B)=(1,52428,52428) 
     856                        ModifyGraph/W=$winNameStr msize=2 
     857                        ModifyGraph/W=$winNameStr grid=1 
     858                        ModifyGraph/W=$winNameStr log=1 
     859                        ModifyGraph/W=$winNameStr mirror=2 
    832860                endif 
    833861        endif 
Note: See TracChangeset for help on using the changeset viewer.