Ignore:
Timestamp:
Feb 21, 2017 1:03:50 PM (6 years ago)
Author:
srkline
Message:

minor changes to prefix functions with "V_" to avoid conflicts with non-VSANS functions.

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

Legend:

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

    r1023 r1024  
    2222                NewDataFolder/O root:Packages:NIST:VSANS:Globals:BeamCenter 
    2323 
    24                 Execute "DetectorPanelFit()" 
     24                Execute "V_DetectorPanelFit()" 
    2525        endif 
    2626End 
     
    2929//      ModifyGraph width={Plan,1,bottom,left} 
    3030// 
    31 Proc DetectorPanelFit() : Panel 
     31Proc V_DetectorPanelFit() : Panel 
    3232        PauseUpdate; Silent 1           // building window... 
    3333 
    3434// plot the default model to be sure some data is present 
    3535        if(exists("xwave_PeakPix2D") == 0) 
    36                 PlotBroadPeak_Pix2D() 
     36                V_PlotBroadPeak_Pix2D() 
    3737        endif 
    3838 
     
    4040//      ShowTools/A 
    4141         
    42         PopupMenu popup_0,pos={20,50},size={109,20},proc=SetDetPanelPopMenuProc,title="Detector Panel" 
     42        PopupMenu popup_0,pos={20,50},size={109,20},proc=V_SetDetPanelPopMenuProc,title="Detector Panel" 
    4343        PopupMenu popup_0,mode=1,popvalue="FL",value= #"\"FL;FR;FT;FB;ML;MR;MT;MB;B;\"" 
    44         PopupMenu popup_1,pos={200,20},size={157,20},proc=DetModelPopMenuProc,title="Model Function" 
     44        PopupMenu popup_1,pos={200,20},size={157,20},proc=V_DetModelPopMenuProc,title="Model Function" 
    4545        PopupMenu popup_1,mode=1,popvalue="BroadPeak",value= #"\"BroadPeak;other;\"" 
    4646        PopupMenu popup_2,pos={20,20},size={109,20},title="Data Source"//,proc=SetFldrPopMenuProc 
    4747        PopupMenu popup_2,mode=1,popvalue="RAW",value= #"\"RAW;SAM;VCALC;\"" 
    4848                 
    49         Button button_0,pos={486,20},size={80,20},proc=DetFitGuessButtonProc,title="Guess" 
    50         Button button_1,pos={615,20},size={80,20},proc=DetFitButtonProc,title="Do Fit" 
    51         Button button_2,pos={744,20},size={80,20},proc=DetFitHelpButtonProc,title="Help" 
    52         Button button_3,pos={615,400},size={110,20},proc=WriteCtrButtonProc,title="Write Centers" 
    53         Button button_4,pos={730,400},size={110,20},proc=CtrTableButtonProc,title="Ctr table" 
    54         Button button_5,pos={730,440},size={110,20},proc=WriteCtrTableButtonProc,title="Write table" 
     49        Button button_0,pos={486,20},size={80,20},proc=V_DetFitGuessButtonProc,title="Guess" 
     50        Button button_1,pos={615,20},size={80,20},proc=V_DetFitButtonProc,title="Do Fit" 
     51        Button button_2,pos={744,20},size={80,20},proc=V_DetFitHelpButtonProc,title="Help" 
     52        Button button_3,pos={615,400},size={110,20},proc=V_WriteCtrButtonProc,title="Write Centers" 
     53        Button button_4,pos={730,400},size={110,20},proc=V_CtrTableButtonProc,title="Ctr table" 
     54        Button button_5,pos={730,440},size={110,20},proc=V_WriteCtrTableButtonProc,title="Write table" 
    5555 
    5656 
     
    6464         
    6565        // draw the correct images 
    66         DrawDetPanel("FL") 
     66        V_DrawDetPanel("FL") 
    6767 
    6868         
     
    106106// function to choose which detector panel to display, and then to actually display it 
    107107// 
    108 Function SetDetPanelPopMenuProc(pa) : PopupMenuControl 
     108Function V_SetDetPanelPopMenuProc(pa) : PopupMenuControl 
    109109        STRUCT WMPopupAction &pa 
    110110 
     
    130130         
    131131                        // draw the correct images 
    132                         DrawDetPanel(popStr) 
     132                        V_DrawDetPanel(popStr) 
    133133                         
    134134                        break 
     
    152152// draw the selected panel and the model calculation, adjusting for the  
    153153// orientation of the panel and the number of pixels, and pixel sizes 
    154 Function DrawDetPanel(str) 
     154Function V_DrawDetPanel(str) 
    155155        String str 
    156156         
     
    349349        // re-dimension the model calculation to be the proper dimensions        
    350350        Redimension/N=(nPix_X*nPix_Y) xwave_PeakPix2D, ywave_PeakPix2D,zwave_PeakPix2D   
    351         FillPixTriplet(xwave_PeakPix2D, ywave_PeakPix2D,zwave_PeakPix2D,nPix_X,nPix_Y) 
     351        V_FillPixTriplet(xwave_PeakPix2D, ywave_PeakPix2D,zwave_PeakPix2D,nPix_X,nPix_Y) 
    352352        Make/O/D/N=(nPix_X,nPix_Y) PeakPix2D_mat                // use the point scaling of the matrix (=pixels) 
    353353 
     
    376376// Function to plot the specified 2D model for the detector 
    377377// 
    378 Function DetModelPopMenuProc(pa) : PopupMenuControl 
     378Function V_DetModelPopMenuProc(pa) : PopupMenuControl 
    379379        STRUCT WMPopupAction &pa 
    380380 
     
    384384                        String popStr = pa.popStr 
    385385                         
    386                         Execute "PlotBroadPeak_Pix2D()" 
     386                        Execute "V_PlotBroadPeak_Pix2D()" 
    387387                         
    388388                        break 
     
    398398// TODO - make a better guess (how?) 
    399399// 
    400 Function DetFitGuessButtonProc(ba) : ButtonControl 
     400Function V_DetFitGuessButtonProc(ba) : ButtonControl 
    401401        STRUCT WMButtonAction &ba 
    402402 
     
    423423// 
    424424// -- will need to recalc mm center AND q-values 
    425 Function WriteCtrButtonProc(ba) : ButtonControl 
     425Function V_WriteCtrButtonProc(ba) : ButtonControl 
    426426        STRUCT WMButtonAction &ba 
    427427 
     
    459459// function to call the fit function (2D) 
    460460// 
    461 Function DetFitButtonProc(ba) : ButtonControl 
     461Function V_DetFitButtonProc(ba) : ButtonControl 
    462462        STRUCT WMButtonAction &ba 
    463463 
     
    469469                        Wave coefW=root:coef_PeakPix2D 
    470470                         
    471                         FuncFitMD/H="11000111100"/NTHR=0 BroadPeak_Pix2D coefW  dispW /D                         
     471                        FuncFitMD/H="11000111100"/NTHR=0 V_BroadPeak_Pix2D coefW  dispW /D                       
    472472                         
    473473                        Wave ws=W_sigma 
     
    482482End 
    483483 
    484 Function DetFitHelpButtonProc(ba) : ButtonControl 
     484Function V_DetFitHelpButtonProc(ba) : ButtonControl 
    485485        STRUCT WMButtonAction &ba 
    486486 
     
    499499End 
    500500 
    501 Function CtrTableButtonProc(ba) : ButtonControl 
     501Function V_CtrTableButtonProc(ba) : ButtonControl 
    502502        STRUCT WMButtonAction &ba 
    503503 
     
    516516End 
    517517 
    518 Function WriteCtrTableButtonProc(ba) : ButtonControl 
     518Function V_WriteCtrTableButtonProc(ba) : ButtonControl 
    519519        STRUCT WMButtonAction &ba 
    520520 
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/V_BroadPeak_Pix_2D.ipf

    r982 r1024  
    2727// three waves XYZ, then converted to a matrix 
    2828// 
    29 Proc PlotBroadPeak_Pix2D(xDim,yDim)                                              
     29Proc V_PlotBroadPeak_Pix2D(xDim,yDim)                                            
    3030        Variable xDim=48, yDim=128 
    3131        Prompt xDim "Enter X dimension: " 
     
    3939        // generate the triplet representation 
    4040        Make/O/D/N=(xDim*yDim) xwave_PeakPix2D, ywave_PeakPix2D,zwave_PeakPix2D  
    41         FillPixTriplet(xwave_PeakPix2D, ywave_PeakPix2D,zwave_PeakPix2D,xDim,yDim) 
     41        V_FillPixTriplet(xwave_PeakPix2D, ywave_PeakPix2D,zwave_PeakPix2D,xDim,yDim) 
    4242         
    4343         
    4444        Variable/G g_PeakPix2D=0 
    45         g_PeakPix2D := BroadPeak_Pix2D(coef_PeakPix2D,zwave_PeakPix2D,xwave_PeakPix2D,ywave_PeakPix2D)  //AAO 2D calculation 
     45        g_PeakPix2D := V_BroadPeak_Pix2D(coef_PeakPix2D,zwave_PeakPix2D,xwave_PeakPix2D,ywave_PeakPix2D)        //AAO 2D calculation 
    4646         
    4747        Display ywave_PeakPix2D vs xwave_PeakPix2D 
     
    6262        // not a function evaluation - this simply keeps the matrix for display in sync with the triplet calculation 
    6363        Variable/G g_PeakPix2Dmat=0 
    64         g_PeakPix2Dmat := UpdatePix2Mat(xwave_PeakPix2D,ywave_PeakPix2D,zwave_PeakPix2D,PeakPix2D_lin,PeakPix2D_mat) 
     64        g_PeakPix2Dmat := V_UpdatePix2Mat(xwave_PeakPix2D,ywave_PeakPix2D,zwave_PeakPix2D,PeakPix2D_lin,PeakPix2D_mat) 
    6565         
    6666         
     
    6969End 
    7070 
    71 Function FillPixTriplet(xwave_PeakPix2D, ywave_PeakPix2D,zwave_PeakPix2D,xDim,yDim) 
     71Function V_FillPixTriplet(xwave_PeakPix2D, ywave_PeakPix2D,zwave_PeakPix2D,xDim,yDim) 
    7272        Wave xwave_PeakPix2D, ywave_PeakPix2D,zwave_PeakPix2D 
    7373        Variable xDim,yDim 
     
    8888End 
    8989 
    90 Function UpdatePix2Mat(Qx,Qy,inten,linMat,mat) 
     90Function V_UpdatePix2Mat(Qx,Qy,inten,linMat,mat) 
    9191        Wave Qx,Qy,inten,linMat,mat 
    9292         
     
    117117// and the points "2.5" and "3.5" evaluate correctly as 2 and 3 
    118118// 
    119 Function BroadPeak_Pix2D(cw,zw,xw,yw) : FitFunc 
     119Function V_BroadPeak_Pix2D(cw,zw,xw,yw) : FitFunc 
    120120        Wave cw,zw,xw,yw 
    121121         
     
    123123        MultiThread zw = BroadPeak_Pix2DX(cw,xw,yw) 
    124124#else 
    125         MultiThread zw = I_BroadPeak_Pix2D(cw,xw,yw) 
     125        MultiThread zw = V_I_BroadPeak_Pix2D(cw,xw,yw) 
    126126#endif 
    127127         
     
    130130 
    131131//threaded version of the function 
    132 ThreadSafe Function BroadPeak_Pix2D_T(cw,zw,xw,yw,p1,p2) 
     132ThreadSafe Function V_BroadPeak_Pix2D_T(cw,zw,xw,yw,p1,p2) 
    133133        WAVE cw,zw,xw,yw 
    134134        Variable p1,p2 
     
    137137        zw[p1,p2]= BroadPeak_Pix2DX(cw,xw,yw) 
    138138#else 
    139         zw[p1,p2]= I_BroadPeak_Pix2D(cw,xw,yw) 
     139        zw[p1,p2]= V_I_BroadPeak_Pix2D(cw,xw,yw) 
    140140#endif 
    141141 
     
    176176// This is not an XOP, but is correct in what it is passing and speed seems to be just fine. 
    177177// 
    178 ThreadSafe Function I_BroadPeak_Pix2D(w,xw,yw) 
     178ThreadSafe Function V_I_BroadPeak_Pix2D(w,xw,yw) 
    179179//ThreadSafe Function fBroadPeak_Pix2D(w,xw,yw) 
    180180        Wave w 
     
    245245// -- the smearing calculation can only calculate (nord) points at a time. 
    246246// 
    247 ThreadSafe Function BroadPeak_Pix2D_noThread(cw,zw,xw,yw) 
     247ThreadSafe Function V_BroadPeak_Pix2D_noThread(cw,zw,xw,yw) 
    248248        WAVE cw,zw, xw,yw 
    249249         
     
    251251        zw = BroadPeak_Pix2DX(cw,xw,yw) 
    252252#else 
    253         zw = I_BroadPeak_Pix2D(cw,xw,yw) 
     253        zw = V_I_BroadPeak_Pix2D(cw,xw,yw) 
    254254#endif 
    255255 
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/V_Correct.ipf

    r1023 r1024  
    128128        //do this even if no correction is dispatched (if incorrect mode) 
    129129 
    130         CopyHDFToWorkFolder("SAM","COR")         
     130        V_CopyHDFToWorkFolder("SAM","COR")       
    131131 
    132132         
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/V_DetectorCorrections.ipf

    r1019 r1024  
    3535// -- calculate + return the error contribution? 
    3636// -- verify the error propagation 
    37 Function DeadTimeCorrectionTubes(dataW,data_errW,dtW,ctTime) 
     37Function V_DeadTimeCorrectionTubes(dataW,data_errW,dtW,ctTime) 
    3838        Wave dataW,data_errW,dtW 
    3939        Variable ctTime 
     
    7979 
    8080// test function 
    81 Function testDTCor() 
     81Function V_testDTCor() 
    8282 
    8383        String detStr = "" 
     
    9393         
    9494//      ctTime = 10 
    95         DeadTimeCorrectionTubes(w,w_err,w_dt,ctTime) 
     95        V_DeadTimeCorrectionTubes(w,w_err,w_dt,ctTime) 
    9696 
    9797End 
     
    122122// 
    123123// 
    124 Function NonLinearCorrection(dataW,coefW,tube_width,detStr,destPath) 
     124Function V_NonLinearCorrection(dataW,coefW,tube_width,detStr,destPath) 
    125125        Wave dataW,coefW 
    126126        Variable tube_width 
     
    171171// 
    172172// 
    173 Function NonLinearCorrection_B(folder,detStr,destPath) 
     173Function V_NonLinearCorrection_B(folder,detStr,destPath) 
    174174        String folder,detStr,destPath 
    175175 
     
    218218// 
    219219// 
    220 Function ConvertBeamCtr_to_mm(folder,detStr,destPath) 
     220Function V_ConvertBeamCtr_to_mm(folder,detStr,destPath) 
    221221        String folder,detStr,destPath 
    222222         
     
    276276// 
    277277// 
    278 Function ConvertBeamCtr_to_mmB(folder,detStr,destPath) 
     278Function V_ConvertBeamCtr_to_mmB(folder,detStr,destPath) 
    279279        String folder,detStr,destPath 
    280280         
     
    329329// 
    330330// TESTING ONLY 
    331 Proc MakeFakeCalibrationWaves() 
     331Proc V_MakeFakeCalibrationWaves() 
    332332        // make these in the RAW data folder, before converting to a work folder 
    333333        // - then they will be "found" by get() 
     
    338338        DoAlert 0, "Calibration waves are read in from the data file" 
    339339         
    340 //      fMakeFakeCalibrationWaves() 
     340//      V_fMakeFakeCalibrationWaves() 
    341341End 
    342342 
     
    355355// as for making the fake coefficients. 
    356356// 
    357 Function fMakeFakeCalibrationWaves() 
     357Function V_fMakeFakeCalibrationWaves() 
    358358 
    359359        Variable ii,pixSize 
     
    603603// 
    604604// 
    605 Function SolidAngleCorrection(w,w_err,fname,detStr,destPath) 
     605Function V_SolidAngleCorrection(w,w_err,fname,detStr,destPath) 
    606606        Wave w,w_err 
    607607        String fname,detStr,destPath 
     
    697697//works on the actual data array, assumes that is is already on LINEAR scale 
    698698// 
    699 Function DetCorr(data,data_err,realsread,doEfficiency,doTrans) 
     699Function V_DetCorr(data,data_err,realsread,doEfficiency,doTrans) 
    700700        Wave data,data_err,realsread 
    701701        Variable doEfficiency,doTrans 
     
    793793                                 
    794794                                // pass in the transmission error, and the error in the correction is returned as the last parameter 
    795                                 lat_corr = LargeAngleTransmissionCorr(trans,dtdist,xd,yd,trans_err,lat_err)             //moved from 1D avg SRK 11/2007 
     795                                lat_corr = V_LargeAngleTransmissionCorr(trans,dtdist,xd,yd,trans_err,lat_err)           //moved from 1D avg SRK 11/2007 
    796796                                data[ii][jj] /= lat_corr                        //divide by the correction factor 
    797797                                // 
     
    828828// 
    829829// 
    830 Function LargeAngleTransmissionCorr(trans,dtdist,xd,yd,trans_err,err) 
     830Function V_LargeAngleTransmissionCorr(trans,dtdist,xd,yd,trans_err,err) 
    831831        Variable trans,dtdist,xd,yd,trans_err,&err 
    832832 
     
    891891// 
    892892//test procedure, not called anymore 
    893 Proc AbsoluteScaling(type,c0,c1,c2,c3,c4,c5) 
     893Proc V_AbsoluteScaling(type,c0,c1,c2,c3,c4,c5) 
    894894        String type 
    895895        Variable c0=1,c1=0.1,c2=0.95,c3=0.1,c4=1,c5=32.0 
     
    905905        //call the function to do the math 
    906906        //data from "type" will be scaled and deposited in ABS 
    907         err = Absolute_Scale(type,c0,c1,c2,c3,c4,c5) 
     907        err = V_Absolute_Scale(type,c0,c1,c2,c3,c4,c5) 
    908908         
    909909        if(err) 
     
    924924        gCurDispType = Type      
    925925         
    926         fRawWindowHook() 
     926        V_fRawWindowHook() 
    927927         
    928928End 
     
    935935//w_ is the "work" file 
    936936//both are work files and should already be normalized to 10^8 monitor counts 
    937 Function Absolute_Scale(type,w_trans,w_thick,s_trans,s_thick,s_izero,s_cross,kappa_err) 
     937Function V_Absolute_Scale(type,w_trans,w_thick,s_trans,s_thick,s_izero,s_cross,kappa_err) 
    938938        String type 
    939939        Variable w_trans,w_thick,s_trans,s_thick,s_izero,s_cross,kappa_err 
     
    10521052// 
    10531053// 
    1054 Function Adjust_RAW_Attenuation(type) 
     1054Function V_Adjust_RAW_Attenuation(type) 
    10551055        String type 
    10561056 
     
    11001100//check before re-implementing 
    11011101// 
    1102 Proc DIV_a_Workfile(type) 
     1102Proc V_DIV_a_Workfile(type) 
    11031103        String type 
    11041104        Prompt type,"WORK data type",popup,"SAM;EMP;BGD;ADJ;" 
     
    11281128        String/G root:Packages:NIST:VSANS:Globals:gCurDispType=Type 
    11291129         
    1130         UpdateDisplayInformation(type) 
     1130        V_UpdateDisplayInformation(type) 
    11311131         
    11321132End 
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/V_Detector_Isolate.ipf

    r1023 r1024  
    4343        DoWindow/F IsolateDetector 
    4444        if(V_flag==0) 
    45                 Execute "IsolateDetectorPanel()" 
     45                Execute "V_IsolateDetectorPanel()" 
    4646        endif 
    4747End 
     
    5252//      ModifyGraph width={Plan,1,bottom,left} 
    5353// 
    54 Proc IsolateDetectorPanel() : Panel 
     54Proc V_IsolateDetectorPanel() : Panel 
    5555        PauseUpdate; Silent 1           // building window... 
    5656 
     
    9898//      SetDataFolder root: 
    9999         
    100         CopyHDFToWorkFolder("RAW","ADJ") 
     100        V_CopyHDFToWorkFolder("RAW","ADJ") 
    101101         
    102102        // draw the correct images 
     
    380380                        // TODO -- verify that this works correctly, since ADJ has waves in use and the folder 
    381381                        //         can't be directly killed. Copy is the first step - so verify. 
    382                         Raw_to_work("ADJ") 
     382                        V_Raw_to_work("ADJ") 
    383383                         
    384384                         
     
    417417                        String popStr = pa.popStr 
    418418                         
    419                         CopyHDFToWorkFolder(popStr,"ADJ") 
     419                        V_CopyHDFToWorkFolder(popStr,"ADJ") 
    420420                         
    421421                        break 
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/V_FileCatalog.ipf

    r1023 r1024  
    245245// 
    246246// TODO: 
    247 // -- this is experimental... 
    248 // -- what else to add to the menu? 
     247//  this is experimental...not been tested by any users yet 
     248// -- what else to add to the menu? (MSK and DIV now work) 
    249249// -- add directly to WORK files? 
    250250// -- "set" as some special file type, intent, use? 
     
    257257        String infoStr 
    258258        String event= StringByKey("EVENT",infoStr) 
    259 //      print infoStr 
    260259//      Print "EVENT= ",event 
    261260        strswitch(event) 
    262 //              case "mousedown": 
    263261                case "mouseup": 
    264262//                      Variable xpix= NumberByKey("MOUSEX",infoStr) 
    265263//                      Variable ypix= NumberByKey("MOUSEY",infoStr) 
    266264//                      PopupContextualMenu/C=(xpix, ypix) "yes;no;maybe;" 
    267                         PopupContextualMenu "Load RAW;no;maybe;" 
     265                        PopupContextualMenu "Load RAW;Load MSK;Load DIV;" 
     266                         
     267                        WAVE/T Filenames = $"root:Packages:NIST:VSANS:CatVSHeaderInfo:Filenames" 
     268                        Variable err 
    268269                        strswitch(S_selection) 
    269270                                case "Load RAW": 
    270                                         // do something because "yes" was chosen 
    271                                         //print "yes" 
    272                                         WAVE/T Filenames = $"root:Packages:NIST:VSANS:CatVSHeaderInfo:Filenames" 
    273271                                        GetSelection table,CatVSANSTable,1 
    274272//                                      Print V_flag, V_startRow, V_startCol, V_endRow, V_endCol 
    275273                                        Print "Loading " + FileNames[V_StartRow] 
    276                                         Variable err = V_LoadHDF5Data(FileNames[V_StartRow],"RAW") 
     274                                        err = V_LoadHDF5Data(FileNames[V_StartRow],"RAW") 
    277275                                        if(!err)                //directly from, and the same steps as DisplayMainButtonProc(ctrlName) 
    278276                                                SVAR hdfDF = root:file_name                     // last file loaded, may not be the safest way to pass 
     
    280278                                                 
    281279                                                // this (in SANS) just passes directly to fRawWindowHook() 
    282                                                 Execute "UpdateDisplayInformation(\"RAW\")"             // plot the data in whatever folder type 
     280                                                Execute "V_UpdateDisplayInformation(\"RAW\")"           // plot the data in whatever folder type 
    283281                                                 
    284                                                 FakeRestorePanelsButtonClick()          //so the panels display correctly 
     282                                                V_FakeRestorePanelsButtonClick()                //so the panels display correctly 
    285283                                                 
    286284                                                // set the global to display ONLY if the load was called from here, not from the  
     
    291289                                        endif 
    292290                                        break; 
    293                                 case "no": 
    294                                         print "no" 
     291                                         
     292                                case "Load MSK": 
     293                                        GetSelection table,CatVSANSTable,1 
     294//                                      Print V_flag, V_startRow, V_startCol, V_endRow, V_endCol 
     295                                        Print "Loading " + FileNames[V_StartRow] 
     296                                        err = V_LoadHDF5Data(FileNames[V_StartRow],"MSK") 
     297                                         
    295298                                        break; 
    296                                 case "maybe": 
    297                                         // do something because "maybe" was chosen 
     299                                         
     300                                case "Load DIV": 
     301                                        GetSelection table,CatVSANSTable,1 
     302//                                      Print V_flag, V_startRow, V_startCol, V_endRow, V_endCol 
     303                                        Print "Loading " + FileNames[V_StartRow] 
     304                                        err = V_LoadHDF5Data(FileNames[V_StartRow],"DIV") 
     305 
    298306                                        break; 
    299                         endswitch 
    300         endswitch 
     307                                         
     308                        endswitch               //popup selection 
     309        endswitch       // event 
     310         
    301311        return 0 
    302312End 
     
    552562 
    553563// just to call the function to generate the panel 
    554 Proc Catalog_Sort() 
     564Proc V_Catalog_Sort() 
    555565        V_BuildCatSortPanel() 
    556566End 
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/V_HDF5_RW_Utils.ipf

    r1023 r1024  
    110110                                Wave w_calib = V_getDetTube_spatialCalib(folder,detStr) 
    111111                                Variable tube_width = V_getDet_tubeWidth(folder,detStr) 
    112                                 NonLinearCorrection(w,w_calib,tube_width,detStr,destPath) 
     112                                V_NonLinearCorrection(w,w_calib,tube_width,detStr,destPath) 
    113113                                 
    114114                                 
     
    116116                                // TODO -- there needs to be a permanent location for these values?? 
    117117                                // 
    118                                 ConvertBeamCtr_to_mm(folder,detStr,destPath) 
     118                                V_ConvertBeamCtr_to_mm(folder,detStr,destPath) 
    119119                                 
    120120                                // (2.5) Calculate the q-values 
     
    133133                         
    134134                        //"B" is separate 
    135                         NonLinearCorrection_B(folder,"B",destPath) 
    136                         ConvertBeamCtr_to_mmB(folder,"B",destPath) 
     135                        V_NonLinearCorrection_B(folder,"B",destPath) 
     136                        V_ConvertBeamCtr_to_mmB(folder,"B",destPath) 
    137137                        V_Detector_CalcQVals(folder,"B",destPath) 
    138138                         
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/V_ISO8601_Util.ipf

    r965 r1024  
    4848// 
    4949// TODO -- verify that this is correct 
    50 Function/S CurrentTime_to_ISO8601String(now) 
     50Function/S V_CurrentTime_to_ISO8601String(now) 
    5151        Variable now 
    5252         
     
    7474// counting on the string to be EXACTLY the correct format 
    7575// 
    76 Function ISO8601_to_IgorTime(ISOstr) 
     76Function V_ISO8601_to_IgorTime(ISOstr) 
    7777        String ISOstr 
    7878         
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/V_MainPanel.ipf

    r1023 r1024  
    4747        String ctrlName 
    4848         
    49         Edit_a_Mask() 
     49        V_Edit_a_Mask() 
    5050End 
    5151 
     
    159159        String ctrlName 
    160160 
    161         DoAlert 0, "Loading FAKE MASK data" 
    162         LoadFakeMaskData() 
     161        DoAlert 0, "Loading MASK data" 
     162        V_LoadMASKData() 
    163163End 
    164164 
     
    186186        String ctrlName 
    187187         
    188         Catalog_Sort() 
     188        V_Catalog_Sort() 
    189189End 
    190190 
     
    240240        String ctrlName 
    241241 
    242         CopyWorkFolder()                //will put up missing param dialog 
     242        V_CopyWorkFolder()              //will put up missing param dialog 
    243243End 
    244244 
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/V_MaskUtils.ipf

    r1023 r1024  
    3030// passing null file string presents a dialog 
    3131// called from the Main Button " Read Mask" 
    32 Proc LoadFakeMASKData() 
     32Proc V_LoadMASKData() 
    3333        V_LoadHDF5Data("","MSK") 
    3434End 
     
    8181 
    8282// called from the main button "Draw Mask" 
    83 Proc Edit_a_Mask() 
     83Proc V_Edit_a_Mask() 
    8484        V_EditMask() 
    8585end 
     
    101101                endif 
    102102                 
    103                 Execute "MaskEditorPanel()" 
     103                Execute "V_MaskEditorPanel()" 
    104104        endif 
    105105End 
     
    113113//    -- help (button is there, fill in the content) 
    114114// 
    115 Proc MaskEditorPanel() : Panel 
     115Proc V_MaskEditorPanel() : Panel 
    116116        PauseUpdate; Silent 1           // building window... 
    117117 
     
    119119//      ShowTools/A 
    120120         
    121         PopupMenu popup_0,pos={20,50},size={109,20},proc=SetMaskPanelPopMenuProc,title="Detector Panel" 
     121        PopupMenu popup_0,pos={20,50},size={109,20},proc=V_SetMaskPanelPopMenuProc,title="Detector Panel" 
    122122        PopupMenu popup_0,mode=1,popvalue="FT",value= #"\"FL;FR;FT;FB;MR;ML;MT;MB;B;\"" 
    123123        PopupMenu popup_2,pos={20,20},size={109,20},title="Data Source"//,proc=SetFldrPopMenuProc 
     
    126126        SetVariable setvar0,pos={257.00,20.00},size={150.00,14.00},title="tube number" 
    127127        SetVariable setvar0,limits={0,127,1},value=root:Packages:NIST:VSANS:Globals:Mask:gMaskTube 
    128         Button button_0,pos={257,46.00},size={50.00,20.00},proc=AddToMaskButtonProc,title="Add" 
    129         Button button_1,pos={319.00,46.00},size={50.00,20.00},proc=RemoveFromMaskButtonProc,title="Del" 
    130         Button button_2,pos={409.00,46.00},size={90.00,20.00},proc=ToggleMaskButtonProc,title="Toggle" 
    131         Button button_3,pos={509.00,46.00},size={80.00,20.00},proc=SaveMaskButtonProc,title="Save" 
    132         Button button_4,pos={603.00,10.00},size={20.00,20.00},proc=DrawMaskHelpButtonProc,title="?" 
    133         CheckBox check_0,pos={190.00,23.00},size={37.00,15.00},proc=DrawMaskRadioCheckProc,title="Row" 
     128        Button button_0,pos={257,46.00},size={50.00,20.00},proc=V_AddToMaskButtonProc,title="Add" 
     129        Button button_1,pos={319.00,46.00},size={50.00,20.00},proc=V_RemoveFromMaskButtonProc,title="Del" 
     130        Button button_2,pos={409.00,46.00},size={90.00,20.00},proc=V_ToggleMaskButtonProc,title="Toggle" 
     131        Button button_3,pos={509.00,46.00},size={80.00,20.00},proc=V_SaveMaskButtonProc,title="Save" 
     132        Button button_4,pos={603.00,10.00},size={20.00,20.00},proc=V_DrawMaskHelpButtonProc,title="?" 
     133        CheckBox check_0,pos={190.00,23.00},size={37.00,15.00},proc=V_DrawMaskRadioCheckProc,title="Row" 
    134134        CheckBox check_0,value= 0,mode=1 
    135         CheckBox check_1,pos={190.00,46.00},size={32.00,15.00},proc=DrawMaskRadioCheckProc,title="Col" 
     135        CheckBox check_1,pos={190.00,46.00},size={32.00,15.00},proc=V_DrawMaskRadioCheckProc,title="Col" 
    136136        CheckBox check_1,value= 1,mode=1 
    137137 
    138         SetWindow MaskEditPanel, hook(MyHook)=MaskWindowHook 
     138        SetWindow MaskEditPanel, hook(MyHook)=V_MaskWindowHook 
    139139 
    140140        // draw the correct images 
    141141        //draw the detector panel 
    142         DrawPanelToMask("FT") 
     142        V_DrawPanelToMask("FT") 
    143143         
    144144        // overlay the current mask 
     
    147147EndMacro 
    148148 
    149 Function DrawMaskHelpButtonProc(ba) : ButtonControl 
     149Function V_DrawMaskHelpButtonProc(ba) : ButtonControl 
    150150        STRUCT WMButtonAction &ba 
    151151 
     
    167167// update the limits on the tube nubmer based on row/col and the panel (gMaskMaxIndex global) 
    168168// 
    169 Function DrawMaskRadioCheckProc(cba) : CheckBoxControl 
     169Function V_DrawMaskRadioCheckProc(cba) : CheckBoxControl 
    170170        STRUCT WMCheckboxAction &cba 
    171171 
     
    211211End 
    212212 
    213 Function MaskWindowHook(s) 
     213Function V_MaskWindowHook(s) 
    214214        STRUCT WMWinHookStruct &s 
    215215         
     
    257257                        if(s.specialKeyCode == 102) 
    258258                                //up arrow 
    259                                 AddToMaskButtonProc(ba) 
     259                                V_AddToMaskButtonProc(ba) 
    260260                        endif 
    261261                        if(s.specialKeyCode == 103) 
    262262                                //down arrow 
    263                                 RemoveFromMaskButtonProc(ba) 
     263                                V_RemoveFromMaskButtonProc(ba) 
    264264                        endif 
    265265 
     
    297297End 
    298298 
    299 Function ToggleMaskButtonProc(ba) : ButtonControl 
     299 
     300Function V_ToggleMaskButtonProc(ba) : ButtonControl 
    300301        STRUCT WMButtonAction &ba 
    301302 
     
    322323 
    323324 
    324 Function AddToMaskButtonProc(ba) : ButtonControl 
     325Function V_AddToMaskButtonProc(ba) : ButtonControl 
    325326        STRUCT WMButtonAction &ba 
    326327 
     
    355356End 
    356357 
    357 Function RemoveFromMaskButtonProc(ba) : ButtonControl 
     358Function V_RemoveFromMaskButtonProc(ba) : ButtonControl 
    358359        STRUCT WMButtonAction &ba 
    359360 
     
    391392// function to choose which detector panel to display, and then to actually display it 
    392393// 
    393 Function SetMaskPanelPopMenuProc(pa) : PopupMenuControl 
     394Function V_SetMaskPanelPopMenuProc(pa) : PopupMenuControl 
    394395        STRUCT WMPopupAction &pa 
    395396 
     
    415416         
    416417                        // draw the correct images 
    417                         DrawPanelToMask(popStr) 
     418                        V_DrawPanelToMask(popStr) 
    418419 
    419420                        // fake a "click" on the radio buttons to re-set the row/col limits 
     
    428429                        endif 
    429430                         
    430                         DrawMaskRadioCheckProc(cba)             //call the radio button action proc      
     431                        V_DrawMaskRadioCheckProc(cba)           //call the radio button action proc      
    431432                         
    432433                        //overlay the mask 
     
    455456// draw the selected panel and the model calculation, adjusting for the  
    456457// orientation of the panel and the number of pixels, and pixel sizes 
    457 Function DrawPanelToMask(str) 
     458Function V_DrawPanelToMask(str) 
    458459        String str 
    459460         
     
    662663 
    663664 
    664 Function SaveMaskButtonProc(ba) : ButtonControl 
     665Function V_SaveMaskButtonProc(ba) : ButtonControl 
    665666        STRUCT WMButtonAction &ba 
    666667 
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/V_Test_RAW_Panel.ipf

    r1023 r1024  
    3333// -- add a procedure to define the global variables for pos, counts, QxQy, etc. 
    3434// 
    35 Proc UpdateDisplayInformation(type) 
     35Proc V_UpdateDisplayInformation(type) 
    3636        String type  
    3737         
     
    5151         
    5252        // fake a click on all three tabs - to populate the data 
    53         FakeTabClick(2) 
    54         FakeTabClick(1) 
    55         FakeTabClick(0) 
    56  
    57         LogLinDisplayPref()             // resets the display depending on the preference state 
     53        V_FakeTabClick(2) 
     54        V_FakeTabClick(1) 
     55        V_FakeTabClick(0) 
     56 
     57        V_LogLinDisplayPref()           // resets the display depending on the preference state 
    5858         
    5959        // either clear the status, or fake a click 
    6060//      root:Packages:NIST:VSANS:Globals:gStatusText = "status info box" 
    6161 
    62         FakeStatusButtonClick() 
     62        V_FakeStatusButtonClick() 
    6363 
    6464         
     
    7272end 
    7373 
    74 Function LogLinDisplayPref() 
     74Function V_LogLinDisplayPref() 
    7575 
    7676        // get the state of the log/lin button, and make sure preferences are obeyed 
     
    8484                STRUCT WMButtonAction ba 
    8585                ba.eventCode = 2                //fake mouse click 
    86                 LogLinButtonProc(ba) 
     86                V_LogLinButtonProc(ba) 
    8787        endif 
    8888         
     
    151151 
    152152 
    153         TabControl tab0,pos={13,41},size={572,617},proc=VDataTabProc,tabLabel(0)="Front" 
     153        TabControl tab0,pos={13,41},size={572,617},proc=V_DataTabProc,tabLabel(0)="Front" 
    154154        TabControl tab0,tabLabel(1)="Middle",tabLabel(2)="Back",value= 2,focusRing=0 
    155155 
    156156// on the side   
    157         Button button_status,pos={607,146},size={70,20},proc=StatusButtonProc,title="Status" 
    158         Button button_IvsQ,pos={689,113},size={70,20},proc=IvsQPanelButtonProc,title="I vs. Q" 
    159         Button button_file_m,pos={619,55},size={50,20},proc=File_minus_ButtonProc,title="File <" 
    160         Button button_file_p,pos={679,55},size={50,20},proc=File_plus_ButtonProc,title="File >" 
    161         Button button_log,pos={689,146},size={70,20},proc=LogLinButtonProc,title="isLin",userData="0" 
    162         Button button_tab_p,pos={648,81},size={50,20},proc=Tab_p_ButtonProc,title="Tab >" 
    163         Button button_isolate,pos={606,114},size={70,20},proc=IsolateButtonProc,title="Isolate" 
    164         Button button_toWork,pos={770,113},size={70,20},proc=ToWorkFileButtonProc,title="to WORK" 
     157        Button button_status,pos={607,146},size={70,20},proc=V_StatusButtonProc,title="Status" 
     158        Button button_IvsQ,pos={689,113},size={70,20},proc=V_IvsQPanelButtonProc,title="I vs. Q" 
     159        Button button_file_m,pos={619,55},size={50,20},proc=V_File_minus_ButtonProc,title="File <" 
     160        Button button_file_p,pos={679,55},size={50,20},proc=V_File_plus_ButtonProc,title="File >" 
     161        Button button_log,pos={689,146},size={70,20},proc=V_LogLinButtonProc,title="isLin",userData="0" 
     162        Button button_tab_p,pos={648,81},size={50,20},proc=V_Tab_p_ButtonProc,title="Tab >" 
     163        Button button_isolate,pos={606,114},size={70,20},proc=V_IsolateButtonProc,title="Isolate" 
     164        Button button_toWork,pos={770,113},size={70,20},proc=V_ToWorkFileButtonProc,title="to WORK" 
    165165 
    166166        TitleBox title_file,pos={606,178},size={76,20},variable= root:Packages:NIST:VSANS:Globals:gLastLoadedFile 
     
    168168        TitleBox title_status,pos={606,240},size={200,200},variable= root:Packages:NIST:VSANS:Globals:gStatusText 
    169169         
    170         Button button_tagFile,pos={603,412},size={70,20},proc=TagFileButtonProc,title="Tag File" 
     170        Button button_tagFile,pos={603,412},size={70,20},proc=V_TagFileButtonProc,title="Tag File" 
    171171        Button button_tagFile,disable=2 
    172         Button button_saveIQ,pos={720,412},size={70,20},proc=SaveIQ_ButtonProc,title="Save I(Q)" 
    173         Button button_BeamCtr,pos={603,450},size={70,20},proc=BeamCtrButtonProc,title="Beam Ctr" 
    174         Button button_SpreadPanels,pos={603,488},size={100,20},proc=SpreadPanelButtonProc,title="Spread Panels" 
    175         Button button_RestorePanels,pos={603,526},size={100,20},proc=RestorePanelButtonProc,title="Restore Panels" 
     172        Button button_saveIQ,pos={720,412},size={70,20},proc=V_SaveIQ_ButtonProc,title="Save I(Q)" 
     173        Button button_BeamCtr,pos={603,450},size={70,20},proc=V_BeamCtrButtonProc,title="Beam Ctr" 
     174        Button button_SpreadPanels,pos={603,488},size={100,20},proc=V_SpreadPanelButtonProc,title="Spread Panels" 
     175        Button button_RestorePanels,pos={603,526},size={100,20},proc=V_RestorePanelButtonProc,title="Restore Panels" 
    176176 
    177177 
    178178// on the tabs, always visible 
    179179        TitleBox title_xy,pos={24,71},size={76,20},variable= root:Packages:NIST:VSANS:Globals:gLastLoadedFile 
    180         Slider slider_hi,pos={558,224},size={16,80},proc=HiMapSliderProc 
     180        Slider slider_hi,pos={558,224},size={16,80},proc=V_HiMapSliderProc 
    181181        Slider slider_hi,limits={0,1,0},value= 1,ticks= 0 
    182         Slider slider_lo,pos={558,315},size={16,80},proc=LowMapSliderProc 
     182        Slider slider_lo,pos={558,315},size={16,80},proc=V_LowMapSliderProc 
    183183        Slider slider_lo,limits={0,1,0},value= 0,ticks= 0 
    184184 
     
    445445// 
    446446// 
    447 Function VDataTabProc(tca) : TabControl 
     447Function V_DataTabProc(tca) : TabControl 
    448448        STRUCT WMTabControlAction &tca 
    449449 
     
    648648 
    649649// fake restore panels button click 
    650 Function FakeRestorePanelsButtonClick() 
     650Function V_FakeRestorePanelsButtonClick() 
    651651 
    652652        STRUCT WMButtonAction ba 
    653653        ba.eventCode = 2 
    654         RestorePanelButtonProc(ba) 
     654        V_RestorePanelButtonProc(ba) 
    655655         
    656656        return(0) 
     
    659659 
    660660// fake status button click 
    661 Function FakeStatusButtonClick() 
     661Function V_FakeStatusButtonClick() 
    662662 
    663663        STRUCT WMButtonAction ba 
    664664        ba.eventCode = 2 
    665         StatusButtonProc(ba) 
     665        V_StatusButtonProc(ba) 
    666666         
    667667        return(0) 
     
    669669 
    670670// fake click on each tab to populate the data 
    671 Function FakeTabClick(tab) 
     671Function V_FakeTabClick(tab) 
    672672        Variable tab 
    673673         
     
    676676        tca.eventCode = 2               //fake mouse up 
    677677        tca.tab = tab 
    678         VDataTabProc(tca) 
     678        V_DataTabProc(tca) 
    679679         
    680680        TabControl tab0,win=VSANS_Data,value= tab               //select the proper tab 
     
    686686// move one file number back 
    687687// 
    688 Function File_minus_ButtonProc(ba) : ButtonControl 
     688Function V_File_minus_ButtonProc(ba) : ButtonControl 
    689689        STRUCT WMButtonAction &ba 
    690690 
     
    706706// move one file number forward 
    707707// 
    708 Function File_plus_ButtonProc(ba) : ButtonControl 
     708Function V_File_plus_ButtonProc(ba) : ButtonControl 
    709709        STRUCT WMButtonAction &ba 
    710710 
     
    726726// only goes one direction 
    727727// 
    728 Function Tab_p_ButtonProc(ba) : ButtonControl 
     728Function V_Tab_p_ButtonProc(ba) : ButtonControl 
    729729        STRUCT WMButtonAction &ba 
    730730 
     
    738738                                V_Value = 0             //reset to 0 
    739739                        endif 
    740                         FakeTabClick(V_Value) 
     740                        V_FakeTabClick(V_Value) 
    741741 
    742742// update the status when the tab is clicked                     
    743743                        STRUCT WMButtonAction sa 
    744744                        sa.eventCode = 2 
    745                         StatusButtonProc(sa) 
     745                        V_StatusButtonProc(sa) 
    746746 
    747747                        break 
     
    762762// - like being able to turn corrections on/off and view with different axes (pix, mm, Q) 
    763763// 
    764 Function IsolateButtonProc(ba) : ButtonControl 
     764Function V_IsolateButtonProc(ba) : ButtonControl 
    765765        STRUCT WMButtonAction &ba 
    766766 
     
    784784// -- if the data type is not RAW, can I Copy Folder instead? 
    785785// 
    786 Function ToWorkFileButtonProc(ba) : ButtonControl 
     786Function V_ToWorkFileButtonProc(ba) : ButtonControl 
    787787        STRUCT WMButtonAction &ba 
    788788 
     
    791791                        // click code here 
    792792                        //Convert_to_Workfile(newtype, doadd) // a proc 
    793                         Execute "Convert_to_Workfile()" 
     793                        Execute "V_Convert_to_Workfile()" 
    794794 
    795795                        break 
     
    809809// -- currently just the graph, no controls 
    810810// -- this re-bins the data every time by calling V_QBinAllPanels(folderStr) 
    811 Function IvsQPanelButtonProc(ba) : ButtonControl 
     811Function V_IvsQPanelButtonProc(ba) : ButtonControl 
    812812        STRUCT WMButtonAction &ba 
    813813 
     
    831831// - lots to decide here about what is the important stuff to display. There's a lot more information for VSANS 
    832832// 
    833 Function StatusButtonProc(ba) : ButtonControl 
     833Function V_StatusButtonProc(ba) : ButtonControl 
    834834        STRUCT WMButtonAction &ba 
    835835 
     
    890890// toggle the (z) value of the display log/lin 
    891891// 
    892 Function LogLinButtonProc(ba) : ButtonControl 
     892Function V_LogLinButtonProc(ba) : ButtonControl 
    893893        STRUCT WMButtonAction &ba 
    894894 
     
    957957// like their intent, or other values that reduction will need, kind of like a "quick patch" 
    958958// with limited functionality (since full function would be a nightmare!)  
    959 Function TagFileButtonProc(ba) : ButtonControl 
    960         STRUCT WMButtonAction &ba 
    961  
    962         switch( ba.eventCode ) 
    963                 case 2: // mouse up 
    964                         // click code here 
    965                         DoAlert 0, "TagFileButtonProc(ba) unfinished - thes may be used to 'tag' a file as scatter, trans, emp, bkg, etc." 
     959Function V_TagFileButtonProc(ba) : ButtonControl 
     960        STRUCT WMButtonAction &ba 
     961 
     962        switch( ba.eventCode ) 
     963                case 2: // mouse up 
     964                        // click code here 
     965                        DoAlert 0, "TagFileButtonProc(ba) unfinished - this may be used to 'tag' a file as scatter, trans, emp, bkg, etc." 
    966966                         
    967967                                 
     
    979979// -- maybe allow save of single panels? 
    980980// -- any other options? 
    981 Function SaveIQ_ButtonProc(ba) : ButtonControl 
     981Function V_SaveIQ_ButtonProc(ba) : ButtonControl 
    982982        STRUCT WMButtonAction &ba 
    983983 
     
    10001000//link this to the beam center finding panel 
    10011001// 
    1002 Function BeamCtrButtonProc(ba) : ButtonControl 
     1002Function V_BeamCtrButtonProc(ba) : ButtonControl 
    10031003        STRUCT WMButtonAction &ba 
    10041004 
     
    10191019// this "spreads" the display of panels to a nominal separation for easier viewing 
    10201020// 
    1021 Function SpreadPanelButtonProc(ba) : ButtonControl 
     1021Function V_SpreadPanelButtonProc(ba) : ButtonControl 
    10221022        STRUCT WMButtonAction &ba 
    10231023 
     
    10391039// this "restores" the display of panels to their actual position based on the apparent beam center 
    10401040// 
    1041 Function RestorePanelButtonProc(ba) : ButtonControl 
     1041Function V_RestorePanelButtonProc(ba) : ButtonControl 
    10421042        STRUCT WMButtonAction &ba 
    10431043 
     
    10611061// -- see Buttons.ipf for the old SANS implementation 
    10621062// 
    1063 Function HiMapSliderProc(sa) : SliderControl 
     1063Function V_HiMapSliderProc(sa) : SliderControl 
    10641064        STRUCT WMSliderAction &sa 
    10651065 
     
    10711071                                Variable curval = sa.curval 
    10721072                                ControlInfo tab0 
    1073                                 FakeTabClick(V_Value) 
     1073                                V_FakeTabClick(V_Value) 
    10741074                                 
    10751075//                              ControlInfo slider_lo 
     
    10881088// -- see Buttons.ipf for the old SANS implementation 
    10891089// 
    1090 Function LowMapSliderProc(sa) : SliderControl 
     1090Function V_LowMapSliderProc(sa) : SliderControl 
    10911091        STRUCT WMSliderAction &sa 
    10921092 
     
    10981098                                Variable curval = sa.curval 
    10991099                                ControlInfo tab0 
    1100                                 FakeTabClick(V_Value) 
     1100                                V_FakeTabClick(V_Value) 
    11011101 
    11021102//                              ControlInfo slider_hi 
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/V_TubeAdjustments.ipf

    r975 r1024  
    7070// 
    7171// 
    72 Proc Tubes_to_Array() 
     72Proc V_Tubes_to_Array() 
    7373        Make/O/D/N=(8,1127) pack 
    7474        edit pack 
     
    105105//¥Sort WA_PeakCentersX WA_PeakCentersY,WA_PeakCentersX 
    106106// 
    107 Proc MakeTableForPeaks(numTube,numPeak) 
     107Proc V_MakeTableForPeaks(numTube,numPeak) 
    108108        Variable numTube,numPeak 
    109109         
     
    112112End 
    113113 
    114 Proc Identify_AllPeaks() 
     114Proc V_Identify_AllPeaks() 
    115115 
    116116        Variable ii,numTubes=8 
     
    119119        ii=1 
    120120        do 
    121                 Identify_Peaks(str+num2str(ii),ii-1) 
     121                V_Identify_Peaks(str+num2str(ii),ii-1) 
    122122                ii+=1 
    123123        while(ii<=numTubes) 
     
    125125End 
    126126 
    127 Proc Identify_Peaks(tubeStr,ind) 
     127Proc V_Identify_Peaks(tubeStr,ind) 
    128128        String tubeStr 
    129129        Variable ind 
     
    188188 
    189189 
    190 Proc MakeTableForFitCoefs(numTube,numCoef) 
     190Proc V_MakeTableForFitCoefs(numTube,numCoef) 
    191191        Variable numTube,numCoef 
    192192         
     
    195195End 
    196196 
    197 Proc PlotFit_AllPeaks() 
     197Proc V_PlotFit_AllPeaks() 
    198198 
    199199        Variable ii,numTubes=8 
     
    201201        ii=1 
    202202        do 
    203                 PlotFit_Peaks(ii-1) 
     203                V_PlotFit_Peaks(ii-1) 
    204204                ii+=1 
    205205        while(ii<=numTubes) 
     
    207207End 
    208208 
    209 Proc PlotFit_Peaks(ind) 
     209Proc V_PlotFit_Peaks(ind) 
    210210        Variable ind 
    211211         
     
    267267 
    268268 
    269 Proc Make_mm_tubes() 
     269Proc V_Make_mm_tubes() 
    270270 
    271271        Variable ii,numTubes=8 
     
    281281 
    282282 
    283 Proc Append_Adjusted_mm() 
     283Proc V_Append_Adjusted_mm() 
    284284 
    285285// a blank base image 
     
    315315//////////////////////////////// 
    316316 
    317 Proc MakeMatrix_PixCenter() 
     317Proc V_MakeMatrix_PixCenter() 
    318318        Duplicate/O pack pack_centered 
    319319         
     
    322322        ii=1 
    323323        do 
    324                 FillMatrix_Pix_Center(ii) 
     324                V_FillMatrix_Pix_Center(ii) 
    325325                ii+=1 
    326326        while(ii<=numTubes) 
     
    341341// FindRoots/P=W_coef           can also be used to find the roots (but which one?) 
    342342// 
    343 Function FillMatrix_Pix_Center(ind) 
     343Function V_FillMatrix_Pix_Center(ind) 
    344344        Variable ind 
    345345         
     
    376376// -- OR -- use mm and append each tube with its own y-axis 
    377377// 
    378 Function FillAdjusted(ind) 
     378Function V_FillAdjusted(ind) 
    379379        Variable ind 
    380380         
     
    429429// range of the 1st tube. This is completely arbitrary 
    430430// 
    431 Proc Interpolate_mm_tubes() 
     431Proc V_Interpolate_mm_tubes() 
    432432 
    433433        Duplicate/O pack pack_image 
     
    473473// this doesn't work - the interpolation step doesn't do what I want 
    474474// and the plot of the triplet with f(z) for color doesn't fill space like I want 
    475 Proc AnotherExample() 
     475Proc V_AnotherExample() 
    476476 
    477477        Concatenate/O/NP {tube1_mm,tube2_mm,tube3_mm,tube4_mm,tube5_mm,tube6_mm,tube7_mm,tube8_mm},cat_mm 
     
    513513// Plotting a 2D Z Wave With 1D X and Y Center Data 
    514514// 
    515 Function MakeEdgesWave(centers, edgesWave) 
     515Function V_MakeEdgesWave(centers, edgesWave) 
    516516        Wave centers    // Input 
    517517        Wave edgesWave  // Receives output 
     
    526526 
    527527//This function demonstrates the use of MakeEdgesWave: 
    528 Function DemoPlotXYZAsImage() 
     528Function V_DemoPlotXYZAsImage() 
    529529        Make/O mat={{0,1,2},{2,3,4},{3,4,5}}    // Matrix containing Z values 
    530530        Make/O centersX = {1, 2.5, 5}           // X centers wave 
    531531        Make/O centersY = {300, 400, 600}               // Y centers wave 
    532         Make/O edgesX; MakeEdgesWave(centersX, edgesX)  // Create X edges wave 
    533         Make/O edgesY; MakeEdgesWave(centersY, edgesY)  // Create Y edges wave 
     532        Make/O edgesX; V_MakeEdgesWave(centersX, edgesX)        // Create X edges wave 
     533        Make/O edgesY; V_MakeEdgesWave(centersY, edgesY)        // Create Y edges wave 
    534534        Display; AppendImage mat vs {edgesX,edgesY} 
    535535End 
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/V_Utilities_General.ipf

    r1023 r1024  
    5757// make sure that data exists before passing this on... 
    5858         
    59         if(DataExists(type) > 0) 
    60                 UpdateDisplayInformation(type) 
     59        if(V_DataExists(type) > 0) 
     60                V_UpdateDisplayInformation(type) 
    6161        else 
    6262                DoAlert 0,"No data in "+type 
     
    6969// -- only checks for FR data to exist, assumes everything else is there 
    7070// -- can't use the V_get() functions, these will try to load data if it's not there! 
    71 Function DataExists(type) 
     71Function V_DataExists(type) 
    7272        String type 
    7373         
     
    8282// tol is an absolute value (since input v1 or v2 may be zero, can't reliably 
    8383// use a percentage 
    84 Function CloseEnough(v1,v2,tol) 
     84Function V_CloseEnough(v1,v2,tol) 
    8585        Variable v1, v2, tol 
    8686 
     
    460460                 
    461461                // this (in SANS) just passes directly to fRawWindowHook() 
    462                 Execute "UpdateDisplayInformation(\"RAW\")"     // plot the data in whatever folder type 
     462                Execute "V_UpdateDisplayInformation(\"RAW\")"   // plot the data in whatever folder type 
    463463                 
    464                 FakeRestorePanelsButtonClick()          //so the panels display correctly 
     464                V_FakeRestorePanelsButtonClick()                //so the panels display correctly 
    465465                // set the global to display ONLY if the load was called from here, not from the  
    466466                // other routines that load data (to read in values) 
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/V_WorkFolderUtils.ipf

    r1022 r1024  
    3535//Entry procedure from main panel 
    3636// 
    37 Proc CopyWorkFolder(oldType,newType) 
     37Proc V_CopyWorkFolder(oldType,newType) 
    3838        String oldType,newType 
    3939        Prompt oldType,"Source WORK data type",popup,"SAM;EMP;BGD;DIV;COR;CAL;RAW;ABS;STO;SUB;DRK;" 
     
    4141 
    4242        // data folder "old" will be copied to "new" (either kills/copies or will overwrite) 
    43         CopyHDFToWorkFolder(oldtype,newtype) 
     43        V_CopyHDFToWorkFolder(oldtype,newtype) 
    4444End 
    4545 
     
    6565// type is the destination WORK folder for the copy 
    6666// 
    67 Function CopyHDFToWorkFolder(fromStr,toStr) 
     67Function V_CopyHDFToWorkFolder(fromStr,toStr) 
    6868        String fromStr,toStr 
    6969         
     
    302302//   line fails (but reports no error), then DuplicateDataFolder fails, and reports an error. Trying 
    303303//   to simplify this condition, I can't reproduce the bug for WM... 
    304 Proc Convert_to_Workfile(newtype, doadd) 
     304Proc V_Convert_to_Workfile(newtype, doadd) 
    305305        String newtype,doadd 
    306306        Prompt newtype,"WORK data type",popup,"SAM;EMP;BGD;ADJ;" 
     
    315315        if(cmpstr(doadd,"No")==0) 
    316316                //don't add to prev work contents, copy RAW contents to work and convert 
    317                 err = Raw_to_work(newtype) 
     317                err = V_Raw_to_work(newtype) 
    318318        else 
    319319                //yes, add RAW to the current work folder contents 
    320320                Abort "Adding RAW data files is currently unsupported" 
    321                 err = Add_raw_to_work(newtype) 
     321                err = V_Add_raw_to_work(newtype) 
    322322        endif 
    323323         
     
    328328         
    329329        //need to update the display with "data" from the correct dataFolder 
    330         UpdateDisplayInformation(newtype) 
     330        V_UpdateDisplayInformation(newtype) 
    331331         
    332332End 
     
    342342//the current display type is updated to newType (global) 
    343343// 
    344 Function Raw_to_work(newType) 
     344Function V_Raw_to_work(newType) 
    345345        String newType 
    346346         
     
    366366         
    367367        //copy from current dir (RAW) to work, defined by newType 
    368         CopyHDFToWorkFolder("RAW",newType) 
     368        V_CopyHDFToWorkFolder("RAW",newType) 
    369369         
    370370        // now work with the waves from the destination folder.  
     
    432432                        Wave w_calib = V_getDetTube_spatialCalib(fname,detStr) 
    433433                        Variable tube_width = V_getDet_tubeWidth(fname,detStr) 
    434                         NonLinearCorrection(w,w_calib,tube_width,detStr,destPath) 
     434                        V_NonLinearCorrection(w,w_calib,tube_width,detStr,destPath) 
    435435 
    436436                        //(2.4) Convert the beam center values from pixels to mm 
    437437                        // TODO -- there needs to be a permanent location for these values?? 
    438438                        // 
    439                         ConvertBeamCtr_to_mm(fname,detStr,destPath) 
     439                        V_ConvertBeamCtr_to_mm(fname,detStr,destPath) 
    440440                                                         
    441441                        // (2.5) Calculate the q-values 
     
    454454                 
    455455                //"B" is separate 
    456                 NonLinearCorrection_B(fname,"B",destPath) 
    457                 ConvertBeamCtr_to_mmB(fname,"B",destPath) 
     456                V_NonLinearCorrection_B(fname,"B",destPath) 
     457                V_ConvertBeamCtr_to_mmB(fname,"B",destPath) 
    458458                V_Detector_CalcQVals(fname,"B",destPath) 
    459459                 
     
    478478                        Wave w_err = V_getDetectorDataErrW(fname,detStr) 
    479479                        // any other dimensions to pass in? 
    480                         SolidAngleCorrection(w,w_err,fname,detStr,destPath) 
     480                        V_SolidAngleCorrection(w,w_err,fname,detStr,destPath) 
    481481                         
    482482                endfor 
     
    515515                                // do the corrections for 8 tube panels 
    516516                                Wave w_dt = V_getDetector_deadtime(fname,detStr) 
    517                                 DeadTimeCorrectionTubes(w,w_err,w_dt,ctTime) 
     517                                V_DeadTimeCorrectionTubes(w,w_err,w_dt,ctTime) 
    518518                                 
    519519                        endif 
     
    550550                        Wave w_err = V_getDetectorDataErrW(fname,detStr) 
    551551                         
    552 //                      TransmissionCorrection(fill this in) 
     552//                      V_TransmissionCorrection(fill this in) 
    553553                         
    554554                endfor 
     
    572572                        Wave w_err = V_getDetectorDataErrW(fname,detStr) 
    573573                        Variable monCt = V_getBeamMonNormData(fname) 
    574         //                      MonitorNormalization(fill this in) 
     574        //                      V_MonitorNormalization(fill this in) 
    575575                //scale the data to the default montor counts 
    576576                 
     
    629629// 
    630630//the current display type is updated to newType (global) 
    631 Function Add_raw_to_work(newType) 
     631Function V_Add_raw_to_work(newType) 
    632632        String newType 
    633633         
     
    637637        NVAR doAdjustRAW_Atten = root:Packages:NIST:gDoAdjustRAW_Atten 
    638638        if(doAdjustRAW_Atten) 
    639                 Adjust_RAW_Attenuation(newType) 
     639                V_Adjust_RAW_Attenuation(newType) 
    640640        endif 
    641641         
     
    646646                Print "There is no old work file to add to - a new one will be created" 
    647647                //call Raw_to_work(), then return from this function 
    648                 Raw_to_Work(newType) 
     648                V_Raw_to_Work(newType) 
    649649                Return(0)               //does not generate an error - a single file was converted to work.newtype 
    650650        Endif 
     
    710710        endif    
    711711         
    712         DetCorr(raw_data,raw_data_err,raw_reals,doEfficiency,doTrans)   //applies correction to raw_data, and overwrites it 
     712        V_DetCorr(raw_data,raw_data_err,raw_reals,doEfficiency,doTrans) //applies correction to raw_data, and overwrites it 
    713713         
    714714        //deadtime corrections to raw data 
     
    807807//to get the data back on a simple time basis 
    808808// 
    809 Function Raw_to_Work_NoNorm(type) 
     809Function V_Raw_to_Work_NoNorm(type) 
    810810        String type 
    811811         
    812812        WAVE reals=$("root:Packages:NIST:RAW:realsread") 
    813813        reals[1]=1              //true monitor counts, still in raw 
    814         Raw_to_work(type) 
     814        V_Raw_to_work(type) 
    815815        //data is now in "type" folder 
    816816        WAVE data=$("root:Packages:NIST:"+type+":linear_data") 
     
    839839//to get the data back on a simple time basis 
    840840// 
    841 Function Add_Raw_to_Work_NoNorm(type) 
     841Function V_Add_Raw_to_Work_NoNorm(type) 
    842842        String type 
    843843         
    844844        WAVE reals=$("root:Packages:NIST:RAW:realsread") 
    845845        reals[1]=1              //true monitor counts, still in raw 
    846         Add_Raw_to_work(type) 
     846        V_Add_Raw_to_work(type) 
    847847        //data is now in "type" folder 
    848848        WAVE data=$("root:Packages:NIST:"+type+":linear_data") 
Note: See TracChangeset for help on using the changeset viewer.