Changeset 227


Ignore:
Timestamp:
Dec 11, 2007 4:17:17 PM (15 years ago)
Author:
srkline
Message:

now uses canSANS approved data folders for internal storage

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/SASCalc/trunk/SASCALC.ipf

    r216 r227  
    11#pragma rtGlobals=1             // Use modern global access method. 
     2#pragma version=1.0 
     3#pragma IgorVersion = 6.0 
     4#pragma ModuleName=SASCALC 
    25 
    36// SASCALC.ipf 
     
    6164 
    6265Proc S_initialize_space() 
    63         NewDataFolder/O root:SAS 
    64         NewDataFolder/O root:myGlobals 
    65          
    66         Make/O/D/N=23 root:SAS:integersRead 
    67         Make/O/D/N=52 root:SAS:realsRead 
    68         Make/O/T/N=11 root:SAS:textRead 
     66        NewDataFolder/O root:Packages 
     67        NewDataFolder/O root:Packages:NIST 
     68        NewDataFolder/O root:Packages:NIST:SAS 
     69         
     70        Make/O/D/N=23 root:Packages:NIST:SAS:integersRead 
     71        Make/O/D/N=52 root:Packages:NIST:SAS:realsRead 
     72        Make/O/T/N=11 root:Packages:NIST:SAS:textRead 
    6973        // data 
    70         Make/O/D/N=(128,128) root:SAS:data,root:SAS:linear_data 
    71         Make/O/D/N=2 root:SAS:aveint,root:SAS:qval 
    72         root:SAS:data = 1 
    73         root:SAS:linear_data = 1 
     74        Make/O/D/N=(128,128) root:Packages:NIST:SAS:data,root:Packages:NIST:SAS:linear_data 
     75        Make/O/D/N=2 root:Packages:NIST:SAS:aveint,root:Packages:NIST:SAS:qval 
     76        root:Packages:NIST:SAS:data = 1 
     77        root:Packages:NIST:SAS:linear_data = 1 
    7478        // fill w/default values 
    75         S_fillDefaultHeader(root:SAS:integersRead,root:SAS:realsRead,root:SAS:textRead) 
     79        S_fillDefaultHeader(root:Packages:NIST:SAS:integersRead,root:Packages:NIST:SAS:realsRead,root:Packages:NIST:SAS:textRead) 
    7680         
    7781        // other variables 
    7882        // -(hard coded right now - look for NVAR declarations) 
    79         Variable/G root:myGlobals:gBinWidth=1 
     83        Variable/G root:Packages:NIST:SAS:gBinWidth=1 
    8084         
    8185        // for the panel 
    82         Variable/G root:SAS:gInst=3             //or 7 for NG7 
    83         Variable/G root:SAS:gNg=0 
    84         Variable/G root:SAS:gTable=2            //2=chamber, 1=table 
    85         Variable/G root:SAS:gDetDist=1000               //sample chamber to detector in cm 
    86         Variable/G root:SAS:gSSD=1632           //!!SSD in cm fo 0 guides (derived from Ng) 
    87         Variable/G root:SAS:gOffset=0 
    88         Variable/G root:SAS:gSamAp=1.27         //samAp diameter in cm 
    89         Variable/G root:SAS:gLambda=6 
    90         Variable/G root:SAS:gDeltaLambda=0.15 
    91         String/G root:SAS:gSourceApString = "1.43 cm;2.54 cm;3.81 cm;" 
    92         String/G root:SAS:gDeltaLambdaStr = "0.11;0.15;0.34;" 
    93         String/G root:SAS:gApPopStr = "1/16\";1/8\";3/16\";1/4\";5/16\";3/8\";7/16\";1/2\";9/16\";5/8\";11/16\";3/4\";other;" 
    94         Variable/G root:SAS:gSamApOther = 10            //non-standard aperture diameter, in mm 
    95         Variable/G root:SAS:gUsingLenses = 0            //0=no lenses, 1=lenses(or prisms) 
    96         Variable/G root:SAS:gModelOffsetFactor = 1 
     86        Variable/G root:Packages:NIST:SAS:gInst=3               //or 7 for NG7 
     87        Variable/G root:Packages:NIST:SAS:gNg=0 
     88        Variable/G root:Packages:NIST:SAS:gTable=2              //2=chamber, 1=table 
     89        Variable/G root:Packages:NIST:SAS:gDetDist=1000         //sample chamber to detector in cm 
     90        Variable/G root:Packages:NIST:SAS:gSSD=1632             //!!SSD in cm fo 0 guides (derived from Ng) 
     91        Variable/G root:Packages:NIST:SAS:gOffset=0 
     92        Variable/G root:Packages:NIST:SAS:gSamAp=1.27           //samAp diameter in cm 
     93        Variable/G root:Packages:NIST:SAS:gLambda=6 
     94        Variable/G root:Packages:NIST:SAS:gDeltaLambda=0.15 
     95        String/G root:Packages:NIST:SAS:gSourceApString = "1.43 cm;2.54 cm;3.81 cm;" 
     96        String/G root:Packages:NIST:SAS:gDeltaLambdaStr = "0.11;0.15;0.34;" 
     97        String/G root:Packages:NIST:SAS:gApPopStr = "1/16\";1/8\";3/16\";1/4\";5/16\";3/8\";7/16\";1/2\";9/16\";5/8\";11/16\";3/4\";other;" 
     98        Variable/G root:Packages:NIST:SAS:gSamApOther = 10              //non-standard aperture diameter, in mm 
     99        Variable/G root:Packages:NIST:SAS:gUsingLenses = 0              //0=no lenses, 1=lenses(or prisms) 
     100        Variable/G root:Packages:NIST:SAS:gModelOffsetFactor = 1 
    97101         
    98102        //tick labels for SDD slider 
    99103        //userTicks={tvWave,tlblWave } 
    100         Make/O/D/N=5 root:SAS:tickSDDNG3,root:SAS:tickSDDNG7 
    101         Make/O/T/N=5 root:SAS:lblSDDNG3,root:SAS:lblSDDNG7 
    102         root:SAS:tickSDDNG3 = {133,400,700,1000,1317} 
    103         root:SAS:lblSDDNG3 = {"133","400","700","1000","1317"} 
    104         root:SAS:tickSDDNG7 = {100,450,800,1150,1530} 
    105         root:SAS:lblSDDNG7 = {"100","450","800","1150","1530"} 
     104        Make/O/D/N=5 root:Packages:NIST:SAS:tickSDDNG3,root:Packages:NIST:SAS:tickSDDNG7 
     105        Make/O/T/N=5 root:Packages:NIST:SAS:lblSDDNG3,root:Packages:NIST:SAS:lblSDDNG7 
     106        root:Packages:NIST:SAS:tickSDDNG3 = {133,400,700,1000,1317} 
     107        root:Packages:NIST:SAS:lblSDDNG3 = {"133","400","700","1000","1317"} 
     108        root:Packages:NIST:SAS:tickSDDNG7 = {100,450,800,1150,1530} 
     109        root:Packages:NIST:SAS:lblSDDNG7 = {"100","450","800","1150","1530"} 
    106110         
    107111        //for the fake dependency 
    108         Variable/G root:SAS:gTouched=0 
    109         Variable/G root:SAS:gCalculate=0 
     112        Variable/G root:Packages:NIST:SAS:gTouched=0 
     113        Variable/G root:Packages:NIST:SAS:gCalculate=0 
    110114        //for plotting 
    111         Variable/G root:SAS:gFreezeCount=1              //start the count at 1 to keep Jeff happy 
     115        Variable/G root:Packages:NIST:SAS:gFreezeCount=1                //start the count at 1 to keep Jeff happy 
    112116End 
    113117 
    114118Function initNG3() 
    115119 
    116         SetDataFolder root:SAS 
     120        SetDataFolder root:Packages:NIST:SAS 
    117121         
    118122        Variable/G instrument = 3 
     
    168172Function initNG7() 
    169173 
    170         SetDataFolder root:SAS 
     174        SetDataFolder root:Packages:NIST:SAS 
    171175         
    172176        Variable/G instrument = 7 
     
    260264        PauseUpdate; Silent 1           // building window... 
    261265        String fldrSav0= GetDataFolder(1) 
    262         SetDataFolder root:SAS: 
     266        SetDataFolder root:Packages:NIST:SAS: 
    263267        Display /W=(5,44,463,570)/K=1 aveint vs qval as "SASCALC" 
    264268        DoWindow/C SASCALC 
     
    278282         
    279283        Slider SC_Slider,pos={11,46},size={150,45},proc=GuideSliderProc,live=0 
    280         Slider SC_Slider,limits={0,8,1},variable= root:SAS:gNg,vert= 0,thumbColor= (1,16019,65535) 
     284        Slider SC_Slider,limits={0,8,1},variable= root:Packages:NIST:SAS:gNg,vert= 0,thumbColor= (1,16019,65535) 
    281285        Slider SC_Slider_1,pos={234,45},size={150,45},proc=DetDistSliderProc,live=0 
    282         Slider SC_Slider_1,tkLblRot= 90,userTicks={root:SAS:tickSDDNG3,root:SAS:lblSDDNG3 } 
    283         Slider SC_Slider_1,limits={133,1317,1},variable= root:SAS:gDetDist,vert= 0,thumbColor= (1,16019,65535) 
     286        Slider SC_Slider_1,tkLblRot= 90,userTicks={root:Packages:NIST:SAS:tickSDDNG3,root:Packages:NIST:SAS:lblSDDNG3 } 
     287        Slider SC_Slider_1,limits={133,1317,1},variable= root:Packages:NIST:SAS:gDetDist,vert= 0,thumbColor= (1,16019,65535) 
    284288        Slider SC_Slider_2,pos={394,21},size={47,65},proc=OffsetSliderProc,live=0,ticks=4 
    285         Slider SC_Slider_2,limits={0,25,1},variable= root:SAS:gOffset,thumbColor= (1,16019,65535) 
     289        Slider SC_Slider_2,limits={0,25,1},variable= root:Packages:NIST:SAS:gOffset,thumbColor= (1,16019,65535) 
    286290        CheckBox checkNG3,pos={20,19},size={36,14},proc=SelectInstrumentCheckProc,title="NG3" 
    287291        CheckBox checkNG3,value=1,mode=1 
     
    293297        CheckBox checkHuber,value=0,mode=1 
    294298        PopupMenu popup0,pos={6,94},size={76,20},proc=SourceAperturePopMenuProc 
    295         PopupMenu popup0,mode=1,popvalue="3.81 cm",value= root:SAS:gSourceApString 
     299        PopupMenu popup0,mode=1,popvalue="3.81 cm",value= root:Packages:NIST:SAS:gSourceApString 
    296300        PopupMenu popup0_1,pos={172,72},size={49,20},proc=SampleAperturePopMenuProc 
    297         PopupMenu popup0_1,mode=8,popvalue="1/2\"",value= root:SAS:gApPopStr 
     301        PopupMenu popup0_1,mode=8,popvalue="1/2\"",value= root:Packages:NIST:SAS:gApPopStr 
    298302        SetVariable setvar0,pos={301,107},size={130,15},title="Det Dist (cm)",proc=SDDSetVarProc 
    299         SetVariable setvar0,limits={133,1317,1},value=root:SAS:gDetDist 
     303        SetVariable setvar0,limits={133,1317,1},value=root:Packages:NIST:SAS:gDetDist 
    300304        SetVariable setvar0_1,pos={321,129},size={110,15},title="Offset (cm)",proc=OffsetSetVarProc 
    301         SetVariable setvar0_1,limits={0,25,1},value= root:SAS:gOffset 
     305        SetVariable setvar0_1,limits={0,25,1},value= root:Packages:NIST:SAS:gOffset 
    302306        SetVariable setvar0_2,pos={6,130},size={90,15},title="Lambda",proc=LambdaSetVarProc 
    303         SetVariable setvar0_2,limits={4,20,0.1},value= root:SAS:gLambda 
     307        SetVariable setvar0_2,limits={4,20,0.1},value= root:Packages:NIST:SAS:gLambda 
    304308        PopupMenu popup0_2,pos={108,127},size={55,20},proc=DeltaLambdaPopMenuProc 
    305         PopupMenu popup0_2,mode=1,popvalue="0.15",value= root:SAS:gDeltaLambdaStr 
     309        PopupMenu popup0_2,mode=1,popvalue="0.15",value= root:Packages:NIST:SAS:gDeltaLambdaStr 
    306310        Button FreezeButton title="Freeze",size={60,20},pos={307,166} 
    307311        Button FreezeButton proc=FreezeButtonProc 
     
    312316         
    313317        SetVariable setvar0_3,pos={140,94},size={110,15},title="Diam (mm)",disable=1 
    314         SetVariable setvar0_3,limits={0,100,0.1},value= root:SAS:gSamApOther,proc=SourceApOtherSetVarProc 
     318        SetVariable setvar0_3,limits={0,100,0.1},value= root:Packages:NIST:SAS:gSamApOther,proc=SourceApOtherSetVarProc 
    315319         
    316320        CheckBox checkLens,pos={6,155},size={44,14},proc=LensCheckProc,title="Lenses?" 
    317         CheckBox checkLens,value=root:SAS:gUsingLenses 
     321        CheckBox checkLens,value=root:Packages:NIST:SAS:gUsingLenses 
    318322         
    319323        // set up a fake dependency to trigger recalculation 
    320         //root:SAS:gCalculate := ReCalculateInten(root:SAS:gTouched) 
     324        //root:Packages:NIST:SAS:gCalculate := ReCalculateInten(root:Packages:NIST:SAS:gTouched) 
    321325EndMacro 
    322326 
     
    333337        ControlInfo SC_slider 
    334338        Ng=V_value 
    335         SVAR A1str= root:SAS:gSourceApString// = "1.43 cm;2.54 cm;3.81 cm;" 
    336         SVAR dlStr = root:SAS:gDeltaLambdaStr 
     339        SVAR A1str= root:Packages:NIST:SAS:gSourceApString// = "1.43 cm;2.54 cm;3.81 cm;" 
     340        SVAR dlStr = root:Packages:NIST:SAS:gDeltaLambdaStr 
    337341        if(isNG3) 
    338342                switch(ng)       
     
    358362                //detector limits 
    359363                SetVariable setvar0,limits={133,1317,1} 
    360                 NVAR detDist=root:SAS:gDetDist 
     364                NVAR detDist=root:Packages:NIST:SAS:gDetDist 
    361365                if(detDist < 133 ) 
    362366                        detDist = 133 
     
    364368                        detDist = 1317 
    365369                endif 
    366                 Slider SC_Slider_1,limits={133,1317,1},userTicks={root:SAS:tickSDDNG3,root:SAS:lblSDDNG3 } 
    367                 Slider SC_Slider_1,variable=root:SAS:gDetDist           //forces update 
     370                Slider SC_Slider_1,limits={133,1317,1},userTicks={root:Packages:NIST:SAS:tickSDDNG3,root:Packages:NIST:SAS:lblSDDNG3 } 
     371                Slider SC_Slider_1,variable=root:Packages:NIST:SAS:gDetDist             //forces update 
    368372        else                    //ng7 
    369373                switch(ng)       
     
    379383                 
    380384                dlStr = "0.09;0.11;0.22;" 
    381                 Slider SC_Slider_1,limits={100,1531,1},userTicks={root:SAS:tickSDDNG7,root:SAS:lblSDDNG7 } 
     385                Slider SC_Slider_1,limits={100,1531,1},userTicks={root:Packages:NIST:SAS:tickSDDNG7,root:Packages:NIST:SAS:lblSDDNG7 } 
    382386                SetVariable setvar0,limits={100,1531,1} 
    383                 Slider SC_Slider_1,variable=root:SAS:gDetDist           //forces update 
     387                Slider SC_Slider_1,variable=root:Packages:NIST:SAS:gDetDist             //forces update 
    384388        endif 
    385389        ControlUpdate popup0 
     
    473477        Variable checked 
    474478 
    475         NVAR table=root:SAS:gTable 
     479        NVAR table=root:Packages:NIST:SAS:gTable 
    476480        if(cmpstr(ctrlName,"checkHuber")==0) 
    477481                checkBox checkHuber, value=1 
     
    497501        // lambda != 8.09,8.4,17.2 
    498502        // Ng != 0 
    499         NVAR lens = root:SAS:gUsingLenses 
    500         NVAR ng = root:SAS:gNg 
    501         NVAR lam = root:SAS:gLambda 
    502         NVAR dist = root:SAS:gDetDist 
     503        NVAR lens = root:Packages:NIST:SAS:gUsingLenses 
     504        NVAR ng = root:Packages:NIST:SAS:gNg 
     505        NVAR lam = root:Packages:NIST:SAS:gLambda 
     506        NVAR dist = root:Packages:NIST:SAS:gDetDist 
    503507         
    504508        if( (Ng != 0) || (lam < 8) || (dist < 1300) ) 
     
    571575        String varName 
    572576 
    573         WAVE rw=root:SAS:realsRead 
     577        WAVE rw=root:Packages:NIST:SAS:realsRead 
    574578        rw[26] = str2num(varStr) 
    575579        ReCalculateInten(1) 
     
    584588        String popStr 
    585589 
    586         NVAR dl=root:SAS:gDeltaLambda 
     590        NVAR dl=root:Packages:NIST:SAS:gDeltaLambda 
    587591        dl=str2num(popStr) 
    588         WAVE rw=root:SAS:realsRead 
     592        WAVE rw=root:Packages:NIST:SAS:realsRead 
    589593        rw[27] = dl 
    590594        ReCalculateInten(popnum)                //skip the calculation if I pass in  zero 
     
    595599Proc DoTest() 
    596600 
    597         S_CircularAverageTo1D("SAS") 
     601        S_CircularAverageTo1D("Packages:NIST:SAS") 
    598602         
    599603        //multiply by sphere FF (S_SphereForm(scale,radius,delrho,bkg,x)) 
    600604        // or Debye Function S_Debye(scale,rg,bkg,x) 
    601605         
    602         //root:SAS:aveint = S_SphereForm(1,80,1e-6,0,root:SAS:qval) 
    603         root:SAS:aveint = S_Debye(1000,100,0,qval) 
     606        //root:Packages:NIST:SAS:aveint = S_SphereForm(1,80,1e-6,0,root:Packages:NIST:SAS:qval) 
     607        root:Packages:NIST:SAS:aveint = S_Debye(1000,100,0,qval) 
    604608         
    605609        // multiply by beamstop shadowing 
    606         root:SAS:aveint *= root:SAS:fSubS 
     610        root:Packages:NIST:SAS:aveint *= root:Packages:NIST:SAS:fSubS 
    607611         
    608612        //multiply by current offset (>=1) 
    609         root:SAS:aveint *= root:SAS:gModelOffsetFactor 
     613        root:Packages:NIST:SAS:aveint *= root:Packages:NIST:SAS:gModelOffsetFactor 
    610614         
    611615End 
     
    624628        beamstopDiam() 
    625629         
    626         S_CircularAverageTo1D("SAS") 
    627         WAVE aveint=root:SAS:aveint 
    628         WAVE qval=root:SAS:qval 
    629         WAVE fSubS=root:SAS:fSubS 
     630        S_CircularAverageTo1D("Packages:NIST:SAS") 
     631        WAVE aveint=root:Packages:NIST:SAS:aveint 
     632        WAVE qval=root:Packages:NIST:SAS:qval 
     633        WAVE fSubS=root:Packages:NIST:SAS:fSubS 
    630634         
    631635        //multiply by sphere FF (S_SphereForm(scale,radius,delrho,bkg,x)) 
     
    651655 
    652656        String str="" 
    653         NVAR ct=root:SAS:gFreezeCount 
    654          
    655          
    656         SetDataFolder root:SAS 
     657        NVAR ct=root:Packages:NIST:SAS:gFreezeCount 
     658         
     659         
     660        SetDataFolder root:Packages:NIST:SAS 
    657661         
    658662        Duplicate/O aveint,$("aveint_"+num2str(ct)) 
     
    694698        endswitch 
    695699         
    696         NVAR offset = root:SAS:gModelOffsetFactor 
     700        NVAR offset = root:Packages:NIST:SAS:gModelOffsetFactor 
    697701        offset = 2^ct 
    698702        //multiply by current offset (>=1) 
     
    722726        String ctrlName 
    723727 
    724         NVAR ct=root:SAS:gFreezeCount 
     728        NVAR ct=root:Packages:NIST:SAS:gFreezeCount 
    725729        Variable ii 
    726         Setdatafolder root:SAS 
     730        Setdatafolder root:Packages:NIST:SAS 
    727731        for(ii=ct-1;ii>=1;ii-=1) 
    728732        //remove all traces, replace aveint 
     
    740744         
    741745        //reset offset value 
    742         NVAR offset = root:SAS:gModelOffsetFactor 
     746        NVAR offset = root:Packages:NIST:SAS:gModelOffsetFactor 
    743747        offset = 1 
    744748        ReCalculateInten(1) 
     
    767771         
    768772        // center of detector, for non-linear corrections 
    769 //      NVAR pixelsX = root:myGlobals:gNPixelsX 
    770 //      NVAR pixelsY = root:myGlobals:gNPixelsY 
    771773        Variable pixelsX=128,pixelsY=128 
    772774         
     
    786788        dtdist = 1000*reals[18]         // det distance in mm 
    787789         
    788         NVAR binWidth=root:myGlobals:gBinWidth 
     790        NVAR binWidth=root:Packages:NIST:SAS:gBinWidth 
    789791//      Variable binWidth = 1 
    790792         
     
    10121014 
    10131015        ii=0 
    1014 //      String res_string="root:myGlobals:Res_vals" 
    1015 //      Make/O/D/N=3 $res_string 
    1016 //      Wave res_wave=$res_string 
    10171016        Variable ret1,ret2,ret3 
    10181017        do 
     
    11331132        results ="Failure" 
    11341133         
    1135         NVAR usingLenses = root:SAS:gUsingLenses 
     1134        NVAR usingLenses = root:Packages:NIST:SAS:gUsingLenses 
    11361135 
    11371136        //rename for working variables,  these must be gotten from global 
     
    12691268        String str="",temp 
    12701269 
    1271         SetDataFolder root:SAS 
     1270        SetDataFolder root:Packages:NIST:SAS 
    12721271         
    12731272        NVAR numberOfGuides=gNg 
     
    12771276        NVAR instrument = instrument 
    12781277        NVAR L2diff = L2diff 
    1279         NVAR lens = root:SAS:gUsingLenses 
     1278        NVAR lens = root:Packages:NIST:SAS:gUsingLenses 
    12801279         
    12811280         
     
    13571356        Variable diam 
    13581357        sscanf S_Value, "%g cm", diam 
    1359         WAVE rw=root:SAS:realsRead 
     1358        WAVE rw=root:Packages:NIST:SAS:realsRead 
    13601359        rw[23] = diam*10                        //sample aperture diameter in mm 
    13611360        return(diam) 
     
    13691368        String varName 
    13701369                 
    1371         WAVE rw=root:SAS:realsRead 
     1370        WAVE rw=root:Packages:NIST:SAS:realsRead 
    13721371        rw[24] = varNum                 //sample aperture diameter in mm 
    13731372        ReCalculateInten(1) 
     
    13831382//      Print "In sampleApertureDiam()" 
    13841383        //set the global 
    1385         NVAR a2=root:SAS:gSamAp 
     1384        NVAR a2=root:Packages:NIST:SAS:gSamAp 
    13861385         
    13871386        if(cmpstr(S_Value,"other") == 0)                // "other" selected 
     
    13891388                SetVariable setvar0_3 disable=0 
    13901389                // read its value (a global) 
    1391                 NVAR a2other = root:SAS:gSamApOther 
     1390                NVAR a2other = root:Packages:NIST:SAS:gSamApOther 
    13921391                a2=a2other/10                           //a2 in cm 
    13931392        else 
     
    13961395                a2 = 2.54/16.0 * (V_Value)                      //convert to cm          
    13971396        endif 
    1398         WAVE rw=root:SAS:realsRead 
     1397        WAVE rw=root:Packages:NIST:SAS:realsRead 
    13991398        rw[24] = a2*10                  //sample aperture diameter in mm 
    14001399         
     
    14161415Function sourceToSampleDist() 
    14171416 
    1418         NVAR NG=root:SAS:gNg 
    1419         NVAR S12 = root:SAS:S12 
    1420         NVAR L2Diff = root:SAS:L2Diff 
    1421         NVAR SSD = root:SAS:gSSD 
     1417        NVAR NG=root:Packages:NIST:SAS:gNg 
     1418        NVAR S12 = root:Packages:NIST:SAS:S12 
     1419        NVAR L2Diff = root:Packages:NIST:SAS:L2Diff 
     1420        NVAR SSD = root:Packages:NIST:SAS:gSSD 
    14221421         
    14231422        SSD = 1632 - 155*NG - s12*(2-tableposition()) - L2Diff 
    14241423         
    1425         WAVE rw=root:SAS:realsRead 
     1424        WAVE rw=root:Packages:NIST:SAS:realsRead 
    14261425        rw[25] = SSD/100                // in meters 
    14271426        return(SSD) 
     
    14331432Function detectorOffset() 
    14341433         
    1435         WAVE rw=root:SAS:RealsRead 
    1436         NVAR val = root:SAS:gOffset 
     1434        WAVE rw=root:Packages:NIST:SAS:RealsRead 
     1435        NVAR val = root:Packages:NIST:SAS:gOffset 
    14371436        rw[19] = val            // already in cm 
    14381437        //move the beamcenter 
     
    14471446Function chamberToDetectorDist() 
    14481447 
    1449         NVAR val = root:SAS:gDetDist 
     1448        NVAR val = root:Packages:NIST:SAS:gDetDist 
    14501449        return(val) 
    14511450End 
     
    14561455Function sampleToDetectorDist() 
    14571456 
    1458         NVAR detDist = root:SAS:gDetDist 
    1459         NVAR S12 = root:SAS:S12 
    1460         WAVE rw=root:SAS:RealsRead       
     1457        NVAR detDist = root:Packages:NIST:SAS:gDetDist 
     1458        NVAR S12 = root:Packages:NIST:SAS:S12 
     1459        WAVE rw=root:Packages:NIST:SAS:RealsRead         
    14611460        Variable SDD     
    14621461         
     
    14721471        String direction 
    14731472 
    1474         NVAR lens = root:SAS:gUsingLenses 
     1473        NVAR lens = root:Packages:NIST:SAS:gUsingLenses 
    14751474        if(lens) 
    14761475                return sourceApertureDiam() 
     
    14811480    Variable d1,d2,bh,bv,bm,umbra,a1,a2 
    14821481     
    1483     NVAR L2diff = root:SAS:L2diff 
    1484     NVAR lambda = root:SAS:gLambda 
    1485     NVAR lambda_width = root:SAS:gDeltaLambda 
    1486     NVAR bs_factor = root:SAS:bs_factor 
     1482    NVAR L2diff = root:Packages:NIST:SAS:L2diff 
     1483    NVAR lambda = root:Packages:NIST:SAS:gLambda 
     1484    NVAR lambda_width = root:Packages:NIST:SAS:gDeltaLambda 
     1485    NVAR bs_factor = root:Packages:NIST:SAS:bs_factor 
    14871486     
    14881487    l2 = sampleToDetectorDist() + L2diff 
     
    15191518Function beamstopDiam() 
    15201519 
    1521         NVAR yesLens = root:SAS:gUsingLenses 
     1520        NVAR yesLens = root:Packages:NIST:SAS:gUsingLenses 
    15221521        Variable bm=0 
    15231522        Variable bs=0.0 
     
    15341533 
    15351534        //update the wave 
    1536         WAVE rw=root:SAS:realsRead 
     1535        WAVE rw=root:Packages:NIST:SAS:realsRead 
    15371536        rw[21] = bs*25.4                //store the BS diameter in mm 
    15381537         
     
    15471546        Variable flag 
    15481547         
    1549         NVAR L2diff = root:SAS:L2diff 
     1548        NVAR L2diff = root:Packages:NIST:SAS:L2diff 
    15501549        Variable a2 = sampleApertureDiam() 
    15511550        Variable bs = beamstopDiam() 
     
    15701569//    Variable bs = beamstopDiam()              //beamstop diameter in cm 
    15711570    Variable bs_p = beamstopDiamProjection(0)           //projected beamstop diameter in cm 
    1572     NVAR lambda = root:SAS:gLambda 
    1573     NVAR d_det = root:SAS:d_det         //cm 
    1574     NVAR a_pixel = root:SAS:a_pixel     //cm 
     1571    NVAR lambda = root:Packages:NIST:SAS:gLambda 
     1572    NVAR d_det = root:Packages:NIST:SAS:d_det           //cm 
     1573    NVAR a_pixel = root:Packages:NIST:SAS:a_pixel       //cm 
    15751574 
    15761575    return( (pi/lambda)*(bs_p + d_det + a_pixel)/l2s )          //use bs_p rather than bs 
     
    15821581    Variable theta 
    15831582    Variable l2s = sampleToDetectorDist()       //distance from sample to detector 
    1584     NVAR lambda = root:SAS:gLambda 
    1585         NVAR det_width = root:SAS:det_width 
     1583    NVAR lambda = root:Packages:NIST:SAS:gLambda 
     1584        NVAR det_width = root:Packages:NIST:SAS:det_width 
    15861585         
    15871586    theta = atan( (det_width/2.0)/l2s ) 
     
    15941593    Variable l2s = sampleToDetectorDist()       //distance from sample to detector 
    15951594    Variable radial 
    1596     NVAR lambda = root:SAS:gLambda 
    1597         NVAR det_off = root:SAS:gOffset 
    1598         NVAR det_width = root:SAS:det_width 
     1595    NVAR lambda = root:Packages:NIST:SAS:gLambda 
     1596        NVAR det_off = root:Packages:NIST:SAS:gOffset 
     1597        NVAR det_width = root:Packages:NIST:SAS:det_width 
    15991598 
    16001599    radial=sqrt( (0.5*det_width)*(0.5*det_width)+(0.5*det_width+det_off)*(0.5*det_width+det_off) ) 
     
    16071606    Variable theta 
    16081607    Variable l2s = sampleToDetectorDist()       //distance from sample to detector 
    1609     NVAR lambda = root:SAS:gLambda 
    1610         NVAR det_off = root:SAS:gOffset 
    1611         NVAR det_width = root:SAS:det_width 
     1608    NVAR lambda = root:Packages:NIST:SAS:gLambda 
     1609        NVAR det_off = root:Packages:NIST:SAS:gOffset 
     1610        NVAR det_width = root:Packages:NIST:SAS:det_width 
    16121611 
    16131612    theta = atan( ((det_width/2.0)+det_off)/l2s )       //from the instance variables 
     
    16211620         
    16221621    Variable k02,lp,l1,l2,sig_02,sigQ2,a1,a2 
    1623     NVAR l2Diff = root:SAS:L2diff 
    1624         NVAR lambda = root:SAS:gLambda 
    1625         NVAR lambda_width = root:SAS:gDeltaLambda 
    1626         NVAR d_det = root:SAS:d_det 
    1627         NVAR del_r = root:SAS:del_r 
     1622    NVAR l2Diff = root:Packages:NIST:SAS:L2diff 
     1623        NVAR lambda = root:Packages:NIST:SAS:gLambda 
     1624        NVAR lambda_width = root:Packages:NIST:SAS:gDeltaLambda 
     1625        NVAR d_det = root:Packages:NIST:SAS:d_det 
     1626        NVAR del_r = root:Packages:NIST:SAS:del_r 
    16281627         
    16291628         
     
    16521651    Variable alpha,f,t,t4,t5,t6,as,solid_angle,l1,d2_phi 
    16531652    Variable a1,a2,retVal 
    1654     SetDataFolder root:SAS 
     1653    SetDataFolder root:Packages:NIST:SAS 
    16551654    NVAR l_gap=l_gap,guide_width =guide_width,ng = gNg 
    16561655    NVAR lambda_t=lambda_t,b=b,c=c 
     
    16851684 
    16861685        Variable bi = beamIntensity() 
    1687         NVAR lambda = root:SAS:gLambda 
     1686        NVAR lambda = root:Packages:NIST:SAS:gLambda 
    16881687         
    16891688    return (lambda*lambda*bi) 
     
    16961695    Variable bDiam = beamDiameter("horizontal") //!! note that prev calculations used bh (horizontal) 
    16971696    Variable atten,a2 
    1698     SetDataFolder root:SAS 
     1697    SetDataFolder root:Packages:NIST:SAS 
    16991698    NVAR a_pixel=a_pixel,idmax=idmax 
    17001699     
     
    17131712    Variable atten = attenuatorTransmission() 
    17141713    Variable af,nf,numAtten 
    1715     SetDataFolder root:SAS 
     1714    SetDataFolder root:Packages:NIST:SAS 
    17161715    NVAR lambda=gLambda 
    17171716     
Note: See TracChangeset for help on using the changeset viewer.