[Plplot-cvs] SF.net SVN: plplot:[11459] trunk/examples/octave

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

Revision: 11459
          http://plplot.svn.sourceforge.net/plplot/?rev=11459&view=rev
Author:   airwin
Date:     2011-01-09 20:05:34 +0000 (Sun, 09 Jan 2011)

Log Message:
-----------
Replace specific assignment of PLplot variable values with the global
command for needed PLplot variables which effectively uses the exact
value of those variables #defined in bindings/swig-support/plplotcapi.i.

Modified Paths:
--------------
    trunk/examples/octave/x08c.m
    trunk/examples/octave/x11c.m
    trunk/examples/octave/x31c.m

Modified: trunk/examples/octave/x08c.m
===================================================================
--- trunk/examples/octave/x08c.m	2011-01-09 20:01:17 UTC (rev 11458)
+++ trunk/examples/octave/x08c.m	2011-01-09 20:05:34 UTC (rev 11459)
@@ -36,14 +36,10 @@
 
   function ix08c
 
+    global MAG_COLOR BASE_CONT SURF_CONT FACETED
     XPTS=35;		## Data points in x
     YPTS=46;		## Datat points in y
 
-    DRAW_LINEXY = 3;
-    MAG_COLOR = 4;
-    BASE_CONT = 8;
-    SURF_CONT = 32;
-    FACETED = 128;
 
     alt=[60.0, 20.0];
     az =[30.0, 60.0];

Modified: trunk/examples/octave/x11c.m
===================================================================
--- trunk/examples/octave/x11c.m	2011-01-09 20:01:17 UTC (rev 11458)
+++ trunk/examples/octave/x11c.m	2011-01-09 20:05:34 UTC (rev 11459)
@@ -31,12 +31,10 @@
 
 function ix11c
 
+  global DRAW_LINEXY MAG_COLOR BASE_CONT
   XPTS = 35;		## Data points in x */
   YPTS = 46;		## Datat points in y */
 
-  DRAW_LINEXY = 3;
-  MAG_COLOR = 4;
-  BASE_CONT = 8;
 
   opt = [DRAW_LINEXY,  DRAW_LINEXY ]';
   alt = [33, 17]';

Modified: trunk/examples/octave/x31c.m
===================================================================
--- trunk/examples/octave/x31c.m	2011-01-09 20:01:17 UTC (rev 11458)
+++ trunk/examples/octave/x31c.m	2011-01-09 20:05:34 UTC (rev 11459)
@@ -26,12 +26,12 @@
 
 function status = ix31c(strm)
 
+  global PL_NOTSET
   # Redirect output to file if required
   if (nargin == 0)
     strm = stdout;
   endif
 
-  PL_NOTSET = -42.0;
 
   ## Clear status flag to begin with
   status = 0;
@@ -141,7 +141,7 @@
   fprintf(strm,"plvpor: xmin, xmax, ymin, ymax = %f %f %f %f\n", xmin, xmax, ymin, ymax);
   if (xmin != 0.01 || xmax != 0.99 || ymin != 0.02 || ymax != 0.49)
     fputs(stderr,"plgvpd test failed\n");
-    status = 1; 
+    status = 1;
   endif
   xmid = 0.5*(xmin+xmax);
   ymid = 0.5*(ymin+ymax);
@@ -183,7 +183,7 @@
   fprintf(strm,"x axis parameters: digmax, digits = %d %d\n", digmax, digits);
   if (digmax != 3)
     fputs(stderr,"plgxax test failed\n");
-    status = 1; 
+    status = 1;
     return;
   endif
 
@@ -232,7 +232,7 @@
   fprintf(strm,"zoomed plot-space window parameters: xmin, ymin, xmax, ymax = %f %f %f %f\n", zxmin, zymin, zxmax, zymax);
   if ( abs(zxmin -(xmin + (xmax-xmin)*0.1)) > 1.0E-5 || abs(zxmax -(xmin+(xmax-xmin)*0.9)) > 1.0E-5 || abs(zymin -(ymin+(ymax-ymin)*0.1)) > 1.0E-5 || abs(zymax -(ymin+(ymax-ymin)*0.9)) > 1.0E-5 ) 
     fputs(stderr,"plsdiplz test failed\n");
-    status = 1; 
+    status = 1;
   endif
 
   plscolbg(10,20,30);
@@ -256,7 +256,7 @@
 endfunction
 
 if (exist("strm","var"))
-  ix31c(strm)
+  ix31c(strm);
 else
-  ix31c()
+  ix31c();
 endif


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