Changeset 1222 for sans/Dev/trunk/NCNR_User_Procedures/Analysis/Packages

Timestamp:

Oct 18, 2019 1:08:35 PM (3 years ago)

Author:

srkline

Message:

Updated help file for VSANS. Graphics were not PNG.

Removed HFIR SANS package since if requires XML XOP - no longer supported.

Improved quality of graphics export for Analysis reports.

Added more support for super_white_beam mode on VSANS

Corrected printf bug (Igor 8) when printing out % sign

Added utilities for patching wavelength and monochromator type on VSANS since the type is still not written out correctly by NICE, and super_white_beam is not yet defined in NICE

Adjusted panel dimensions for the temperature sensor display on VSANS (needed onWindows)

File:

• sans/Dev/trunk/NCNR_User_Procedures/Analysis/Packages/Wrapper_v40.ipf (modified) (3 diffs)

sans/Dev/trunk/NCNR_User_Procedures/Analysis/Packages/Wrapper_v40.ipf

@@ -345 +345 @@
                         // make the necessary waves if they don't exist already
                         if(exists("Hold_"+suffix) == 0)
-                                Make/O/D/N=(num) $("epsilon_"+suffix),$("Hold_"+suffix)
-                                Make/O/T/N=(num) $("LoLim_"+suffix),$("HiLim_"+suffix)
-                                Wave eps = $("epsilon_"+suffix)
-                                Wave coef=$popStr
-                                if(eps[0] == 0)         //if eps already if filled, don't change it
-                                        eps = abs(coef*1e-4) + 1e-10                    //default eps is proportional to the coefficients
-                                endif
-                        endif
+                                Make/O/D/N=(num) $("Hold_"+suffix)
+                        endif
+                        if(exists("epsilon_"+suffix) == 0)
+                                Make/O/D/N=(num) $("epsilon_"+suffix)
+                        endif
+                        if(exists("LoLim_"+suffix) == 0)
+                                Make/O/T/N=(num) $("LoLim_"+suffix)
+                        endif
+                        if(exists("HiLim_"+suffix) == 0)
+                                Make/O/T/N=(num) $("HiLim_"+suffix)
+                        endif
+                                                
+                        Wave eps = $("epsilon_"+suffix)
+                        Wave coef=$popStr
+                        if(eps[0] == 0)         //if eps already if filled, don't change it
+                                eps = abs(coef*1e-4) + 1e-10                    //default eps is proportional to the coefficients
+                        endif
+                        
                         // default epsilon values, sometimes needed for the fit
                         
@@ -1169 +1179 @@
         
         // insert graphs
+        // extra flag "2" (Igor >=7.00) is 2x screen resolution
         if(WaveExists(dataXw))
 //              Notebook $nb picture={$topGraph(0, 0, 400, 300), -5, 1}, text="\r"
-                Notebook $nb scaling={50, 50}, picture={$topGraph(0, 0, 800, 600), -5, 1}, text="\r"
+                Notebook $nb scaling={50, 50}, picture={$topGraph(0, 0, 800, 600), -5, 1,2}, text="\r"
         //
         else            //must be 2D Gizmo
                 Execute "ExportGizmo Clip"                      //this ALWAYS is a PICT or BMP. Gizmo windows are different...
                 LoadPict/Q/O "Clipboard",tmp_Gizmo
-                Notebook $nb picture={tmp_Gizmo(0, 0, 800, 600), 0, 1}, text="\r"
+                Notebook $nb picture={tmp_Gizmo(0, 0, 800, 600), 0, 1,2}, text="\r"
         endif
         
@@ -1211 +1222 @@
 ///             SavePICT /E=-5/O/P=home /I/W=(0,0,3,3) as pictStr
                 if(WaveExists(dataXw))
-                        SavePICT /E=-5/O/P=home/WIN=$topGraph /W=(0,0,800,600) as pictStr
+                        SavePICT /E=-5/O/B=144/P=home/WIN=$topGraph /W=(0,0,800,600) as pictStr
                 else
                         Execute "ExportGizmo /P=home as \""+pictStr+"\""                //this won't be of very high quality