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

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

Revision: 10964
          http://plplot.svn.sourceforge.net/plplot/?rev=10964&view=rev
Author:   airwin
Date:     2010-05-03 05:02:24 +0000 (Mon, 03 May 2010)

Log Message:
-----------
Explicitly specify pltr as "NULL" for plshade and plshades which translates
to NULL at the C level and which is interpreted there as defining the x and
y arrays from xmin, xmax, nx and ymin, ymax, and ny.  This is very different
from using pltr0 (the default user-friendly Tcl result if nothing is
specified for pltr).

This solves the Tcl issue of dropping the pltr_data tests for NULL at the C
level.  We were relying on those tests before to obtain the xmin, xmax,...
result but when those tests were dropped we were getting the Tcl
user-friendly pltr0 default instead which had such an incorrect scale and
offset for these examples that the pages were blank or might have a single
polygon.

Modified Paths:
--------------
    trunk/examples/tcl/x15.tcl
    trunk/examples/tcl/x16.tcl
    trunk/examples/tcl/x21.tcl

Modified: trunk/examples/tcl/x15.tcl
===================================================================
--- trunk/examples/tcl/x15.tcl	2010-05-03 04:51:51 UTC (rev 10963)
+++ trunk/examples/tcl/x15.tcl	2010-05-03 05:02:24 UTC (rev 10964)
@@ -89,7 +89,7 @@
   $w cmd plpsty 8
   $w cmd plshade z -1. 1. -1. 1. $shade_min $shade_max \
     $sh_cmap $sh_color $sh_width \
-    $min_color $min_width $max_color $max_width 1
+    $min_color $min_width $max_color $max_width 1 "NULL"
   $w cmd plcol0 1
   $w cmd plbox bcnst 0.0 0 bcnstv 0.0 0
   $w cmd plcol0 2
@@ -138,7 +138,7 @@
     $w cmd plpat [nlin $i] inc$i del$i
     $w cmd plshade z -1. 1. -1. 1. $shade_min $shade_max \
       $sh_cmap $sh_color $sh_width \
-      $min_color $min_width $max_color $max_width 1
+      $min_color $min_width $max_color $max_width 1 "NULL"
   }
   $w cmd plcol0 1
   $w cmd plbox bcnst 0.0 0 bcnstv 0.0 0

Modified: trunk/examples/tcl/x16.tcl
===================================================================
--- trunk/examples/tcl/x16.tcl	2010-05-03 04:51:51 UTC (rev 10963)
+++ trunk/examples/tcl/x16.tcl	2010-05-03 05:02:24 UTC (rev 10964)
@@ -93,7 +93,7 @@
 
     $w cmd plshades zz -1. 1. -1. 1. \
       shedge $fill_width $cont_color $cont_width \
-      1
+      1 "NULL"
 
     $w cmd plcol0 1
     $w cmd plbox "bcnst" 0.0 0 "bcnstv" 0.0 0

Modified: trunk/examples/tcl/x21.tcl
===================================================================
--- trunk/examples/tcl/x21.tcl	2010-05-03 04:51:51 UTC (rev 10963)
+++ trunk/examples/tcl/x21.tcl	2010-05-03 05:02:24 UTC (rev 10964)
@@ -204,7 +204,7 @@
                 $w cmd plenv0 $xmin $xmax $ymin $ymax 2 0
                 $w cmd plcol0 15
                 $w cmd pllab "X" "Y" [lindex $title $alg]
-                $w cmd plshades zg $xmin $xmax $ymin $ymax clev 1 0 1 2
+                $w cmd plshades zg $xmin $xmax $ymin $ymax clev 1 0 1 1 "NULL"
                 $w cmd plcol0 2
             } else {
 


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