[Plplot-cvs] SF.net SVN: plplot:[11657] trunk/examples/tk

[<ai...@us...>]

Revision: 11657
          http://plplot.svn.sourceforge.net/plplot/?rev=11657&view=rev
Author:   airwin
Date:     2011-03-19 21:57:18 +0000 (Sat, 19 Mar 2011)

Log Message:
-----------
plcol (which has been removed) is replaced by plcol0.

Modified Paths:
--------------
    trunk/examples/tk/tk02.in
    trunk/examples/tk/tk03.in
    trunk/examples/tk/tk04.in

Modified: trunk/examples/tk/tk02.in
===================================================================
--- trunk/examples/tk/tk02.in	2011-03-19 21:56:35 UTC (rev 11656)
+++ trunk/examples/tk/tk02.in	2011-03-19 21:57:18 UTC (rev 11657)
@@ -96,28 +96,28 @@
     set xmax [x2 [expr $n2-1]]
     set ymax [y2 [expr $n2-1]]
 
-    .plw plcol 1
+    .plw plcol0 1
     .plw plenv $xoff $xmax $yoff $ymax 0 0
-    .plw plcol 6
+    .plw plcol0 6
     .plw pllab "(x)" "(y)" "#frPLPLOT Example 1 - y=x#u2"
 
     # plot the data points
 
-    .plw plcol 9
+    .plw plcol0 9
     .plw plpoin $n1 x1 y1 9
 
     # plot the data points
 
-    .plw plcol 4
+    .plw plcol0 4
     .plw plline $n2 x2 y2
 }
 
 # This is supposed to work just like the plot2() in x01c.c/xtk02.c
 
 proc plot2 {} {
-    .plw plcol 1
+    .plw plcol0 1
     .plw plenv -2 10 -.4 1.2 0 1
-    .plw plcol 2
+    .plw plcol0 2
     .plw pllab "(x)" "sin(x)/x" "#frPLPLOT Example 1 - Sinc Function"
 
     # Fill up the array
@@ -132,14 +132,14 @@
 	if {$x != 0} { y1 $i = [expr sin($x)/$x] }
     }
 
-    .plw plcol 3
+    .plw plcol0 3
     .plw plline 101 x1 y1
 }
 
 proc gumbyplot {} {
-    .plw plcol 1
+    .plw plcol0 1
     .plw plenv 0 1 0 1 0 0
-    .plw plcol 6
+    .plw plcol0 6
     .plw pllab "(x)" "(y)" "#frPLplot Example 1 - y=1-2x+2x#u2"
 
     matrix x1 float 101
@@ -168,9 +168,9 @@
 
     y stuff
 
-    .plw plcol 1
+    .plw plcol0 1
     .plw plenv 0 1 0 1 0 0
-    .plw plcol 6
+    .plw plcol0 6
     .plw pllab "(x)" "(y)" "#frDemo of Matrix extension subcommand"
     .plw plline 101 x y
 }

Modified: trunk/examples/tk/tk03.in
===================================================================
--- trunk/examples/tk/tk03.in	2011-03-19 21:56:35 UTC (rev 11656)
+++ trunk/examples/tk/tk03.in	2011-03-19 21:57:18 UTC (rev 11657)
@@ -197,28 +197,28 @@
 	y1 $i = [y $j]
     }
 
-    $w cmd plcol 1
+    $w cmd plcol0 1
     $w cmd plenv $xoff $xmax $yoff $ymax 0 0
-    $w cmd plcol 6
+    $w cmd plcol0 6
     $w cmd pllab "(x)" "(y)" "#frPLplot Example 1 - y=x#u2"
 
     # plot the data points
 
-    $w cmd plcol 9
+    $w cmd plcol0 9
     $w cmd plpoin 6 x1 y1 9
 
     # draw the line through the data
 
-    $w cmd plcol 4
+    $w cmd plcol0 4
     $w cmd plline $npts x y
 }
 
 # This is supposed to work just like the plot2() in x01c.c
 
 proc plot2 {w} {
-    $w cmd plcol 1
+    $w cmd plcol0 1
     $w cmd plenv -2 10 -.4 1.2 0 1
-    $w cmd plcol 2
+    $w cmd plcol0 2
     $w cmd pllab "(x)" "sin(x)/x" "#frPLplot Example 1 - Sinc Function"
 
     # Fill up the array
@@ -233,7 +233,7 @@
 	if {$x != 0} { y1 $i = [expr sin($x)/$x] }
     }
 
-    $w cmd plcol 3
+    $w cmd plcol0 3
     $w cmd plline 101 x1 y1
 }
 
@@ -247,7 +247,7 @@
 
 # Draw a box with ticks spaced 60 degrees apart in X, and 0.2 in Y.
 
-    $w cmd plcol 1
+    $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. 
@@ -260,14 +260,14 @@
     space 0 = 1500
     $w cmd plstyl 1 mark space
 
-    $w cmd plcol 2
+    $w cmd plcol0 2
     $w cmd plbox "g" 30.0 0 "g" 0.2 0
 
     mark 0 = 0
     space 0 = 0
     $w cmd plstyl 0 mark space
 
-    $w cmd plcol 3
+    $w cmd plcol0 3
     $w cmd pllab "Angle (degrees)" "sine" "#frPLplot Example 1 - Sine function"
 
     matrix x f 101
@@ -278,7 +278,7 @@
 	y $i = [expr sin([x $i] * 3.141592654 / 180.0)]
     }
 
-    $w cmd plcol 4
+    $w cmd plcol0 4
     $w cmd plline 101 x y
 }
 

Modified: trunk/examples/tk/tk04.in
===================================================================
--- trunk/examples/tk/tk04.in	2011-03-19 21:56:35 UTC (rev 11656)
+++ trunk/examples/tk/tk04.in	2011-03-19 21:57:18 UTC (rev 11657)
@@ -63,12 +63,12 @@
     .plw plvpor 0.1 0.9 0.1 0.9
     .plw plwind 1. 64. 1. 64.
 
-    .plw plcol 6
+    .plw plcol0 6
     .plw pllab "(x)" "(y)" "#frPLplot Example Tk04"
 
     # plot the data points
 
-    .plw plcol 9
+    .plw plcol0 9
 
     matrix clev f 10
 
@@ -81,7 +81,7 @@
 
     .plw plcont x clev
 
-    .plw plcol 1
+    .plw plcol0 1
     .plw plbox "bcnst" 0.0 0 "bcnstv" 0.0 0
 }
 
@@ -93,7 +93,7 @@
     .plw plvpor 0.1 0.9 0.1 0.9
     .plw plwind 0. 1. 0. 1.
 
-    .plw plcol 6
+    .plw plcol0 6
     .plw pllab "(x)" "(y)" "Cool shade plot example from Tcl"
 
     set max [x max]
@@ -115,7 +115,7 @@
 	    
     }
 
-    .plw plcol 1
+    .plw plcol0 1
     .plw plbox "bcnst" 0.0 0 "bcnstv" 0.0 0
 }
 


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