Changeset 52 for sans

Timestamp:

Mar 9, 2007 3:25:31 PM (16 years ago)

Author:

srkline

Message:

• changed pxt to include the procedure file
• added freezing of configuration text for printing (RT#713)
• colorized frozen traces

Location:

sans/SASCalc/trunk

Files:

• SASCALC.ipf (modified) (7 diffs)
• SASCALC.pxt (modified) (previous)

sans/SASCalc/trunk/SASCALC.ipf

@@ -6 +6 @@
 // 30 OCT 2006 SRK - corrected beamDiameter size in attenuator calculation (Bh vs Bm)
 // 11 DEC 2006 SRK - added 2.5 cm A1 option for NG3@7guide config
+// 09 MAR 2007 SRK - now appends text of each frozen configuration for printing
+//                                        - colorized frozen traces so that they aren't all red (unfrozen is black)
 //
 // calculate what q-values you get based on the instruments settings
@@ -16 +18 @@
 // - add in instrument conditions for lens/(lens+prism) configurations
 // - proper resolution calculation for lens/prism
+// - don't use the corners... misleading high Q limit (just max horiz?) - make a default mask
+
 //
 // Optional:
 // - freeze configurations with a user defined tag
 // - different model functions (+ change simple parameters)
-// - smeared models
-
+// - resolution smeared models
+// - "simulation" of data and error bars given a model and a total number of detector counts
 // - sequence of colors for frozen plots
 // - streamline code (globals needed in panel vs. wave needed for calculation)
@@ -37 +41 @@
 // - get SDD value to update when switching NG7->NG3 and illegal value
 // - disallow 6 guides at NG3 (post a warning)
-// - don't use the corners... misleading high Q limit (just max horiz?) - make a default mask
 //
 //
@@ -591 +594 @@
 End
 
+//freezes the current configuration
+// -1- duplicates the trace on the graph
+// -2- copies the configuration text to a second notebook window for printing
 Function FreezeButtonProc(ctrlName) : ButtonControl
         String ctrlName
 
+        String str=""
         NVAR ct=root:SAS:gFreezeCount
         SetDataFolder root:SAS
@@ -602 +609 @@
         ModifyGraph mode=3
         ModifyGraph marker=19
+        switch(mod(ct,10))      // 10 different colors - black is the unfrozen color
+                case 0:
+                        ModifyGraph rgb($("aveint_"+num2str(ct)))=(65535,16385,16385)
+                        break
+                case 1:
+                        ModifyGraph rgb($("aveint_"+num2str(ct)))=(2,39321,1)
+                        break
+                case 2:
+                        ModifyGraph rgb($("aveint_"+num2str(ct)))=(0,0,65535)
+                        break
+                case 3:
+                        ModifyGraph rgb($("aveint_"+num2str(ct)))=(39321,1,31457)
+                        break
+                case 4:
+                        ModifyGraph rgb($("aveint_"+num2str(ct)))=(48059,48059,48059)
+                        break
+                case 5:
+                        ModifyGraph rgb($("aveint_"+num2str(ct)))=(65535,32768,32768)
+                        break
+                case 6:
+                        ModifyGraph rgb($("aveint_"+num2str(ct)))=(0,65535,0)
+                        break
+                case 7:
+                        ModifyGraph rgb($("aveint_"+num2str(ct)))=(16385,65535,65535)
+                        break
+                case 8:
+                        ModifyGraph rgb($("aveint_"+num2str(ct)))=(65535,32768,58981)
+                        break
+                case 9:
+                        ModifyGraph rgb($("aveint_"+num2str(ct)))=(36873,14755,58982)
+                        break
+        endswitch
+        
         ct +=1
         SetDataFolder root:
         
+        // create or append the configuration to a new notebook
+        if(WinType("Saved_Configurations")==0)
+                NewNotebook/F=1/N=Saved_Configurations /W=(480,400,880,725)
+        endif
+        //append the text
+        sprintf str,"\rConfiguration #%d\r",ct-1
+        Notebook Saved_Configurations showRuler=0,defaultTab=20,selection={endOfFile, endOfFile}
+        Notebook Saved_Configurations font="Monaco",fSize=10,fstyle=1,text=str          //bold
+        Notebook Saved_Configurations font="Monaco",fSize=10,fstyle=0,text=SetConfigurationText()
         return(0)
 End
 
+//clears the frozen traces on the graph, asks if you want to clear the saved text
+//
 Function ClearButtonProc(ctrlName) : ButtonControl
         String ctrlName
@@ -622 +673 @@
         ct=0
         setdatafolder root:
+        
+        DoAlert 1,"Do you also want to clear the \"Saved Configurations\" text?"
+        if(V_flag == 1)         // yes
+                DoWindow/K Saved_Configurations
+        endif
+        
         return(0)
 End
@@ -1201 +1258 @@
 Function DisplayConfigurationText()
 
-        if(WinType("ConfigText")==0)
-                NewNotebook/F=0/K=1/N=ConfigText /W=(480,44,880,369)
+        if(WinType("Trial_Configuration")==0)
+                NewNotebook/F=0/K=1/N=Trial_Configuration /W=(480,44,880,369)
         endif
         //replace the text
-        Notebook ConfigText selection={startOfFile, endOfFile}
-        Notebook ConfigText font="Monaco",fSize=10,text=SetConfigurationText()
+        Notebook Trial_Configuration selection={startOfFile, endOfFile}
+        Notebook Trial_Configuration font="Monaco",fSize=10,text=SetConfigurationText()
         return(0)
 end