Ignore:
Timestamp:
Apr 16, 2018 10:50:33 AM (4 years ago)
Author:
srkline
Message:

Added two model functions for white beam smearing.

Many other small changes for processing of the back detector, shuffling of VSANS menu items, and consistent naming of V_ procedures.

File:
1 edited

Legend:

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

    r1092 r1095  
    765765End 
    766766 
     767 
     768// TODO 
     769// -- find proper way to search for these files 
     770// -- they *may* be written to the file header(reduction block) 
     771// -- or grep for VSANS_DIV (in the title) 
    767772Function/S V_GetDIVList() 
    768773 
     
    777782        newList = V_RemoveEXTFromList(newlist,"ave")            // remove the ave files 
    778783        newList = V_RemoveEXTFromList(newlist,"abs")            // remove the abs files 
     784        newList = V_RemoveEXTFromList(newlist,"pxp")            // remove the pxp files 
     785        newList = V_RemoveEXTFromList(newlist,"DS_Store")               // remove the DS_Store file (OSX only) 
    779786 
    780787        num=ItemsInList(newList) 
     
    797804                if( V_value )   // at least one instance was found 
    798805//                              Print "found ", item,ii 
    799                         if(strsearch(item,"pxp",0,2) == -1)             //does NOT contain .pxp (the current experiment will be a match) 
     806//                      if(strsearch(item,"pxp",0,2) == -1)             //does NOT contain .pxp (the current experiment will be a match) 
    800807                                list += item + ";" 
    801                         endif 
     808//                      endif 
    802809                endif 
    803810        endfor 
     
    808815end 
    809816 
    810 // TODO 
    811 // -- find proper way to search for these files 
    812 // -- they *may* be written to the file header(reduction block) 
    813 // -- or grep for VSANS_DIV (in the title) 
    814 Function/S V_PickDIVButton(ctrlName) : ButtonControl 
    815         String ctrlName 
    816         String list="",item="",fname,newList,intent 
    817         Variable ii,num 
    818          
    819         PathInfo catPathName 
    820         String path = S_path 
    821          
    822         newList = V_Get_NotRawDataFileList() 
    823         newList = V_RemoveEXTFromList(newlist,"hst")            // remove the event files 
    824         num=ItemsInList(newList) 
    825          
    826 //      for(ii=0;ii<num;ii+=1) 
    827 //              item=StringFromList(ii, newList , ";") 
    828 //              fname = path + item 
    829 //              intent = V_getReduction_intent(fname) 
    830 //              if(cmpstr(intent,"SENSITIVITY") == 0) 
    831 //                      list += item + ";" 
    832 //              endif 
    833 // 
    834 //      endfor 
    835  
    836         String match="VSANS_DIV"                //this is part of the title of a VSANS DIV file 
    837         for(ii=0;ii<num;ii+=1) 
    838                 item=StringFromList(ii, newList , ";") 
    839                 Grep/P=catPathName/Q/E=("(?i)\\b"+match+"\\b") item 
    840 //              Grep/P=catPathName/Q/E=("(?i)"+match) item 
    841                 if( V_value )   // at least one instance was found 
    842 //                              Print "found ", item,ii 
    843                                 list += item + ";" 
    844                 endif 
    845  
    846         endfor 
    847                  
    848         List = SortList(List,";",0) 
    849         Printf "DIV files = %s\r",list 
    850          
    851         return(list) 
    852  
    853 End 
    854817 
    855818Function/S V_GetMSKList() 
     
    865828        newList = V_RemoveEXTFromList(newlist,"ave")            // remove the ave files 
    866829        newList = V_RemoveEXTFromList(newlist,"abs")            // remove the abs files 
    867  
     830        newList = V_RemoveEXTFromList(newlist,"pxp")            // remove the pxp files 
     831        newList = V_RemoveEXTFromList(newlist,"DS_Store")               // remove the DS_Store file (OSX only) 
     832         
    868833        num=ItemsInList(newList) 
    869834         
     
    886851                if( V_value )   // at least one instance was found 
    887852//                              Print "found ", item,ii 
    888                         if(strsearch(item,"pxp",0,2) == -1)             //does NOT contain .pxp (the current experiment will be a match) 
     853//                      if(strsearch(item,"pxp",0,2) == -1)             //does NOT contain .pxp (the current experiment will be a match) 
    889854                                list += item + ";" 
    890                         endif 
     855//                      endif 
    891856                endif 
    892857 
     
    16881653        if(V_flag == 1)         //1=yes 
    16891654                 
    1690                 Prompt filename,"DIV File",popup,V_PickDIVButton("") 
     1655                Prompt filename,"DIV File",popup,V_GetDIVList() 
    16911656                DoPrompt "Select File",filename 
    16921657                if (V_Flag) 
     
    19641929                        //ask user for file 
    19651930//                       junkStr = PromptForPath("Select the detector sensitivity file") 
    1966                         Prompt divFileName,"DIV File",popup,V_PickDIVButton("") 
     1931                        Prompt divFileName,"DIV File",popup,V_GetDIVList() 
    19671932                        DoPrompt "Select File",divFileName 
    19681933 
     
    26232588                // DONE 
    26242589                // x- need panel 
    2625                 // 
    2626                 Prompt detPanel_toSum,"Panel with Direct Beam",popup,ksDetectorListAll 
    2627                 DoPrompt "Select Panel",detPanel_toSum 
    2628                 if (V_Flag) 
    2629                         return 0                                                                        // user canceled 
     2590                // x- now, look for the value in the file, if not there, ask 
     2591                 
     2592                detPanel_toSum = V_getReduction_BoxPanel(emptyFileName) 
     2593                if(strlen(detPanel_toSum) > 2) 
     2594                        // it's the error message 
     2595                        Prompt detPanel_toSum,"Panel with Direct Beam",popup,ksDetectorListAll 
     2596                        DoPrompt "Select Panel",detPanel_toSum 
     2597                        if (V_Flag) 
     2598                                return 0                                                                        // user canceled 
     2599                        endif 
    26302600                endif 
    2631  
     2601                 
    26322602                //need the detector sensitivity file - make a guess, allow to override 
    2633                 Prompt divFileName,"DIV File",popup,V_PickDIVButton("") 
     2603                Prompt divFileName,"DIV File",popup,V_GetDIVList() 
    26342604                DoPrompt "Select File",divFileName 
    26352605                if (V_Flag) 
Note: See TracChangeset for help on using the changeset viewer.