Ignore:
Timestamp:
May 18, 2017 11:34:30 AM (6 years ago)
Author:
srkline
Message:

changes to incorporate trimming and plotting of data that has been saved as individual detector I(q), as Igor .itx format. This allows the trimming parameters to be set for each detector panel, which can then be used during the reduction protocol to automatically trim and combine the panels. Next step is to incorporate this into the actual protocol definintion by expanding the current definition.

File:
1 edited

Legend:

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

    r1038 r1039  
    460460 
    461461// clear EVERYTHING 
    462 //              ClearIQIfDisplayed_AllFldr("MLRTB") 
    463 //              ClearIQIfDisplayed_AllFldr("MLR") 
    464 //              ClearIQIfDisplayed_AllFldr("MTB")               //this returns to root: 
    465 //              ClearIQIfDisplayed_AllFldr("MT")         
    466 //              ClearIQIfDisplayed_AllFldr("ML")         
    467 //              ClearIQIfDisplayed_AllFldr("MR")         
    468 //              ClearIQIfDisplayed_AllFldr("MB")         
     462 
    469463 
    470464        if(binType==1) 
     
    921915        if(binType==1 || binType==2 || binType==3) 
    922916         
    923                 ClearIQIfDisplayed_AllFldr("B_trim",winNameStr) 
     917//              ClearIQIfDisplayed_AllFldr("B_trim",winNameStr) 
     918                CheckDisplayed/W=$winNameStr $("iBin_qxqy_B_trim") 
     919                if(V_flag==1) 
     920                        RemoveFromGraph/W=$winNameStr $("iBin_qxqy_B_trim") 
     921                endif 
    924922                SetDataFolder $(fullPathToFolder)        
    925923                CheckDisplayed/W=$winNameStr iBin_qxqy_B_trim 
     
    958956        if(binType==4) 
    959957         
    960                 ClearIQIfDisplayed_AllFldr("B_trim",winNameStr) 
     958//              ClearIQIfDisplayed_AllFldr("B_trim",winNameStr) 
     959                CheckDisplayed/W=$winNameStr $("iBin_qxqy_B_trim") 
     960                if(V_flag==1) 
     961                        RemoveFromGraph/W=$winNameStr $("iBin_qxqy_B_trim") 
     962                endif 
    961963                SetDataFolder $("root:Packages:NIST:VSANS:"+type)        
    962964                CheckDisplayed/W=$winNameStr iBin_qxqy_B_trim 
     
    994996        SetDataFolder $(fullPathToFolder) 
    995997 
    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")         
     998        String midList = "ML;MR;MT;MB;MLR;MTB;MLRTB;" 
     999        String type 
     1000        Variable ii 
     1001         
    10041002 
    10051003        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)                         
     1004                ii=0 
     1005                do 
     1006                        type = StringFromList(ii, midlist, ";") 
     1007                        CheckDisplayed/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
     1008                        if(V_flag==1) 
     1009                                RemoveFromGraph/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
     1010                        endif 
     1011                        ii+=1 
     1012                while(ii<ItemsInList(midList)) 
     1013         
     1014                         
    10131015                SetDataFolder $(fullPathToFolder) 
    10141016                CheckDisplayed/W=$winNameStr iBin_qxqy_ML_trim 
     
    10461048        if(binType==2) 
    10471049// 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") 
     1050                ii=0 
     1051                do 
     1052                        type = StringFromList(ii, midlist, ";") 
     1053                        CheckDisplayed/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
     1054                        if(V_flag==1) 
     1055                                RemoveFromGraph/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
     1056                        endif 
     1057                        ii+=1 
     1058                while(ii<ItemsInList(midList)) 
     1059                 
     1060 
    10611061         
    10621062 
     
    10891089        if(binType==3) 
    10901090// 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")         
     1091                ii=0 
     1092                do 
     1093                        type = StringFromList(ii, midlist, ";") 
     1094                        CheckDisplayed/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
     1095                        if(V_flag==1) 
     1096                                RemoveFromGraph/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
     1097                        endif 
     1098                        ii+=1 
     1099                while(ii<ItemsInList(midList)) 
     1100 
    11051101         
    11061102                SetDataFolder $(fullPathToFolder) 
     
    11261122        if(binType==4)          // slit aperture binning - MT, ML, MR, MB are averaged 
    11271123// 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") 
     1124                ii=0 
     1125                do 
     1126                        type = StringFromList(ii, midlist, ";") 
     1127                        CheckDisplayed/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
     1128                        if(V_flag==1) 
     1129                                RemoveFromGraph/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
     1130                        endif 
     1131                        ii+=1 
     1132                while(ii<ItemsInList(midList)) 
     1133                 
     1134 
    11401135                 
    11411136                SetDataFolder $(fullPathToFolder) 
     
    11901185 
    11911186 
     1187        String frontList = "FL;FR;FT;FB;FLR;FTB;FLRTB;" 
     1188        String type 
     1189        Variable ii 
    11921190//      binType = V_GetBinningPopMode() 
    11931191        SetDataFolder $(fullPathToFolder) 
    11941192 
    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") 
     1193 
    12051194                 
    12061195        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) 
     1196                ii=0 
     1197                do 
     1198                        type = StringFromList(ii, frontList, ";") 
     1199                        CheckDisplayed/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
     1200                        if(V_flag==1) 
     1201                                RemoveFromGraph/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
     1202                        endif 
     1203                        ii+=1 
     1204                while(ii<ItemsInList(frontList)) 
     1205                 
     1206 
    12161207                                 
    12171208                SetDataFolder $(fullPathToFolder) 
     
    12521243        if(binType==2) 
    12531244        // 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")         
     1245                ii=0 
     1246                do 
     1247                        type = StringFromList(ii, frontList, ";") 
     1248                        CheckDisplayed/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
     1249                        if(V_flag==1) 
     1250                                RemoveFromGraph/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
     1251                        endif 
     1252                        ii+=1 
     1253                while(ii<ItemsInList(frontList)) 
     1254         
     1255 
    12681256 
    12691257                SetDataFolder $(fullPathToFolder) 
     
    12951283        if(binType==3) 
    12961284// 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")         
     1285                ii=0 
     1286                do 
     1287                        type = StringFromList(ii, frontList, ";") 
     1288                        CheckDisplayed/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
     1289                        if(V_flag==1) 
     1290                                RemoveFromGraph/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
     1291                        endif 
     1292                        ii+=1 
     1293                while(ii<ItemsInList(frontList)) 
     1294         
     1295 
    13131296         
    13141297                SetDataFolder $(fullPathToFolder) 
     
    13341317        if(binType==4)          // slit aperture binning - MT, ML, MR, MB are averaged 
    13351318// 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") 
     1319                ii=0 
     1320                do 
     1321                        type = StringFromList(ii, frontList, ";") 
     1322                        CheckDisplayed/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
     1323                        if(V_flag==1) 
     1324                                RemoveFromGraph/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
     1325                        endif 
     1326                        ii+=1 
     1327                while(ii<ItemsInList(frontList)) 
     1328         
     1329 
    13501330                 
    13511331                SetDataFolder $(fullPathToFolder) 
Note: See TracChangeset for help on using the changeset viewer.