[Plplot-cvs] SF.net SVN: plplot:[10214] trunk

[<hba...@us...>]

Revision: 10214
          http://plplot.svn.sourceforge.net/plplot/?rev=10214&view=rev
Author:   hbabcock
Date:     2009-08-05 02:28:55 +0000 (Wed, 05 Aug 2009)

Log Message:
-----------
Propogated plspal0, plspal1 to tcl/tk and updated example 16.

Modified Paths:
--------------
    trunk/bindings/tcl/plapi.tpl
    trunk/bindings/tk/PLWin.itk
    trunk/examples/tcl/x16.tcl

Modified: trunk/bindings/tcl/plapi.tpl
===================================================================
--- trunk/bindings/tcl/plapi.tpl	2009-08-05 02:04:03 UTC (rev 10213)
+++ trunk/bindings/tcl/plapi.tpl	2009-08-05 02:28:55 UTC (rev 10214)
@@ -820,6 +820,16 @@
 xoff	PLINT
 yoff	PLINT
 
+# Set color map 0 using a palette file
+
+pltclcmd plspal0 void
+filename	const char *
+
+# Set color map 1 using a palette file
+
+pltclcmd plspal1 void
+filename	const char *
+
 # Set the pause (on end-of-page) status.
 
 pltclcmd plspause void

Modified: trunk/bindings/tk/PLWin.itk
===================================================================
--- trunk/bindings/tk/PLWin.itk	2009-08-05 02:04:03 UTC (rev 10213)
+++ trunk/bindings/tk/PLWin.itk	2009-08-05 02:28:55 UTC (rev 10214)
@@ -336,6 +336,14 @@
         eval $plwin cmd plspage $args
     }
 
+    method plspal0 {args} {
+        eval $plwin cmd plspal0 $args
+    }
+
+    method plspal1 {args} {
+        eval $plwin cmd plspal1 $args
+    }
+
     method plspause {args} {
         eval $plwin cmd plspause $args
     }

Modified: trunk/examples/tcl/x16.tcl
===================================================================
--- trunk/examples/tcl/x16.tcl	2009-08-05 02:04:03 UTC (rev 10213)
+++ trunk/examples/tcl/x16.tcl	2009-08-05 02:28:55 UTC (rev 10214)
@@ -22,6 +22,9 @@
     matrix zz f $nx $ny
     matrix ww f $nx $ny
 
+    $w cmd plspal0 "cmap0_black_on_white.pal"
+    $w cmd plspal1 "cmap1_gray.pal"
+
 # Set up data array
 
     for {set i 0} {$i < $nx} {incr i} {
@@ -102,6 +105,9 @@
 
 # Plot using 1d coordinate transform
 
+    $w cmd plspal0 "cmap0_black_on_white.pal"
+    $w cmd plspal1 "cmap1_blue_yellow.pal"
+
     $w cmd pladv 0
     $w cmd plvpor 0.1 0.9 0.1 0.9
     $w cmd plwind -1.0 1.0 -1.0 1.0
@@ -122,6 +128,9 @@
 
 # Plot using 2d coordinate transform
 
+    $w cmd plspal0 "cmap0_black_on_white.pal"
+    $w cmd plspal1 "cmap1_blue_red.pal"
+
     $w cmd pladv 0
     $w cmd plvpor 0.1 0.9 0.1 0.9
     $w cmd plwind -1.0 1.0 -1.0 1.0
@@ -141,6 +150,9 @@
 
 # Plot using 2d coordinate transform with both shades and contours.
 
+#    $w cmd plspal0 ""
+#    $w cmd plspal1 ""
+
     $w cmd pladv 0
     $w cmd plvpor 0.1 0.9 0.1 0.9
     $w cmd plwind -1.0 1.0 -1.0 1.0
@@ -159,6 +171,9 @@
 
 # Polar plot example demonstrating wrapping support.
 
+    $w cmd plspal0 "cmap0_black_on_white.pal"
+    $w cmd plspal1 "cmap1_gray.pal"
+
 # Build the new coordinate matrices.
 
     set nylim [expr $ny - 1]; set wrap 2;


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