Ignore:
Timestamp:
May 9, 2017 1:56:29 PM (6 years ago)
Author:
srkline
Message:

Adding procedures to allow trimming of data sets before concatenation. This is different than SANS, since the trimming and scaling choices must be made before reduction is done, since they must be part of the reduction protocol - as all data sets I(q) are part of the same data file.

How this is handled is still very much a work in progress...

File:
1 edited

Legend:

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

    r1035 r1038  
    117117        // TODO: 
    118118// x- "B" detector is currently skipped - Q is not yet calculated 
    119         String str,winStr="V_1D_Data" 
    120         sprintf str,"(\"%s\",%d,\"%s\")",workType,binType,winStr 
     119        String str,winStr="V_1D_Data",workPathStr 
     120        workPathStr = "root:Packages:NIST:VSANS:"+worktype 
     121         
     122        sprintf str,"(\"%s\",%d,\"%s\")",workPathStr,binType,winStr 
    121123         
    122124        Execute ("V_Back_IQ_Graph"+str) 
     
    397399// just rebin 
    398400// 
    399 // see V_CombineModePopup() in V_Combine_1D.ipf for a duplicate verison of this function 
     401// see V_CombineModePopup() in V_Combine_1D.ipf for a duplicate version of this function 
    400402// 
    401403Function V_BinningModePopup(ctrlName,popNum,popStr) : PopupMenuControl 
     
    408410        V_QBinAllPanels(type,popNum) 
    409411 
    410         String str,winStr="V_1D_Data" 
    411         sprintf str,"(\"%s\",%d,\"%s\")",type,popNum,winStr 
     412        String str,winStr="V_1D_Data",workTypeStr 
     413        workTypeStr = "root:Packages:NIST:VSANS:"+type 
     414         
     415        sprintf str,"(\"%s\",%d,\"%s\")",workTypeStr,popNum,winStr 
    412416 
    413417        Execute ("V_Back_IQ_Graph"+str) 
    414418        Execute ("V_Middle_IQ_Graph"+str) 
    415419        Execute ("V_Front_IQ_Graph"+str) 
    416                  
    417 //      Execute ("V_Back_IQ_Graph(\""+type+"\")") 
    418 //      Execute ("V_Middle_IQ_Graph(\""+type+"\")") 
    419 //      Execute ("V_Front_IQ_Graph(\""+type+"\")") 
     420 
    420421         
    421422        return(0)        
     
    447448// x- currently  hard-wired == 1 
    448449// 
    449 // input "type" is the data type and defines the folder 
    450 // 
    451 Proc V_Middle_IQ_Graph(type,binType,winNameStr)  
    452         String type 
     450// input "fullPathToFolder" is the data type and defines the folder,  
     451// i.e. "root:Packages:NIST:VSANS:"+"SAM" 
     452// 
     453Proc V_Middle_IQ_Graph(fullPathToFolder,binType,winNameStr)  
     454        String fullPathToFolder 
    453455        Variable binType 
    454456        String winNameStr 
    455457 
    456458//      binType = V_GetBinningPopMode() 
    457         SetDataFolder $("root:Packages:NIST:VSANS:"+type) 
     459        SetDataFolder $(fullPathToFolder) 
    458460 
    459461// clear EVERYTHING 
     
    474476                ClearIQIfDisplayed_AllFldr("MR",winNameStr)      
    475477                ClearIQIfDisplayed_AllFldr("MB",winNameStr)                      
    476                 SetDataFolder $("root:Packages:NIST:VSANS:"+type) 
     478                SetDataFolder $(fullPathToFolder) 
    477479                CheckDisplayed/W=$winNameStr iBin_qxqy_ML 
    478480                 
     
    515517         
    516518 
    517                 SetDataFolder $("root:Packages:NIST:VSANS:"+type) 
     519                SetDataFolder $(fullPathToFolder) 
    518520                CheckDisplayed/W=$winNameStr iBin_qxqy_MLR 
    519521                 
     
    555557//              ClearIQIfDisplayed_AllFldr("MB")         
    556558         
    557                 SetDataFolder $("root:Packages:NIST:VSANS:"+type) 
     559                SetDataFolder $(fullPathToFolder) 
    558560                CheckDisplayed/W=$winNameStr iBin_qxqy_MLRTB 
    559561                 
     
    590592//              ClearIQIfDisplayed_AllFldr("MTB") 
    591593                 
    592                 SetDataFolder $("root:Packages:NIST:VSANS:"+type) 
     594                SetDataFolder $(fullPathToFolder) 
    593595                CheckDisplayed/W=$winNameStr iBin_qxqy_ML 
    594596                 
     
    629631// x- error bars on the data 
    630632// 
    631 Proc V_Front_IQ_Graph(type,binType,winNameStr)  
    632         String type 
     633Proc V_Front_IQ_Graph(fullPathToFolder,binType,winNameStr)  
     634        String fullPathToFolder 
    633635        Variable binType 
    634636        String winNameStr 
     
    636638 
    637639//      binType = V_GetBinningPopMode() 
    638         SetDataFolder $("root:Packages:NIST:VSANS:"+type) 
     640        SetDataFolder $(fullPathToFolder) 
    639641 
    640642// clear EVERYTHING 
     
    660662                ClearIQIfDisplayed_AllFldr("FB",winNameStr) 
    661663                                 
    662                 SetDataFolder $("root:Packages:NIST:VSANS:"+type) 
     664                SetDataFolder $(fullPathToFolder) 
    663665                CheckDisplayed/W=$winNameStr iBin_qxqy_FL 
    664666                 
     
    703705//              ClearIQIfDisplayed_AllFldr("FB")         
    704706 
    705                 SetDataFolder $("root:Packages:NIST:VSANS:"+type) 
     707                SetDataFolder $(fullPathToFolder) 
    706708                CheckDisplayed/W=$winNameStr iBin_qxqy_FLR 
    707709                 
     
    745747//              ClearIQIfDisplayed_AllFldr("FB")         
    746748         
    747                 SetDataFolder $("root:Packages:NIST:VSANS:"+type) 
     749                SetDataFolder $(fullPathToFolder) 
    748750                CheckDisplayed/W=$winNameStr iBin_qxqy_FLRTB 
    749751                 
     
    782784//              ClearIQIfDisplayed_AllFldr("FTB") 
    783785                 
    784                 SetDataFolder $("root:Packages:NIST:VSANS:"+type) 
     786                SetDataFolder $(fullPathToFolder) 
    785787                CheckDisplayed/W=$winNameStr iBin_qxqy_FL 
    786788                 
     
    822824// 
    823825////////////to plot the back panel I(q) 
    824 Proc V_Back_IQ_Graph(type,binType,winNameStr) 
    825         String type 
     826Proc V_Back_IQ_Graph(fullPathToFolder,binType,winNameStr) 
     827        String fullPathToFolder 
    826828        Variable binType 
    827829        String winNameStr 
     
    834836         
    835837 
    836         SetDataFolder $("root:Packages:NIST:VSANS:"+type)        
     838        SetDataFolder $(fullPathToFolder)        
    837839 
    838840        if(binType==1 || binType==2 || binType==3) 
    839841         
    840842                ClearIQIfDisplayed_AllFldr("B",winNameStr) 
    841                 SetDataFolder $("root:Packages:NIST:VSANS:"+type)        
     843                SetDataFolder $(fullPathToFolder)        
    842844                CheckDisplayed/W=$winNameStr iBin_qxqy_B 
    843845                 
     
    845847                        AppendtoGraph/W=$winNameStr iBin_qxqy_B vs qBin_qxqy_B 
    846848                        ErrorBars/T=0 iBin_qxqy_B Y,wave=(:eBin_qxqy_B,:eBin_qxqy_B) 
    847                         ModifyGraph/W=$winNameStr mode=4 
    848 //                      ModifyGraph/W=$winNameStr marker=19 
     849                        ModifyGraph/W=$winNameStr mode(iBin_qxqy_B)=4 
    849850                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_B)=(1,52428,52428) 
    850 //                      ModifyGraph/W=$winNameStr msize=2 
    851                         ModifyGraph/W=$winNameStr grid=1 
    852                         ModifyGraph/W=$winNameStr log=1 
    853                         ModifyGraph/W=$winNameStr mirror=2 
    854                         ModifyGraph/W=$winNameStr msize(iBin_qxqy_B)=3,textMarker(iBin_qxqy_B)={"B","default",1,0,5,0.00,0.00} 
     851                        ModifyGraph/W=$winNameStr grid=1 
     852                        ModifyGraph/W=$winNameStr log=1 
     853                        ModifyGraph/W=$winNameStr mirror=2 
     854                        ModifyGraph/W=$winNameStr marker(iBin_qxqy_B)=19,msize(iBin_qxqy_B)=2 
     855//                      ModifyGraph/W=$winNameStr msize(iBin_qxqy_B)=3,textMarker(iBin_qxqy_B)={"B","default",1,0,5,0.00,0.00} 
    855856 
    856857                endif 
    857858                 
    858859//              ClearIQIfDisplayed_AllFldr("B") 
    859 //              SetDataFolder $("root:Packages:NIST:VSANS:"+type)        
     860//              SetDataFolder $(fullPathToFolder)        
    860861//              CheckDisplayed/W=V_1D_Data iBin_qxqy_B 
    861862//               
     
    882883                if(V_flag==0) 
    883884                        AppendtoGraph/W=$winNameStr iBin_qxqy_B vs qBin_qxqy_B 
    884                         ModifyGraph/W=$winNameStr mode=4 
    885                         ModifyGraph/W=$winNameStr marker=19 
     885                        ModifyGraph/W=$winNameStr mode(iBin_qxqy_B)=4 
     886                        ModifyGraph/W=$winNameStr marker(iBin_qxqy_B)=19 
    886887                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_B)=(1,52428,52428) 
    887                         ModifyGraph/W=$winNameStr msize=2 
     888                        ModifyGraph/W=$winNameStr msize(iBin_qxqy_B)=2 
    888889                        ModifyGraph/W=$winNameStr grid=1 
    889890                        ModifyGraph/W=$winNameStr log=1 
     
    896897End 
    897898 
     899 
     900 
     901//      type = the data folder 
     902// binType = numerical index of the bin type (1->4) 
     903//  one;two;four;slit 
     904// winNameStr = the name of the target window 
     905// 
     906////////////to plot the back panel I(q) 
     907Proc V_Back_IQ_Graph_trim(fullPathToFolder,binType,winNameStr) 
     908        String fullPathToFolder 
     909        Variable binType 
     910        String winNameStr 
     911         
     912//      SetDataFolder root:Packages:NIST:VSANS:VCALC:entry:instrument:detector_B 
     913 
     914//      Variable binType 
     915 
     916//      binType = V_GetBinningPopMode() 
     917         
     918 
     919        SetDataFolder $(fullPathToFolder)        
     920 
     921        if(binType==1 || binType==2 || binType==3) 
     922         
     923                ClearIQIfDisplayed_AllFldr("B_trim",winNameStr) 
     924                SetDataFolder $(fullPathToFolder)        
     925                CheckDisplayed/W=$winNameStr iBin_qxqy_B_trim 
     926                 
     927                if(V_flag==0) 
     928                        AppendtoGraph/W=$winNameStr iBin_qxqy_B_trim vs qBin_qxqy_B_trim 
     929                        ErrorBars/T=0 iBin_qxqy_B_trim Y,wave=(:eBin_qxqy_B_trim,:eBin_qxqy_B_trim) 
     930                        ModifyGraph/W=$winNameStr mode(iBin_qxqy_B_trim)=4 
     931                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_B_trim)=(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_trim)=19,msize(iBin_qxqy_B_trim)=3 
     936//                      ModifyGraph/W=$winNameStr msize(iBin_qxqy_B_trim)=3,textMarker(iBin_qxqy_B_trim)={"B","default",1,0,5,0.00,0.00} 
     937 
     938                endif 
     939                 
     940//              ClearIQIfDisplayed_AllFldr("B_trim") 
     941//              SetDataFolder $(fullPathToFolder)        
     942//              CheckDisplayed/W=V_1D_Data iBin_qxqy_B_trim 
     943//               
     944//              if(V_flag==0) 
     945//                      AppendtoGraph/W=V_1D_Data iBin_qxqy_B_trim vs qBin_qxqy_B_trim 
     946//                      ModifyGraph/W=V_1D_Data mode=4 
     947//                      ModifyGraph/W=V_1D_Data marker=19 
     948//                      ModifyGraph/W=V_1D_Data rgb(iBin_qxqy_B_trim)=(1,52428,52428) 
     949//                      ModifyGraph/W=V_1D_Data msize=2 
     950//                      ModifyGraph/W=V_1D_Data grid=1 
     951//                      ModifyGraph/W=V_1D_Data log=1 
     952//                      ModifyGraph/W=V_1D_Data mirror=2 
     953//              endif 
     954                 
     955        endif 
     956 
     957        //nothing different here since there is ony a single detector to display, but for the future... 
     958        if(binType==4) 
     959         
     960                ClearIQIfDisplayed_AllFldr("B_trim",winNameStr) 
     961                SetDataFolder $("root:Packages:NIST:VSANS:"+type)        
     962                CheckDisplayed/W=$winNameStr iBin_qxqy_B_trim 
     963                 
     964                if(V_flag==0) 
     965                        AppendtoGraph/W=$winNameStr iBin_qxqy_B_trim vs qBin_qxqy_B_trim 
     966                        ModifyGraph/W=$winNameStr mode(iBin_qxqy_B_trim)=4 
     967                        ModifyGraph/W=$winNameStr marker(iBin_qxqy_B_trim)=19 
     968                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_B_trim)=(1,52428,52428) 
     969                        ModifyGraph/W=$winNameStr msize(iBin_qxqy_B_trim)=3 
     970                        ModifyGraph/W=$winNameStr grid=1 
     971                        ModifyGraph/W=$winNameStr log=1 
     972                        ModifyGraph/W=$winNameStr mirror=2 
     973                endif 
     974        endif 
     975 
     976         
     977        SetDataFolder root: 
     978End 
     979 
     980 
     981// TODO 
     982// x- need to set binType 
     983// x- currently  hard-wired == 1 
     984// 
     985// input "fullPathToFolder" is the data type and defines the folder,  
     986// i.e. "root:Packages:NIST:VSANS:"+"SAM" 
     987// 
     988Proc V_Middle_IQ_Graph_trim(fullPathToFolder,binType,winNameStr)  
     989        String fullPathToFolder 
     990        Variable binType 
     991        String winNameStr 
     992 
     993//      binType = V_GetBinningPopMode() 
     994        SetDataFolder $(fullPathToFolder) 
     995 
     996// clear EVERYTHING 
     997//              ClearIQIfDisplayed_AllFldr("MLRTB") 
     998//              ClearIQIfDisplayed_AllFldr("MLR") 
     999//              ClearIQIfDisplayed_AllFldr("MTB")               //this returns to root: 
     1000//              ClearIQIfDisplayed_AllFldr("MT")         
     1001//              ClearIQIfDisplayed_AllFldr("ML")         
     1002//              ClearIQIfDisplayed_AllFldr("MR")         
     1003//              ClearIQIfDisplayed_AllFldr("MB")         
     1004 
     1005        if(binType==1) 
     1006                ClearIQIfDisplayed_AllFldr("MLRTB_trim",winNameStr) 
     1007                ClearIQIfDisplayed_AllFldr("MLR_trim",winNameStr) 
     1008                ClearIQIfDisplayed_AllFldr("MTB_trim",winNameStr)               //this returns to root: 
     1009                ClearIQIfDisplayed_AllFldr("MT_trim",winNameStr)         
     1010                ClearIQIfDisplayed_AllFldr("ML_trim",winNameStr)         
     1011                ClearIQIfDisplayed_AllFldr("MR_trim",winNameStr)         
     1012                ClearIQIfDisplayed_AllFldr("MB_trim",winNameStr)                         
     1013                SetDataFolder $(fullPathToFolder) 
     1014                CheckDisplayed/W=$winNameStr iBin_qxqy_ML_trim 
     1015                 
     1016                if(V_flag==0) 
     1017                        AppendtoGraph/W=$winNameStr iBin_qxqy_ML_trim vs qBin_qxqy_ML_trim 
     1018                        AppendToGraph/W=$winNameStr iBin_qxqy_MR_trim vs qBin_qxqy_MR_trim 
     1019                        AppendToGraph/W=$winNameStr iBin_qxqy_MT_trim vs qBin_qxqy_MT_trim 
     1020                        AppendToGraph/W=$winNameStr iBin_qxqy_MB_trim vs qBin_qxqy_MB_trim 
     1021                        ErrorBars/T=0 iBin_qxqy_ML_trim Y,wave=(:eBin_qxqy_ML_trim,:eBin_qxqy_ML_trim) 
     1022                        ErrorBars/T=0 iBin_qxqy_MR_trim Y,wave=(:eBin_qxqy_MR_trim,:eBin_qxqy_MR_trim) 
     1023                        ErrorBars/T=0 iBin_qxqy_MT_trim Y,wave=(:eBin_qxqy_MT_trim,:eBin_qxqy_MT_trim) 
     1024                        ErrorBars/T=0 iBin_qxqy_MB_trim Y,wave=(:eBin_qxqy_MB_trim,:eBin_qxqy_MB_trim) 
     1025                         
     1026                        ModifyGraph/W=$winNameStr mode(iBin_qxqy_ML_trim)=4 
     1027                        ModifyGraph/W=$winNameStr mode(iBin_qxqy_MR_trim)=4 
     1028                        ModifyGraph/W=$winNameStr mode(iBin_qxqy_MT_trim)=4 
     1029                        ModifyGraph/W=$winNameStr mode(iBin_qxqy_MB_trim)=4 
     1030                        ModifyGraph/W=$winNameStr marker(iBin_qxqy_ML_trim)=19 
     1031                        ModifyGraph/W=$winNameStr marker(iBin_qxqy_MR_trim)=19 
     1032                        ModifyGraph/W=$winNameStr marker(iBin_qxqy_MT_trim)=19 
     1033                        ModifyGraph/W=$winNameStr marker(iBin_qxqy_MB_trim)=19 
     1034                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_ML_trim)=(65535,0,0),rgb(iBin_qxqy_MB_trim)=(1,16019,65535),rgb(iBin_qxqy_MR_trim)=(65535,0,0),rgb(iBin_qxqy_MT_trim)=(1,16019,65535) 
     1035                        ModifyGraph/W=$winNameStr msize(iBin_qxqy_ML_trim)=3 
     1036                        ModifyGraph/W=$winNameStr msize(iBin_qxqy_MR_trim)=3 
     1037                        ModifyGraph/W=$winNameStr msize(iBin_qxqy_MT_trim)=3 
     1038                        ModifyGraph/W=$winNameStr msize(iBin_qxqy_MB_trim)=3 
     1039                        ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_ML_trim)={0,4},muloffset(iBin_qxqy_MB_trim)={0,2},muloffset(iBin_qxqy_MR_trim)={0,8} 
     1040                        ModifyGraph/W=$winNameStr grid=1 
     1041                        ModifyGraph/W=$winNameStr log=1 
     1042                        ModifyGraph/W=$winNameStr mirror=2 
     1043                endif            
     1044        endif 
     1045         
     1046        if(binType==2) 
     1047// clear EVERYTHING 
     1048                ClearIQIfDisplayed_AllFldr("MLRTB_trim",winNameStr) 
     1049                ClearIQIfDisplayed_AllFldr("MLR_trim",winNameStr) 
     1050                ClearIQIfDisplayed_AllFldr("MTB_trim",winNameStr)               //this returns to root: 
     1051                ClearIQIfDisplayed_AllFldr("MT_trim",winNameStr)         
     1052                ClearIQIfDisplayed_AllFldr("ML_trim",winNameStr)         
     1053                ClearIQIfDisplayed_AllFldr("MR_trim",winNameStr)         
     1054                ClearIQIfDisplayed_AllFldr("MB_trim",winNameStr)                 
     1055         
     1056//              ClearIQIfDisplayed_AllFldr("MLRTB") 
     1057//              ClearIQIfDisplayed_AllFldr("MT")         
     1058//              ClearIQIfDisplayed_AllFldr("ML")         
     1059//              ClearIQIfDisplayed_AllFldr("MR")         
     1060//              ClearIQIfDisplayed_AllFldr("MB") 
     1061         
     1062 
     1063                SetDataFolder $(fullPathToFolder) 
     1064                CheckDisplayed/W=$winNameStr iBin_qxqy_MLR_trim 
     1065                 
     1066                if(V_flag==0) 
     1067                        AppendtoGraph/W=$winNameStr iBin_qxqy_MLR_trim vs qBin_qxqy_MLR_trim 
     1068                        AppendToGraph/W=$winNameStr iBin_qxqy_MTB_trim vs qBin_qxqy_MTB_trim 
     1069                        ErrorBars/T=0 iBin_qxqy_MLR_trim Y,wave=(:eBin_qxqy_MLR_trim,:eBin_qxqy_MLR_trim) 
     1070                        ErrorBars/T=0 iBin_qxqy_MTB_trim Y,wave=(:eBin_qxqy_MTB_trim,:eBin_qxqy_MTB_trim) 
     1071                         
     1072                        ModifyGraph/W=$winNameStr mode(iBin_qxqy_MLR_trim)=4 
     1073                        ModifyGraph/W=$winNameStr mode(iBin_qxqy_MTB_trim)=4 
     1074                        ModifyGraph/W=$winNameStr marker(iBin_qxqy_MLR_trim)=19 
     1075                        ModifyGraph/W=$winNameStr marker(iBin_qxqy_MTB_trim)=19 
     1076                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_MLR_trim)=(65535,0,0),rgb(iBin_qxqy_MTB_trim)=(1,16019,65535) 
     1077                        ModifyGraph/W=$winNameStr msize(iBin_qxqy_MLR_trim)=3 
     1078                        ModifyGraph/W=$winNameStr msize(iBin_qxqy_MTB_trim)=3 
     1079                        ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_MLR_trim)={0,2} 
     1080                        ModifyGraph/W=$winNameStr grid=1 
     1081                        ModifyGraph/W=$winNameStr log=1 
     1082                        ModifyGraph/W=$winNameStr mirror=2 
     1083                        Label/W=$winNameStr left "Intensity (1/cm)" 
     1084                        Label/W=$winNameStr bottom "Q (1/A)" 
     1085                endif    
     1086                         
     1087        endif 
     1088         
     1089        if(binType==3) 
     1090// clear EVERYTHING 
     1091                ClearIQIfDisplayed_AllFldr("MLRTB_trim",winNameStr) 
     1092                ClearIQIfDisplayed_AllFldr("MLR_trim",winNameStr) 
     1093                ClearIQIfDisplayed_AllFldr("MTB_trim",winNameStr)               //this returns to root: 
     1094                ClearIQIfDisplayed_AllFldr("MT_trim",winNameStr)         
     1095                ClearIQIfDisplayed_AllFldr("ML_trim",winNameStr)         
     1096                ClearIQIfDisplayed_AllFldr("MR_trim",winNameStr)         
     1097                ClearIQIfDisplayed_AllFldr("MB_trim",winNameStr)                 
     1098         
     1099//              ClearIQIfDisplayed_AllFldr("MLR") 
     1100//              ClearIQIfDisplayed_AllFldr("MTB")        
     1101//              ClearIQIfDisplayed_AllFldr("MT")         
     1102//              ClearIQIfDisplayed_AllFldr("ML")         
     1103//              ClearIQIfDisplayed_AllFldr("MR")         
     1104//              ClearIQIfDisplayed_AllFldr("MB")         
     1105         
     1106                SetDataFolder $(fullPathToFolder) 
     1107                CheckDisplayed/W=$winNameStr iBin_qxqy_MLRTB_trim 
     1108                 
     1109                if(V_flag==0) 
     1110                        AppendtoGraph/W=$winNameStr iBin_qxqy_MLRTB_trim vs qBin_qxqy_MLRTB_trim 
     1111                        ErrorBars/T=0 iBin_qxqy_MLRTB_trim Y,wave=(:eBin_qxqy_MLRTB_trim,:eBin_qxqy_MLRTB_trim) 
     1112                         
     1113                        ModifyGraph/W=$winNameStr mode(iBin_qxqy_MLRTB_trim)=4 
     1114                        ModifyGraph/W=$winNameStr marker(iBin_qxqy_MLRTB_trim)=19 
     1115                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_MLRTB_trim)=(65535,0,0) 
     1116                        ModifyGraph/W=$winNameStr msize(iBin_qxqy_MLRTB_trim)=3 
     1117                        ModifyGraph/W=$winNameStr grid=1 
     1118                        ModifyGraph/W=$winNameStr log=1 
     1119                        ModifyGraph/W=$winNameStr mirror=2 
     1120                        Label/W=$winNameStr left "Intensity (1/cm)" 
     1121                        Label/W=$winNameStr bottom "Q (1/A)" 
     1122                endif    
     1123                         
     1124        endif 
     1125 
     1126        if(binType==4)          // slit aperture binning - MT, ML, MR, MB are averaged 
     1127// clear EVERYTHING 
     1128                ClearIQIfDisplayed_AllFldr("MLRTB_trim",winNameStr) 
     1129                ClearIQIfDisplayed_AllFldr("MLR_trim",winNameStr) 
     1130                ClearIQIfDisplayed_AllFldr("MTB_trim",winNameStr)               //this returns to root: 
     1131                ClearIQIfDisplayed_AllFldr("MT_trim",winNameStr)         
     1132                ClearIQIfDisplayed_AllFldr("ML_trim",winNameStr)         
     1133                ClearIQIfDisplayed_AllFldr("MR_trim",winNameStr)         
     1134                ClearIQIfDisplayed_AllFldr("MB_trim",winNameStr)                 
     1135         
     1136         
     1137//              ClearIQIfDisplayed_AllFldr("MLRTB") 
     1138//              ClearIQIfDisplayed_AllFldr("MLR") 
     1139//              ClearIQIfDisplayed_AllFldr("MTB") 
     1140                 
     1141                SetDataFolder $(fullPathToFolder) 
     1142                CheckDisplayed/W=$winNameStr iBin_qxqy_ML_trim 
     1143                 
     1144                if(V_flag==0) 
     1145                        AppendToGraph/W=$winNameStr iBin_qxqy_ML_trim vs qBin_qxqy_ML_trim 
     1146                        AppendToGraph/W=$winNameStr iBin_qxqy_MR_trim vs qBin_qxqy_MR_trim 
     1147                        AppendToGraph/W=$winNameStr iBin_qxqy_MT_trim vs qBin_qxqy_MT_trim 
     1148                        AppendToGraph/W=$winNameStr iBin_qxqy_MB_trim vs qBin_qxqy_MB_trim 
     1149                        ErrorBars/T=0 iBin_qxqy_ML_trim Y,wave=(:eBin_qxqy_ML_trim,:eBin_qxqy_ML_trim) 
     1150                        ErrorBars/T=0 iBin_qxqy_MR_trim Y,wave=(:eBin_qxqy_MR_trim,:eBin_qxqy_MR_trim) 
     1151                        ErrorBars/T=0 iBin_qxqy_MT_trim Y,wave=(:eBin_qxqy_MT_trim,:eBin_qxqy_MT_trim) 
     1152                        ErrorBars/T=0 iBin_qxqy_MB_trim Y,wave=(:eBin_qxqy_MB_trim,:eBin_qxqy_MB_trim) 
     1153                         
     1154                        ModifyGraph/W=$winNameStr mode(iBin_qxqy_ML_trim)=4 
     1155                        ModifyGraph/W=$winNameStr mode(iBin_qxqy_MR_trim)=4 
     1156                        ModifyGraph/W=$winNameStr mode(iBin_qxqy_MT_trim)=4 
     1157                        ModifyGraph/W=$winNameStr mode(iBin_qxqy_MB_trim)=4 
     1158                        ModifyGraph/W=$winNameStr marker(iBin_qxqy_ML_trim)=19 
     1159                        ModifyGraph/W=$winNameStr marker(iBin_qxqy_MR_trim)=19 
     1160                        ModifyGraph/W=$winNameStr marker(iBin_qxqy_MT_trim)=19 
     1161                        ModifyGraph/W=$winNameStr marker(iBin_qxqy_MB_trim)=19 
     1162                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_ML_trim)=(65535,0,0),rgb(iBin_qxqy_MB_trim)=(1,16019,65535),rgb(iBin_qxqy_MR_trim)=(65535,0,0),rgb(iBin_qxqy_MT_trim)=(1,16019,65535) 
     1163                        ModifyGraph/W=$winNameStr msize(iBin_qxqy_ML_trim)=3 
     1164                        ModifyGraph/W=$winNameStr msize(iBin_qxqy_MR_trim)=3 
     1165                        ModifyGraph/W=$winNameStr msize(iBin_qxqy_MT_trim)=3 
     1166                        ModifyGraph/W=$winNameStr msize(iBin_qxqy_MB_trim)=3 
     1167                        ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_ML_trim)={0,4},muloffset(iBin_qxqy_MB_trim)={0,2},muloffset(iBin_qxqy_MR_trim)={0,8} 
     1168                        ModifyGraph/W=$winNameStr grid=1 
     1169                        ModifyGraph/W=$winNameStr log=1 
     1170                        ModifyGraph/W=$winNameStr mirror=2 
     1171                endif            
     1172                         
     1173        endif 
     1174         
     1175        SetDataFolder root: 
     1176End 
     1177 
     1178 
     1179 
     1180 
     1181// TODO 
     1182// x- need to set binType 
     1183// x- currently  hard-wired == 1 
     1184// x- error bars on the data 
     1185// 
     1186Proc V_Front_IQ_Graph_trim(fullPathToFolder,binType,winNameStr)  
     1187        String fullPathToFolder 
     1188        Variable binType 
     1189        String winNameStr 
     1190 
     1191 
     1192//      binType = V_GetBinningPopMode() 
     1193        SetDataFolder $(fullPathToFolder) 
     1194 
     1195// clear EVERYTHING 
     1196//              ClearIQIfDisplayed_AllFldr("FLRTB") 
     1197//               
     1198//              ClearIQIfDisplayed_AllFldr("FLR") 
     1199//              ClearIQIfDisplayed_AllFldr("FTB") 
     1200// 
     1201//              ClearIQIfDisplayed_AllFldr("FT")         
     1202//              ClearIQIfDisplayed_AllFldr("FL")         
     1203//              ClearIQIfDisplayed_AllFldr("FR")         
     1204//              ClearIQIfDisplayed_AllFldr("FB") 
     1205                 
     1206        if(binType==1) 
     1207                ClearIQIfDisplayed_AllFldr("FLRTB_trim",winNameStr) 
     1208                 
     1209                ClearIQIfDisplayed_AllFldr("FLR_trim",winNameStr) 
     1210                ClearIQIfDisplayed_AllFldr("FTB_trim",winNameStr) 
     1211 
     1212                ClearIQIfDisplayed_AllFldr("FT_trim",winNameStr)         
     1213                ClearIQIfDisplayed_AllFldr("FL_trim",winNameStr)         
     1214                ClearIQIfDisplayed_AllFldr("FR_trim",winNameStr)         
     1215                ClearIQIfDisplayed_AllFldr("FB_trim",winNameStr) 
     1216                                 
     1217                SetDataFolder $(fullPathToFolder) 
     1218                CheckDisplayed/W=$winNameStr iBin_qxqy_FL_trim 
     1219                 
     1220                if(V_flag==0) 
     1221                        AppendtoGraph/W=$winNameStr iBin_qxqy_FL_trim vs qBin_qxqy_FL_trim 
     1222                        AppendToGraph/W=$winNameStr iBin_qxqy_FR_trim vs qBin_qxqy_FR_trim 
     1223                        AppendToGraph/W=$winNameStr iBin_qxqy_FT_trim vs qBin_qxqy_FT_trim 
     1224                        AppendToGraph/W=$winNameStr iBin_qxqy_FB_trim vs qBin_qxqy_FB_trim 
     1225                        ErrorBars/T=0 iBin_qxqy_FL_trim Y,wave=(:eBin_qxqy_FL_trim,:eBin_qxqy_FL_trim) 
     1226                        ErrorBars/T=0 iBin_qxqy_FR_trim Y,wave=(:eBin_qxqy_FR_trim,:eBin_qxqy_FR_trim) 
     1227                        ErrorBars/T=0 iBin_qxqy_FT_trim Y,wave=(:eBin_qxqy_FT_trim,:eBin_qxqy_FT_trim) 
     1228                        ErrorBars/T=0 iBin_qxqy_FB_trim Y,wave=(:eBin_qxqy_FB_trim,:eBin_qxqy_FB_trim) 
     1229 
     1230                        ModifyGraph/W=$winNameStr mode(iBin_qxqy_FL_trim)=4 
     1231                        ModifyGraph/W=$winNameStr mode(iBin_qxqy_FR_trim)=4 
     1232                        ModifyGraph/W=$winNameStr mode(iBin_qxqy_FT_trim)=4 
     1233                        ModifyGraph/W=$winNameStr mode(iBin_qxqy_FB_trim)=4 
     1234                        ModifyGraph/W=$winNameStr marker(iBin_qxqy_FL_trim)=19 
     1235                        ModifyGraph/W=$winNameStr marker(iBin_qxqy_FR_trim)=19 
     1236                        ModifyGraph/W=$winNameStr marker(iBin_qxqy_FT_trim)=19 
     1237                        ModifyGraph/W=$winNameStr marker(iBin_qxqy_FB_trim)=19 
     1238                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_FL_trim)=(39321,26208,1),rgb(iBin_qxqy_FB_trim)=(2,39321,1),rgb(iBin_qxqy_FR_trim)=(39321,26208,1),rgb(iBin_qxqy_FT_trim)=(2,39321,1) 
     1239                        ModifyGraph/W=$winNameStr msize(iBin_qxqy_FL_trim)=3 
     1240                        ModifyGraph/W=$winNameStr msize(iBin_qxqy_FR_trim)=3 
     1241                        ModifyGraph/W=$winNameStr msize(iBin_qxqy_FT_trim)=3 
     1242                        ModifyGraph/W=$winNameStr msize(iBin_qxqy_FB_trim)=3 
     1243                        ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_FL_trim)={0,4},muloffset(iBin_qxqy_FB_trim)={0,2},muloffset(iBin_qxqy_FR_trim)={0,8} 
     1244                        ModifyGraph/W=$winNameStr grid=1 
     1245                        ModifyGraph/W=$winNameStr log=1 
     1246                        ModifyGraph/W=$winNameStr mirror=2 
     1247                        Label/W=$winNameStr left "Intensity (1/cm)" 
     1248                        Label/W=$winNameStr bottom "Q (1/A)" 
     1249                endif            
     1250        endif 
     1251         
     1252        if(binType==2) 
     1253        // clear EVERYTHING 
     1254                ClearIQIfDisplayed_AllFldr("FLRTB_trim",winNameStr) 
     1255                 
     1256                ClearIQIfDisplayed_AllFldr("FLR_trim",winNameStr) 
     1257                ClearIQIfDisplayed_AllFldr("FTB_trim",winNameStr) 
     1258 
     1259                ClearIQIfDisplayed_AllFldr("FT_trim",winNameStr)         
     1260                ClearIQIfDisplayed_AllFldr("FL_trim",winNameStr)         
     1261                ClearIQIfDisplayed_AllFldr("FR_trim",winNameStr)         
     1262                ClearIQIfDisplayed_AllFldr("FB_trim",winNameStr) 
     1263//              ClearIQIfDisplayed_AllFldr("FLRTB") 
     1264//              ClearIQIfDisplayed_AllFldr("FT")         
     1265//              ClearIQIfDisplayed_AllFldr("FL")         
     1266//              ClearIQIfDisplayed_AllFldr("FR")         
     1267//              ClearIQIfDisplayed_AllFldr("FB")         
     1268 
     1269                SetDataFolder $(fullPathToFolder) 
     1270                CheckDisplayed/W=$winNameStr iBin_qxqy_FLR_trim 
     1271                 
     1272                if(V_flag==0) 
     1273                        AppendtoGraph/W=$winNameStr iBin_qxqy_FLR_trim vs qBin_qxqy_FLR_trim 
     1274                        AppendToGraph/W=$winNameStr iBin_qxqy_FTB_trim vs qBin_qxqy_FTB_trim 
     1275                        ErrorBars/T=0 iBin_qxqy_FLR_trim Y,wave=(:eBin_qxqy_FLR_trim,:eBin_qxqy_FLR_trim) 
     1276                        ErrorBars/T=0 iBin_qxqy_FTB_trim Y,wave=(:eBin_qxqy_FTB_trim,:eBin_qxqy_FTB_trim) 
     1277 
     1278                        ModifyGraph/W=$winNameStr mode(iBin_qxqy_FLR_trim)=4 
     1279                        ModifyGraph/W=$winNameStr mode(iBin_qxqy_FTB_trim)=4 
     1280                        ModifyGraph/W=$winNameStr marker(iBin_qxqy_FLR_trim)=19 
     1281                        ModifyGraph/W=$winNameStr marker(iBin_qxqy_FTB_trim)=19 
     1282                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_FLR_trim)=(39321,26208,1),rgb(iBin_qxqy_FTB_trim)=(2,39321,1) 
     1283                        ModifyGraph/W=$winNameStr msize(iBin_qxqy_FLR_trim)=3 
     1284                        ModifyGraph/W=$winNameStr msize(iBin_qxqy_FTB_trim)=3 
     1285                        ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_FLR_trim)={0,2} 
     1286                        ModifyGraph/W=$winNameStr grid=1 
     1287                        ModifyGraph/W=$winNameStr log=1 
     1288                        ModifyGraph/W=$winNameStr mirror=2 
     1289//                      Label/W=$winNameStr left "Intensity (1/cm)" 
     1290//                      Label/W=$winNameStr bottom "Q (1/A)" 
     1291                endif    
     1292                         
     1293        endif 
     1294         
     1295        if(binType==3) 
     1296// clear EVERYTHING 
     1297                ClearIQIfDisplayed_AllFldr("FLRTB_trim",winNameStr) 
     1298                 
     1299                ClearIQIfDisplayed_AllFldr("FLR_trim",winNameStr) 
     1300                ClearIQIfDisplayed_AllFldr("FTB_trim",winNameStr) 
     1301 
     1302                ClearIQIfDisplayed_AllFldr("FT_trim",winNameStr)         
     1303                ClearIQIfDisplayed_AllFldr("FL_trim",winNameStr)         
     1304                ClearIQIfDisplayed_AllFldr("FR_trim",winNameStr)         
     1305                ClearIQIfDisplayed_AllFldr("FB_trim",winNameStr)         
     1306         
     1307//              ClearIQIfDisplayed_AllFldr("FLR") 
     1308//              ClearIQIfDisplayed_AllFldr("FTB")        
     1309//              ClearIQIfDisplayed_AllFldr("FT")         
     1310//              ClearIQIfDisplayed_AllFldr("FL")         
     1311//              ClearIQIfDisplayed_AllFldr("FR")         
     1312//              ClearIQIfDisplayed_AllFldr("FB")         
     1313         
     1314                SetDataFolder $(fullPathToFolder) 
     1315                CheckDisplayed/W=$winNameStr iBin_qxqy_FLRTB_trim 
     1316                 
     1317                if(V_flag==0) 
     1318                        AppendtoGraph/W=$winNameStr iBin_qxqy_FLRTB_trim vs qBin_qxqy_FLRTB_trim 
     1319                        ErrorBars/T=0 iBin_qxqy_FLRTB_trim Y,wave=(:eBin_qxqy_FLRTB_trim,:eBin_qxqy_FLRTB_trim) 
     1320 
     1321                        ModifyGraph/W=$winNameStr mode(iBin_qxqy_FLRTB_trim)=4 
     1322                        ModifyGraph/W=$winNameStr marker(iBin_qxqy_FLRTB_trim)=19 
     1323                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_FLRTB_trim)=(39321,26208,1) 
     1324                        ModifyGraph/W=$winNameStr msize(iBin_qxqy_FLRTB_trim)=3 
     1325                        ModifyGraph/W=$winNameStr grid=1 
     1326                        ModifyGraph/W=$winNameStr log=1 
     1327                        ModifyGraph/W=$winNameStr mirror=2 
     1328                        Label/W=$winNameStr left "Intensity (1/cm)" 
     1329                        Label/W=$winNameStr bottom "Q (1/A)" 
     1330                endif    
     1331                         
     1332        endif 
     1333 
     1334        if(binType==4)          // slit aperture binning - MT, ML, MR, MB are averaged 
     1335// clear EVERYTHING 
     1336                ClearIQIfDisplayed_AllFldr("FLRTB_trim",winNameStr) 
     1337                 
     1338                ClearIQIfDisplayed_AllFldr("FLR_trim",winNameStr) 
     1339                ClearIQIfDisplayed_AllFldr("FTB_trim",winNameStr) 
     1340 
     1341                ClearIQIfDisplayed_AllFldr("FT_trim",winNameStr)         
     1342                ClearIQIfDisplayed_AllFldr("FL_trim",winNameStr)         
     1343                ClearIQIfDisplayed_AllFldr("FR_trim",winNameStr)         
     1344                ClearIQIfDisplayed_AllFldr("FB_trim",winNameStr)         
     1345         
     1346         
     1347//              ClearIQIfDisplayed_AllFldr("FLRTB") 
     1348//              ClearIQIfDisplayed_AllFldr("FLR") 
     1349//              ClearIQIfDisplayed_AllFldr("FTB") 
     1350                 
     1351                SetDataFolder $(fullPathToFolder) 
     1352                CheckDisplayed/W=$winNameStr iBin_qxqy_FL_trim 
     1353                 
     1354                if(V_flag==0) 
     1355                        AppendtoGraph/W=$winNameStr iBin_qxqy_FL_trim vs qBin_qxqy_FL_trim 
     1356                        AppendToGraph/W=$winNameStr iBin_qxqy_FR_trim vs qBin_qxqy_FR_trim 
     1357                        AppendToGraph/W=$winNameStr iBin_qxqy_FT_trim vs qBin_qxqy_FT_trim 
     1358                        AppendToGraph/W=$winNameStr iBin_qxqy_FB_trim vs qBin_qxqy_FB_trim 
     1359                        ErrorBars/T=0 iBin_qxqy_FL_trim Y,wave=(:eBin_qxqy_FL_trim,:eBin_qxqy_FL_trim) 
     1360                        ErrorBars/T=0 iBin_qxqy_FR_trim Y,wave=(:eBin_qxqy_FR_trim,:eBin_qxqy_FR_trim) 
     1361                        ErrorBars/T=0 iBin_qxqy_FT_trim Y,wave=(:eBin_qxqy_FT_trim,:eBin_qxqy_FT_trim) 
     1362                        ErrorBars/T=0 iBin_qxqy_FB_trim Y,wave=(:eBin_qxqy_FB_trim,:eBin_qxqy_FB_trim) 
     1363                         
     1364                        ModifyGraph/W=$winNameStr mode(iBin_qxqy_FL_trim)=4 
     1365                        ModifyGraph/W=$winNameStr mode(iBin_qxqy_FR_trim)=4 
     1366                        ModifyGraph/W=$winNameStr mode(iBin_qxqy_FT_trim)=4 
     1367                        ModifyGraph/W=$winNameStr mode(iBin_qxqy_FB_trim)=4 
     1368                        ModifyGraph/W=$winNameStr marker(iBin_qxqy_FL_trim)=19 
     1369                        ModifyGraph/W=$winNameStr marker(iBin_qxqy_FR_trim)=19 
     1370                        ModifyGraph/W=$winNameStr marker(iBin_qxqy_FT_trim)=19 
     1371                        ModifyGraph/W=$winNameStr marker(iBin_qxqy_FB_trim)=19 
     1372                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_FL_trim)=(39321,26208,1),rgb(iBin_qxqy_FB_trim)=(2,39321,1),rgb(iBin_qxqy_FR_trim)=(39321,26208,1),rgb(iBin_qxqy_FT_trim)=(2,39321,1) 
     1373                        ModifyGraph/W=$winNameStr msize(iBin_qxqy_FL_trim)=3 
     1374                        ModifyGraph/W=$winNameStr msize(iBin_qxqy_FR_trim)=3 
     1375                        ModifyGraph/W=$winNameStr msize(iBin_qxqy_FT_trim)=3 
     1376                        ModifyGraph/W=$winNameStr msize(iBin_qxqy_FB_trim)=3 
     1377                        ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_FL_trim)={0,4},muloffset(iBin_qxqy_FB_trim)={0,2},muloffset(iBin_qxqy_FR_trim)={0,8} 
     1378                        ModifyGraph/W=$winNameStr grid=1 
     1379                        ModifyGraph/W=$winNameStr log=1 
     1380                        ModifyGraph/W=$winNameStr mirror=2 
     1381                endif            
     1382                         
     1383        endif 
     1384         
     1385        SetDataFolder root: 
     1386End 
     1387 
Note: See TracChangeset for help on using the changeset viewer.