Mercurial > octave-nkf
diff doc/interpreter/interpimages.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/interpimages.m Tue Jul 07 21:25:31 2015 +0100 +++ b/doc/interpreter/interpimages.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 @@ -91,13 +91,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");