Changeset 433 for sans/Dev/trunk/NCNR_User_Procedures/Reduction/USANS/COR_Graph.ipf

Timestamp:

Oct 29, 2008 1:36:20 PM (14 years ago)

Author:

srkline

Message:

Added a few more windows to the hide/show lists for the loader

Added a log/lin checkbox for the USANS graph that toggles the x-axis only. The y-axis is always log.

Added a display on the USANS graph that shows Trock/Twide?. It is calculated as UpdateTrans? is clicked. If the value is less than 0.9, the display changes to red.

File:

• sans/Dev/trunk/NCNR_User_Procedures/Reduction/USANS/COR_Graph.ipf (modified) (4 diffs)

sans/Dev/trunk/NCNR_User_Procedures/Reduction/USANS/COR_Graph.ipf

@@ -29 +29 @@
         if(V_flag==0)
                 //draw the blank window and the control bar
-                Display /W=(5,42,450,500) /K=1
+                Display /W=(5,42,450,550) /K=1
                 DoWindow/C COR_Graph
-                ControlBar 100
+                ControlBar 150
                 SetVariable gTransWide,pos={210,12},size={135,15},title="Trans - Wide",format="%5.4f"
                 SetVariable gTransWide,help={"Average counts on transmssion detector at wide angles"}
@@ -71 +71 @@
                 ValDisplay valdispEMP,help={"Displays the peak angle the raw EMP data, determined automatically"}
         
+                CheckBox check0 title="Log X-axis",proc=LogLinToggleCheckProc
+                CheckBox check0 pos={12,100},value=0,mode=0
+                SetVariable setvar0,pos={210,100},size={120,20},title="Trock/Twide",format="%5.4f"
+                SetVariable setVar0,help={"fraction of unscattered neutrons"}
+                SetVariable setVar0,limits={0,2,0},value= $(USANSFolder+":Globals:MainPanel:gTransRatio")
+                
                 Legend
         Endif
@@ -364 +370 @@
         Variable/G $(USANSFolder+":Globals:MainPanel:gTransRock")=samRock/empRock
         
+        TransRatio()            //calculate the ratio and update
+        
         return(0)
 End
@@ -403 +411 @@
         RePlotWithUserAngle(type,newPkAngle)
 End
+
+Function TransRatio()
+        NVAR tr = root:Packages:NIST:USANS:Globals:MainPanel:gTransRock
+        NVAR tw = root:Packages:NIST:USANS:Globals:MainPanel:gTransWide
+        NVAR rat = root:Packages:NIST:USANS:Globals:MainPanel:gTransRatio
+        
+        rat = tr/tw
+        if(rat < 0.9)
+                SetVariable setVar0 labelBack=(65535,32768,32768)
+        else
+                SetVariable setVar0 labelBack=0
+        endif
+        return(0)
+End
+
+Function LogLinToggleCheckProc(cba) : CheckBoxControl
+        STRUCT WMCheckboxAction &cba
+
+        switch( cba.eventCode )
+                case 2: // mouse up
+                        Variable checked = cba.checked                  
+                        if(checked)
+                                ModifyGraph log(bottom)=1
+                        else
+                                ModifyGraph log(bottom)=0
+                        endif
+                        break
+        endswitch
+
+        return 0
+End
+
 
 //returns the peak location found (and used) for zero angle