Changeset 1074 for sans


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.

Location:
sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS
Files:
6 edited

Legend:

Unmodified
Added
Removed

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

    r1050 r1074  
    5252                ModifyGraph cbRGB=(44000,44000,44000) 
    5353                 
    54                 Button button2,pos={15,5},size={70,20},proc=V_Load_ITX_button,title="Load Data" 
    55                 Button button2,help={"Load an ITX file"} 
     54//              Button button2,pos={15,5},size={70,20},proc=V_Load_ITX_button,title="Load Data" 
     55//              Button button2,help={"Load an ITX file"} 
    5656                 
    57                 PopupMenu popup1,pos={125,5},size={90,20},title="Data Folder" 
    58                 PopupMenu popup1,help={"data folder"} 
    59                 PopupMenu popup1,value= GetAList(4),proc=V_DataFolderPlotPop 
     57//              PopupMenu popup1,pos={125,5},size={90,20},title="Data Folder" 
     58//              PopupMenu popup1,help={"data folder"} 
     59//              PopupMenu popup1,value= GetAList(4),proc=V_DataFolderPlotPop 
    6060                 
    61                 PopupMenu popup0,pos={320,5},size={70,20},title="Bin Type" 
     61                PopupMenu popup0,pos={15,5},size={70,20},title="Bin Type" 
    6262                PopupMenu popup0,help={"binning type"} 
    63                 PopupMenu popup0,value= ksBinTypeStr 
     63                PopupMenu popup0,value= ksBinTypeStr,proc=V_DataBinTypePlotPop 
    6464 
    6565                Button button3,pos={544.00,5},size={30.00,20.00},title="?" 
    … …  
    7575                Button button1,help={"Convert the waves to global strings"} 
    7676                 
    77                 Button button4,pos={388,36},size={90.00,20.00},title="Trim & Save" 
    78                 Button button4,help={"combine and save 1D data"},proc=V_SaveTrimmed_Button 
     77//              Button button4,pos={388,36},size={90.00,20.00},title="Trim & Save" 
     78//              Button button4,help={"combine and save 1D data"},proc=V_SaveTrimmed_Button 
    7979                 
    8080                Button button0,pos={524,36},size={70,20},proc=V_DoneCombine1D_ButtonProc,title="Done" 
    … …  
    147147         
    148148//      SetDataFolder root:ToTrim 
    149         ControlInfo/W=V_1D_Combine popup1 
    150         String dataFldrStr = S_Value 
     149//      ControlInfo/W=V_1D_Combine popup1 
     150//      String dataFldrStr = S_Value 
     151         
     152        SVAR curDispType = root:Packages:NIST:VSANS:Globals:gCurDispType 
     153        String dataFldrStr = "root:Packages:NIST:VSANS:"+curDispType 
    151154         
    152155        Variable num,ii,p1,p2 
    … …  
    157160                detStr = panelStr[ii] 
    158161                Wave/Z iw = $("root:ToTrim:iBin_qxqy_"+detStr+"_trim") 
    159                 Wave/Z iw_orig = $("root:"+dataFldrStr+":iBin_qxqy_"+detStr) 
     162                Wave/Z iw_orig = $(dataFldrStr+":iBin_qxqy_"+detStr) 
    160163//              Wave/Z iw = $("iBin_qxqy_"+detStr) 
    161164//              Wave/Z ew = $("eBin_qxqy_"+detStr) 
    … …  
    190193//  then the waves are always missing - and the function returns an error - every time 
    191194// 
     195// now works with the "current" data that is displayed, rather than relying on  
     196// a lot of user input regarding the details of the saved data 
     197// 
     198Function V_DataBinTypePlotPop(ctrlName,popNum,popStr) : PopupMenuControl 
     199        String ctrlName 
     200        Variable popNum // which item is currently selected (1-based) 
     201        String popStr           // contents of current popup item as string 
     202 
     203 
     204        String str,winStr="V_1D_Combine" 
     205        Variable binType,num,ii,err 
     206 
     207        binType = V_BinTypeStr2Num(popStr) 
     208         
     209         
     210        //  x- need to update this to make sure that the data waves are present before plotting. This 
     211        //    currently looks in the ToTrim folder, but the binning could be wrong in the data folder 
     212        //    and will be an error... 
     213         
     214        //dataType now needs to be the full path to the folder 
     215        // Plot the "real" data. data copy to trim will be plotted later 
     216        // 
     217        SVAR dispType = root:Packages:NIST:VSANS:Globals:gCurDispType 
     218 
     219 
     220// dispatch based on the string, not on the number of selection in the pop string 
     221        V_QBinAllPanels_Circular(dispType,binType) 
     222 
     223        String workTypeStr 
     224        workTypeStr = "root:Packages:NIST:VSANS:"+dispType 
     225         
     226 
     227//      dataType = "root:"+popStr 
     228//       
     229//      //remove EVERYTHING from the graph, no matter what 
     230        String type,list,item 
     231//      list = TraceNameList(winStr,";",1) 
     232//      for(ii=0;ii<ItemsInList(list);ii+=1) 
     233//              item = StringFromList(ii, list, ";") 
     234////            CheckDisplayed/W=$winStr $(item) 
     235////            if(V_flag==1) 
     236//                      RemoveFromGraph/Z/W=$winStr $(item) 
     237////            endif 
     238//      endfor   
     239//       
     240         
     241        sprintf str,"(\"%s\",%d,\"%s\")",workTypeStr,binType,winStr 
     242 
     243        Execute ("V_Back_IQ_Graph"+str) 
     244        Execute ("V_Middle_IQ_Graph"+str) 
     245        Execute ("V_Front_IQ_Graph"+str) 
     246 
     247        ModifyGraph marker=8,opaque=1,msize=3           //make the traces open white circles 
     248 
     249 
     250        NewDataFolder/O root:ToTrim 
     251         
     252        //remove all of the "toTrim" data from the graph, if it's there 
     253        SetDataFolder root:ToTrim 
     254        for(ii=0;ii<ItemsInList(ksPanelBinTypeList);ii+=1) 
     255                type = StringFromList(ii, ksPanelBinTypeList, ";") 
     256                CheckDisplayed/W=$winStr $("iBin_qxqy_"+type+"_trim") 
     257                if(V_flag==1) 
     258                        RemoveFromGraph/W=$winStr $("iBin_qxqy_"+type+"_trim") 
     259                endif 
     260        endfor   
     261        SetDataFolder root: 
     262 
     263 
     264        //then kill the data folder, so it can be duplicated 
     265         
     266// 
     267//      // duplicate all of the data into the new folder 
     268        SetDataFolder $workTypeStr 
     269        list = WaveList("*",";","")             //must be in the correct data folder 
     270        SetDataFolder root: 
     271//      Print list       
     272        num = ItemsInList(list) 
     273        for(ii=0;ii<num;ii+=1) 
     274                str = StringFromList(ii,list) 
     275                Duplicate/O $(workTypeStr+":"+str), $("root:ToTrim:"+str+"_trim") 
     276        endfor 
     277         
     278//      // be sure that the data is present in the ToTrim folder before trying to plot 
     279//      err = V_TrimWavesExist(binType) 
     280//      if(err) 
     281//              DoAlert 0,"wrong bin type selected" 
     282//              return(0) 
     283//      endif 
     284         
     285         
     286        // plot the linked data 
     287        sprintf str,"(\"%s\",%d,\"%s\")","root:ToTrim",binType,winStr 
     288 
     289        Execute ("V_Back_IQ_Graph_trim"+str) 
     290        Execute ("V_Middle_IQ_Graph_trim"+str) 
     291        Execute ("V_Front_IQ_Graph_trim"+str) 
     292        // and link the data to the table with a dependency? 
     293//      done in the panel macro? 
     294         
     295        // last, force the dependency to update so that the trimmed points are shown 
     296        Wave w = root:Packages:NIST:VSANS:Globals:Protocols:Beg_pts 
     297        w[0] += 1 
     298        w[0] -= 1 
     299         
     300         
     301        return(0)        
     302End 
     303 
     304 
     305 
     306//  
     307// x- verify that the proper waves exist for the binning type 
     308// 
     309// x- the logic here is wrong. if the ToTrim folder is empty (As on startup) 
     310//  then the waves are always missing - and the function returns an error - every time 
     311// 
     312// currently unused, in favor of using the current data rather than saved itx data 
    192313// 
    193314Function V_DataFolderPlotPop(ctrlName,popNum,popStr) : PopupMenuControl 
    … …  
    294415        return(0)        
    295416End 
     417 
     418 
    296419 
    297420// kill the dependency, 

  • 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 

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

    r1073 r1074  
    152152         
    153153        // TODO 
    154         // -- GAP IS HARD-WIRED as a single constant value (there really are 4 values) 
     154        // -- GAP IS HARD-WIRED as constant values  
    155155        Variable offset,gap 
    156156 
    157157// kPanelTouchingGap is in mm    
    158 // the gap is added to the RIGHT and TOP panels ONLY 
    159 // TODO -- replace with V_getDet_panel_gap(fname,detStr) once it is added to the file 
    160         gap = kPanelTouchingGap 
     158// the gap is split equally between the panel pairs 
     159// TODO -- replace all of this with V_getDet_panel_gap(fname,detStr) once it is added to the file 
     160// these hard-wired values were determined from 6A and WB beam centers. LR values were exactly the same for 
     161// both beam considitions (+/- 0.0 mm). FTB was +/- 0.8 mm, MTB +/- 2 mm 
     162        if(cmpstr(detStr,"FL") == 0 || cmpstr(detStr,"FR") == 0) 
     163                gap = 3.2               //mm 
     164        endif 
     165        if(cmpstr(detStr,"FT") == 0 || cmpstr(detStr,"FB") == 0) 
     166                gap = 8         //mm 
     167        endif 
     168        if(cmpstr(detStr,"ML") == 0 || cmpstr(detStr,"MR") == 0) 
     169                gap = 5.4               //mm 
     170        endif 
     171        if(cmpstr(detStr,"MT") == 0 || cmpstr(detStr,"MB") == 0) 
     172                gap = 5         //mm 
     173        endif 
     174// TODO: this is the line to keep, to replace the hard-wired values 
     175//      gap = V_getDet_panel_gap(fname,detStr) 
    161176         
    162177        if(cmpstr(orientation,"vertical")==0) 
    … …  
    182197                        if(cmpstr("L",detStr[1]) == 0) 
    183198//                              data_realDistX[][] = offset - (dimX - p)*tube_width                     // TODO should this be dimX-1-p = 47-p? 
    184                                 data_realDistX[][] = offset - (dimX - p)*tube_width - gap/2             // TODO should this be dimX-1-p = 47-p? 
     199                                data_realDistX[][] = offset - (dimX - p - 1/2)*tube_width - gap/2               // TODO should this be dimX-1-p = 47-p? 
    185200                        else 
    186201                        //      right 
    187202//                              data_realDistX[][] = tube_width*(p+1) + offset + gap            //add to the Right det, 
    188                                 data_realDistX[][] = tube_width*(p+1) + offset + gap/2          //add to the Right det 
     203                                data_realDistX[][] = tube_width*(p+1/2) + offset + gap/2                //add to the Right det 
    189204                        endif 
    190205                else 
    … …  
    214229                        if(cmpstr("T",detStr[1]) == 0) 
    215230//                              data_realDistY[][] = tube_width*(q+1) + offset + gap                     
    216                                 data_realDistY[][] = tube_width*(q+1) + offset + gap/2                   
     231                                data_realDistY[][] = tube_width*(q+1/2) + offset + gap/2                         
    217232                        else 
    218233                                // bottom 
    219234//                              data_realDistY[][] = offset - (dimY - q)*tube_width     // TODO should this be dimY-1-q = 47-q? 
    220                                 data_realDistY[][] = offset - (dimY - q)*tube_width - gap/2     // TODO should this be dimY-1-q = 47-q? 
     235                                data_realDistY[][] = offset - (dimY - q - 1/2)*tube_width - gap/2       // TODO should this be dimY-1-q = 47-q? 
    221236                        endif 
    222237                else 
    … …  
    375390 
    376391        variable edge,delta 
    377         Variable gap = kPanelTouchingGap                // TODO: -- replace with V_getDet_panel_gap(fname,detStr) 
    378  
     392        Variable gap  
     393 
     394// kPanelTouchingGap is in mm    
     395// the gap is split equally between the panel pairs 
     396// TODO -- replace all of this with V_getDet_panel_gap(fname,detStr) once it is added to the file 
     397// these hard-wired values were determined from 6A and WB beam centers. LR values were exactly the same for 
     398// both beam considitions (+/- 0.0 mm). FTB was +/- 0.8 mm, MTB +/- 2 mm 
     399        if(cmpstr(detStr,"FL") == 0 || cmpstr(detStr,"FR") == 0) 
     400                gap = 16.8              //mm 
     401        endif 
     402        if(cmpstr(detStr,"FT") == 0 || cmpstr(detStr,"FB") == 0) 
     403                gap = 20                //mm 
     404        endif 
     405        if(cmpstr(detStr,"ML") == 0 || cmpstr(detStr,"MR") == 0) 
     406                gap = 14.6              //mm 
     407        endif 
     408        if(cmpstr(detStr,"MT") == 0 || cmpstr(detStr,"MB") == 0) 
     409                gap = 15                //mm 
     410        endif 
     411// TODO: this is the line to keep, to replace the hard-wired values 
     412//      gap = V_getDet_panel_gap(fname,detStr) 
     413         
    379414// 
    380415        if(cmpstr(orientation,"vertical")==0) 

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

    r1073 r1074  
    16501650// gap when panels are "touching" 
    16511651// units are mm 
    1652 // returns gap value for TOP and RIGHT 
    1653 // returns 0 for BACK, BOTTOM and LEFT 
    1654 // force a return for BACK (no field in file) 
    1655 // B/L detectors have this field, and it should be set to zero in the file 
     1652// returns gap value for RIGHT and LEFT (they are the same) 
     1653// returns gap value for TOP and BOTTOM (they are the same) 
     1654// returns 0 for BACK, (no such field for this detector) 
    16561655// 
    16571656Function V_getDet_panel_gap(fname,detStr) 

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

    r1073 r1074  
    2929 
    3030// for the change in July 2017 where the beam center is now defined in cm, rather than pixels. 
    31 // this need never change from 1 
     31// this need not ever change from 1 
    3232Constant kBCTR_CM = 1                   //set to 1 to use beam center in cm. O to use pixels 
    3333 
    3434// // TODO: -- replace this constant with V_getDet_panel_gap(fname,detStr) 
    35 Constant kPanelTouchingGap = 10                 // TODO -- measure this gap when panels "touch", UNITS OF mm, not cm 
     35//Constant kPanelTouchingGap = 10                       // TODO -- measure this gap when panels "touch", UNITS OF mm, not cm 
    3636 
    3737 
    … …  
    5757Strconstant ksBinType3 = "FLRTB;MLRTB;B;" 
    5858//Strconstant ksBinType4 = "FT;FB;FL;FR;MT;MB;ML;MR;B;" 
    59 Strconstant ksBinType4 = "FL;FR;ML;MR;B;"               //in SLIT mode 
     59Strconstant ksBinType4 = "FL;FR;ML;MR;B;"               //in SLIT mode, disregard the T/B panels 
    6060Strconstant ksBinType5 = "FTB;FLR;MLRTB;B;" 
    6161Strconstant ksBinType6 = "FLRTB;MLR;B;" 

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

    r1073 r1074  
    177177        Button button_annular,pos={770,114},size={90,20},proc=V_annularAvgButtonProc,title="Annular Avg" 
    178178 
    179         TitleBox title_file,pos={606,178},size={76,20},variable= root:Packages:NIST:VSANS:Globals:gLastLoadedFile 
    180         TitleBox title_dataPresent,pos={606,210},size={76,20},variable= root:Packages:NIST:VSANS:Globals:gCurDispFile 
     179        TitleBox title_file,pos={606,178},fsize=12,size={76,20},variable= root:Packages:NIST:VSANS:Globals:gLastLoadedFile 
     180        TitleBox title_dataPresent,pos={606,210},fsize=12,size={76,20},variable= root:Packages:NIST:VSANS:Globals:gCurDispFile 
    181181        TitleBox title_status,pos={606,240},size={200,200},fsize=12,variable= root:Packages:NIST:VSANS:Globals:gStatusText 
    182182         
    … …  
    184184//      Button button_tagFile,disable=2 
    185185        Button button_saveIQ,pos={603,412},size={120,20},proc=V_SaveIQ_ButtonProc,title="Save I(Q) as ITX" 
    186         Button button_BeamCtr,pos={603,450},size={110,20},proc=V_BeamCtrButtonProc,title="Beam Center",disable=2 
     186        Button button_BeamCtr,pos={603,566},size={110,20},proc=V_BeamCtrButtonProc,title="Beam Center",disable=2 
    187187        Button button_SpreadPanels,pos={603,488},size={100,20},proc=V_SpreadPanelButtonProc,title="Spread Panels" 
    188188        Button button_RestorePanels,pos={603,526},size={100,20},proc=V_RestorePanelButtonProc,title="Restore Panels" 
    189189 
     190        Button pick_trim,pos={603,450},size={120,20},proc=V_TrimDataProtoButton,title="Trim I(Q) Data" 
     191        Button pick_trim,help={"This button will prompt the user for trimming parameters"}       
     192         
    190193 
    191194// on the tabs, always visible 
    192         TitleBox title_xy,pos={24,71},size={76,20},variable= root:Packages:NIST:VSANS:Globals:gLastLoadedFile 
     195        TitleBox title_xy,pos={20,65},fsize=12,size={76,20},variable= root:Packages:NIST:VSANS:Globals:gLastLoadedFile 
    193196        Slider slider_hi,pos={558,224},size={16,80},proc=V_HiMapSliderProc 
    194197        Slider slider_hi,limits={0,1,0},value= 1,ticks= 0 
Note: See TracChangeset for help on using the changeset viewer.