Ignore:
Timestamp:
Oct 7, 2008 1:09:04 PM (14 years ago)
Author:
ajj
Message:

Moving data folders into root:Packages:NIST

This could be hairy.

File:
1 edited

Legend:

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

    r412 r418  
    13751375        //fileList has NAMES ONLY - since it was derived from the file header 
    13761376        String testStr 
    1377         testStr = "root:"+type+":fileList" 
     1377        testStr = "root:Packages:NIST:"+type+":fileList" 
    13781378        if(Exists(testStr) == 2)                //2 if string variable exists 
    13791379                SVAR curFiles = $testStr 
     
    16161616                If(cmpstr(prot[1],"none") == 0) 
    16171617                        //clean out the EMP folder? 
    1618                         //KillDataFolder root:EMP 
    1619                         //NewDataFolder/O root:EMP 
     1618                        //KillDataFolder root:Packages:NIST:EMP 
     1619                        //NewDataFolder/O root:Packages:NIST:EMP 
    16201620                        break 
    16211621                Endif 
     
    17501750                Endif 
    17511751                //get the sample trans and thickness from the activeType folder 
    1752                 String destStr = "root:"+activeType+":realsread" 
     1752                String destStr = "root:Packages:NIST:"+activeType+":realsread" 
    17531753                Wave dest = $destStr 
    17541754                Variable c0 = dest[4]           //sample transmission 
     
    17771777                                //if none desired, make sure that the old mask is deleted 
    17781778                                //junkStr = GetDataFolder(1) 
    1779                                 //SetDataFolder root:MSK 
    1780                                 KillWaves/Z root:MSK:data 
     1779                                //SetDataFolder root:Packages:NIST:MSK 
     1780                                KillWaves/Z root:Packages:NIST:MSK:data 
    17811781                                //SetDataFolder junkStr 
    17821782                                DoAlert 0,"No Mask file selected, data not masked" 
     
    17941794                //if none desired, make sure that the old mask is deleted 
    17951795                //junkStr = GetDataFolder(1) 
    1796                 //SetDataFolder root:MSK 
    1797                 KillWaves/Z root:MSK:data 
     1796                //SetDataFolder root:Packages:NIST:MSK 
     1797                KillWaves/Z root:Packages:NIST:MSK:data 
    17981798                //SetDataFolder junkStr 
    17991799        Endif 
     
    18631863                //then save 
    18641864                //get name from textwave of the activeType dataset 
    1865                 String textStr = "root:"+activeType+":textread" 
     1865                String textStr = "root:Packages:NIST:"+activeType+":textread" 
    18661866                Wave/T textPath = $textStr 
    18671867                If(WaveExists(textPath) == 1) 
     
    19941994                endif 
    19951995                         
    1996                 Wave/T tw=$"root:RAW:TextRead" 
    1997                 Wave rw=$"root:RAW:RealsRead" 
    1998                 Wave iw=$"root:RAW:IntegersRead" 
     1996                Wave/T tw=$"root:Packages:NIST:RAW:TextRead" 
     1997                Wave rw=$"root:Packages:NIST:RAW:RealsRead" 
     1998                Wave iw=$"root:Packages:NIST:RAW:IntegersRead" 
    19991999                String acctStr = tw[3] 
    20002000                //NG5 attenuator transmission is assumed to be the same as the table for NG7 
     
    20512051                //need the detector sensitivity file - make a guess, allow to override 
    20522052                String junkStr="" 
    2053                 if(! waveexists($"root:DIV:data")) 
     2053                if(! waveexists($"root:Packages:NIST:DIV:data")) 
    20542054                         junkStr = PromptForPath("Select the detector sensitivity file") 
    20552055                        If(strlen(junkStr)==0 || CheckIfRawData(junkStr))               //raw check==1 if RAW, DIV is not 
     
    20642064                        Log_Lin("bisLog")        
    20652065                endif    
    2066                 Wave divData = $"root:div:Data" 
    2067                 Wave data = $"root:raw:data"            //this will be the linear data 
     2066                Wave divData = $"root:Packages:NIST:div:Data" 
     2067                Wave data = $"root:Packages:NIST:raw:data"              //this will be the linear data 
    20682068                // correct by detector sensitivity 
    20692069                data /= divData 
    20702070                 
    20712071                // now do the sum, only in the box       
    2072 //              detCnt = sum($"root:raw:data", -inf, inf ) 
     2072//              detCnt = sum($"root:Packages:NIST:raw:data", -inf, inf ) 
    20732073//              Print "box is now ",x1,x2,y1,y2 
    20742074                detCnt = SumCountsInBox(x1,x2,y1,y2,"RAW") 
Note: See TracChangeset for help on using the changeset viewer.