Ignore:
Timestamp:
Oct 16, 2014 10:59:26 AM (8 years ago)
Author:
srkline
Message:

Changes to VCALC files, moving detector information into sub-folders in anticipation of the possible folder structure that I will use for the actual data reduction. But purely speculative at this point.

Fixing some typos in other procedures.

Location:
sans/Dev/trunk/NCNR_User_Procedures/Reduction
Files:
12 edited

Legend:

Unmodified
Added
Removed
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/SANS/HFIR_Utils.ipf

    r940 r947  
    10771077End 
    10781078 
     1079Function/S GetASCDataFileList() 
     1080         
     1081        //make sure that path exists 
     1082        PathInfo catPathName 
     1083        if (V_flag == 0) 
     1084                Abort "Folder path does not exist - use Pick Path button on Main Panel" 
     1085        Endif 
     1086         
     1087        String list=IndexedFile(catPathName,-1,"????") 
     1088        String newList="",item="" 
     1089        Variable num=ItemsInList(list,";"),ii 
     1090        for(ii=0;ii<num;ii+=1) 
     1091                item = StringFromList(ii, list  ,";") 
     1092                if(stringmatch(item,"*.ASC") ) 
     1093                        newlist += item + ";" 
     1094                endif 
     1095        endfor 
     1096         
     1097        newList = SortList(newList,";",0) 
     1098        return(newList) 
     1099End 
     1100 
    10791101//********************** 
    10801102// 2D resolution function calculation - in terms of X and Y 
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/SANS/ILL_Utils.ipf

    r940 r947  
    10521052End 
    10531053 
     1054Function/S GetASCDataFileList() 
     1055         
     1056        //make sure that path exists 
     1057        PathInfo catPathName 
     1058        if (V_flag == 0) 
     1059                Abort "Folder path does not exist - use Pick Path button on Main Panel" 
     1060        Endif 
     1061         
     1062        String list=IndexedFile(catPathName,-1,"????") 
     1063        String newList="",item="" 
     1064        Variable num=ItemsInList(list,";"),ii 
     1065        for(ii=0;ii<num;ii+=1) 
     1066                item = StringFromList(ii, list  ,";") 
     1067                if(stringmatch(item,"*.ASC") ) 
     1068                        newlist += item + ";" 
     1069                endif 
     1070        endfor 
     1071         
     1072        newList = SortList(newList,";",0) 
     1073        return(newList) 
     1074End 
     1075 
     1076 
     1077 
    10541078//********************** 
    10551079// 2D resolution function calculation - in terms of X and Y 
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/SANS/Marquee.ipf

    r794 r947  
    375375        Sort FileID BoxCounts,FileID            //sort the waves, in case the run numbers were entered out of numerical order 
    376376         
    377         Display /W=(5,44,383,306) BoxCounts vs FileID 
    378         ModifyGraph mode=4 
    379         ModifyGraph marker=8 
    380         ModifyGraph grid=2 
    381         ModifyGraph mirror=2 
    382         ErrorBars/T=0 BoxCounts Y,wave=(BoxCount_err,BoxCount_err) 
    383         Label left "Counts (per 10^8 monitor counts)" 
    384         Label bottom "Run Number" 
    385          
     377        DoWindow BoxCountGraph 
     378        if(V_flag == 0) 
     379                Display /W=(5,44,383,306) BoxCounts vs FileID 
     380                DoWindow/C BoxCountGraph 
     381                ModifyGraph mode=4 
     382                ModifyGraph marker=8 
     383                ModifyGraph grid=2 
     384                ModifyGraph mirror=2 
     385                ErrorBars/T=0 BoxCounts Y,wave=(BoxCount_err,BoxCount_err) 
     386                Label left "Counts (per 10^8 monitor counts)" 
     387                Label bottom "Run Number" 
     388        endif 
    386389        return(0) 
    387390End 
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/SANS/NCNR_DataReadWrite.ipf

    r940 r947  
    13671367        endif 
    13681368        str = "["+str+"]" 
     1369         
     1370        if(strlen(str) < 11)            //pad to 11 characters if the account number is only one digit 
     1371                str = PadString(str,11,0x20) 
     1372        endif 
     1373                 
    13691374        WriteTextToHeader(fname,str,78) 
    13701375        return(0) 
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/SANS/NCNR_Utils_HDF5.ipf

    r946 r947  
    22#pragma version=5.0 
    33#pragma IgorVersion=6.1 
     4 
     5// 
     6// *** modified JUNL2014 to work with HDF5 raw data files. 
     7//    when finally implemented, be sure to compare with NCNR_Utils.ipf 
     8//    to pick up any changes there, especially those related to CGB 
     9// 
     10// 
     11// 
     12// 
    413 
    514// this file contains globals and functions that are specific to a 
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/VCALC_PanelMockUp.ipf

    r936 r947  
    567567        NewDataFolder/O root:Packages:NIST:VSANS 
    568568        NewDataFolder/O root:Packages:NIST:VSANS:VCALC 
     569        NewDataFolder/O root:Packages:NIST:VSANS:VCALC:Front 
     570        NewDataFolder/O root:Packages:NIST:VSANS:VCALC:Middle 
     571        NewDataFolder/O root:Packages:NIST:VSANS:VCALC:Back 
    569572         
    570573         
     
    581584///// FRONT DETECTOR BANKS 
    582585// dimensions for the detector banks (then get them in the drawing functions) 
    583         Variable/G front_LR_w = 384             //front bank, nominal LR panel width (mm) 
    584         Variable/G front_LR_h = 1000 
    585         Variable/G front_TB_w = 500 
    586         Variable/G front_TB_h = 384 
     586        Variable/G gFront_LR_w = 384            //front bank, nominal LR panel width (mm) 
     587        Variable/G gFront_LR_h = 1000 
     588        Variable/G gFront_TB_w = 500 
     589        Variable/G gFront_TB_h = 384 
    587590 
    588591// SDD offset of T/B (decide on units??) 
    589         Variable/G front_SDDOffset = 300                        // (mm) 
     592        Variable/G gFront_SDDOffset = 300                       // (mm) 
    590593         
    591594// detector resolution (xy for each bank!) 
    592         Variable/G front_L_pixelX = 0.8                 // (cm)         these tubes are vertical 
    593         Variable/G front_L_pixelY = 0.4                 // (cm) 
    594         Variable/G front_R_pixelX = 0.8                 // (cm) 
    595         Variable/G front_R_pixelY = 0.4                 // (cm) 
    596          
    597         Variable/G front_T_pixelX = 0.4                 // (cm)         these tubes are horizontal 
    598         Variable/G front_T_pixelY = 0.8                 // (cm) 
    599         Variable/G front_B_pixelX = 0.4                 // (cm) 
    600         Variable/G front_B_pixelY = 0.8                 // (cm) 
     595        Variable/G gFront_L_pixelX = 0.8                        // (cm)         these tubes are vertical 
     596        Variable/G gFront_L_pixelY = 0.4                        // (cm) 
     597        Variable/G gFront_R_pixelX = 0.8                        // (cm) 
     598        Variable/G gFront_R_pixelY = 0.4                        // (cm) 
     599         
     600        Variable/G gFront_T_pixelX = 0.4                        // (cm)         these tubes are horizontal 
     601        Variable/G gFront_T_pixelY = 0.8                        // (cm) 
     602        Variable/G gFront_B_pixelX = 0.4                        // (cm) 
     603        Variable/G gFront_B_pixelY = 0.8                        // (cm) 
    601604         
    602605// number of pixels in each bank (this can be modified at acquisition time, so it must be adjustable here) 
     
    605608 
    606609///// MIDDLE DETECTOR BANKS 
    607         Variable/G middle_LR_w = 384            //middle bank, nominal LR panel width (mm) 
    608         Variable/G middle_LR_h = 1000 
    609         Variable/G middle_TB_w = 500 
    610         Variable/G middle_TB_h = 384 
     610        Variable/G gMiddle_LR_w = 384           //middle bank, nominal LR panel width (mm) 
     611        Variable/G gMiddle_LR_h = 1000 
     612        Variable/G gMiddle_TB_w = 500 
     613        Variable/G gMiddle_TB_h = 384 
    611614// SDD offset of T/B (decide on units??) 
    612         Variable/G middle_SDDOffset = 300                       // (mm) 
     615        Variable/G gMiddle_SDDOffset = 300                      // (mm) 
    613616         
    614617// detector resolution (xy for each bank!) 
    615         Variable/G middle_L_pixelX = 0.8                        // (cm)         these tubes are vertical 
    616         Variable/G middle_L_pixelY = 0.4                        // (cm) 
    617         Variable/G middle_R_pixelX = 0.8                        // (cm) 
    618         Variable/G middle_R_pixelY = 0.4                        // (cm) 
    619          
    620         Variable/G middle_T_pixelX = 0.4                        // (cm)         these tubes are horizontal 
    621         Variable/G middle_T_pixelY = 0.8                        // (cm) 
    622         Variable/G middle_B_pixelX = 0.4                        // (cm) 
    623         Variable/G middle_B_pixelY = 0.8                        // (cm) 
     618        Variable/G gMiddle_L_pixelX = 0.8                       // (cm)         these tubes are vertical 
     619        Variable/G gMiddle_L_pixelY = 0.4                       // (cm) 
     620        Variable/G gMiddle_R_pixelX = 0.8                       // (cm) 
     621        Variable/G gMiddle_R_pixelY = 0.4                       // (cm) 
     622         
     623        Variable/G gMiddle_T_pixelX = 0.4                       // (cm)         these tubes are horizontal 
     624        Variable/G gMiddle_T_pixelY = 0.8                       // (cm) 
     625        Variable/G gMiddle_B_pixelX = 0.4                       // (cm) 
     626        Variable/G gMiddle_B_pixelY = 0.8                       // (cm) 
    624627 
    625628 
    626629 
    627630//// BACK DETECTOR 
    628         Variable/G back_w = 320                         //w and h for the back detector, (mm) 
    629         Variable/G back_h = 320 
    630         Variable/G back_pixelX = 0.1            // 1mm resolution (units of cm here) 
    631         Variable/G back_pixelY = 0.1 
     631        Variable/G gBack_w = 320                                //w and h for the back detector, (mm) 
     632        Variable/G gBack_h = 320 
     633        Variable/G gBack_pixelX = 0.1           // 1mm resolution (units of cm here) 
     634        Variable/G gBack_pixelY = 0.1 
    632635 
    633636 
    634637// Generate all of the waves used for the detector and the q values 
    635638// 
    636 // TODO: the dimensions need to be properly defined here... 
     639// TODO: the detector dimensions need to be properly defined here... 
    637640// FRONT 
     641        SetDataFolder root:Packages:NIST:VSANS:VCALC:Front 
     642 
    638643        Make/O/D/N=(48,256) det_FL,det_FR 
    639644        Make/O/D/N=(128,48) det_FT,det_FB 
     
    644649 
    645650//MIDDLE 
    646 // TODO: the dimensions need to be properly defined here... 
     651// TODO: the detector dimensions need to be properly defined here... 
     652        SetDataFolder root:Packages:NIST:VSANS:VCALC:Middle 
     653 
    647654        Make/O/D/N=(48,256) det_ML,det_MR 
    648655        Make/O/D/N=(128,48) det_MT,det_MB 
     
    653660 
    654661// BACK 
     662// TODO: the detector dimensions need to be properly defined here... 
     663        SetDataFolder root:Packages:NIST:VSANS:VCALC:Back 
     664         
    655665        Make/O/D/N=(320,320) det_B 
    656666        Duplicate/O det_B qTot_B,qx_B,qy_B,qz_B 
     
    659669////////////    FOR THE PANEL 
    660670 
     671        SetDataFolder root:Packages:NIST:VSANS:VCALC 
    661672 
    662673// popup strings for each tab (then use the string in the panel) 
     
    689700// limits for detector travel? or are these limits part of the panel, hard-wired there 
    690701 
    691  
    692          
    693          
    694          
    695          
    696702         
    697703//       
     
    775781 
    776782//       
    777         Variable/G instrument = 6               // files (may) be tagged SA6 as the 6th SANS instrument 
    778         Variable/G s12 = 54.8 
     783        Variable/G gInstrument = 6              // files (may) be tagged SA6 as the 6th SANS instrument 
     784        Variable/G gS12 = 54.8 
    779785//      Variable/G d_det = 0.5 
    780786//      Variable/G a_pixel = 0.5 
    781787//      Variable/G del_r = 0.5 
    782788//      Variable/G det_width = 64.0 
    783         Variable/G lambda_t = 5.50 
    784         Variable/G l2r_lower = 132.3 
    785         Variable/G l2r_upper =  1317 
    786         Variable/G lambda_lower = 2.5 
    787         Variable/G lambda_upper = 20.0 
    788         Variable/G d_upper = 25.0 
    789         Variable/G bs_factor = 1.05 
    790         Variable/G t1 = 0.63 
    791         Variable/G t2 = 1.0 
    792         Variable/G t3 = 0.75 
    793         Variable/G l_gap = 100.0 
    794         Variable/G guide_width = 6.0 
    795         Variable/G idmax = 100.0 
     789        Variable/G gLambda_t = 5.50 
     790        Variable/G gL2r_lower = 132.3 
     791        Variable/G gL2r_upper =  1317 
     792        Variable/G gLambda_lower = 2.5 
     793        Variable/G gLambda_upper = 20.0 
     794        Variable/G gD_upper = 25.0 
     795        Variable/G gBs_factor = 1.05 
     796        Variable/G gT1 = 0.63 
     797        Variable/G gT2 = 1.0 
     798        Variable/G gT3 = 0.75 
     799        Variable/G gL_gap = 100.0 
     800        Variable/G gGuide_width = 6.0 
     801        Variable/G gIdmax = 100.0 
    796802 
    797803// 
    798804//      //new values, from 11/2009 --- BeamFluxReport_2009.ifn 
    799         Variable/G phi_0 = 2.42e13 
    800         Variable/G b = 0.0 
    801         Variable/G c = -0.0243 
     805        Variable/G gPhi_0 = 2.42e13 
     806        Variable/G gB = 0.0 
     807        Variable/G gC = -0.0243 
    802808        Variable/G gGuide_loss = 0.924 
    803809//       
    804810//      //fwhm values (new variables) (+3, 0, -3, calibrated 2009) 
    805         Variable/G fwhm_narrow = 0.109 
    806         Variable/G fwhm_mid = 0.125 
    807         Variable/G fwhm_wide = 0.236 
     811        Variable/G gFwhm_narrow = 0.109 
     812        Variable/G gFwhm_mid = 0.125 
     813        Variable/G gFwhm_wide = 0.236 
    808814//       
    809815//      //source apertures (cm) 
    810         Variable/G a1_0_0 = 1.43 
    811         Variable/G a1_0_1 = 2.54 
    812         Variable/G a1_0_2 = 3.81 
    813         Variable/G a1_7_0 = 2.5                 // after the polarizer           
    814         Variable/G a1_7_1 = 5.0 
    815         Variable/G a1_7_1 = 0.95                // 
    816         Variable/G a1_def = 5.00 
     816        Variable/G gA1_0_0 = 1.43 
     817        Variable/G gA1_0_1 = 2.54 
     818        Variable/G gA1_0_2 = 3.81 
     819        Variable/G gA1_7_0 = 2.5                        // after the polarizer           
     820        Variable/G gA1_7_1 = 5.0 
     821        Variable/G gA1_7_1 = 0.95               // 
     822        Variable/G gA1_def = 5.00 
    817823//       
    818824        SetDataFolder root: 
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/V_BinSlitAperture.ipf

    r935 r947  
    1212// 
    1313// 
    14 Function V_fBinDetector_byRows(type) 
    15         String type 
     14Function V_fBinDetector_byRows(folderStr,type) 
     15        String folderStr,type 
    1616         
    1717        SetDataFolder root:Packages:NIST:VSANS:VCALC     
     
    1919        Variable pixSizeX,pixSizeY,delQx, delQy 
    2020 
    21         WAVE inten = $("det_"+type)             // 2D detector data 
     21        WAVE inten = $("root:Packages:NIST:VSANS:VCALC:"+folderStr+":det_"+type)                // 2D detector data 
    2222        WAVE/Z iErr = $("iErr_"+type)                   // 2D errors -- may not exist, especially for simulation 
    23         Wave qTotal = $("qTot_"+type)                   // 2D q-values 
    24         Wave qx = $("qx_"+type) 
    25         Wave qy = $("qy_"+type) 
     23        Wave qTotal = $("root:Packages:NIST:VSANS:VCALC:"+folderStr+":qTot_"+type)                      // 2D q-values 
     24        Wave qx = $("root:Packages:NIST:VSANS:VCALC:"+folderStr+":qx_"+type) 
     25        Wave qy = $("root:Packages:NIST:VSANS:VCALC:"+folderStr+":qy_"+type) 
    2626         
    2727        pixSizeX = VCALC_getPixSizeX(type) 
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/V_DetectorBin_Middle.ipf

    r936 r947  
    1919        // fill the panels with fake sphere scattering data 
    2020        // TODO: am I in the right data folder?? 
    21         SetDataFolder root:Packages:NIST:VSANS:VCALC 
     21        SetDataFolder root:Packages:NIST:VSANS:VCALC:Middle 
    2222 
    2323        WAVE det_ML = det_ML 
     
    4141        // view of how much of the detectors are actually collecting data 
    4242        // -- I can get the separation L/R from the panel - only this "open" width is visible. 
    43         V_SetShadow_TopBottom("","MT")          // TODO: -- be sure the data folder is properly set (within the function...) 
    44         V_SetShadow_TopBottom("","MB") 
     43        V_SetShadow_TopBottom("Middle","MT")            // TODO: -- be sure the data folder is properly set (within the function...) 
     44        V_SetShadow_TopBottom("Middle","MB") 
    4545         
    4646        // do the q-binning for each of the panels to get I(Q) 
     
    8787        M_sdd_offset = VSANS_getTopBottomSDDOffset("MT")        //T/B are 30 cm farther back  //TODO: make all detector parameters global, not hard-wired 
    8888 
    89         SetDataFolder root:Packages:NIST:VSANS:VCALC     
     89        SetDataFolder root:Packages:NIST:VSANS:VCALC:Middle 
    9090        Wave det_ML,det_MR                      // these are (48,256) 
    9191        Wave det_MT,det_MB                      // these are (128,48) 
     
    118118 
    119119//Middle/RIGHT 
    120         SetDataFolder root:Packages:NIST:VSANS:VCALC 
     120        SetDataFolder root:Packages:NIST:VSANS:VCALC:Middle 
    121121        WAVE qTot_MR,qx_MR,qy_MR,qz_MR 
    122122        qTot_MR = 0 
     
    139139 
    140140//Middle/TOP 
    141         SetDataFolder root:Packages:NIST:VSANS:VCALC 
     141        SetDataFolder root:Packages:NIST:VSANS:VCALC:Middle 
    142142        WAVE qTot_MT,qx_MT,qy_MT,qz_MT 
    143143        qTot_MT = 0 
     
    161161 
    162162//Middle/BOTTOM 
    163         SetDataFolder root:Packages:NIST:VSANS:VCALC 
     163        SetDataFolder root:Packages:NIST:VSANS:VCALC:Middle 
    164164        WAVE qTot_MB,qx_MB,qy_MB,qz_MB 
    165165        qTot_MB = 0 
     
    194194//      Display /W=(1477,44,1978,517) 
    195195 
    196         SetDataFolder root:Packages:NIST:VSANS:VCALC 
     196        SetDataFolder root:Packages:NIST:VSANS:VCALC:Middle 
    197197 
    198198        CheckDisplayed /W=VCALC#Panels_Q det_MB 
     
    249249Proc BinAllMiddlePanels() 
    250250 
    251         SetDeltaQ("","ML") 
    252         SetDeltaQ("","MT") 
     251        SetDeltaQ("Middle","ML") 
     252        SetDeltaQ("Middle","MT") 
    253253 
    254254        Variable binType         
     
    275275        if(binType == 4) 
    276276                /// this is for a tall, narrow slit mode         
    277                 V_fBinDetector_byRows("ML") 
    278                 V_fBinDetector_byRows("MR") 
    279                 V_fBinDetector_byRows("MT") 
    280                 V_fBinDetector_byRows("MB") 
     277                V_fBinDetector_byRows("Middle","ML") 
     278                V_fBinDetector_byRows("Middle","MR") 
     279                V_fBinDetector_byRows("Middle","MT") 
     280                V_fBinDetector_byRows("Middle","MB") 
    281281        endif 
    282282End 
     
    415415        // fill the panels with fake sphere scattering data 
    416416        // TODO: am I in the right data folder?? 
    417         SetDataFolder root:Packages:NIST:VSANS:VCALC 
     417        SetDataFolder root:Packages:NIST:VSANS:VCALC:Back 
    418418 
    419419        WAVE det_B = det_B 
     
    463463 
    464464// TODO (make the N along the tube length a variable, since this can be reset @ acquisition) 
    465         SetDataFolder root:Packages:NIST:VSANS:VCALC     
     465        SetDataFolder root:Packages:NIST:VSANS:VCALC:Back 
    466466        Wave det_B                      // this is (320,320) 
    467467 
     
    501501//      Display /W=(1477,44,1978,517) 
    502502 
    503         SetDataFolder root:Packages:NIST:VSANS:VCALC 
     503        SetDataFolder root:Packages:NIST:VSANS:VCALC:Back 
    504504 
    505505        CheckDisplayed /W=VCALC#Panels_Q det_B 
     
    546546Proc BinAllBackPanels() 
    547547 
    548         SetDeltaQ("","B") 
     548        SetDeltaQ("Back","B") 
    549549 
    550550        Variable binType         
     
    557557        if(binType == 4) 
    558558                /// this is for a tall, narrow slit mode         
    559                 V_fBinDetector_byRows("B") 
     559                V_fBinDetector_byRows("Back","B") 
    560560        endif    
    561561         
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/V_DetectorBinning.ipf

    r936 r947  
    3939        // fill the panels with fake sphere scattering data 
    4040        // TODO: am I in the right data folder?? 
    41         SetDataFolder root:Packages:NIST:VSANS:VCALC 
     41        SetDataFolder root:Packages:NIST:VSANS:VCALC:Front 
    4242 
    4343        WAVE det_FL = det_FL 
     
    6666        // -- I can get the separation L/R from the panel - only this "open" width is visible. 
    6767        //TODO - make this a proper shadow - TB extent of the LR panels matters too, not just the LR separation 
    68         V_SetShadow_TopBottom("","FT")          // TODO: -- be sure the data folder is properly set (within the function...) 
    69         V_SetShadow_TopBottom("","FB") 
     68        V_SetShadow_TopBottom("Front","FT")             // TODO: -- be sure the data folder is properly set (within the function...) 
     69        V_SetShadow_TopBottom("Front","FB") 
    7070         
    7171        // do the q-binning for each of the panels to get I(Q) 
     
    8383        String type 
    8484 
    85         SetDataFolder root:Packages:NIST:VSANS:VCALC 
     85        SetDataFolder root:Packages:NIST:VSANS:VCALC:Front 
    8686 
    8787        // q-values and detector arrays already allocated and calculated 
     
    222222        F_sdd_offset = VSANS_getTopBottomSDDOffset("FT")        //T/B are 300 mm farther back  //TODO: make all detector parameters global, not hard-wired 
    223223 
    224         SetDataFolder root:Packages:NIST:VSANS:VCALC     
     224        SetDataFolder root:Packages:NIST:VSANS:VCALC:Front 
    225225        Wave det_FL,det_FR                      // these are (48,256) 
    226226        Wave det_FT,det_FB                      // these are (128,48) 
     
    254254 
    255255//FRONT/RIGHT 
    256         SetDataFolder root:Packages:NIST:VSANS:VCALC 
     256        SetDataFolder root:Packages:NIST:VSANS:VCALC:Front 
    257257        WAVE qTot_FR,qx_FR,qy_FR,qz_FR 
    258258        qTot_FR = 0 
     
    275275 
    276276//FRONT/TOP 
    277         SetDataFolder root:Packages:NIST:VSANS:VCALC 
     277        SetDataFolder root:Packages:NIST:VSANS:VCALC:Front 
    278278        WAVE qTot_FT,qx_FT,qy_FT,qz_FT 
    279279        qTot_FT = 0 
     
    297297 
    298298//FRONT/BOTTOM 
    299         SetDataFolder root:Packages:NIST:VSANS:VCALC 
     299        SetDataFolder root:Packages:NIST:VSANS:VCALC:Front 
    300300        WAVE qTot_FB,qx_FB,qy_FB,qz_FB 
    301301        qTot_FB = 0 
     
    347347 
    348348//detector data 
    349         Wave det = $("root:Packages:NIST:VSANS:VCALC:"+"det_"+type) 
     349        Wave det = $("root:Packages:NIST:VSANS:VCALC:"+folderStr+":det_"+type) 
    350350 
    351351// TODO - these are to be set from globals, not hard-wired 
     
    378378//      Display /W=(1477,44,1978,517) 
    379379 
    380         SetDataFolder root:Packages:NIST:VSANS:VCALC 
     380        SetDataFolder root:Packages:NIST:VSANS:VCALC:Front 
    381381 
    382382        CheckDisplayed /W=VCALC#Panels_Q det_FB 
     
    702702Proc BinAllFrontPanels() 
    703703 
    704         SetDeltaQ("","FL") 
    705         SetDeltaQ("","FT") 
     704        SetDeltaQ("Front","FL") 
     705        SetDeltaQ("Front","FT") 
    706706 
    707707        Variable binType         
     
    728728        if(binType == 4) 
    729729                /// this is for a tall, narrow slit mode         
    730                 V_fBinDetector_byRows("FL") 
    731                 V_fBinDetector_byRows("FR") 
    732                 V_fBinDetector_byRows("FT") 
    733                 V_fBinDetector_byRows("FB") 
     730                V_fBinDetector_byRows("Front","FL") 
     731                V_fBinDetector_byRows("Front","FR") 
     732                V_fBinDetector_byRows("Front","FT") 
     733                V_fBinDetector_byRows("Front","FB") 
    734734        endif 
    735735                 
     
    737737 
    738738 
    739 //TODO -- folderStr is ignored in this function 
    740739Function SetDeltaQ(folderStr,type) 
    741740        String folderStr,type 
    742          
    743         WAVE inten = $("root:Packages:NIST:VSANS:VCALC:" + "det_"+type)         // 2D detector data 
     741 
     742        WAVE inten = $("root:Packages:NIST:VSANS:VCALC:" + folderStr + ":det_"+type)            // 2D detector data 
    744743         
    745744        Variable xDim,yDim,delQ 
     
    749748         
    750749        if(xDim<yDim) 
    751                 WAVE qx = $("root:Packages:NIST:VSANS:VCALC:" + "qx_"+type) 
     750                WAVE qx = $("root:Packages:NIST:VSANS:VCALC:" + folderStr + ":qx_"+type) 
    752751                delQ = abs(qx[0][0] - qx[1][0])/2 
    753752        else 
    754                 WAVE qy = $("root:Packages:NIST:VSANS:VCALC:" + "qy_"+type) 
     753                WAVE qy = $("root:Packages:NIST:VSANS:VCALC:" + folderStr + ":qy_"+type) 
    755754                delQ = abs(qy[0][1] - qy[0][0])/2 
    756755        endif 
    757756         
    758757        // set the global 
    759         Variable/G $("root:Packages:NIST:VSANS:VCALC:" + "delQ_"+type) = delQ 
     758        Variable/G $("root:Packages:NIST:VSANS:VCALC:" + "gDelQ_"+type) = delQ 
    760759//      Print "SET delQ = ",delQ," for ",type 
    761760         
     
    772771 
    773772 
    774         V_fDoBinning_QxQy2D("", type) 
     773        V_fDoBinning_QxQy2D(folderStr, type) 
    775774 
    776775 
    777776/// this is for a tall, narrow slit mode         
    778 //      V_fBinDetector_byRows(type) 
     777//      V_fBinDetector_byRows(folderStr,type) 
    779778         
    780779End 
     780 
    781781 
    782782Proc V_Graph_1D_detType(folderStr,type) 
     
    801801//Function fDoBinning_QxQy2D(inten,qx,qy,qz) 
    802802// 
    803 // this has been modeified to accept different detector panels and to take arrays 
     803// this has been modified to accept different detector panels and to take arrays 
    804804// -- type = FL or FR or...other panel identifiers 
    805805// 
     
    809809Function V_fDoBinning_QxQy2D(folderStr,type) 
    810810        String folderStr,type 
    811  
    812         // TODO: folderStr is ignored here 
    813         folderStr = "" 
    814811         
    815812        Variable nSets = 0 
     
    818815        Variable qVal,nq,var,avesq,aveisq 
    819816        Variable binIndex,val 
    820          
     817 
    821818         
    822819        SetDataFolder root:Packages:NIST:VSANS:VCALC 
     
    829826                case "FL":              // execute if case matches expression 
    830827                case "FR": 
    831                         NVAR delQ = $("root:Packages:NIST:VSANS:VCALC:" + "delQ_FL") 
    832                         WAVE inten = $("det_"+type)             // 2D detector data 
     828                        NVAR delQ = $("root:Packages:NIST:VSANS:VCALC:" + "gDelQ_FL") 
     829                        WAVE inten = $("root:Packages:NIST:VSANS:VCALC:" + "Front" + ":det_"+type)              // 2D detector data 
    833830                        WAVE/Z iErr = $("iErr_"+type)                   // 2D errors -- may not exist, especially for simulation 
    834                         Wave qTotal = $("qTot_"+type)                   // 2D q-values 
     831                        Wave qTotal = $("root:Packages:NIST:VSANS:VCALC:" + "Front" +":qTot_"+type)                     // 2D q-values 
    835832                        nSets = 1 
    836833                        break    
     
    838835                case "FT":               
    839836                case "FB": 
    840                         NVAR delQ = $("root:Packages:NIST:VSANS:VCALC:" + "delQ_FT") 
    841                         WAVE inten = $("det_"+type)             // 2D detector data 
     837                        NVAR delQ = $("root:Packages:NIST:VSANS:VCALC:" + "gDelQ_FT") 
     838                        WAVE inten = $("root:Packages:NIST:VSANS:VCALC:" + "Front" + ":det_"+type)              // 2D detector data 
    842839                        WAVE/Z iErr = $("iErr_"+type)                   // 2D errors -- may not exist, especially for simulation 
    843                         Wave qTotal = $("qTot_"+type)                   // 2D q-values 
     840                        Wave qTotal = $("root:Packages:NIST:VSANS:VCALC:" + "Front" +":qTot_"+type)                     // 2D q-values 
    844841                        nSets = 1 
    845842                        break 
     
    847844                case "ML":               
    848845                case "MR":               
    849                         NVAR delQ = $("root:Packages:NIST:VSANS:VCALC:" + "delQ_ML") 
    850                         WAVE inten = $("det_"+type)             // 2D detector data 
     846                        NVAR delQ = $("root:Packages:NIST:VSANS:VCALC:" + "gDelQ_ML") 
     847                        WAVE inten = $("root:Packages:NIST:VSANS:VCALC:" + "Middle" + ":det_"+type)             // 2D detector data 
    851848                        WAVE/Z iErr = $("iErr_"+type)                   // 2D errors -- may not exist, especially for simulation 
    852                         Wave qTotal = $("qTot_"+type)                   // 2D q-values 
     849                        Wave qTotal = $("root:Packages:NIST:VSANS:VCALC:" + "Middle" +":qTot_"+type)                    // 2D q-values 
    853850                        nSets = 1 
    854851                        break    
     
    856853                case "MT":               
    857854                case "MB":               
    858                         NVAR delQ = $("root:Packages:NIST:VSANS:VCALC:" + "delQ_MT") 
    859                         WAVE inten = $("det_"+type)             // 2D detector data 
     855                        NVAR delQ = $("root:Packages:NIST:VSANS:VCALC:" + "gDelQ_MT") 
     856                        WAVE inten = $("root:Packages:NIST:VSANS:VCALC:" + "Middle" + ":det_"+type)             // 2D detector data 
    860857                        WAVE/Z iErr = $("iErr_"+type)                   // 2D errors -- may not exist, especially for simulation 
    861                         Wave qTotal = $("qTot_"+type)                   // 2D q-values 
     858                        Wave qTotal = $("root:Packages:NIST:VSANS:VCALC:" + "Middle" +":qTot_"+type)                    // 2D q-values 
    862859                        nSets = 1 
    863860                        break    
    864861                                         
    865862                case "B":                
    866                         NVAR delQ = $("root:Packages:NIST:VSANS:VCALC:" + "delQ_B") 
    867                         WAVE inten = $("det_"+type)             // 2D detector data 
     863                        NVAR delQ = $("root:Packages:NIST:VSANS:VCALC:" + "gDelQ_B") 
     864                        WAVE inten = $("root:Packages:NIST:VSANS:VCALC:" + "Back" + ":det_"+type)               // 2D detector data 
    868865                        WAVE/Z iErr = $("iErr_"+type)                   // 2D errors -- may not exist, especially for simulation 
    869                         Wave qTotal = $("qTot_"+type)                   // 2D q-values 
     866                        Wave qTotal = $("root:Packages:NIST:VSANS:VCALC:" + "Back" +":qTot_"+type)                      // 2D q-values 
    870867                        nSets = 1 
    871868                        break    
    872869                         
    873870                case "FLR": 
    874                         NVAR delQ = $("root:Packages:NIST:VSANS:VCALC:" + "delQ_FL") 
    875                         WAVE inten = $("det_"+"FL")             // 2D detector data 
     871                        NVAR delQ = $("root:Packages:NIST:VSANS:VCALC:" + "gDelQ_FL") 
     872                        WAVE inten = $("root:Packages:NIST:VSANS:VCALC:" + "Front" + ":det_"+"FL")              // 2D detector data 
    876873                        WAVE/Z iErr = $("iErr_"+"FL")                   // 2D errors -- may not exist, especially for simulation 
    877                         Wave qTotal = $("qTot_"+"FL")                   // 2D q-values 
    878                         WAVE inten2 = $("det_"+"FR")            // 2D detector data 
     874                        Wave qTotal = $("root:Packages:NIST:VSANS:VCALC:" + "Front" +":qTot_"+"FL")                     // 2D q-values 
     875                        WAVE inten2 = $("root:Packages:NIST:VSANS:VCALC:" + "Front" + ":det_"+"FR")             // 2D detector data 
    879876                        WAVE/Z iErr2 = $("iErr_"+"FR")                  // 2D errors -- may not exist, especially for simulation 
    880                         Wave qTotal2 = $("qTot_"+"FR")                  // 2D q-values 
     877                        Wave qTotal2 = $("root:Packages:NIST:VSANS:VCALC:" + "Front" +":qTot_"+"FR")                    // 2D q-values 
    881878                        nSets = 2 
    882879                        break                    
    883880                 
    884881                case "FTB": 
    885                         NVAR delQ = $("root:Packages:NIST:VSANS:VCALC:" + "delQ_FT") 
    886                         WAVE inten = $("det_"+"FT")             // 2D detector data 
     882                        NVAR delQ = $("root:Packages:NIST:VSANS:VCALC:" + "gDelQ_FT") 
     883                        WAVE inten = $("root:Packages:NIST:VSANS:VCALC:" + "Front" + ":det_"+"FT")              // 2D detector data 
    887884                        WAVE/Z iErr = $("iErr_"+"FT")                   // 2D errors -- may not exist, especially for simulation 
    888                         Wave qTotal = $("qTot_"+"FT")                   // 2D q-values 
    889                         WAVE inten2 = $("det_"+"FB")            // 2D detector data 
     885                        Wave qTotal = $("root:Packages:NIST:VSANS:VCALC:" + "Front" +":qTot_"+"FT")                     // 2D q-values 
     886                        WAVE inten2 = $("root:Packages:NIST:VSANS:VCALC:" + "Front" + ":det_"+"FB")             // 2D detector data 
    890887                        WAVE/Z iErr2 = $("iErr_"+"FB")                  // 2D errors -- may not exist, especially for simulation 
    891                         Wave qTotal2 = $("qTot_"+"FB")                  // 2D q-values 
     888                        Wave qTotal2 = $("root:Packages:NIST:VSANS:VCALC:" + "Front" +":qTot_"+"FB")                    // 2D q-values 
    892889                        nSets = 2 
    893890                        break            
    894891                 
    895892                case "FLRTB": 
    896                         NVAR delQ = $("root:Packages:NIST:VSANS:VCALC:" + "delQ_FL") 
    897                         WAVE inten = $("det_"+"FL")             // 2D detector data 
     893                        NVAR delQ = $("root:Packages:NIST:VSANS:VCALC:" + "gDelQ_FL") 
     894                        WAVE inten = $("root:Packages:NIST:VSANS:VCALC:" + "Front" + ":det_"+"FL")              // 2D detector data 
    898895                        WAVE/Z iErr = $("iErr_"+"FL")                   // 2D errors -- may not exist, especially for simulation 
    899                         Wave qTotal = $("qTot_"+"FL")                   // 2D q-values 
    900                         WAVE inten2 = $("det_"+"FR")            // 2D detector data 
     896                        Wave qTotal = $("root:Packages:NIST:VSANS:VCALC:" + "Front" +":qTot_"+"FL")                     // 2D q-values 
     897                        WAVE inten2 = $("root:Packages:NIST:VSANS:VCALC:" + "Front" + ":det_"+"FR")             // 2D detector data 
    901898                        WAVE/Z iErr2 = $("iErr_"+"FR")                  // 2D errors -- may not exist, especially for simulation 
    902                         Wave qTotal2 = $("qTot_"+"FR")                  // 2D q-values 
    903                         WAVE inten3 = $("det_"+"FT")            // 2D detector data 
     899                        Wave qTotal2 = $("root:Packages:NIST:VSANS:VCALC:" + "Front" +":qTot_"+"FR")                    // 2D q-values 
     900                        WAVE inten3 = $("root:Packages:NIST:VSANS:VCALC:" + "Front" + ":det_"+"FT")             // 2D detector data 
    904901                        WAVE/Z iErr3 = $("iErr_"+"FT")                  // 2D errors -- may not exist, especially for simulation 
    905                         Wave qTotal3 = $("qTot_"+"FT")                  // 2D q-values 
    906                         WAVE inten4 = $("det_"+"FB")            // 2D detector data 
     902                        Wave qTotal3 = $("root:Packages:NIST:VSANS:VCALC:" + "Front" +":qTot_"+"FT")                    // 2D q-values 
     903                        WAVE inten4 = $("root:Packages:NIST:VSANS:VCALC:" + "Front" + ":det_"+"FB")             // 2D detector data 
    907904                        WAVE/Z iErr4 = $("iErr_"+"FB")                  // 2D errors -- may not exist, especially for simulation 
    908                         Wave qTotal4 = $("qTot_"+"FB")                  // 2D q-values 
     905                        Wave qTotal4 = $("root:Packages:NIST:VSANS:VCALC:" + "Front" +":qTot_"+"FB")                    // 2D q-values 
    909906                        nSets = 4 
    910907                        break            
     
    912909 
    913910                case "MLR": 
    914                         NVAR delQ = $("root:Packages:NIST:VSANS:VCALC:" + "delQ_ML") 
    915                         WAVE inten = $("det_"+"ML")             // 2D detector data 
     911                        NVAR delQ = $("root:Packages:NIST:VSANS:VCALC:" + "gDelQ_ML") 
     912                        WAVE inten = $("root:Packages:NIST:VSANS:VCALC:" + "Middle" + ":det_"+"ML")             // 2D detector data 
    916913                        WAVE/Z iErr = $("iErr_"+"ML")                   // 2D errors -- may not exist, especially for simulation 
    917                         Wave qTotal = $("qTot_"+"ML")                   // 2D q-values 
    918                         WAVE inten2 = $("det_"+"MR")            // 2D detector data 
     914                        Wave qTotal = $("root:Packages:NIST:VSANS:VCALC:" + "Middle" +":qTot_"+"ML")                    // 2D q-values 
     915                        WAVE inten2 = $("root:Packages:NIST:VSANS:VCALC:" + "Middle" + ":det_"+"MR")            // 2D detector data 
    919916                        WAVE/Z iErr2 = $("iErr_"+"MR")                  // 2D errors -- may not exist, especially for simulation 
    920                         Wave qTotal2 = $("qTot_"+"MR")                  // 2D q-values 
     917                        Wave qTotal2 = $("root:Packages:NIST:VSANS:VCALC:" + "Middle" +":qTot_"+"MR")                   // 2D q-values 
    921918                        nSets = 2 
    922919                        break                    
    923920                 
    924921                case "MTB": 
    925                         NVAR delQ = $("root:Packages:NIST:VSANS:VCALC:" + "delQ_MT") 
    926                         WAVE inten = $("det_"+"MT")             // 2D detector data 
     922                        NVAR delQ = $("root:Packages:NIST:VSANS:VCALC:" + "gDelQ_MT") 
     923                        WAVE inten = $("root:Packages:NIST:VSANS:VCALC:" + "Middle" + ":det_"+"MT")             // 2D detector data 
    927924                        WAVE/Z iErr = $("iErr_"+"MT")                   // 2D errors -- may not exist, especially for simulation 
    928                         Wave qTotal = $("qTot_"+"MT")                   // 2D q-values 
    929                         WAVE inten2 = $("det_"+"MB")            // 2D detector data 
     925                        Wave qTotal = $("root:Packages:NIST:VSANS:VCALC:" + "Middle" +":qTot_"+"MT")                    // 2D q-values 
     926                        WAVE inten2 = $("root:Packages:NIST:VSANS:VCALC:" + "Middle" + ":det_"+"MB")            // 2D detector data 
    930927                        WAVE/Z iErr2 = $("iErr_"+"MB")                  // 2D errors -- may not exist, especially for simulation 
    931                         Wave qTotal2 = $("qTot_"+"MB")                  // 2D q-values 
     928                        Wave qTotal2 = $("root:Packages:NIST:VSANS:VCALC:" + "Middle" +":qTot_"+"MB")                   // 2D q-values 
    932929                        nSets = 2 
    933930                        break                            
    934931                 
    935932                case "MLRTB": 
    936                         NVAR delQ = $("root:Packages:NIST:VSANS:VCALC:" + "delQ_ML") 
    937                         WAVE inten = $("det_"+"ML")             // 2D detector data 
     933                        NVAR delQ = $("root:Packages:NIST:VSANS:VCALC:" + "gDelQ_ML") 
     934                        WAVE inten = $("root:Packages:NIST:VSANS:VCALC:" + "Middle" + ":det_"+"ML")             // 2D detector data 
    938935                        WAVE/Z iErr = $("iErr_"+"ML")                   // 2D errors -- may not exist, especially for simulation 
    939                         Wave qTotal = $("qTot_"+"ML")                   // 2D q-values 
    940                         WAVE inten2 = $("det_"+"MR")            // 2D detector data 
     936                        Wave qTotal = $("root:Packages:NIST:VSANS:VCALC:" + "Middle" +":qTot_"+"ML")                    // 2D q-values 
     937                        WAVE inten2 = $("root:Packages:NIST:VSANS:VCALC:" + "Middle" + ":det_"+"MR")            // 2D detector data 
    941938                        WAVE/Z iErr2 = $("iErr_"+"MR")                  // 2D errors -- may not exist, especially for simulation 
    942                         Wave qTotal2 = $("qTot_"+"MR")                  // 2D q-values 
    943                         WAVE inten3 = $("det_"+"MT")            // 2D detector data 
     939                        Wave qTotal2 = $("root:Packages:NIST:VSANS:VCALC:" + "Middle" +":qTot_"+"MR")                   // 2D q-values 
     940                        WAVE inten3 = $("root:Packages:NIST:VSANS:VCALC:" + "Middle" + ":det_"+"MT")            // 2D detector data 
    944941                        WAVE/Z iErr3 = $("iErr_"+"MT")                  // 2D errors -- may not exist, especially for simulation 
    945                         Wave qTotal3 = $("qTot_"+"MT")                  // 2D q-values 
    946                         WAVE inten4 = $("det_"+"MB")            // 2D detector data 
     942                        Wave qTotal3 = $("root:Packages:NIST:VSANS:VCALC:" + "Middle" +":qTot_"+"MT")                   // 2D q-values 
     943                        WAVE inten4 = $("root:Packages:NIST:VSANS:VCALC:" + "Middle" + ":det_"+"MB")            // 2D detector data 
    947944                        WAVE/Z iErr4 = $("iErr_"+"MB")                  // 2D errors -- may not exist, especially for simulation 
    948                         Wave qTotal4 = $("qTot_"+"MB")                  // 2D q-values 
     945                        Wave qTotal4 = $("root:Packages:NIST:VSANS:VCALC:" + "Middle" +":qTot_"+"MB")                   // 2D q-values 
    949946                        nSets = 4 
    950947                        break                                                                    
     
    974971        // note that the back panel of 320x320 (1mm res) results in 447 data points! 
    975972        // - so I upped nq to 600 
    976          
     973 
     974//******TODO****** -- where to put the averaged data -- right now, folderStr is forced to ""     
    977975//      SetDataFolder $("root:"+folderStr)              //should already be here, but make sure...       
    978976        Make/O/D/N=(nq)  $("root:Packages:NIST:VSANS:VCALC:"+folderStr+"iBin_qxqy"+"_"+type) 
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/V_DetectorFrontViews.ipf

    r935 r947  
    1313 
    1414// Dimensions of detectors 
    15         NVAR F_LR_w = root:Packages:NIST:VSANS:VCALC:front_LR_w 
    16         NVAR F_LR_h =  root:Packages:NIST:VSANS:VCALC:front_LR_h 
    17         NVAR F_TB_w =  root:Packages:NIST:VSANS:VCALC:front_TB_w 
    18         NVAR F_TB_h =  root:Packages:NIST:VSANS:VCALC:front_TB_h 
     15        NVAR F_LR_w = root:Packages:NIST:VSANS:VCALC:gFront_LR_w 
     16        NVAR F_LR_h =  root:Packages:NIST:VSANS:VCALC:gFront_LR_h 
     17        NVAR F_TB_w =  root:Packages:NIST:VSANS:VCALC:gFront_TB_w 
     18        NVAR F_TB_h =  root:Packages:NIST:VSANS:VCALC:gFront_TB_h 
    1919         
    20         NVAR M_LR_w = root:Packages:NIST:VSANS:VCALC:middle_LR_w 
    21         NVAR M_LR_h =  root:Packages:NIST:VSANS:VCALC:middle_LR_h 
    22         NVAR M_TB_w =  root:Packages:NIST:VSANS:VCALC:middle_TB_w 
    23         NVAR M_TB_h =  root:Packages:NIST:VSANS:VCALC:middle_TB_h 
     20        NVAR M_LR_w = root:Packages:NIST:VSANS:VCALC:gMiddle_LR_w 
     21        NVAR M_LR_h =  root:Packages:NIST:VSANS:VCALC:gMiddle_LR_h 
     22        NVAR M_TB_w =  root:Packages:NIST:VSANS:VCALC:gMiddle_TB_w 
     23        NVAR M_TB_h =  root:Packages:NIST:VSANS:VCALC:gMiddle_TB_h 
    2424 
    25         NVAR B_h =  root:Packages:NIST:VSANS:VCALC:back_h 
    26         NVAR B_w =  root:Packages:NIST:VSANS:VCALC:back_w 
     25        NVAR B_h =  root:Packages:NIST:VSANS:VCALC:gBack_h 
     26        NVAR B_w =  root:Packages:NIST:VSANS:VCALC:gBack_w 
    2727 
    2828 
     
    3535// these offset values are in mm !! 
    3636//in mm !!  distance T/B are behind L/R - not to be confused with lateral offset 
    37         NVAR front_SDDOffset = root:Packages:NIST:VSANS:VCALC:front_SDDOffset 
    38         NVAR middle_SDDOffset = root:Packages:NIST:VSANS:VCALC:middle_SDDOffset 
     37        NVAR front_SDDOffset = root:Packages:NIST:VSANS:VCALC:gFront_SDDOffset 
     38        NVAR middle_SDDOffset = root:Packages:NIST:VSANS:VCALC:gMiddle_SDDOffset 
    3939         
    4040         
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/V_FrontDetectorPanelGraph.ipf

    r935 r947  
    6060 
    6161// Dimensions of detectors 
    62         NVAR F_LR_w = front_LR_w 
    63         NVAR F_LR_h =  front_LR_h 
    64         NVAR F_TB_w =  front_TB_w 
    65         NVAR F_TB_h =  front_TB_h 
    66          
    67         NVAR M_LR_w = middle_LR_w 
    68         NVAR M_LR_h =  middle_LR_h 
    69         NVAR M_TB_w =  middle_TB_w 
    70         NVAR M_TB_h =  middle_TB_h 
    71  
    72         NVAR B_h =  back_h 
    73         NVAR B_w =  back_w 
     62        NVAR F_LR_w = gFront_LR_w 
     63        NVAR F_LR_h = gFront_LR_h 
     64        NVAR F_TB_w = gFront_TB_w 
     65        NVAR F_TB_h = gFront_TB_h 
     66         
     67        NVAR M_LR_w = gMiddle_LR_w 
     68        NVAR M_LR_h = gMiddle_LR_h 
     69        NVAR M_TB_w = gMiddle_TB_w 
     70        NVAR M_TB_h = gMiddle_TB_h 
     71 
     72        NVAR B_h = gBack_h 
     73        NVAR B_w = gBack_w 
    7474 
    7575 
    7676// get the values from the panel 
    77         Variable F_LR_sep,F_TB_sep, F_SDD, F_offset, TB_SDD_offset 
     77        Variable F_LR_sep,F_TB_sep, F_SDD, F_offset 
    7878        Variable M_LR_sep,M_TB_sep, M_SDD, M_offset 
    7979        Variable B_SDD, B_offset 
    8080 
    81 // TODO -- this needs to be a global     
    82         TB_SDD_offset = 300             //in mm !!  distance T/B are behind L/R - not to be confused with lateral offset 
     81        NVAR TB_SDD_offset = gFront_SDDOffset           //in mm !!  distance T/B are behind L/R - not to be confused with lateral offset 
    8382        TB_SDD_offset /= 1000           //convert to meters for the plot 
    8483         
     
    287286 
    288287// Dimensions of detectors 
    289         NVAR F_LR_w = front_LR_w 
    290         NVAR F_LR_h =  front_LR_h 
    291         NVAR F_TB_w =  front_TB_w 
    292         NVAR F_TB_h =  front_TB_h 
    293          
    294         NVAR M_LR_w = middle_LR_w 
    295         NVAR M_LR_h =  middle_LR_h 
    296         NVAR M_TB_w =  middle_TB_w 
    297         NVAR M_TB_h =  middle_TB_h 
    298  
    299         NVAR B_h =  back_h 
    300         NVAR B_w =  back_w 
     288        NVAR F_LR_w = gFront_LR_w 
     289        NVAR F_LR_h = gFront_LR_h 
     290        NVAR F_TB_w = gFront_TB_w 
     291        NVAR F_TB_h = gFront_TB_h 
     292         
     293        NVAR M_LR_w = gMiddle_LR_w 
     294        NVAR M_LR_h = gMiddle_LR_h 
     295        NVAR M_TB_w = gMiddle_TB_w 
     296        NVAR M_TB_h = gMiddle_TB_h 
     297 
     298        NVAR B_h = gBack_h 
     299        NVAR B_w = gBack_w 
    301300 
    302301 
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/V_UtilityProcedures.ipf

    r935 r947  
    178178        strswitch(type)  
    179179                case "FL": 
    180                         NVAR pixSizeX = front_L_pixelX 
     180                        NVAR pixSizeX = gFront_L_pixelX 
    181181                        break 
    182182                case "FR":               
    183                         NVAR pixSizeX = front_R_pixelX 
    184                         break 
    185                 case "FT": 
    186                         NVAR pixSizeX = front_T_pixelX 
     183                        NVAR pixSizeX = gFront_R_pixelX 
     184                        break 
     185                case "FT": 
     186                        NVAR pixSizeX = gFront_T_pixelX 
    187187                        break    
    188188                case "FB":               
    189                         NVAR pixSizeX = front_B_pixelX 
    190                         break 
    191                          
    192                 case "ML": 
    193                         NVAR pixSizeX = middle_L_pixelX 
     189                        NVAR pixSizeX = gFront_B_pixelX 
     190                        break 
     191                         
     192                case "ML": 
     193                        NVAR pixSizeX = gMiddle_L_pixelX 
    194194                        break 
    195195                case "MR":               
    196                         NVAR pixSizeX = middle_R_pixelX 
    197                         break 
    198                 case "MT": 
    199                         NVAR pixSizeX = middle_T_pixelX 
     196                        NVAR pixSizeX = gMiddle_R_pixelX 
     197                        break 
     198                case "MT": 
     199                        NVAR pixSizeX = gMiddle_T_pixelX 
    200200                        break    
    201201                case "MB":               
    202                         NVAR pixSizeX = middle_B_pixelX 
    203                         break 
    204                                                  
    205                 case "B":                
    206                         NVAR pixSizeX = Back_pixelX 
     202                        NVAR pixSizeX = gMiddle_B_pixelX 
     203                        break 
     204                                                 
     205                case "B":                
     206                        NVAR pixSizeX = gBack_pixelX 
    207207                        break 
    208208                         
     
    225225        strswitch(type)  
    226226                case "FL": 
    227                         NVAR pixSizeY = front_L_pixelY 
     227                        NVAR pixSizeY = gFront_L_pixelY 
    228228                        break 
    229229                case "FR":               
    230                         NVAR pixSizeY = front_R_pixelY 
    231                         break 
    232                 case "FT": 
    233                         NVAR pixSizeY = front_T_pixelY 
     230                        NVAR pixSizeY = gFront_R_pixelY 
     231                        break 
     232                case "FT": 
     233                        NVAR pixSizeY = gFront_T_pixelY 
    234234                        break    
    235235                case "FB":               
    236                         NVAR pixSizeY = front_B_pixelY 
    237                         break 
    238                          
    239                 case "ML": 
    240                         NVAR pixSizeY = middle_L_pixelY 
     236                        NVAR pixSizeY = gFront_B_pixelY 
     237                        break 
     238                         
     239                case "ML": 
     240                        NVAR pixSizeY = gMiddle_L_pixelY 
    241241                        break 
    242242                case "MR":               
    243                         NVAR pixSizeY = middle_R_pixelY 
    244                         break 
    245                 case "MT": 
    246                         NVAR pixSizeY = middle_T_pixelY 
     243                        NVAR pixSizeY = gMiddle_R_pixelY 
     244                        break 
     245                case "MT": 
     246                        NVAR pixSizeY = gMiddle_T_pixelY 
    247247                        break    
    248248                case "MB":               
    249                         NVAR pixSizeY = middle_B_pixelY 
    250                         break 
    251                                                  
    252                 case "B":                
    253                         NVAR pixSizeY = Back_pixelY 
     249                        NVAR pixSizeY = gMiddle_B_pixelY 
     250                        break 
     251                                                 
     252                case "B":                
     253                        NVAR pixSizeY = gBack_pixelY 
    254254                        break 
    255255                         
     
    279279                case "FT": 
    280280                case "FB":               
    281                         NVAR sdd_offset = front_SDDOffset       //T/B are 300 mm farther back  
     281                        NVAR sdd_offset = gFront_SDDOffset      //T/B are 300 mm farther back  
    282282                        break 
    283283                         
     
    288288                case "MT": 
    289289                case "MB": 
    290                         NVAR sdd_offset = Middle_SDDOffset      //T/B are 30 cm farther back 
     290                        NVAR sdd_offset = gMiddle_SDDOffset     //T/B are 30 cm farther back 
    291291                        break    
    292292                                                 
Note: See TracChangeset for help on using the changeset viewer.