# HG changeset patch
# User Ben Abbott <bpabbott@mac.com>
# Date 1234809104 18000
# Node ID cf2163418140558f6be2dc9bc7d041f5ad955141
# Parent  48d213be5e0e4d4462defb7eb69f2c37f8a0b341
Trivial change to shading.m and surfl.m demos.

diff --git a/scripts/ChangeLog b/scripts/ChangeLog
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -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.
diff --git a/scripts/plot/shading.m b/scripts/plot/shading.m
--- a/scripts/plot/shading.m
+++ b/scripts/plot/shading.m
@@ -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"')
diff --git a/scripts/plot/surfl.m b/scripts/plot/surfl.m
--- a/scripts/plot/surfl.m
+++ b/scripts/plot/surfl.m
@@ -163,6 +163,7 @@
 endfunction
 
 %!demo
+%! clf
 %! [X,Y,Z]=sombrero;
 %! colormap(copper);
 %! surfl(X,Y,Z);