Changeset 1580 for trunk/gui

Timestamp:

Oct 13, 2009, 3:57:07 PM (15 years ago)

Author:

gah

Message:

 

Location:

trunk/gui/scripts

Files:

• xyprint.tcl (modified) (2 diffs)
• xyresult.tcl (modified) (5 diffs)

trunk/gui/scripts/xyprint.tcl

@@ -44 +44 @@
     
     # Kill the title and create a border around the plot
-    $clone configure -title "" -plotborderwidth 1 -plotrelief solid  \
+    $clone configure \
+        -title "" \
+        -plotborderwidth 1 -plotrelief solid  \
         -plotbackground white -plotpadx 0 -plotpady 0
     # 
-    $clone legend configure -position right -font "*-helvetica-medium-r-normal-*-12-*" \
+    $clone legend configure \
+        -position right \
+        -font "*-helvetica-medium-r-normal-*-12-*" \
         -hide yes -borderwidth 0 -background white -relief flat \
         -anchor nw -activeborderwidth 0
     # 
     foreach axis [$clone axis names] {
-        $clone axis configure $axis -ticklength 5 -loose always 
-#-min "" -max ""
-        $clone axis configure $axis -tickfont "*-helvetica-medium-r-normal-*-12-*" \
+        $clone axis configure $axis -ticklength 5 -loose always \
+-min "" -max ""
+        $clone axis configure $axis \
+            -tickfont "*-helvetica-medium-r-normal-*-12-*" \
             -titlefont "*-helvetica-medium-r-normal-*-12-*" 
     }
@@ -61 +66 @@
     #$clone y2axis configure -rotate 270
     foreach elem [$clone element names] {
-        $clone element configure $elem -linewidth 1
+        $clone element configure $elem -linewidth 1 \
+            -symbol splus -pixels 3 -maxsymbols 10 
     }
     set output [$clone postscript output \

trunk/gui/scripts/xyresult.tcl

@@ -163 +163 @@
     itk_component add plot {
         blt::graph $f.plot \
-            -highlightthickness 0 -plotpadx 0 -plotpady 0 \
+            -highlightthickness 0 -plotpadx 0 -plotpady 4 \
             -rightmargin 10
     } {
@@ -843 +843 @@
                     set logmin [expr {floor(log10(abs($min)))}]
                     set logmax [expr {ceil(log10(abs($max)))}]
+                    if 0 {
                     if {[string match y* $axis]} {
                         # add a little padding
@@ -850 +851 @@
                         set logmax [expr {$logmax+0.05*$delta}]
                     }
+                    }
                 }
                 if {$logmin < -300} {
@@ -870 +872 @@
                 set max $_limits(${axis}lin-max)
 
+                if 0 {
                 if {[string match y* $axis]} {
                     # add a little padding
@@ -876 +879 @@
                     set max [expr {$max+0.05*$delta}]
                 }
+                }
             }
             if {$min < $max} {