[Plplot-cvs] SF.net SVN: plplot:[11026] trunk/examples/tcl

[<and...@us...>]

Revision: 11026
          http://plplot.svn.sourceforge.net/plplot/?rev=11026&view=rev
Author:   andrewross
Date:     2010-05-27 09:56:37 +0000 (Thu, 27 May 2010)

Log Message:
-----------
A load of little changes to tcl scripts to restore defaults at the end of the example. This ensures the correct results when multiple examples are run within the same plserver session (e.g. by make test_interactive).

Modified Paths:
--------------
    trunk/examples/tcl/x07.tcl
    trunk/examples/tcl/x09.tcl
    trunk/examples/tcl/x13.tcl
    trunk/examples/tcl/x17.tcl
    trunk/examples/tcl/x19.tcl
    trunk/examples/tcl/x21.tcl
    trunk/examples/tcl/x26.tcl

Modified: trunk/examples/tcl/x07.tcl
===================================================================
--- trunk/examples/tcl/x07.tcl	2010-05-27 09:51:11 UTC (rev 11025)
+++ trunk/examples/tcl/x07.tcl	2010-05-27 09:56:37 UTC (rev 11026)
@@ -61,4 +61,5 @@
     }
 # Restore defaults
     # $w cmd plcol0 1
+    $w cmd plfontld 0
 }

Modified: trunk/examples/tcl/x09.tcl
===================================================================
--- trunk/examples/tcl/x09.tcl	2010-05-27 09:51:11 UTC (rev 11025)
+++ trunk/examples/tcl/x09.tcl	2010-05-27 09:56:37 UTC (rev 11026)
@@ -162,6 +162,7 @@
 # Restore defaults
     # $w cmd plcol0 1
 #    $w cmd pl_setcontlabelparam 0.006 0.3 0.1 0
+     $w cmd pllsty 1
 }
 
 # Demonstrate plotting of wrapped data.  What is significant to

Modified: trunk/examples/tcl/x13.tcl
===================================================================
--- trunk/examples/tcl/x13.tcl	2010-05-27 09:51:11 UTC (rev 11025)
+++ trunk/examples/tcl/x13.tcl	2010-05-27 09:56:37 UTC (rev 11026)
@@ -73,4 +73,5 @@
     $w cmd plptex 5.0 9.0 1.0 0.0 0.5 "Percentage of Sales"
 # Restore defaults
     # $w cmd plcol0 1
+    $w cmd plfont 1
 }

Modified: trunk/examples/tcl/x17.tcl
===================================================================
--- trunk/examples/tcl/x17.tcl	2010-05-27 09:51:11 UTC (rev 11025)
+++ trunk/examples/tcl/x17.tcl	2010-05-27 09:56:37 UTC (rev 11026)
@@ -128,4 +128,7 @@
 #   Destroy strip chart and it's memory
 
     $w cmd plstripd $id1
+
+#   Restore defaults
+    $w cmd pllsty 1
 }

Modified: trunk/examples/tcl/x19.tcl
===================================================================
--- trunk/examples/tcl/x19.tcl	2010-05-27 09:51:11 UTC (rev 11025)
+++ trunk/examples/tcl/x19.tcl	2010-05-27 09:56:37 UTC (rev 11026)
@@ -180,6 +180,8 @@
 
     $w cmd plssym 0. 1.
     $w cmd plptex -76.6125 43. 0.0 0.0 0.0 "Baltimore, MD"
+  
+    $w cmd plstransform NULL
 
     $w cmd pllsty 1
 # No defaults to restore

Modified: trunk/examples/tcl/x21.tcl
===================================================================
--- trunk/examples/tcl/x21.tcl	2010-05-27 09:51:11 UTC (rev 11025)
+++ trunk/examples/tcl/x21.tcl	2010-05-27 09:56:37 UTC (rev 11026)
@@ -231,7 +231,8 @@
     }
 
     $w cmd plflush
-    $w cmd plend
+    #$w cmd plend
+    $w cmd plssub 1 1
 }
 
 #----------------------------------------------------------------------------

Modified: trunk/examples/tcl/x26.tcl
===================================================================
--- trunk/examples/tcl/x26.tcl	2010-05-27 09:51:11 UTC (rev 11025)
+++ trunk/examples/tcl/x26.tcl	2010-05-27 09:56:37 UTC (rev 11026)
@@ -112,6 +112,9 @@
       plot261 $w 0 $xl $yl $altyl $title $linel
   }
 
+  # Restore defauls
+  $w cmd plfont 1
+
 }
 
 # --------------------------------------------------------------------------


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.