Changeset 752
- Timestamp:
- Oct 5, 2010 5:05:13 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
sans/Dev/trunk/NCNR_User_Procedures/Reduction/SANS/SASCALC.ipf
r749 r752 482 482 dlStr = "0.109;0.125;0.236;" //updated calibration 2009 483 483 //detector limits 484 SetVariable setvar0, limits={133,1317,1}484 SetVariable setvar0,win=SASCALC,limits={133,1317,1} 485 485 NVAR detDist=root:Packages:NIST:SAS:gDetDist 486 486 if(detDist < 133 ) … … 489 489 detDist = 1317 490 490 endif 491 Slider SC_Slider_1, limits={133,1317,1},userTicks={root:Packages:NIST:SAS:tickSDDNG3,root:Packages:NIST:SAS:lblSDDNG3 }492 Slider SC_Slider_1, variable=root:Packages:NIST:SAS:gDetDist //forces update491 Slider SC_Slider_1,win=SASCALC,limits={133,1317,1},userTicks={root:Packages:NIST:SAS:tickSDDNG3,root:Packages:NIST:SAS:lblSDDNG3 } 492 Slider SC_Slider_1,win=SASCALC,variable=root:Packages:NIST:SAS:gDetDist //forces update 493 493 else //ng7 494 494 switch(ng) … … 504 504 505 505 dlStr = "0.09;0.115;0.22;" 506 Slider SC_Slider_1, limits={100,1531,1},userTicks={root:Packages:NIST:SAS:tickSDDNG7,root:Packages:NIST:SAS:lblSDDNG7 }507 SetVariable setvar0, limits={100,1531,1}508 Slider SC_Slider_1, variable=root:Packages:NIST:SAS:gDetDist //forces update506 Slider SC_Slider_1,win=SASCALC,limits={100,1531,1},userTicks={root:Packages:NIST:SAS:tickSDDNG7,root:Packages:NIST:SAS:lblSDDNG7 } 507 SetVariable setvar0,win=SASCALC,limits={100,1531,1} 508 Slider SC_Slider_1,win=SASCALC,variable=root:Packages:NIST:SAS:gDetDist //forces update 509 509 endif 510 510 ControlUpdate popup0 511 PopupMenu popup0, mode=mode //source Ap511 PopupMenu popup0,win=SASCALC,mode=mode //source Ap 512 512 ControlInfo/W=SASCALC popup0 513 513 SourceAperturePopMenuProc("",0,S_Value) //send popNum==0 so recalculation won't be done … … 585 585 586 586 if(cmpstr(ctrlName,"checkNG3")==0) 587 checkBox checkNG3, value=1588 checkBox checkNG7, value=0587 checkBox checkNG3,win=SASCALC, value=1 588 checkBox checkNG7,win=SASCALC, value=0 589 589 initNG3() 590 590 else 591 checkBox checkNG3, value=0592 checkBox checkNG7, value=1591 checkBox checkNG3,win=SASCALC, value=0 592 checkBox checkNG7,win=SASCALC, value=1 593 593 initNG7() 594 594 endif … … 606 606 NVAR table=root:Packages:NIST:SAS:gTable 607 607 if(cmpstr(ctrlName,"checkHuber")==0) 608 checkBox checkHuber, value=1609 checkBox checkChamber, value=0608 checkBox checkHuber,win=SASCALC, value=1 609 checkBox checkChamber,win=SASCALC, value=0 610 610 table=1 //in Huber position 611 611 else 612 checkBox checkHuber, value=0613 checkBox checkChamber, value=1612 checkBox checkHuber,win=SASCALC, value=0 613 checkBox checkChamber,win=SASCALC, value=1 614 614 table = 2 //in Sample chamber 615 615 endif … … 650 650 if(checked == 0) 651 651 lens = 0 652 CheckBox checkLens, value=0652 CheckBox checkLens,win=SASCALC,value=0 653 653 rw[28]=0 //flag for lenses out 654 654 ReCalculateInten(1) … … 669 669 GuideSliderProc("",0,1) //this updates the controls to the new # of guides 670 670 671 PopupMenu popup0, mode=1,popvalue="1.43 cm" //first item in source aperture menu671 PopupMenu popup0,win=SASCALC,mode=1,popvalue="1.43 cm" //first item in source aperture menu 672 672 673 PopupMenu popup0_2, mode=2 //deltaLambda674 ControlInfo popup0_2673 PopupMenu popup0_2,win=SASCALC,mode=2 //deltaLambda 674 ControlInfo/W=SASCALC popup0_2 675 675 DeltaLambdaPopMenuProc("",0,S_value) //zero as 2nd param skips recalculation 676 676 else … … 683 683 ng=0 684 684 GuideSliderProc("",0,1) 685 PopupMenu popup0, mode=1,popvalue="1.43 cm" //first item685 PopupMenu popup0,win=SASCALC,mode=1,popvalue="1.43 cm" //first item 686 686 687 PopupMenu popup0_2, mode=2 //deltaLambda688 ControlInfo popup0_2687 PopupMenu popup0_2,win=SASCALC,mode=2 //deltaLambda 688 ControlInfo/W=SASCALC popup0_2 689 689 DeltaLambdaPopMenuProc("",0,S_value) //zero as 2nd param skips recalculation 690 690 endif … … 702 702 if(a1 != 1.43 || Ng !=0) 703 703 lens = 0 704 CheckBox checkLens, value=0704 CheckBox checkLens,win=SASCALC,value=0 705 705 rw[28]=0 //flag for lenses out 706 706 return(0) … … 710 710 if(instrument == 3 && dist != 1317) 711 711 lens = 0 712 CheckBox checkLens, value=0712 CheckBox checkLens,win=SASCALC,value=0 713 713 rw[28]=0 //flag for lenses out 714 714 return(0) … … 717 717 if(instrument == 7 && dist != 1531) 718 718 lens = 0 719 CheckBox checkLens, value=0719 CheckBox checkLens,win=SASCALC,value=0 720 720 rw[28]=0 //flag for lenses out 721 721 return(0) … … 725 725 if(instrument == 3 && !(lam == 8.4 || lam == 17.2) ) 726 726 lens = 0 727 CheckBox checkLens, value=0727 CheckBox checkLens,win=SASCALC,value=0 728 728 rw[28]=0 //flag for lenses out 729 729 return(0) … … 732 732 if(instrument == 7 && lam != 8.09 ) 733 733 lens = 0 734 CheckBox checkLens, value=0734 CheckBox checkLens,win=SASCALC,value=0 735 735 rw[28]=0 //flag for lenses out 736 736 return(0) … … 1729 1729 if(cmpstr(S_Value,"other") == 0) // "other" selected 1730 1730 //enable the setvar, diameter in mm! 1731 SetVariable setvar0_3 disable=01731 SetVariable setvar0_3,win=SASCALC, disable=0 1732 1732 // read its value (a global) 1733 1733 NVAR a2other = root:Packages:NIST:SAS:gSamApOther 1734 1734 a2=a2other/10 //a2 in cm 1735 1735 else 1736 SetVariable setvar0_3 disable=11736 SetVariable setvar0_3,win=SASCALC, disable=1 1737 1737 //1st item is 1/16", popup steps by 1/16" 1738 1738 a2 = 2.54/16.0 * (V_Value) //convert to cm
Note: See TracChangeset
for help on using the changeset viewer.