Mercurial > octave-nkf
view doc/interpreter/plotimages.m @ 20357:03c88436ad8c
Correctly generate figure 15.7 of the Manual.
* plot.txi: Improve the wording discussing the standalone example of 15.7.
* plotimages.m (set_graphics_toolkit): New subfunction to choose a graphics
toolkit with a preference for OpenGL based toolkits.
* plotimages.m (hide_output): Use figure (..., "visible", "off") to stop
window flicker during generation of images.
author | Rik <rik@octave.org> |
---|---|
date | Fri, 10 Jul 2015 21:10:42 -0700 |
parents | fc3056b9fac0 |
children | b439ccc9a162 |
line wrap: on
line source
## Copyright (C) 2007-2015 John W. Eaton and David Bateman ## ## This file is part of Octave. ## ## Octave is free software; you can redistribute it and/or modify it ## under the terms of the GNU General Public License as published by ## the Free Software Foundation; either version 3 of the License, or (at ## your option) any later version. ## ## Octave is distributed in the hope that it will be useful, but ## WITHOUT ANY WARRANTY; without even the implied warranty of ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ## General Public License for more details. ## ## You should have received a copy of the GNU General Public License ## along with Octave; see the file COPYING. If not, see ## <http://www.gnu.org/licenses/>. function plotimages (d, nm, typ) set_graphics_toolkit (); set_print_size (); hide_output (); outfile = fullfile (d, [nm "." typ]); if (strcmp (typ, "png")) set (0, "defaulttextfontname", "*"); endif if (strcmp (typ, "eps")) d_typ = "-depsc2"; else d_typ = ["-d", typ]; endif if (strcmp (typ , "txt")) image_as_txt (d, nm); elseif (strcmp (nm, "plot")) x = -10:0.1:10; plot (x, sin (x)); xlabel ("x"); ylabel ("sin (x)"); title ("Simple 2-D Plot"); print (outfile, d_typ); elseif (strcmp (nm, "hist")) randn ("state", 1); hist (randn (10000, 1), 30); xlabel ("Value"); ylabel ("Count"); title ("Histogram of 10,000 normally distributed random numbers"); print (outfile, d_typ); elseif (strcmp (nm, "errorbar")) rand ("state", 2); x = 0:0.1:10; y = sin (x); yl = 0.1 .* rand (size (x)); yu = 0.1 .* rand (size (x)); errorbar (x, sin (x), yl, yu); axis ([0, 10, -1.1, 1.1]); xlabel ("x"); ylabel ("sin (x)"); title ("Errorbar plot of sin (x)"); print (outfile, d_typ); elseif (strcmp (nm, "polar")) polar (0:0.1:10*pi, 0:0.1:10*pi); set (gca, "rtick", [0:10:40]); title ("Example polar plot from 0 to 10*pi"); print (outfile, d_typ); elseif (strcmp (nm, "mesh")) tx = ty = linspace (-8, 8, 41)'; [xx, yy] = meshgrid (tx, ty); r = sqrt (xx .^ 2 + yy .^ 2) + eps; tz = sin (r) ./ r; mesh (tx, ty, tz); xlabel ("tx"); ylabel ("ty"); zlabel ("tz"); title ("3-D Sombrero plot"); print (outfile, d_typ); elseif (strcmp (nm, "plot3")) t = 0:0.1:10*pi; r = linspace (0, 1, numel (t)); z = linspace (0, 1, numel (t)); plot3 (r.*sin (t), r.*cos (t), z); xlabel ("r.*sin (t)"); ylabel ("r.*cos (t)"); zlabel ("z"); title ("plot3 display of 3-D helix"); print (outfile, d_typ); elseif (strcmp (nm, "extended")) x = 0:0.01:3; plot (x, erf (x)); hold on; plot (x, x, "r"); axis ([0, 3, 0, 1]); if (strcmp (typ, "pdf")) text (0.65, 0.6175, ['$\leftarrow x = {2/\sqrt{\pi}' ... '{\int_{0}^{x}}e^{-t^2} dt} = 0.6175$']); else text (0.65, 0.6175, ['\leftarrow x = {2/\surd\pi {\fontsize{16}' ... '\int_{\fontsize{8}0}^{\fontsize{8}x}} e^{-t^2} dt} = 0.6175']); endif xlabel ("x"); ylabel ("erf (x)"); title ("erf (x) with text annotation"); if (strcmp (typ, "pdf")) print (outfile, "-dpdflatexstandalone"); system (["pdflatex " nm]); delete ([nm ".aux"], [nm "-inc.pdf"], [nm ".log"], [nm ".tex"]); else print (outfile, d_typ); endif else error ("unrecognized plot requested"); endif hide_output (); endfunction ## Choose a toolkit with a preference for OpenGL renderers function set_graphics_toolkit () avl_tk = available_graphics_toolkits (); if (any (strcmp ("qt", avl_tk))) graphics_toolkit ("qt"); elseif (any (strcmp ("fltk", avl_tk))) graphics_toolkit ("fltk"); elseif (any (strcmp ("gnuplot", avl_tk))) graphics_toolkit ("gnuplot"); else error ("no valid graphics toolkit found"); endif endfunction function set_print_size () image_size = [5.0, 3.5]; # in inches, 16:9 format border = 0; # For postscript use 50/72 set (0, "defaultfigurepapertype", "<custom>"); set (0, "defaultfigurepaperorientation", "landscape"); set (0, "defaultfigurepapersize", image_size + 2*border); set (0, "defaultfigurepaperposition", [border, border, image_size]); endfunction ## Use this function before plotting commands and after every call to print ## since print() resets output to stdout (unfortunately, gnuplot can't pop ## output as it can the terminal type). function hide_output () hf = figure (1, "visible", "off"); endfunction ## generate something for the texinfo @image command to process 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"); fputs (fid, "+---------------------------------+\n"); fclose (fid); endfunction