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

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

Revision: 11391
          http://plplot.svn.sourceforge.net/plplot/?rev=11391&view=rev
Author:   airwin
Date:     2010-12-27 02:00:22 +0000 (Mon, 27 Dec 2010)

Log Message:
-----------
Replace deprecated plcol with plcol0.

Modified Paths:
--------------
    trunk/examples/octave/x09c.m
    trunk/examples/octave/x12c.m
    trunk/examples/octave/x13c.m
    trunk/examples/octave/x14c.m
    trunk/examples/octave/x15c.m
    trunk/examples/octave/x18c.m
    trunk/examples/octave/x20c.m

Modified: trunk/examples/octave/x09c.m
===================================================================
--- trunk/examples/octave/x09c.m	2010-12-26 23:14:13 UTC (rev 11390)
+++ trunk/examples/octave/x09c.m	2010-12-27 02:00:22 UTC (rev 11391)
@@ -291,10 +291,10 @@
 	  plcol0(2);
 	  plcont2(z, 1, XPTS, 1, YPTS, clevel, xg2, yg2);
 	  plstyl(mark1, space1);
-	  plcol(3);
+	  plcol0(3);
 	  plcont2(w, 1, XPTS, 1, YPTS, clevel, xg2, yg2);
 	  plstyl(mark0, space0);
-	  plcol(1);
+	  plcol0(1);
 	  pllab("X Coordinate", "Y Coordinate", "Streamlines of flow");
 if(0)
 	  pl_setcontlabelparam(0.006, 0.3, 0.1, 1);

Modified: trunk/examples/octave/x12c.m
===================================================================
--- trunk/examples/octave/x12c.m	2010-12-26 23:14:13 UTC (rev 11390)
+++ trunk/examples/octave/x12c.m	2010-12-27 02:00:22 UTC (rev 11391)
@@ -32,7 +32,7 @@
   plvsta();
   plwind(1980.0, 1990.0, 0.0, 35.0);
   plbox("bc", 1.0, 0, "bcnv", 10.0, 0);
-  plcol(2);
+  plcol0(2);
   pllab("Year", "Widget Sales (millions)", "#frPLplot Example 12");
 
   y0 = [5; 15; 12; 24; 28;30; 20; 8; 12; 3];
@@ -46,7 +46,7 @@
   plscmap1l(1,pos,red,green,blue,rev);
 
   for i=0:9
-    ##plcol(i + 1);
+    ##plcol0(i + 1);
     
     plcol1(i/9.0);
 
@@ -71,7 +71,7 @@
   x(4) = x0 + 1.;
   y(4) = 0.;
   plfill(x', y');
-  plcol(1);
+  plcol0(1);
   pllsty(1);
   plline(x', y');
   

Modified: trunk/examples/octave/x13c.m
===================================================================
--- trunk/examples/octave/x13c.m	2010-12-26 23:14:13 UTC (rev 11390)
+++ trunk/examples/octave/x13c.m	2010-12-27 02:00:22 UTC (rev 11391)
@@ -44,7 +44,7 @@
   plvasp(1.0);
   plwind(0., 10., 0., 10.);
   ##plenv(0., 10., 0., 10., 1, -2);
-  plcol(2);
+  plcol0(2);
 
   theta0 = 0.;
   dthet = 2 * pi / 500;
@@ -64,10 +64,10 @@
       y(j+1) = 5 + 3 * sin(theta);
       j=j+1;
     endfor
-    plcol(i+1);
+    plcol0(i+1);
     plpsty(rem((i + 3), 8) + 1);
     plfill(x', y');
-    plcol(1);
+    plcol0(1);
     plline(x', y');
     just = (theta0 + theta1) / 2.;
     dx = .25 * cos(just); dy = .25 * sin(just);

Modified: trunk/examples/octave/x14c.m
===================================================================
--- trunk/examples/octave/x14c.m	2010-12-26 23:14:13 UTC (rev 11390)
+++ trunk/examples/octave/x14c.m	2010-12-27 02:00:22 UTC (rev 11391)
@@ -175,19 +175,19 @@
   ## scaled separately (just = 0), and we just draw a labelled */
   ## box (axis = 0). */
 
-  plcol(1);
+  plcol0(1);
   plenv(xmin, xmax, ymin, ymax, 0, 0);
-  plcol(6);
+  plcol0(6);
   pllab("(x)", "(y)", "#frPLplot Example 1 - y=x#u2");
 
   ## Plot the data points */
 
-  plcol(9);
+  plcol0(9);
   plpoin(xs', ys', 9);
 
   ## Draw the line through the data */
 
-  plcol(4);
+  plcol0(4);
   plline(x', y');
   plflush;#pleop();
   
@@ -199,9 +199,9 @@
   ##       10.0, and the range in Y is -0.4 to 2.0. The axes are scaled separately
   ##       (just = 0), and we draw a box with axes (axis = 1).
 
-  plcol(1);
+  plcol0(1);
   plenv(-2.0, 10.0, -0.4, 1.2, 0, 1);
-  plcol(2);
+  plcol0(2);
   pllab("(x)", "sin(x)/x", "#frPLplot Example 1 - Sinc Function");
 
   ## Fill up the arrays */
@@ -216,7 +216,7 @@
 
   ## Draw the line */
 
-  plcol(3);
+  plcol0(3);
   plline(x', y');
   plflush;#pleop();
 endfunction
@@ -237,18 +237,18 @@
 
   ## Draw a box with ticks spaced 60 degrees apart in X, and 0.2 in Y. */
 
-  plcol(1);
+  plcol0(1);
   plbox("bcnst", 60.0, 2, "bcnstv", 0.2, 2);
 
   ## Superimpose a dashed line grid, with 1.5 mm marks and spaces. plstyl
   ##       expects a pointer!! */
 
   plstyl(mark1, space1);
-  plcol(2);
+  plcol0(2);
   plbox("g", 30.0, 0, "g", 0.2, 0);
   plstyl(mark0, space0);
 
-  plcol(3);
+  plcol0(3);
   pllab("Angle (degrees)", "sine", "#frPLplot Example 1 - Sine function");
 
   for i = 0:100
@@ -256,7 +256,7 @@
     y(i+1) = sin(x(i+1) * 3.141592654 / 180.0);
   endfor
 
-  plcol(4);
+  plcol0(4);
   plline(x', y');
   plflush;#pleop();
 
@@ -284,7 +284,7 @@
     plline(x, y);
   endfor
   
-  plcol(2);
+  plcol0(2);
   for i = 0:11
     theta = 30.0 * i;
     dx = cos(dtr * theta);
@@ -310,10 +310,10 @@
   x = x0 .* r;
   y = y0 .* r;
   
-  plcol(3);
+  plcol0(3);
   plline(x, y);
 
-  plcol(4);
+  plcol0(4);
   plmtex("t", 2.0, 0.5, 0.5,
 	 "#frPLplot Example 3 - r(#gh)=sin 5#gh");
   plflush;#pleop();
@@ -354,12 +354,12 @@
   endfor
 
   plenv(-1.0, 1.0, -1.0, 1.0, 0, 0);
-  plcol(2);
+  plcol0(2);
   plcont(z, 1, XPTS, 1, YPTS, clevel, tr, 0);
   plstyl(mark, space);
-  plcol(3);
+  plcol0(3);
   plcont(w, 1, XPTS, 1, YPTS, clevel, tr, 0);
-  plcol(1);
+  plcol0(1);
   pllab("X Coordinate", "Y Coordinate", "Streamlines of flow");
   plflush;#pleop();
 endfunction

Modified: trunk/examples/octave/x15c.m
===================================================================
--- trunk/examples/octave/x15c.m	2010-12-26 23:14:13 UTC (rev 11390)
+++ trunk/examples/octave/x15c.m	2010-12-27 02:00:22 UTC (rev 11391)
@@ -158,9 +158,9 @@
 	  sh_cmap, sh_color, sh_width,
 	  min_color, min_width, max_color, max_width, 1, tr);
 
-  plcol(1);
+  plcol0(1);
   plbox("bcnst", 0.0, 0, "bcnstv", 0.0, 0);
-  plcol(2);
+  plcol0(2);
   pllab("distance", "altitude", "Bogon flux");
 endfunction
 
@@ -197,9 +197,9 @@
 	    min_color, min_width, max_color, max_width,1,tr);
   endfor
 
-  plcol(1);
+  plcol0(1);
   plbox("bcnst", 0.0, 0, "bcnstv", 0.0, 0);
-  plcol(2);
+  plcol0(2);
   pllab("distance", "altitude", "Bogon flux");
 endfunction
 

Modified: trunk/examples/octave/x18c.m
===================================================================
--- trunk/examples/octave/x18c.m	2010-12-26 23:14:13 UTC (rev 11390)
+++ trunk/examples/octave/x18c.m	2010-12-27 02:00:22 UTC (rev 11391)
@@ -57,13 +57,13 @@
     pladv(0);
     plvpor(0.0, 1.0, 0.0, 0.9);
     plwind(-1.0, 1.0, -0.9, 1.1);
-    plcol(1);
+    plcol0(1);
     plw3d(1.0, 1.0, 1.0, -1.0, 1.0, -1.0, 1.0, -1.0, 1.0, alt(k+1), az(k+1));
     plbox3("bnstu", "x axis", 0.0, 0,
 	   "bnstu", "y axis", 0.0, 0,
 	   "bcdmnstuv", "z axis", 0.0, 0);
 
-    plcol(2);
+    plcol0(2);
 
     if (opt(k+1))
       plline3( x', y', z' );
@@ -71,7 +71,7 @@
       plpoin3( x', y', z', 1 );
     endif
 
-    plcol(3);
+    plcol0(3);
     title=sprintf("#frPLplot Example 18 - Alt=%.0f, Az=%.0f",
 		  alt(k+1), az(k+1));
     plmtex("t", 1.0, 0.5, 0.5, title);
@@ -103,13 +103,13 @@
   pladv(0);
   plvpor(0.0, 1.0, 0.0, 0.9);
   plwind(-1.0, 1.0, -0.9, 1.1);
-  plcol(1);
+  plcol0(1);
   plw3d(1.0, 1.0, 1.0, -1.0, 1.0, -1.0, 1.0, -1.0, 1.0, alt(k+1), az(k+1));
   plbox3("bnstu", "x axis", 0.0, 0,
 	 "bnstu", "y axis", 0.0, 0,
 	 "bcdmnstuv", "z axis", 0.0, 0);
 
-  plcol(2);
+  plcol0(2);
 
 
   for i=0:19
@@ -142,7 +142,7 @@
     endfor
   endfor
 
-  plcol(3);
+  plcol0(3);
   plmtex("t", 1.0, 0.5, 0.5, "unit radius sphere" );
 endfunction
 

Modified: trunk/examples/octave/x20c.m
===================================================================
--- trunk/examples/octave/x20c.m	2010-12-26 23:14:13 UTC (rev 11390)
+++ trunk/examples/octave/x20c.m	2010-12-27 02:00:22 UTC (rev 11391)
@@ -146,7 +146,7 @@
   img_max = max(max(img));
   img_min = min(min(img));
       
-  plcol(2)
+  plcol0(2)
   plenv(0., width, 0., height, 1, -1)
   pllab("", "", "Reduced dynamic range image example")
   plimagefr(img, 0., width, 0., height, 0., 0., img_min + img_max * 0.25, img_max - img_max * 0.25)


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