Ignore:
Timestamp:
Nov 28, 2017 9:39:57 AM (5 years ago)
Author:
srkline
Message:

Important change -- re-worked the calculation of how the detector panel "gap" is treated. It is now split equally between the panels rather than assigned to one panel. Makes no difference in the q calculation, simply a philosophical change that should make the measured beam centers make a little more sense, as they will be symmetric.

Changed the appearance and function of the panel to select the "trim" values for the combined 1D data sets. Data no longer needs to be saved as ITX and re-read into the panel. Simply uses the data binning popup and the current data.

File:
1 edited

Legend:

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

    r1073 r1074  
    962962 
    963963//      binType = V_GetBinningPopMode() 
    964          
     964        ClearIQIfDisplayed_AllFldr("B_trim",winNameStr) 
     965 
    965966 
    966967        SetDataFolder $(fullPathToFolder)        
     
    968969        if(binType==1 || binType==2 || binType==3) 
    969970         
    970 //              ClearIQIfDisplayed_AllFldr("B_trim",winNameStr) 
    971                 CheckDisplayed/W=$winNameStr $("iBin_qxqy_B_trim") 
    972                 if(V_flag==1) 
    973                         RemoveFromGraph/W=$winNameStr $("iBin_qxqy_B_trim") 
    974                 endif 
    975971                SetDataFolder $(fullPathToFolder)        
    976972                CheckDisplayed/W=$winNameStr iBin_qxqy_B_trim 
     
    989985                endif 
    990986                 
    991 //              ClearIQIfDisplayed_AllFldr("B_trim") 
    992 //              SetDataFolder $(fullPathToFolder)        
    993 //              CheckDisplayed/W=V_1D_Data iBin_qxqy_B_trim 
    994 //               
    995 //              if(V_flag==0) 
    996 //                      AppendtoGraph/W=V_1D_Data iBin_qxqy_B_trim vs qBin_qxqy_B_trim 
    997 //                      ModifyGraph/W=V_1D_Data mode=4 
    998 //                      ModifyGraph/W=V_1D_Data marker=19 
    999 //                      ModifyGraph/W=V_1D_Data rgb(iBin_qxqy_B_trim)=(1,52428,52428) 
    1000 //                      ModifyGraph/W=V_1D_Data msize=2 
    1001 //                      ModifyGraph/W=V_1D_Data grid=1 
    1002 //                      ModifyGraph/W=V_1D_Data log=1 
    1003 //                      ModifyGraph/W=V_1D_Data mirror=2 
    1004 //              endif 
    1005                  
    1006987        endif 
    1007988 
     
    1009990        if(binType==4) 
    1010991         
    1011 //              ClearIQIfDisplayed_AllFldr("B_trim",winNameStr) 
    1012                 CheckDisplayed/W=$winNameStr $("iBin_qxqy_B_trim") 
    1013                 if(V_flag==1) 
    1014                         RemoveFromGraph/W=$winNameStr $("iBin_qxqy_B_trim") 
    1015                 endif 
    1016                 SetDataFolder $("root:Packages:NIST:VSANS:"+type)        
     992                SetDataFolder $(fullPathToFolder)        
    1017993                CheckDisplayed/W=$winNameStr iBin_qxqy_B_trim 
    1018994                 
     
    10291005        endif 
    10301006 
     1007        if(binType==5 || binType==6 || binType==7) 
     1008         
     1009        SetDataFolder $(fullPathToFolder)        
     1010                        CheckDisplayed/W=$winNameStr iBin_qxqy_B_trim 
     1011                 
     1012                if(V_flag==0) 
     1013                        AppendtoGraph/W=$winNameStr iBin_qxqy_B_trim vs qBin_qxqy_B_trim 
     1014                        ModifyGraph/W=$winNameStr mode(iBin_qxqy_B_trim)=4 
     1015                        ModifyGraph/W=$winNameStr marker(iBin_qxqy_B_trim)=19 
     1016                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_B_trim)=(1,52428,52428) 
     1017                        ModifyGraph/W=$winNameStr msize(iBin_qxqy_B_trim)=3 
     1018                        ModifyGraph/W=$winNameStr grid=1 
     1019                        ModifyGraph/W=$winNameStr log=1 
     1020                        ModifyGraph/W=$winNameStr mirror=2 
     1021                endif 
     1022        endif 
    10311023         
    10321024        SetDataFolder root: 
     
    10491041        SetDataFolder $(fullPathToFolder) 
    10501042 
    1051         String midList = "ML;MR;MT;MB;MLR;MTB;MLRTB;" 
     1043//      String midList = "ML;MR;MT;MB;MLR;MTB;MLRTB;" 
    10521044        String type 
    10531045        Variable ii 
    1054          
     1046 
     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)                 
    10551055 
    10561056        if(binType==1) 
    1057                 ii=0 
    1058                 do 
    1059                         type = StringFromList(ii, midlist, ";") 
    1060                         CheckDisplayed/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
    1061                         if(V_flag==1) 
    1062                                 RemoveFromGraph/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
    1063                         endif 
    1064                         ii+=1 
    1065                 while(ii<ItemsInList(midList)) 
     1057//              ii=0 
     1058//              do 
     1059//                      type = StringFromList(ii, midlist, ";") 
     1060//                      CheckDisplayed/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
     1061//                      if(V_flag==1) 
     1062//                              RemoveFromGraph/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
     1063//                      endif 
     1064//                      ii+=1 
     1065//              while(ii<ItemsInList(midList)) 
    10661066         
    10671067                         
     
    11011101        if(binType==2) 
    11021102// clear EVERYTHING 
    1103                 ii=0 
    1104                 do 
    1105                         type = StringFromList(ii, midlist, ";") 
    1106                         CheckDisplayed/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
    1107                         if(V_flag==1) 
    1108                                 RemoveFromGraph/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
    1109                         endif 
    1110                         ii+=1 
    1111                 while(ii<ItemsInList(midList)) 
    1112                  
    1113  
    1114          
     1103//              ii=0 
     1104//              do 
     1105//                      type = StringFromList(ii, midlist, ";") 
     1106//                      CheckDisplayed/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
     1107//                      if(V_flag==1) 
     1108//                              RemoveFromGraph/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
     1109//                      endif 
     1110//                      ii+=1 
     1111//              while(ii<ItemsInList(midList)) 
     1112//               
    11151113 
    11161114                SetDataFolder $(fullPathToFolder) 
     
    11411139         
    11421140        if(binType==3) 
    1143 // clear EVERYTHING 
    1144                 ii=0 
    1145                 do 
    1146                         type = StringFromList(ii, midlist, ";") 
    1147                         CheckDisplayed/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
    1148                         if(V_flag==1) 
    1149                                 RemoveFromGraph/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
    1150                         endif 
    1151                         ii+=1 
    1152                 while(ii<ItemsInList(midList)) 
     1141//// clear EVERYTHING 
     1142//              ii=0 
     1143//              do 
     1144//                      type = StringFromList(ii, midlist, ";") 
     1145//                      CheckDisplayed/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
     1146//                      if(V_flag==1) 
     1147//                              RemoveFromGraph/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
     1148//                      endif 
     1149//                      ii+=1 
     1150//              while(ii<ItemsInList(midList)) 
    11531151 
    11541152         
     
    11741172 
    11751173        if(binType==4)          // slit aperture binning - MT, ML, MR, MB are averaged 
    1176 // clear EVERYTHING 
    1177                 ii=0 
    1178                 do 
    1179                         type = StringFromList(ii, midlist, ";") 
    1180                         CheckDisplayed/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
    1181                         if(V_flag==1) 
    1182                                 RemoveFromGraph/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
    1183                         endif 
    1184                         ii+=1 
    1185                 while(ii<ItemsInList(midList)) 
     1174//// clear EVERYTHING 
     1175//              ii=0 
     1176//              do 
     1177//                      type = StringFromList(ii, midlist, ";") 
     1178//                      CheckDisplayed/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
     1179//                      if(V_flag==1) 
     1180//                              RemoveFromGraph/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
     1181//                      endif 
     1182//                      ii+=1 
     1183//              while(ii<ItemsInList(midList)) 
    11861184                 
    11871185 
     
    11931191                        AppendToGraph/W=$winNameStr iBin_qxqy_ML_trim vs qBin_qxqy_ML_trim 
    11941192                        AppendToGraph/W=$winNameStr iBin_qxqy_MR_trim vs qBin_qxqy_MR_trim 
    1195                         AppendToGraph/W=$winNameStr iBin_qxqy_MT_trim vs qBin_qxqy_MT_trim 
    1196                         AppendToGraph/W=$winNameStr iBin_qxqy_MB_trim vs qBin_qxqy_MB_trim 
     1193//                      AppendToGraph/W=$winNameStr iBin_qxqy_MT_trim vs qBin_qxqy_MT_trim 
     1194//                      AppendToGraph/W=$winNameStr iBin_qxqy_MB_trim vs qBin_qxqy_MB_trim 
    11971195                        ErrorBars/T=0 iBin_qxqy_ML_trim Y,wave=(:eBin_qxqy_ML_trim,:eBin_qxqy_ML_trim) 
    11981196                        ErrorBars/T=0 iBin_qxqy_MR_trim Y,wave=(:eBin_qxqy_MR_trim,:eBin_qxqy_MR_trim) 
    1199                         ErrorBars/T=0 iBin_qxqy_MT_trim Y,wave=(:eBin_qxqy_MT_trim,:eBin_qxqy_MT_trim) 
    1200                         ErrorBars/T=0 iBin_qxqy_MB_trim Y,wave=(:eBin_qxqy_MB_trim,:eBin_qxqy_MB_trim) 
     1197//                      ErrorBars/T=0 iBin_qxqy_MT_trim Y,wave=(:eBin_qxqy_MT_trim,:eBin_qxqy_MT_trim) 
     1198//                      ErrorBars/T=0 iBin_qxqy_MB_trim Y,wave=(:eBin_qxqy_MB_trim,:eBin_qxqy_MB_trim) 
    12011199                         
    12021200                        ModifyGraph/W=$winNameStr mode(iBin_qxqy_ML_trim)=4 
    12031201                        ModifyGraph/W=$winNameStr mode(iBin_qxqy_MR_trim)=4 
    1204                         ModifyGraph/W=$winNameStr mode(iBin_qxqy_MT_trim)=4 
    1205                         ModifyGraph/W=$winNameStr mode(iBin_qxqy_MB_trim)=4 
     1202//                      ModifyGraph/W=$winNameStr mode(iBin_qxqy_MT_trim)=4 
     1203//                      ModifyGraph/W=$winNameStr mode(iBin_qxqy_MB_trim)=4 
    12061204                        ModifyGraph/W=$winNameStr marker(iBin_qxqy_ML_trim)=19 
    12071205                        ModifyGraph/W=$winNameStr marker(iBin_qxqy_MR_trim)=19 
    1208                         ModifyGraph/W=$winNameStr marker(iBin_qxqy_MT_trim)=19 
    1209                         ModifyGraph/W=$winNameStr marker(iBin_qxqy_MB_trim)=19 
    1210                         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) 
     1206//                      ModifyGraph/W=$winNameStr marker(iBin_qxqy_MT_trim)=19 
     1207//                      ModifyGraph/W=$winNameStr marker(iBin_qxqy_MB_trim)=19 
     1208                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_ML_trim)=(65535,0,0),rgb(iBin_qxqy_MR_trim)=(65535,0,0) 
     1209//                      ModifyGraph/W=$winNameStr rgb(iBin_qxqy_MB_trim)=(1,16019,65535),rgb(iBin_qxqy_MT_trim)=(1,16019,65535) 
    12111210                        ModifyGraph/W=$winNameStr msize(iBin_qxqy_ML_trim)=3 
    12121211                        ModifyGraph/W=$winNameStr msize(iBin_qxqy_MR_trim)=3 
    1213                         ModifyGraph/W=$winNameStr msize(iBin_qxqy_MT_trim)=3 
    1214                         ModifyGraph/W=$winNameStr msize(iBin_qxqy_MB_trim)=3 
    1215                         ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_ML_trim)={0,4},muloffset(iBin_qxqy_MB_trim)={0,2},muloffset(iBin_qxqy_MR_trim)={0,8} 
     1212//                      ModifyGraph/W=$winNameStr msize(iBin_qxqy_MT_trim)=3 
     1213//                      ModifyGraph/W=$winNameStr msize(iBin_qxqy_MB_trim)=3 
     1214                        ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_ML_trim)={0,4},muloffset(iBin_qxqy_MR_trim)={0,8} 
     1215//                      ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_MB_trim)={0,2} 
    12161216                        ModifyGraph/W=$winNameStr grid=1 
    12171217                        ModifyGraph/W=$winNameStr log=1 
     
    12211221        endif 
    12221222         
     1223        if(binType==5) 
     1224//// clear EVERYTHING 
     1225//              ii=0 
     1226//              do 
     1227//                      type = StringFromList(ii, midlist, ";") 
     1228//                      CheckDisplayed/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
     1229//                      if(V_flag==1) 
     1230//                              RemoveFromGraph/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
     1231//                      endif 
     1232//                      ii+=1 
     1233//              while(ii<ItemsInList(midList)) 
     1234 
     1235         
     1236                SetDataFolder $(fullPathToFolder) 
     1237                CheckDisplayed/W=$winNameStr iBin_qxqy_MLRTB_trim 
     1238                 
     1239                if(V_flag==0) 
     1240                        AppendtoGraph/W=$winNameStr iBin_qxqy_MLRTB_trim vs qBin_qxqy_MLRTB_trim 
     1241                        ErrorBars/T=0 iBin_qxqy_MLRTB_trim Y,wave=(:eBin_qxqy_MLRTB_trim,:eBin_qxqy_MLRTB_trim) 
     1242                         
     1243                        ModifyGraph/W=$winNameStr mode(iBin_qxqy_MLRTB_trim)=4 
     1244                        ModifyGraph/W=$winNameStr marker(iBin_qxqy_MLRTB_trim)=19 
     1245                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_MLRTB_trim)=(65535,0,0) 
     1246                        ModifyGraph/W=$winNameStr msize(iBin_qxqy_MLRTB_trim)=3 
     1247                        ModifyGraph/W=$winNameStr grid=1 
     1248                        ModifyGraph/W=$winNameStr log=1 
     1249                        ModifyGraph/W=$winNameStr mirror=2 
     1250                        Label/W=$winNameStr left "Intensity (1/cm)" 
     1251                        Label/W=$winNameStr bottom "Q (1/A)" 
     1252                endif    
     1253                         
     1254        endif 
     1255         
     1256        if(binType==6) 
     1257// clear EVERYTHING 
     1258//              ii=0 
     1259//              do 
     1260//                      type = StringFromList(ii, midlist, ";") 
     1261//                      CheckDisplayed/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
     1262//                      if(V_flag==1) 
     1263//                              RemoveFromGraph/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
     1264//                      endif 
     1265//                      ii+=1 
     1266//              while(ii<ItemsInList(midList)) 
     1267//               
     1268 
     1269                SetDataFolder $(fullPathToFolder) 
     1270                CheckDisplayed/W=$winNameStr iBin_qxqy_MLR_trim 
     1271                 
     1272                if(V_flag==0) 
     1273                        AppendtoGraph/W=$winNameStr iBin_qxqy_MLR_trim vs qBin_qxqy_MLR_trim 
     1274                        ErrorBars/T=0 iBin_qxqy_MLR_trim Y,wave=(:eBin_qxqy_MLR_trim,:eBin_qxqy_MLR_trim) 
     1275                         
     1276                        ModifyGraph/W=$winNameStr mode(iBin_qxqy_MLR_trim)=4 
     1277                        ModifyGraph/W=$winNameStr marker(iBin_qxqy_MLR_trim)=19 
     1278                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_MLR_trim)=(65535,0,0) 
     1279                        ModifyGraph/W=$winNameStr msize(iBin_qxqy_MLR_trim)=3 
     1280//                      ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_MLR_trim)={0,2} 
     1281                        ModifyGraph/W=$winNameStr grid=1 
     1282                        ModifyGraph/W=$winNameStr log=1 
     1283                        ModifyGraph/W=$winNameStr mirror=2 
     1284                        Label/W=$winNameStr left "Intensity (1/cm)" 
     1285                        Label/W=$winNameStr bottom "Q (1/A)" 
     1286                endif    
     1287                         
     1288        endif    
     1289         
     1290        if(binType==7) 
     1291// clear EVERYTHING 
     1292//              ii=0 
     1293//              do 
     1294//                      type = StringFromList(ii, midlist, ";") 
     1295//                      CheckDisplayed/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
     1296//                      if(V_flag==1) 
     1297//                              RemoveFromGraph/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
     1298//                      endif 
     1299//                      ii+=1 
     1300//              while(ii<ItemsInList(midList)) 
     1301//               
     1302 
     1303                SetDataFolder $(fullPathToFolder) 
     1304                CheckDisplayed/W=$winNameStr iBin_qxqy_MLR_trim 
     1305                 
     1306                if(V_flag==0) 
     1307                        AppendtoGraph/W=$winNameStr iBin_qxqy_MLR_trim vs qBin_qxqy_MLR_trim 
     1308                        ErrorBars/T=0 iBin_qxqy_MLR_trim Y,wave=(:eBin_qxqy_MLR_trim,:eBin_qxqy_MLR_trim) 
     1309                         
     1310                        ModifyGraph/W=$winNameStr mode(iBin_qxqy_MLR_trim)=4 
     1311                        ModifyGraph/W=$winNameStr marker(iBin_qxqy_MLR_trim)=19 
     1312                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_MLR_trim)=(65535,0,0) 
     1313                        ModifyGraph/W=$winNameStr msize(iBin_qxqy_MLR_trim)=3 
     1314//                      ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_MLR_trim)={0,2} 
     1315                        ModifyGraph/W=$winNameStr grid=1 
     1316                        ModifyGraph/W=$winNameStr log=1 
     1317                        ModifyGraph/W=$winNameStr mirror=2 
     1318                        Label/W=$winNameStr left "Intensity (1/cm)" 
     1319                        Label/W=$winNameStr bottom "Q (1/A)" 
     1320                endif    
     1321                         
     1322        endif    
     1323                 
    12231324        SetDataFolder root: 
    12241325End 
     
    12411342        String type 
    12421343        Variable ii 
    1243 //      binType = V_GetBinningPopMode() 
    12441344        SetDataFolder $(fullPathToFolder) 
    12451345 
    1246  
     1346// clear EVERYTHING 
     1347        ClearIQIfDisplayed_AllFldr("FLRTB_trim",winNameStr) 
     1348         
     1349        ClearIQIfDisplayed_AllFldr("FLR_trim",winNameStr) 
     1350        ClearIQIfDisplayed_AllFldr("FTB_trim",winNameStr) 
     1351 
     1352        ClearIQIfDisplayed_AllFldr("FT_trim",winNameStr)         
     1353        ClearIQIfDisplayed_AllFldr("FL_trim",winNameStr)         
     1354        ClearIQIfDisplayed_AllFldr("FR_trim",winNameStr)         
     1355        ClearIQIfDisplayed_AllFldr("FB_trim",winNameStr) 
    12471356                 
    12481357        if(binType==1) 
    1249                 ii=0 
    1250                 do 
    1251                         type = StringFromList(ii, frontList, ";") 
    1252                         CheckDisplayed/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
    1253                         if(V_flag==1) 
    1254                                 RemoveFromGraph/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
    1255                         endif 
    1256                         ii+=1 
    1257                 while(ii<ItemsInList(frontList)) 
    1258                  
    1259  
    12601358                                 
    12611359                SetDataFolder $(fullPathToFolder) 
     
    12951393         
    12961394        if(binType==2) 
    1297         // clear EVERYTHING 
    1298                 ii=0 
    1299                 do 
    1300                         type = StringFromList(ii, frontList, ";") 
    1301                         CheckDisplayed/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
    1302                         if(V_flag==1) 
    1303                                 RemoveFromGraph/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
    1304                         endif 
    1305                         ii+=1 
    1306                 while(ii<ItemsInList(frontList)) 
    1307          
    1308  
    13091395 
    13101396                SetDataFolder $(fullPathToFolder) 
     
    13351421         
    13361422        if(binType==3) 
    1337 // clear EVERYTHING 
    1338                 ii=0 
    1339                 do 
    1340                         type = StringFromList(ii, frontList, ";") 
    1341                         CheckDisplayed/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
    1342                         if(V_flag==1) 
    1343                                 RemoveFromGraph/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
    1344                         endif 
    1345                         ii+=1 
    1346                 while(ii<ItemsInList(frontList)) 
    1347          
    1348  
    13491423         
    13501424                SetDataFolder $(fullPathToFolder) 
     
    13691443 
    13701444        if(binType==4)          // slit aperture binning - MT, ML, MR, MB are averaged 
    1371 // clear EVERYTHING 
    1372                 ii=0 
    1373                 do 
    1374                         type = StringFromList(ii, frontList, ";") 
    1375                         CheckDisplayed/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
    1376                         if(V_flag==1) 
    1377                                 RemoveFromGraph/W=$winNameStr $("iBin_qxqy_"+type+"_trim") 
    1378                         endif 
    1379                         ii+=1 
    1380                 while(ii<ItemsInList(frontList)) 
    1381          
    1382  
    13831445                 
    13841446                SetDataFolder $(fullPathToFolder) 
     
    13881450                        AppendtoGraph/W=$winNameStr iBin_qxqy_FL_trim vs qBin_qxqy_FL_trim 
    13891451                        AppendToGraph/W=$winNameStr iBin_qxqy_FR_trim vs qBin_qxqy_FR_trim 
    1390                         AppendToGraph/W=$winNameStr iBin_qxqy_FT_trim vs qBin_qxqy_FT_trim 
    1391                         AppendToGraph/W=$winNameStr iBin_qxqy_FB_trim vs qBin_qxqy_FB_trim 
     1452//                      AppendToGraph/W=$winNameStr iBin_qxqy_FT_trim vs qBin_qxqy_FT_trim 
     1453//                      AppendToGraph/W=$winNameStr iBin_qxqy_FB_trim vs qBin_qxqy_FB_trim 
    13921454                        ErrorBars/T=0 iBin_qxqy_FL_trim Y,wave=(:eBin_qxqy_FL_trim,:eBin_qxqy_FL_trim) 
    13931455                        ErrorBars/T=0 iBin_qxqy_FR_trim Y,wave=(:eBin_qxqy_FR_trim,:eBin_qxqy_FR_trim) 
    1394                         ErrorBars/T=0 iBin_qxqy_FT_trim Y,wave=(:eBin_qxqy_FT_trim,:eBin_qxqy_FT_trim) 
    1395                         ErrorBars/T=0 iBin_qxqy_FB_trim Y,wave=(:eBin_qxqy_FB_trim,:eBin_qxqy_FB_trim) 
     1456//                      ErrorBars/T=0 iBin_qxqy_FT_trim Y,wave=(:eBin_qxqy_FT_trim,:eBin_qxqy_FT_trim) 
     1457//                      ErrorBars/T=0 iBin_qxqy_FB_trim Y,wave=(:eBin_qxqy_FB_trim,:eBin_qxqy_FB_trim) 
    13961458                         
    13971459                        ModifyGraph/W=$winNameStr mode(iBin_qxqy_FL_trim)=4 
    13981460                        ModifyGraph/W=$winNameStr mode(iBin_qxqy_FR_trim)=4 
    1399                         ModifyGraph/W=$winNameStr mode(iBin_qxqy_FT_trim)=4 
    1400                         ModifyGraph/W=$winNameStr mode(iBin_qxqy_FB_trim)=4 
     1461//                      ModifyGraph/W=$winNameStr mode(iBin_qxqy_FT_trim)=4 
     1462//                      ModifyGraph/W=$winNameStr mode(iBin_qxqy_FB_trim)=4 
    14011463                        ModifyGraph/W=$winNameStr marker(iBin_qxqy_FL_trim)=19 
    14021464                        ModifyGraph/W=$winNameStr marker(iBin_qxqy_FR_trim)=19 
    1403                         ModifyGraph/W=$winNameStr marker(iBin_qxqy_FT_trim)=19 
    1404                         ModifyGraph/W=$winNameStr marker(iBin_qxqy_FB_trim)=19 
    1405                         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) 
     1465//                      ModifyGraph/W=$winNameStr marker(iBin_qxqy_FT_trim)=19 
     1466//                      ModifyGraph/W=$winNameStr marker(iBin_qxqy_FB_trim)=19 
     1467                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_FL_trim)=(39321,26208,1),rgb(iBin_qxqy_FR_trim)=(39321,26208,1) 
     1468//                      ModifyGraph/W=$winNameStr rgb(iBin_qxqy_FB_trim)=(2,39321,1),rgb(iBin_qxqy_FT_trim)=(2,39321,1) 
    14061469                        ModifyGraph/W=$winNameStr msize(iBin_qxqy_FL_trim)=3 
    14071470                        ModifyGraph/W=$winNameStr msize(iBin_qxqy_FR_trim)=3 
    1408                         ModifyGraph/W=$winNameStr msize(iBin_qxqy_FT_trim)=3 
    1409                         ModifyGraph/W=$winNameStr msize(iBin_qxqy_FB_trim)=3 
    1410                         ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_FL_trim)={0,4},muloffset(iBin_qxqy_FB_trim)={0,2},muloffset(iBin_qxqy_FR_trim)={0,8} 
     1471//                      ModifyGraph/W=$winNameStr msize(iBin_qxqy_FT_trim)=3 
     1472//                      ModifyGraph/W=$winNameStr msize(iBin_qxqy_FB_trim)=3 
     1473                        ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_FL_trim)={0,4},muloffset(iBin_qxqy_FR_trim)={0,8} 
     1474//                      ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_FB_trim)={0,2} 
    14111475                        ModifyGraph/W=$winNameStr grid=1 
    14121476                        ModifyGraph/W=$winNameStr log=1 
     
    14151479                         
    14161480        endif 
    1417          
     1481 
     1482 
     1483        if(binType==5) 
     1484 
     1485                SetDataFolder $(fullPathToFolder) 
     1486                CheckDisplayed/W=$winNameStr iBin_qxqy_FLR_trim 
     1487                 
     1488                if(V_flag==0) 
     1489                        AppendtoGraph/W=$winNameStr iBin_qxqy_FLR_trim vs qBin_qxqy_FLR_trim 
     1490                        AppendToGraph/W=$winNameStr iBin_qxqy_FTB_trim vs qBin_qxqy_FTB_trim 
     1491                        ErrorBars/T=0 iBin_qxqy_FLR_trim Y,wave=(:eBin_qxqy_FLR_trim,:eBin_qxqy_FLR_trim) 
     1492                        ErrorBars/T=0 iBin_qxqy_FTB_trim Y,wave=(:eBin_qxqy_FTB_trim,:eBin_qxqy_FTB_trim) 
     1493 
     1494                        ModifyGraph/W=$winNameStr mode(iBin_qxqy_FLR_trim)=4 
     1495                        ModifyGraph/W=$winNameStr mode(iBin_qxqy_FTB_trim)=4 
     1496                        ModifyGraph/W=$winNameStr marker(iBin_qxqy_FLR_trim)=19 
     1497                        ModifyGraph/W=$winNameStr marker(iBin_qxqy_FTB_trim)=19 
     1498                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_FLR_trim)=(39321,26208,1),rgb(iBin_qxqy_FTB_trim)=(2,39321,1) 
     1499                        ModifyGraph/W=$winNameStr msize(iBin_qxqy_FLR_trim)=3 
     1500                        ModifyGraph/W=$winNameStr msize(iBin_qxqy_FTB_trim)=3 
     1501                        ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_FLR_trim)={0,2} 
     1502                        ModifyGraph/W=$winNameStr grid=1 
     1503                        ModifyGraph/W=$winNameStr log=1 
     1504                        ModifyGraph/W=$winNameStr mirror=2 
     1505//                      Label/W=$winNameStr left "Intensity (1/cm)" 
     1506//                      Label/W=$winNameStr bottom "Q (1/A)" 
     1507                endif    
     1508                         
     1509        endif 
     1510 
     1511        if(binType==6)   
     1512         
     1513                SetDataFolder $(fullPathToFolder) 
     1514                CheckDisplayed/W=$winNameStr iBin_qxqy_FLRTB_trim 
     1515                 
     1516                if(V_flag==0) 
     1517                        AppendtoGraph/W=$winNameStr iBin_qxqy_FLRTB_trim vs qBin_qxqy_FLRTB_trim 
     1518                        ErrorBars/T=0 iBin_qxqy_FLRTB_trim Y,wave=(:eBin_qxqy_FLRTB_trim,:eBin_qxqy_FLRTB_trim) 
     1519 
     1520 
     1521                        ModifyGraph/W=$winNameStr mode(iBin_qxqy_FLRTB_trim)=4 
     1522                        ModifyGraph/W=$winNameStr marker(iBin_qxqy_FLRTB_trim)=19 
     1523                        ModifyGraph/W=$winNameStr msize(iBin_qxqy_FLRTB_trim)=3 
     1524                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_FLRTB_trim)=(39321,26208,1) 
     1525                        ModifyGraph/W=$winNameStr grid=1 
     1526                        ModifyGraph/W=$winNameStr log=1 
     1527                        ModifyGraph/W=$winNameStr mirror=2 
     1528                        Label/W=$winNameStr left "Intensity (1/cm)" 
     1529                        Label/W=$winNameStr bottom "Q (1/A)" 
     1530                endif    
     1531                         
     1532        endif 
     1533         
     1534        if(binType==7) 
     1535 
     1536                SetDataFolder $(fullPathToFolder) 
     1537                CheckDisplayed/W=$winNameStr iBin_qxqy_FLR_trim 
     1538                 
     1539                if(V_flag==0) 
     1540                        AppendtoGraph/W=$winNameStr iBin_qxqy_FLR_trim vs qBin_qxqy_FLR_trim 
     1541                        AppendToGraph/W=$winNameStr iBin_qxqy_FTB_trim vs qBin_qxqy_FTB_trim 
     1542                        ErrorBars/T=0 iBin_qxqy_FLR_trim Y,wave=(:eBin_qxqy_FLR_trim,:eBin_qxqy_FLR_trim) 
     1543                        ErrorBars/T=0 iBin_qxqy_FTB_trim Y,wave=(:eBin_qxqy_FTB_trim,:eBin_qxqy_FTB_trim) 
     1544 
     1545                        ModifyGraph/W=$winNameStr mode(iBin_qxqy_FLR_trim)=4 
     1546                        ModifyGraph/W=$winNameStr mode(iBin_qxqy_FTB_trim)=4 
     1547                        ModifyGraph/W=$winNameStr marker(iBin_qxqy_FLR_trim)=19 
     1548                        ModifyGraph/W=$winNameStr marker(iBin_qxqy_FTB_trim)=19 
     1549                        ModifyGraph/W=$winNameStr msize(iBin_qxqy_FLR_trim)=3 
     1550                        ModifyGraph/W=$winNameStr msize(iBin_qxqy_FTB_trim)=3 
     1551                         
     1552                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_FLR_trim)=(39321,26208,1),rgb(iBin_qxqy_FTB_trim)=(2,39321,1) 
     1553                        ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_FLR_trim)={0,2} 
     1554                        ModifyGraph/W=$winNameStr grid=1 
     1555                        ModifyGraph/W=$winNameStr log=1 
     1556                        ModifyGraph/W=$winNameStr mirror=2 
     1557//                      Label/W=$winNameStr left "Intensity (1/cm)" 
     1558//                      Label/W=$winNameStr bottom "Q (1/A)" 
     1559                endif    
     1560                         
     1561        endif    
    14181562        SetDataFolder root: 
    14191563End 
Note: See TracChangeset for help on using the changeset viewer.