Mercurial > octave-nkf
diff doc/interpreter/splineimages.m @ 20351:d8992a16643c
doc: Clean up m-files which generate images for Manual.
* geometryimages.m, interpimages.m, plotimages.m, sparseimages.m,
splineimages.m: Use the same style throughout the mi-files.
Obey Octave coding conventions.
| author | Rik <rik@octave.org> |
|---|---|
| date | Thu, 09 Jul 2015 21:38:57 -0700 |
| parents | c3c1fb44f9b5 |
| children | b439ccc9a162 |
line wrap: on
line diff
--- a/doc/interpreter/splineimages.m Tue Jul 07 21:25:31 2015 +0100 +++ b/doc/interpreter/splineimages.m Thu Jul 09 21:38:57 2015 -0700 @@ -20,7 +20,7 @@ graphics_toolkit ("gnuplot"); set_print_size (); hide_output (); - outfile = fullfile (d, strcat (nm, ".", typ)); + outfile = fullfile (d, [nm "." typ]); if (strcmp (typ, "png")) set (0, "defaulttextfontname", "*"); endif @@ -109,7 +109,7 @@ plot (x, y, ".", xx, [y1; y2]); axis tight; ylim ([-1.5 1.5]); - legend({"data", "clamped", "hinged periodic"}); + legend ({"data", "clamped", "hinged periodic"}); print (outfile, d_typ); elseif (strcmp (nm, "splinefit5")) ## Truncated data @@ -172,13 +172,13 @@ ## print since print() resets output to stdout (unfortunately, gnpulot ## can't pop output as it can the terminal type). function hide_output () - f = figure (1); - set (f, "visible", "off"); + hf = figure (1); + set (hf, "visible", "off"); endfunction ## generate something for the texinfo @image command to process -function image_as_txt(d, nm) - fid = fopen (fullfile (d, strcat (nm, ".txt")), "wt"); +function image_as_txt (d, nm) + fid = fopen (fullfile (d, [nm ".txt"]), "wt"); fputs (fid, "\n"); fputs (fid, "+---------------------------------+\n"); fputs (fid, "| Image unavailable in text mode. |\n");