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

[<arj...@us...>]

Revision: 11042
          http://plplot.svn.sourceforge.net/plplot/?rev=11042&view=rev
Author:   arjenmarkus
Date:     2010-05-31 08:55:52 +0000 (Mon, 31 May 2010)

Log Message:
-----------
Moving commands into the procedure that implement the example, so that chaining them in the standard_examples script becomes simpler.
This can not be done for example x16, as then we get differences in the PostScript output wrt the C version.

Modified Paths:
--------------
    trunk/examples/tcl/x01
    trunk/examples/tcl/x01.tcl
    trunk/examples/tcl/x03
    trunk/examples/tcl/x03.tcl
    trunk/examples/tcl/x16
    trunk/examples/tcl/x16.tcl

Modified: trunk/examples/tcl/x01
===================================================================
--- trunk/examples/tcl/x01	2010-05-31 00:46:56 UTC (rev 11041)
+++ trunk/examples/tcl/x01	2010-05-31 08:55:52 UTC (rev 11042)
@@ -17,6 +17,5 @@
 plgver ver
 puts [format "PLplot library version: %s" $ver ]
 
-plstar 2 2
 x01
 plend

Modified: trunk/examples/tcl/x01.tcl
===================================================================
--- trunk/examples/tcl/x01.tcl	2010-05-31 00:46:56 UTC (rev 11041)
+++ trunk/examples/tcl/x01.tcl	2010-05-31 08:55:52 UTC (rev 11042)
@@ -5,11 +5,14 @@
 proc x01 {{w loopback}} {
     global xscale yscale xoff yoff
 
-    # For starting from scratch this call to pladv increments cursub, but 
-    # then the following plssub sets it to zero so the whole thing is 
-    # essentially a nop.  However, for the case when other examples are run 
-    # first, this call to pladv is absolutely essential to finish the 
+    # For starting from scratch this call to pladv increments cursub, but
+    # then the following plssub sets it to zero so the whole thing is
+    # essentially a nop.  However, for the case when other examples are run
+    # first, this call to pladv is absolutely essential to finish the
     # preceding page.
+
+    $w cmd plstar 2 2
+
     #$w cmd pladv 0
     #$w cmd plssub 2 2
 
@@ -129,7 +132,7 @@
     $w cmd plcol0 1
     $w cmd plbox "bcnst" 60.0 2 "bcnstv" 0.2 2
 
-# Superimpose a dashed line grid, with 1.5 mm marks and spaces. 
+# Superimpose a dashed line grid, with 1.5 mm marks and spaces.
 # plstyl expects two integer matrices for mark and space!
 
     matrix mark i 1

Modified: trunk/examples/tcl/x03
===================================================================
--- trunk/examples/tcl/x03	2010-05-31 00:46:56 UTC (rev 11041)
+++ trunk/examples/tcl/x03	2010-05-31 08:55:52 UTC (rev 11042)
@@ -14,7 +14,6 @@
 
 source x03.tcl
 
-plsori 1
 plinit
 x03
 plend

Modified: trunk/examples/tcl/x03.tcl
===================================================================
--- trunk/examples/tcl/x03.tcl	2010-05-31 00:46:56 UTC (rev 11041)
+++ trunk/examples/tcl/x03.tcl	2010-05-31 08:55:52 UTC (rev 11042)
@@ -4,8 +4,9 @@
 
 proc x03 {{w loopback}} {
     set twopi  [expr 2. * 3.14159265358979323846]
-# Set up viewport and window, but do not draw box 
+# Set up viewport and window, but do not draw box
 
+    $w cmd plsori 1
     $w cmd plenv -1.3 1.3 -1.3 1.3 1 -2
 
 # Draw circles for polar grid
@@ -41,7 +42,7 @@
 	} else {
 	    set offset 0.15
 	}
-		   
+		
 # Slightly off zero to avoid floating point logic flips at 90 and 270 deg.
 	if {$xg >= -0.00001} {
 	    set dx [expr $xg]
@@ -54,13 +55,13 @@
 	}
 	set label [expr round($theta*360./$twopi)]
 
-# N.B. cannot get this command to give same postscript output.  Also visual 
+# N.B. cannot get this command to give same postscript output.  Also visual
 # inspection shows 90 deg label jumping around slightly compared to python
 # and C front ends.  No idea why (AWI comment).
 	$w cmd plptex $xg $yg $dx $dy $just $label
     }
 
-# Draw the graph 
+# Draw the graph
 
     set npts 360
     set npts1 [expr $npts+1]

Modified: trunk/examples/tcl/x16
===================================================================
--- trunk/examples/tcl/x16	2010-05-31 00:46:56 UTC (rev 11041)
+++ trunk/examples/tcl/x16	2010-05-31 08:55:52 UTC (rev 11042)
@@ -14,8 +14,7 @@
 
 source x16.tcl
 
-# For consistency with C version these need to be set before plinit is
-# called.
+# Reducing the size of the colour map needs to be done before plinit
 plspal0 "cmap0_black_on_white.pal"
 plspal1 "cmap1_gray.pal" 1
 plscmap0n 3

Modified: trunk/examples/tcl/x16.tcl
===================================================================
--- trunk/examples/tcl/x16.tcl	2010-05-31 00:46:56 UTC (rev 11041)
+++ trunk/examples/tcl/x16.tcl	2010-05-31 08:55:52 UTC (rev 11042)
@@ -22,9 +22,6 @@
     matrix zz f $nx $ny
     matrix ww f $nx $ny
 
-    $w cmd plspal0 "cmap0_black_on_white.pal"
-    $w cmd plspal1 "cmap1_gray.pal" 1
-
 # Set up data array
 
     for {set i 0} {$i < $nx} {incr i} {


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