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

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

Revision: 11645
          http://plplot.svn.sourceforge.net/plplot/?rev=11645&view=rev
Author:   andrewross
Date:     2011-03-18 10:27:12 +0000 (Fri, 18 Mar 2011)

Log Message:
-----------
Replace a few remaining instances of plcol in the tcl examples.

Modified Paths:
--------------
    trunk/examples/tcl/plgrid.tcl
    trunk/examples/tcl/plot.tcl
    trunk/examples/tcl/x20.tcl

Modified: trunk/examples/tcl/plgrid.tcl
===================================================================
--- trunk/examples/tcl/plgrid.tcl	2011-03-18 10:21:59 UTC (rev 11644)
+++ trunk/examples/tcl/plgrid.tcl	2011-03-18 10:27:12 UTC (rev 11645)
@@ -39,7 +39,7 @@
 # Set up viewport and window, but do not draw box 
 
     $w cmd plssub 1 1
-    $w cmd plcol 1
+    $w cmd plcol0 1
     $w cmd plenv -1.3 1.3 -1.3 1.3 1 -2
 
 # Draw i-lines

Modified: trunk/examples/tcl/plot.tcl
===================================================================
--- trunk/examples/tcl/plot.tcl	2011-03-18 10:21:59 UTC (rev 11644)
+++ trunk/examples/tcl/plot.tcl	2011-03-18 10:27:12 UTC (rev 11645)
@@ -282,11 +282,11 @@
     plvpor 0.15 0.85 0.1 0.9
     plwind $xmin $xmax $ymin $ymax
 
-    plcol 1
+    plcol0 1
     pllsty 1
     plbox $xopt 0.0 0 $yopt 0.0 0
 
-    plcol 2
+    plcol0 2
     pllab "$xlab" "$ylab" "$title"
 
 # Plot the data
@@ -295,7 +295,7 @@
 	pllsty $lsty
 	for {set iy 0} {$iy < $ny} {incr iy} {
 	    set jy [lindex $columns $iy]
-	    plcol [expr 2 + $jy]
+	    plcol0 [expr 2 + $jy]
 	    plline $nx x y$jy
 	}
 
@@ -303,7 +303,7 @@
 	if { $poin < 0 } {set poin 1}
 	for {set iy 0} {$iy < $ny} {incr iy} {
 	    set jy [lindex $columns $iy]
-	    plcol [expr 2 + $jy]
+	    plcol0 [expr 2 + $jy]
 	    plpoin $nx x y$jy $poin
 	}
     }

Modified: trunk/examples/tcl/x20.tcl
===================================================================
--- trunk/examples/tcl/x20.tcl	2011-03-18 10:21:59 UTC (rev 11644)
+++ trunk/examples/tcl/x20.tcl	2011-03-18 10:27:12 UTC (rev 11645)
@@ -241,7 +241,7 @@
 
     a2mnmx img_f $width $height img_min img_max
 
-    $w cmd plcol 2
+    $w cmd plcol0 2
     $w cmd plenv 0. $width 0. $height 1 -1
     $w cmd pllab "" "" "Reduced dynamic range image example"
     $w cmd plimagefr img_f 0. $width 0. $height 0. 0. \


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