# HG changeset patch # User Rik # Date 1326950234 28800 # Node ID ba7a26030214693a75354c984d179485bc0a1029 # Parent 190952239c2cf7e062a1b9ef68914f57aa09590d Use Octave spacing convention in %!test blocks of surface plot functions. * surface.m, surfc.m, surfl.m, surfnorm.m: Use Octave spacing convention in %!test blocks. diff --git a/scripts/plot/surface.m b/scripts/plot/surface.m --- a/scripts/plot/surface.m +++ b/scripts/plot/surface.m @@ -166,8 +166,8 @@ endfunction + ## Functional tests for surface() are in surf.m, surfc.m, surfl.m, and pcolor.m - %!test %! hf = figure ("visible", "off"); %! unwind_protect diff --git a/scripts/plot/surfc.m b/scripts/plot/surfc.m --- a/scripts/plot/surfc.m +++ b/scripts/plot/surfc.m @@ -74,21 +74,22 @@ endfunction -%!demo -%! clf -%! [~,~,Z]=peaks; -%! surfc(Z); %!demo %! clf -%! [~,~,Z]=sombrero; +%! [~,~,Z] = peaks; +%! surfc (Z); + +%!demo +%! clf +%! [~,~,Z] = sombrero; %! [Fx,Fy] = gradient(Z); -%! surfc(Z,Fx+Fy); +%! surfc (Z, Fx+Fy); %! shading interp; %!demo %! clf -%! [X,Y,Z]=sombrero; +%! [X,Y,Z] = sombrero; %! [~,Fy] = gradient(Z); -%! surfc(X,Y,Z,Fy); +%! surfc (X,Y,Z,Fy); %! shading interp; diff --git a/scripts/plot/surfl.m b/scripts/plot/surfl.m --- a/scripts/plot/surfl.m +++ b/scripts/plot/surfl.m @@ -171,18 +171,19 @@ endfunction + %!demo %! clf -%! [X,Y,Z]=sombrero; -%! colormap(copper); -%! surfl(X,Y,Z); +%! [X,Y,Z] = sombrero; +%! colormap (copper); +%! surfl (X,Y,Z); %! shading interp; %!demo %! clf -%! [X,Y,Z]=sombrero; -%! colormap(copper); +%! [X,Y,Z] = sombrero; +%! colormap (copper); %! [az, el] = view; -%! surfl(X,Y,Z,[az+225,el],[0.2 0.6 0.4 25]); +%! surfl (X,Y,Z, [az+225,el], [0.2 0.6 0.4 25]); %! shading interp; diff --git a/scripts/plot/surfnorm.m b/scripts/plot/surfnorm.m --- a/scripts/plot/surfnorm.m +++ b/scripts/plot/surfnorm.m @@ -141,17 +141,18 @@ endfunction + %!demo %! clf %! colormap (jet (64)) -%! [x, y, z] = peaks(10); +%! [x, y, z] = peaks (10); %! surfnorm (x, y, z); %!demo %! clf -%! surfnorm (peaks(10)); +%! surfnorm (peaks (10)); %!demo %! clf -%! surfnorm (peaks(32)); +%! surfnorm (peaks (32)); %! shading interp