Mercurial > octave-nkf

changeset 8765:cf2163418140

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Trivial change to shading.m and surfl.m demos.
author Ben Abbott <bpabbott@mac.com>
date Mon, 16 Feb 2009 13:31:44 -0500
parents 48d213be5e0e
children 8cb2a144f321
files scripts/ChangeLog scripts/plot/shading.m scripts/plot/surfl.m
diffstat 3 files changed, 14 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/ChangeLog	Mon Feb 16 16:52:42 2009 +0100
+++ b/scripts/ChangeLog	Mon Feb 16 13:31:44 2009 -0500
@@ -1,3 +1,8 @@
+2009-02-16  Ben Abbott <bpabbott@mac.com>
+
+	* plot/shading.m: No new figure windows for the demos.
+	* plot/surfl.m: Clear figure before running demos.
+
 2009-02-16  Jaroslav Hajek  <highegg@gmail.com>
 
 	* linear-algebra/expm.m: Fix invalid unscaling.
--- a/scripts/plot/shading.m	Mon Feb 16 16:52:42 2009 +0100
+++ b/scripts/plot/shading.m	Mon Feb 16 13:31:44 2009 -0500
@@ -74,19 +74,23 @@
 endfunction
 
 %!demo
-%! figure(1); clf
+%! clf
+%! colormap (jet)
 %! sombrero
 %! shading faceted
 %! title('shading "faceted"')
-%! figure(2); clf
+
+%!demo
 %! sombrero
 %! shading interp
 %! title('shading "interp"')
-%! figure (3); clf
+
+%!demo
 %! pcolor (peaks ())
 %! shading faceted
 %! title('shading "faceted"')
-%! figure (4); clf
+
+%!demo
 %! pcolor (peaks ())
 %! shading interp
 %! title('shading "interp"')
--- a/scripts/plot/surfl.m	Mon Feb 16 16:52:42 2009 +0100
+++ b/scripts/plot/surfl.m	Mon Feb 16 13:31:44 2009 -0500
@@ -163,6 +163,7 @@
 endfunction
 
 %!demo
+%! clf
 %! [X,Y,Z]=sombrero;
 %! colormap(copper);
 %! surfl(X,Y,Z);