Ignore:
Timestamp:
Feb 26, 2019 3:36:45 PM (4 years ago)
Author:
srkline
Message:

more additions to VCALC functionality and bug fixes

File:
1 edited

Legend:

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

    r1128 r1129  
    8989        ControlInfo/W=VCALC VCALCCtrl_0d 
    9090 
    91         return(V_Value) 
     91        return(str2num(S_Value)) 
    9292end 
    9393 
     
    293293        return(val) 
    294294End 
     295 
     296 
    295297/////////////////// 
    296298// 
     
    317319// 
    318320//  
    319 Function VC_FrontMiddlePreset() 
    320  
     321Function VC_Preset_FrontMiddle_Ng0() 
     322 
     323// set preference to ignore back detector 
     324        NVAR gIgnoreB = root:Packages:NIST:VSANS:Globals:gIgnoreDetB 
     325        gIgnoreB = 1 
     326         
    321327        // front carriage 
    322         SetVariable VCALCCtrl_2a,value=_NUM:-20         //Left offset 
    323         SetVariable VCALCCtrl_2aa,value=_NUM:20         //Right offset 
     328        SetVariable VCALCCtrl_2a,value=_NUM:-10         //Left offset 
     329        SetVariable VCALCCtrl_2aa,value=_NUM:10         //Right offset 
    324330        SetVariable VCALCCtrl_2b,value=_NUM:4                   //Top offset 
    325331        SetVariable VCALCCtrl_2bb,value=_NUM:-4         //Bottom offset 
    326332 
    327         SetVariable VCALCCtrl_2d,value=_NUM:120         //SDD 
     333        SetVariable VCALCCtrl_2d,value=_NUM:400         //SDD 
    328334 
    329335        // middle carriage 
     
    346352         
    347353        // wavelength 
    348         SetVariable VCALCCtrl_0b,value=_NUM:8,disable=0 ,noedit=0       // allow user editing again 
     354        SetVariable VCALCCtrl_0b,value=_NUM:6 
    349355 
    350356        //number of guides 
    351         Slider VCALCCtrl_0a,value= 0 
    352  
    353  
     357//      Slider VCALCCtrl_0a,value= 0 
     358        V_GuideSliderProc("VCALCCtrl_0a",0,1)           //Set Ng=0, resets the aperture string to the new string 
     359        Slider VCALCCtrl_0a,value=0 
     360 
     361         
     362// source aperture (+new string) 
     363        PopupMenu VCALCCtrl_0f,mode=3           //set the 3.0 cm aperture 
     364         
    354365// binning mode 
    355366        PopupMenu popup_b,mode=1,popValue="F2-M2xTB-B" 
     
    358369        return(0) 
    359370End 
     371 
     372 
     373Function VC_Preset_FrontMiddle_Ng2() 
     374 
     375        // front carriage 
     376        SetVariable VCALCCtrl_2a,value=_NUM:-10         //Left offset 
     377        SetVariable VCALCCtrl_2aa,value=_NUM:10         //Right offset 
     378        SetVariable VCALCCtrl_2b,value=_NUM:4                   //Top offset 
     379        SetVariable VCALCCtrl_2bb,value=_NUM:-4         //Bottom offset 
     380 
     381        SetVariable VCALCCtrl_2d,value=_NUM:350         //SDD 
     382 
     383        // middle carriage 
     384        SetVariable VCALCCtrl_3a,value=_NUM:-10         //Left offset 
     385        SetVariable VCALCCtrl_3aa,value=_NUM:-10                //Right offset 
     386        SetVariable VCALCCtrl_3b,value=_NUM:4                   //Top offset (doesn't matter) 
     387        SetVariable VCALCCtrl_3bb,value=_NUM:-4         //Bottom offset (doesn't matter) 
     388 
     389        SetVariable VCALCCtrl_3d,value=_NUM:1600                //SDD 
     390         
     391         
     392        // monochromator 
     393        PopupMenu VCALCCtrl_0c,mode=1,popvalue="Velocity Selector" 
     394         
     395        // wavelength spread 
     396        SVAR DLStr = root:Packages:NIST:VSANS:VCALC:gDeltaLambda 
     397        DLStr = "0.12;" 
     398//      PopupMenu VCALCCtrl_0d,mode=1,popvalue="0.12",value= root:Packages:NIST:VSANS:VCALC:gDeltaLambda 
     399        PopupMenu VCALCCtrl_0d,mode=1,popvalue="0.12" 
     400         
     401        // wavelength 
     402        SetVariable VCALCCtrl_0b,value=_NUM:6 
     403 
     404        //number of guides 
     405//      Slider VCALCCtrl_0a,value= 0 
     406        V_GuideSliderProc("VCALCCtrl_0a",2,1)           //Set Ng=2, resets the aperture string to the new string 
     407        Slider VCALCCtrl_0a,value=2 
     408         
     409// source aperture (+new string) 
     410        PopupMenu VCALCCtrl_0f,mode=1           //6.0 cm aperture 
     411         
     412 
     413// binning mode 
     414        PopupMenu popup_b,mode=1,popValue="F2-M2xTB-B" 
     415 
     416 
     417        return(0) 
     418End 
     419 
     420Function VC_Preset_FrontMiddle_Ng7() 
     421 
     422        // front carriage 
     423        SetVariable VCALCCtrl_2a,value=_NUM:-10         //Left offset 
     424        SetVariable VCALCCtrl_2aa,value=_NUM:10         //Right offset 
     425        SetVariable VCALCCtrl_2b,value=_NUM:4                   //Top offset 
     426        SetVariable VCALCCtrl_2bb,value=_NUM:-4         //Bottom offset 
     427 
     428        SetVariable VCALCCtrl_2d,value=_NUM:230         //SDD 
     429 
     430        // middle carriage 
     431        SetVariable VCALCCtrl_3a,value=_NUM:-10         //Left offset 
     432        SetVariable VCALCCtrl_3aa,value=_NUM:-10                //Right offset 
     433        SetVariable VCALCCtrl_3b,value=_NUM:4                   //Top offset (doesn't matter) 
     434        SetVariable VCALCCtrl_3bb,value=_NUM:-4         //Bottom offset (doesn't matter) 
     435 
     436        SetVariable VCALCCtrl_3d,value=_NUM:1100                //SDD 
     437         
     438         
     439        // monochromator 
     440        PopupMenu VCALCCtrl_0c,mode=1,popvalue="Velocity Selector" 
     441         
     442        // wavelength spread 
     443        SVAR DLStr = root:Packages:NIST:VSANS:VCALC:gDeltaLambda 
     444        DLStr = "0.12;" 
     445//      PopupMenu VCALCCtrl_0d,mode=1,popvalue="0.12",value= root:Packages:NIST:VSANS:VCALC:gDeltaLambda 
     446        PopupMenu VCALCCtrl_0d,mode=1,popvalue="0.12" 
     447         
     448        // wavelength 
     449        SetVariable VCALCCtrl_0b,value=_NUM:6 
     450 
     451        //number of guides 
     452//      Slider VCALCCtrl_0a,value= 0 
     453        V_GuideSliderProc("VCALCCtrl_0a",7,1)           //Set Ng=7, resets the aperture string to the new string 
     454        Slider VCALCCtrl_0a,value=7 
     455 
     456// source aperture (+new string) 
     457        PopupMenu VCALCCtrl_0f,mode=1           //6.0 cm aperture 
     458 
     459 
     460// binning mode 
     461        PopupMenu popup_b,mode=1,popValue="F2-M2xTB-B" 
     462 
     463 
     464        return(0) 
     465End 
     466 
     467Function VC_Preset_FrontMiddle_Ng9() 
     468 
     469        // front carriage 
     470        SetVariable VCALCCtrl_2a,value=_NUM:-10         //Left offset 
     471        SetVariable VCALCCtrl_2aa,value=_NUM:10         //Right offset 
     472        SetVariable VCALCCtrl_2b,value=_NUM:4                   //Top offset 
     473        SetVariable VCALCCtrl_2bb,value=_NUM:-4         //Bottom offset 
     474 
     475        SetVariable VCALCCtrl_2d,value=_NUM:100         //SDD 
     476 
     477        // middle carriage 
     478        SetVariable VCALCCtrl_3a,value=_NUM:-10         //Left offset 
     479        SetVariable VCALCCtrl_3aa,value=_NUM:-10                //Right offset 
     480        SetVariable VCALCCtrl_3b,value=_NUM:4                   //Top offset (doesn't matter) 
     481        SetVariable VCALCCtrl_3bb,value=_NUM:-4         //Bottom offset (doesn't matter) 
     482 
     483        SetVariable VCALCCtrl_3d,value=_NUM:450         //SDD 
     484         
     485         
     486         
     487        // monochromator 
     488        PopupMenu VCALCCtrl_0c,mode=1,popvalue="Velocity Selector" 
     489         
     490        // wavelength spread 
     491        SVAR DLStr = root:Packages:NIST:VSANS:VCALC:gDeltaLambda 
     492        DLStr = "0.12;" 
     493//      PopupMenu VCALCCtrl_0d,mode=1,popvalue="0.12",value= root:Packages:NIST:VSANS:VCALC:gDeltaLambda 
     494        PopupMenu VCALCCtrl_0d,mode=1,popvalue="0.12" 
     495         
     496        // wavelength 
     497        SetVariable VCALCCtrl_0b,value=_NUM:6 
     498 
     499        //number of guides 
     500//      Slider VCALCCtrl_0a,value= 0 
     501        V_GuideSliderProc("VCALCCtrl_0a",9,1)           //Set Ng=9, resets the aperture string to the new string 
     502        Slider VCALCCtrl_0a,value=9 
     503 
     504// source aperture (+new string) 
     505        PopupMenu VCALCCtrl_0f,mode=1           //6.0 cm aperture 
     506 
     507 
     508// binning mode 
     509        PopupMenu popup_b,mode=1,popValue="F2-M2xTB-B" 
     510 
     511 
     512        return(0) 
     513End 
     514 
     515 
    360516 
    361517 
     
    364520// - disregard the back detector (set as front/middle) 
    365521// 
    366 Function VC_WhiteBeamPreset() 
    367  
    368         VC_FrontMiddlePreset()          // moves Middle into contact (but w/ wrong lambda) 
     522Function VC_Preset_WhiteBeam() 
     523 
     524        VC_Preset_FrontMiddle_Ng0()             // moves Middle into contact (but w/ wrong lambda) 
    369525        // monochromator 
    370526        PopupMenu VCALCCtrl_0c,mode=1,popvalue="White Beam" 
     
    387543// - uses the back detector (set as front/middle) 
    388544// 
    389 Function VC_GraphiteMonoPreset() 
     545Function VC_Preset_GraphiteMono() 
    390546 
    391547        // front carriage 
     
    594750     
    595751        // sample aperture diam [cm] 
    596         ControlInfo VCALCCtrl_1c 
    597         a2 = V_Value 
     752        a2 = VC_sampleApertureDiam() 
    598753     
    599754//      alpha = (a1+a2)/(2*l1)  //angular divergence of beam 
Note: See TracChangeset for help on using the changeset viewer.