octave-nkf: scripts/plot/private/__gnuplot_print_

annotate scripts/plot/private/__gnuplot_print__.m @ 14868:5d3a684236b0

maint: Use Octave coding conventions for cuddling parentheses in scripts directory * lin2mu.m, loadaudio.m, wavread.m, accumarray.m, bicubic.m, celldisp.m, colon.m, cplxpair.m, dblquad.m, divergence.m, genvarname.m, gradient.m, int2str.m, interp1.m, interp1q.m, interp2.m, interpn.m, loadobj.m, nthargout.m, __isequal__.m, __splinen__.m, quadgk.m, quadl.m, quadv.m, rat.m, rot90.m, rotdim.m, saveobj.m, subsindex.m, triplequad.m, delaunay3.m, griddata.m, inpolygon.m, tsearchn.m, voronoi.m, get_first_help_sentence.m, which.m, gray2ind.m, pink.m, dlmwrite.m, strread.m, textread.m, textscan.m, housh.m, ishermitian.m, issymmetric.m, krylov.m, logm.m, null.m, rref.m, compare_versions.m, copyfile.m, dump_prefs.m, edit.m, fileparts.m, getappdata.m, isappdata.m, movefile.m, orderfields.m, parseparams.m, __xzip__.m, rmappdata.m, setappdata.m, swapbytes.m, unpack.m, ver.m, fminbnd.m, fminunc.m, fsolve.m, glpk.m, lsqnonneg.m, qp.m, sqp.m, configure_make.m, copy_files.m, describe.m, get_description.m, get_forge_pkg.m, install.m, installed_packages.m, is_architecture_dependent.m, load_package_dirs.m, print_package_description.m, rebuild.m, repackage.m, save_order.m, shell.m, allchild.m, ancestor.m, area.m, axes.m, axis.m, clabel.m, close.m, colorbar.m, comet.m, comet3.m, contour.m, cylinder.m, ezmesh.m, ezsurf.m, findobj.m, fplot.m, hist.m, isocolors.m, isonormals.m, isosurface.m, isprop.m, legend.m, mesh.m, meshz.m, pareto.m, pcolor.m, peaks.m, plot3.m, plotmatrix.m, plotyy.m, polar.m, print.m, __add_datasource__.m, __add_default_menu__.m, __axes_limits__.m, __bar__.m, __clabel__.m, __contour__.m, __errcomm__.m, __errplot__.m, __ezplot__.m, __file_filter__.m, __fltk_print__.m, __ghostscript__.m, __gnuplot_print__.m, __go_draw_axes__.m, __go_draw_figure__.m, __interp_cube__.m, __marching_cube__.m, __patch__.m, __pie__.m, __plt__.m, __print_parse_opts__.m, __quiver__.m, __scatter__.m, __stem__.m, __tight_eps_bbox__.m, __uigetdir_fltk__.m, __uigetfile_fltk__.m, __uiputfile_fltk__.m, quiver.m, quiver3.m, rectangle.m, refreshdata.m, ribbon.m, scatter.m, semilogy.m, shading.m, slice.m, subplot.m, surface.m, surfl.m, surfnorm.m, text.m, uigetfile.m, uiputfile.m, whitebg.m, deconv.m, mkpp.m, pchip.m, polyaffine.m, polyder.m, polygcd.m, polyout.m, polyval.m, ppint.m, ppjumps.m, ppval.m, residue.m, roots.m, spline.m, splinefit.m, addpref.m, getpref.m, setpref.m, ismember.m, setxor.m, arch_fit.m, arch_rnd.m, arch_test.m, autoreg_matrix.m, diffpara.m, fftconv.m, filter2.m, hanning.m, hurst.m, periodogram.m, triangle_sw.m, sinc.m, spectral_xdf.m, spencer.m, stft.m, synthesis.m, unwrap.m, yulewalker.m, bicgstab.m, gmres.m, pcg.m, pcr.m, __sprand_impl__.m, speye.m, spfun.m, sprandn.m, spstats.m, svds.m, treelayout.m, treeplot.m, bessel.m, factor.m, legendre.m, perms.m, primes.m, magic.m, toeplitz.m, corr.m, cov.m, mean.m, median.m, mode.m, qqplot.m, quantile.m, ranks.m, zscore.m, logistic_regression_likelihood.m, bartlett_test.m, chisquare_test_homogeneity.m, chisquare_test_independence.m, kolmogorov_smirnov_test.m, run_test.m, u_test.m, wilcoxon_test.m, z_test.m, z_test_2.m, bin2dec.m, dec2base.m, mat2str.m, strcat.m, strchr.m, strjust.m, strtok.m, substr.m, untabify.m, assert.m, demo.m, example.m, fail.m, speed.m, test.m, now.m: Use Octave coding conventions for cuddling parentheses in scripts directory.

author	Rik <octave@nomad.inbox5.com>
date	Tue, 17 Jul 2012 07:08:39 -0700
parents	447b57ebc27b
children	049e8bbff782

rev	line source
14138 72c96de7a403 maint: update copyright notices for 2012 John W. Eaton <jwe@octave.org> parents: 12793 diff changeset	1 ## Copyright (C) 1999-2012 Daniel Heiserer
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	2 ## Copyright (C) 2001 Laurent Mazet
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	3 ##
5362 ef053d682e42 [project @ 2005-05-23 19:21:54 by jwe] jwe parents: 5361 diff changeset	4 ## This file is part of Octave.
ef053d682e42 [project @ 2005-05-23 19:21:54 by jwe] jwe parents: 5361 diff changeset	5 ##
ef053d682e42 [project @ 2005-05-23 19:21:54 by jwe] jwe parents: 5361 diff changeset	6 ## Octave is free software; you can redistribute it and/or modify it
ef053d682e42 [project @ 2005-05-23 19:21:54 by jwe] jwe parents: 5361 diff changeset	7 ## under the terms of the GNU General Public License as published by
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6965 diff changeset	8 ## the Free Software Foundation; either version 3 of the License, or (at
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6965 diff changeset	9 ## your option) any later version.
5362 ef053d682e42 [project @ 2005-05-23 19:21:54 by jwe] jwe parents: 5361 diff changeset	10 ##
ef053d682e42 [project @ 2005-05-23 19:21:54 by jwe] jwe parents: 5361 diff changeset	11 ## Octave is distributed in the hope that it will be useful, but
ef053d682e42 [project @ 2005-05-23 19:21:54 by jwe] jwe parents: 5361 diff changeset	12 ## WITHOUT ANY WARRANTY; without even the implied warranty of
ef053d682e42 [project @ 2005-05-23 19:21:54 by jwe] jwe parents: 5361 diff changeset	13 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
ef053d682e42 [project @ 2005-05-23 19:21:54 by jwe] jwe parents: 5361 diff changeset	14 ## General Public License for more details.
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	15 ##
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	16 ## You should have received a copy of the GNU General Public License
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6965 diff changeset	17 ## along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6965 diff changeset	18 ## <http://www.gnu.org/licenses/>.
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	19
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	20 ## -- texinfo --
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	21 ## @deftypefn {Function File} {} __gnuplot_print__ (@var{@dots{}})
10727 570f30a48732 split printing between backends Shai Ayal <shaiay@users.sourceforge.net> parents: 10711 diff changeset	22 ## Undocumented internal function.
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	23 ## @end deftypefn
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	24
0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	25 ## Author: Daniel Heiserer <Daniel.heiserer@physik.tu-muenchen.de>
5362 ef053d682e42 [project @ 2005-05-23 19:21:54 by jwe] jwe parents: 5361 diff changeset	26 ## Adapted-By: jwe
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	27
10954 ee9d74048827 Consolidate gs code into print.m. Ben Abbott <bpabbott@mac.com> parents: 10915 diff changeset	28 function opts = __gnuplot_print__ (opts)
9157 fce7315c1eee print.m: Fix typo, improvments to code, and allow for creation of tight bbox. Ben Abbott <bpabbott@mac.com> parents: 9152 diff changeset	29
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	30 dos_shell = (ispc () && ! isunix ());
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	31
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	32 if (isempty (opts.fontsize))
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	33 ## If no fontsize, determine the nominal axes fontsize.
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	34 defaultfontsize = get (0, "defaultaxesfontsize");
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	35 axesfontsize = get (findobj (opts.figure, "type", "axes"), "fontsize");
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	36 if (iscell (axesfontsize))
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	37 axesfontsize = round (median (cell2mat (axesfontsize)));
7550 bffb1e2ab732 print.m: Figure handle as argument. Ben Abbott <bpabbott@mac.com> parents: 7543 diff changeset	38 endif
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	39 if (isempty (axesfontsize))
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	40 opts.fontsize = defaultfontsize;
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	41 else
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	42 opts.fontsize = axesfontsize;
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	43 endif
11113 a8ac114ec9ab Stylefixes, replace end by endif. Thorsten Meyer <thorsten.meyier@gmx.de> parents: 11009 diff changeset	44 endif
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	45 ## The axes-label and tick-label spacing is determined by
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	46 ## the font spec given in "set terminal ..."
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	47 gp_opts = font_spec (opts);
10423 dfc662a47b7a print.m: Add '-append' option. Ben Abbott <bpabbott@mac.com> parents: 10422 diff changeset	48
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	49 pipeline = "";
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	50
11120 a44f979a35ce style fixes for some .m files John W. Eaton <jwe@octave.org> parents: 11113 diff changeset	51 switch (lower (opts.devopt))
10954 ee9d74048827 Consolidate gs code into print.m. Ben Abbott <bpabbott@mac.com> parents: 10915 diff changeset	52 case {"eps", "eps2", "epsc", "epsc2"}
ee9d74048827 Consolidate gs code into print.m. Ben Abbott <bpabbott@mac.com> parents: 10915 diff changeset	53 if (any (strcmp (opts.devopt, {"eps", "epsc"})))
ee9d74048827 Consolidate gs code into print.m. Ben Abbott <bpabbott@mac.com> parents: 10915 diff changeset	54 gp_opts = sprintf ("%s level1", gp_opts);
ee9d74048827 Consolidate gs code into print.m. Ben Abbott <bpabbott@mac.com> parents: 10915 diff changeset	55 endif
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	56 if (opts.tight_flag \|\| ! isempty (opts.preview))
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	57 tmp_file = strcat (tmpnam (), ".eps");
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	58 eps_drawnow (opts, tmp_file, gp_opts);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	59 if (dos_shell)
11252 d048ce3f7cef Replace "delete" with "del" in DOS shell commands. Michael Goffioul <michael.goffioul@gmail.com> parents: 11120 diff changeset	60 cleanup = sprintf (" & del %s", strrep (tmp_file, '/', '\'));
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	61 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	62 cleanup = sprintf (" ; rm %s", tmp_file);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	63 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	64 pipeline = {sprintf("%s %s",
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	65 opts.epstool_cmd (opts, tmp_file, opts.name),
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	66 cleanup)};
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	67 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	68 eps_drawnow (opts, opts.name, gp_opts);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	69 endif
10954 ee9d74048827 Consolidate gs code into print.m. Ben Abbott <bpabbott@mac.com> parents: 10915 diff changeset	70 case {"epslatex", "pslatex", "pstex", "epslatexstandalone"}
ee9d74048827 Consolidate gs code into print.m. Ben Abbott <bpabbott@mac.com> parents: 10915 diff changeset	71 dot = find (opts.name == ".", 1, "last");
14174 447b57ebc27b Validate suffix when printing to {eps,ps,pdf}latex devices. Ben Abbott <bpabbott@mac.com> parents: 14170 diff changeset	72 n = find (opts.devopt == "l", 1);
447b57ebc27b Validate suffix when printing to {eps,ps,pdf}latex devices. Ben Abbott <bpabbott@mac.com> parents: 14170 diff changeset	73 suffix = opts.devopt(1:n-1);
14170 2ff75e38c299 improve error message in __gnuplot_print__ John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	74 if (! isempty (dot))
14174 447b57ebc27b Validate suffix when printing to {eps,ps,pdf}latex devices. Ben Abbott <bpabbott@mac.com> parents: 14170 diff changeset	75 if (any (strcmpi (opts.name(dot:end), {strcat(".", suffix), ".tex", "."})))
14170 2ff75e38c299 improve error message in __gnuplot_print__ John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	76 name = opts.name(1:dot-1);
2ff75e38c299 improve error message in __gnuplot_print__ John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	77 else
14174 447b57ebc27b Validate suffix when printing to {eps,ps,pdf}latex devices. Ben Abbott <bpabbott@mac.com> parents: 14170 diff changeset	78 error ("print:invalid-suffix",
447b57ebc27b Validate suffix when printing to {eps,ps,pdf}latex devices. Ben Abbott <bpabbott@mac.com> parents: 14170 diff changeset	79 "invalid suffix `%s' for device `%s'.",
14170 2ff75e38c299 improve error message in __gnuplot_print__ John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	80 opts.name(dot:end), lower (opts.devopt));
2ff75e38c299 improve error message in __gnuplot_print__ John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	81 endif
10954 ee9d74048827 Consolidate gs code into print.m. Ben Abbott <bpabbott@mac.com> parents: 10915 diff changeset	82 endif
ee9d74048827 Consolidate gs code into print.m. Ben Abbott <bpabbott@mac.com> parents: 10915 diff changeset	83 if (strfind (opts.devopt, "standalone"))
ee9d74048827 Consolidate gs code into print.m. Ben Abbott <bpabbott@mac.com> parents: 10915 diff changeset	84 term = sprintf ("%s ",
ee9d74048827 Consolidate gs code into print.m. Ben Abbott <bpabbott@mac.com> parents: 10915 diff changeset	85 strrep (opts.devopt, "standalone", " standalone"));
ee9d74048827 Consolidate gs code into print.m. Ben Abbott <bpabbott@mac.com> parents: 10915 diff changeset	86 else
ee9d74048827 Consolidate gs code into print.m. Ben Abbott <bpabbott@mac.com> parents: 10915 diff changeset	87 term = sprintf ("%s ", opts.devopt);
ee9d74048827 Consolidate gs code into print.m. Ben Abbott <bpabbott@mac.com> parents: 10915 diff changeset	88 endif
ee9d74048827 Consolidate gs code into print.m. Ben Abbott <bpabbott@mac.com> parents: 10915 diff changeset	89 if (__gnuplot_has_feature__ ("epslatex_implies_eps_filesuffix"))
ee9d74048827 Consolidate gs code into print.m. Ben Abbott <bpabbott@mac.com> parents: 10915 diff changeset	90 suffix = "tex";
ee9d74048827 Consolidate gs code into print.m. Ben Abbott <bpabbott@mac.com> parents: 10915 diff changeset	91 else
ee9d74048827 Consolidate gs code into print.m. Ben Abbott <bpabbott@mac.com> parents: 10915 diff changeset	92 %% Gnuplot 4.0 wants a ".eps" suffix.
ee9d74048827 Consolidate gs code into print.m. Ben Abbott <bpabbott@mac.com> parents: 10915 diff changeset	93 suffix = "eps";
ee9d74048827 Consolidate gs code into print.m. Ben Abbott <bpabbott@mac.com> parents: 10915 diff changeset	94 endif
ee9d74048827 Consolidate gs code into print.m. Ben Abbott <bpabbott@mac.com> parents: 10915 diff changeset	95 local_drawnow (sprintf ("%s %s", term, gp_opts),
11589 b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11588 diff changeset	96 strcat (name, ".", suffix), opts);
11120 a44f979a35ce style fixes for some .m files John W. Eaton <jwe@octave.org> parents: 11113 diff changeset	97 case "tikz"
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	98 if (__gnuplot_has_terminal__ ("tikz"))
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	99 local_drawnow (sprintf ("lua tikz %s", gp_opts), opts.name, opts);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	100 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	101 error (sprintf ("print:no%soutput", opts.devopt),
11588 d5bd2766c640 style fixes for warning and error messages in script files John W. Eaton <jwe@octave.org> parents: 11587 diff changeset	102 "print.m: '%s' output is not available for gnuplot-%s",
11589 b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11588 diff changeset	103 upper (opts.devopt), __gnuplot_version__ ());
10954 ee9d74048827 Consolidate gs code into print.m. Ben Abbott <bpabbott@mac.com> parents: 10915 diff changeset	104 endif
11120 a44f979a35ce style fixes for some .m files John W. Eaton <jwe@octave.org> parents: 11113 diff changeset	105 case "svg"
10954 ee9d74048827 Consolidate gs code into print.m. Ben Abbott <bpabbott@mac.com> parents: 10915 diff changeset	106 local_drawnow (sprintf ("svg dynamic %s", gp_opts), opts.name, opts);
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	107 case {"aifm", "corel", "eepic", "emf", "fig"}
10954 ee9d74048827 Consolidate gs code into print.m. Ben Abbott <bpabbott@mac.com> parents: 10915 diff changeset	108 local_drawnow (sprintf ("%s %s", opts.devopt, gp_opts), opts.name, opts);
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	109 case {"pdfcairo", "pngcairo"}
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	110 if (__gnuplot_has_terminal__ (opts.devopt))
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	111 local_drawnow (sprintf ("%s %s", opts.devopt, gp_opts), opts.name, opts);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	112 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	113 error (sprintf ("print:no%soutput", opts.devopt),
11588 d5bd2766c640 style fixes for warning and error messages in script files John W. Eaton <jwe@octave.org> parents: 11587 diff changeset	114 "print.m: '%s' output is not available for gnuplot-%s",
11589 b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11588 diff changeset	115 upper (opts.devopt), __gnuplot_version__ ());
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	116 endif
10954 ee9d74048827 Consolidate gs code into print.m. Ben Abbott <bpabbott@mac.com> parents: 10915 diff changeset	117 case {"canvas", "dxf", "hpgl", "mf", "gif", "pstricks", "texdraw"}
11589 b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11588 diff changeset	118 local_drawnow (sprintf ("%s %s", opts.devopt, gp_opts), opts.name, opts);
10954 ee9d74048827 Consolidate gs code into print.m. Ben Abbott <bpabbott@mac.com> parents: 10915 diff changeset	119 case opts.ghostscript.device
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	120 gp_opts = font_spec (opts, "devopt", "eps");
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	121 opts.ghostscript.output = opts.name;
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	122 opts.ghostscript.source = strcat (tmpnam (), ".eps");
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	123 eps_drawnow (opts, opts.ghostscript.source, gp_opts);
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11576 diff changeset	124 [cmd_gs, cmd_cleanup] = __ghostscript__ (opts.ghostscript);
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	125 if (opts.send_to_printer \|\| isempty (opts.name))
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	126 cmd_lpr = opts.lpr_cmd (opts);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	127 cmd = sprintf ("%s \| %s", cmd_gs, cmd_lpr);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	128 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	129 cmd = sprintf ("%s", cmd_gs);
8889 665b264b6a50 Compatible support of figure paper properties and resolution for the gnuplot backend. Ben Abbott <bpabbott@mac.com> parents: 8746 diff changeset	130 endif
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	131 if (dos_shell)
11252 d048ce3f7cef Replace "delete" with "del" in DOS shell commands. Michael Goffioul <michael.goffioul@gmail.com> parents: 11120 diff changeset	132 cmd = sprintf ("%s & del %s", cmd, strrep (opts.ghostscript.source, '/', '\'));
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	133 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	134 cmd = sprintf ("%s ; rm %s", cmd, opts.ghostscript.source);
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	135 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	136 if (! isempty (cmd_cleanup))
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	137 if (dos_shell)
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	138 pipeline = {sprintf("%s & %s", cmd, cmd_cleanup)};
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	139 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	140 pipeline = {sprintf("%s ; %s", cmd, cmd_cleanup)};
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	141 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	142 else
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	143 pipeline = {cmd};
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	144 endif
10954 ee9d74048827 Consolidate gs code into print.m. Ben Abbott <bpabbott@mac.com> parents: 10915 diff changeset	145 otherwise
ee9d74048827 Consolidate gs code into print.m. Ben Abbott <bpabbott@mac.com> parents: 10915 diff changeset	146 error (sprintf ("print:no%soutput", opts.devopt),
11576 8ac9687dbe9f rename backend to graphics_toolkit John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	147 "print.m: %s output is not available for the Gnuplot graphics toolkit",
11589 b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11588 diff changeset	148 upper (opts.devopt));
10954 ee9d74048827 Consolidate gs code into print.m. Ben Abbott <bpabbott@mac.com> parents: 10915 diff changeset	149 endswitch
5363 37f62a7778c2 [project @ 2005-05-23 19:52:15 by jwe] jwe parents: 5362 diff changeset	150
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	151
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	152 opts.pipeline = pipeline;
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	153
14868 5d3a684236b0 maint: Use Octave coding conventions for cuddling parentheses in scripts directory Rik <octave@nomad.inbox5.com> parents: 14174 diff changeset	154 for n = 1:numel (pipeline)
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	155 if (opts.debug)
11589 b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11588 diff changeset	156 fprintf ("gnuplot-pipeline: '%s'\n", pipeline{n});
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	157 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	158 [status, output] = system (pipeline{n});
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	159 if (status)
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11576 diff changeset	160 fprintf ("%s\n%s\n%s\n",
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	161 "---------- output begin ----------",
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	162 output,
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	163 "----------- output end -----------");
11589 b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11588 diff changeset	164 error ("gnuplot:failedpipe", "print: failed to print");
11009 064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	165 endif
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	166 endfor
064aaf82222f Print via a pipeline. Ben Abbott <bpabbott@mac.com> parents: 10954 diff changeset	167
5361 0ac38aea9f76 [project @ 2005-05-23 19:08:36 by jwe] jwe parents: diff changeset	168 endfunction
9152 4c9aff0c9a61 print.m: Use Ghostscript rather than ImageMagick's 'convert'. Ben Abbott <bpabbott@mac.com> parents: 9107 diff changeset	169
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	170 function eps_drawnow (opts, epsfile, gp_opts)
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	171 [h, fontsize] = get_figure_text_objs (opts);
9334 4f96a7770492 print.m: properly render mono figures, and favor cairo terminals. Ben Abbott <bpabbott@mac.com> parents: 9249 diff changeset	172 unwind_protect
14868 5d3a684236b0 maint: Use Octave coding conventions for cuddling parentheses in scripts directory Rik <octave@nomad.inbox5.com> parents: 14174 diff changeset	173 for n = 1:numel (h)
10915 2a25f282e965 __gnuplot_print__.m: Properly restore fontsize after eps output. Ben Abbott <bpabbott@mac.com> parents: 10913 diff changeset	174 set (h(n), "fontsize", 2 * fontsize{n});
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	175 endfor
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	176 local_drawnow (sprintf ("postscript eps %s", gp_opts), epsfile, opts);
9334 4f96a7770492 print.m: properly render mono figures, and favor cairo terminals. Ben Abbott <bpabbott@mac.com> parents: 9249 diff changeset	177 unwind_protect_cleanup
14868 5d3a684236b0 maint: Use Octave coding conventions for cuddling parentheses in scripts directory Rik <octave@nomad.inbox5.com> parents: 14174 diff changeset	178 for n = 1:numel (h)
10915 2a25f282e965 __gnuplot_print__.m: Properly restore fontsize after eps output. Ben Abbott <bpabbott@mac.com> parents: 10913 diff changeset	179 set (h(n), "fontsize", fontsize{n});
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	180 endfor
9334 4f96a7770492 print.m: properly render mono figures, and favor cairo terminals. Ben Abbott <bpabbott@mac.com> parents: 9249 diff changeset	181 end_unwind_protect
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	182 endfunction
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	183
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	184 function local_drawnow (term, file, opts)
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	185 if (opts.use_color < 0)
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	186 mono = true;
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	187 else
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	188 mono = false;
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	189 endif
11589 b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11588 diff changeset	190 figure (opts.figure);
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	191 if (isempty (opts.debug_file) \|\| ! opts.debug)
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	192 drawnow (term, file, mono);
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	193 else
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	194 drawnow (term, file, mono, opts.debug_file);
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	195 endif
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	196 endfunction
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	197
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	198 function f = font_spec (opts, varargin)
14868 5d3a684236b0 maint: Use Octave coding conventions for cuddling parentheses in scripts directory Rik <octave@nomad.inbox5.com> parents: 14174 diff changeset	199 for n = 1:2:numel (varargin)
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	200 opts.(varargin{n}) = varargin{n+1};
9334 4f96a7770492 print.m: properly render mono figures, and favor cairo terminals. Ben Abbott <bpabbott@mac.com> parents: 9249 diff changeset	201 endfor
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	202 f = "";
11120 a44f979a35ce style fixes for some .m files John W. Eaton <jwe@octave.org> parents: 11113 diff changeset	203 switch (opts.devopt)
a44f979a35ce style fixes for some .m files John W. Eaton <jwe@octave.org> parents: 11113 diff changeset	204 case "cgm"
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	205 if (! isempty (opts.font) && ! isempty (opts.fontsize))
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	206 f = sprintf ("font ""%s,%d""", opts.font, opts.fontsize);
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	207 elseif (! isempty (opts.font))
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	208 f = sprintf ("font ""%s""", opts.font);
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	209 elseif (! isempty (opts.fontsize))
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	210 f = sprintf ("%d", opts.fontsize);
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	211 endif
10954 ee9d74048827 Consolidate gs code into print.m. Ben Abbott <bpabbott@mac.com> parents: 10915 diff changeset	212 case {"eps", "eps2", "epsc", "epsc2"}
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11576 diff changeset	213 ## Gnuplot renders fonts as half their specification, which
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	214 ## results in a tight spacing for the axes-labels and tick-labels.
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	215 ## Compensate for the half scale. This will produce the proper
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	216 ## spacing for the requested fontsize.
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	217 if (! isempty (opts.font) && ! isempty (opts.fontsize))
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	218 f = sprintf ("font ""%s,%d""", opts.font, 2 * opts.fontsize);
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	219 elseif (! isempty (opts.font))
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	220 f = sprintf ("font ""%s""", opts.font);
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	221 elseif (! isempty (opts.fontsize))
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	222 f = sprintf ("%d", 2 * opts.fontsize);
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	223 endif
11120 a44f979a35ce style fixes for some .m files John W. Eaton <jwe@octave.org> parents: 11113 diff changeset	224 case "svg"
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	225 if (! isempty (opts.font) && ! isempty (opts.fontsize))
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	226 fontsize = round (opts.fontsize * 0.75);
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	227 f = sprintf ("fname ""%s"" fsize %d", opts.font, fontsize);
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	228 elseif (! isempty (opts.font))
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	229 f = sprintf ("fname ""%s""", opts.font);
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	230 elseif (! isempty (opts.fontsize))
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	231 fontsize = round (opts.fontsize * 0.75);
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	232 f = sprintf ("%s fsize %d", f, fontsize);
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	233 endif
11120 a44f979a35ce style fixes for some .m files John W. Eaton <jwe@octave.org> parents: 11113 diff changeset	234 case "pdf"
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	235 if (! isempty (opts.font) && ! isempty (opts.fontsize))
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	236 f = sprintf ("font ""%s,%d""", opts.font, opts.fontsize);
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	237 elseif (! isempty (opts.font))
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	238 f = sprintf ("font ""%s""", opts.font);
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	239 elseif (! isempty (opts.fontsize))
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	240 f = sprintf ("fsize %d", f, opts.fontsize);
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	241 endif
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	242 case {"pdfcairo", "pngcairo"}
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	243 if (! isempty (opts.font))
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	244 f = sprintf ("font ""%s""", opts.font);
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	245 endif
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	246 case {"epslatex", "epslatexstandalone"}
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	247 if (! isempty (opts.font) && ! isempty (opts.fontsize))
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	248 f = sprintf ("font ""%s,%d""", opts.font, opts.fontsize);
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	249 elseif (! isempty (opts.font))
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	250 f = sprintf ("font ""%s""", opts.font);
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	251 elseif (! isempty (opts.fontsize))
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	252 f = sprintf ("%d", opts.fontsize);
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	253 endif
11120 a44f979a35ce style fixes for some .m files John W. Eaton <jwe@octave.org> parents: 11113 diff changeset	254 case "pslatex"
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	255 if (! isempty (opts.fontsize))
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	256 f = sprintf ("%d", opts.fontsize);
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	257 endif
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	258 case {"gif", "jpeg", "png"}
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	259 if (! isempty (opts.font) && ! isempty (opts.fontsize))
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	260 f = sprintf ("font ""%s ,%d""", opts.font, opts.fontsize);
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	261 elseif (! isempty (opts.font))
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	262 f = sprintf ("font ""%s""", opts.font);
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	263 elseif (! isempty (opts.fontsize))
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	264 f = sprintf ("font ""%d""", opts.fontsize);
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	265 endif
11120 a44f979a35ce style fixes for some .m files John W. Eaton <jwe@octave.org> parents: 11113 diff changeset	266 case "emf"
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	267 if (! isempty (opts.font) && ! isempty (opts.fontsize))
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	268 f = sprintf ("""%s"" %d", opts.font, opts.fontsize);
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	269 elseif (! isempty (opts.font))
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	270 f = sprintf ("""%s""", opts.font);
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	271 elseif (! isempty (opts.fontsize))
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	272 f = sprintf ("%d", opts.fontsize);
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	273 endif
11120 a44f979a35ce style fixes for some .m files John W. Eaton <jwe@octave.org> parents: 11113 diff changeset	274 case "canvas"
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	275 if (! isempty (opts.fontsize))
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	276 f = sprintf ("fsize %d", opts.fontsize);
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	277 endif
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	278 case {"aifm", "corel"}
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	279 if (! isempty (opts.font) && ! isempty (opts.fontsize))
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	280 f = sprintf ("%s %d", opts.font, opts.fontsize);
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	281 elseif (! isempty (opts.font))
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	282 f = sprintf ("%s", opts.font);
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	283 elseif (! isempty (opts.fontsize))
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	284 f = sprintf ("%d", opts.fontsize);
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	285 endif
11120 a44f979a35ce style fixes for some .m files John W. Eaton <jwe@octave.org> parents: 11113 diff changeset	286 case "fig"
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	287 if (! isempty (opts.font) && ! isempty (opts.fontsize))
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	288 f = sprintf ("font %s fontsize %d", opts.font, opts.fontsize);
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	289 elseif (! isempty (opts.font))
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	290 f = sprintf ("font %s", opts.font);
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	291 elseif (! isempty (opts.fontsize))
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	292 f = sprintf ("fontsize %d", opts.fontsize);
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	293 endif
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	294 endswitch
9334 4f96a7770492 print.m: properly render mono figures, and favor cairo terminals. Ben Abbott <bpabbott@mac.com> parents: 9249 diff changeset	295 endfunction
4f96a7770492 print.m: properly render mono figures, and favor cairo terminals. Ben Abbott <bpabbott@mac.com> parents: 9249 diff changeset	296
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	297 function [h, fontsize] = get_figure_text_objs (opts)
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	298 h = findall (opts.figure, "-property", "fontsize");
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	299 fontsize = get (h, "fontsize");
11120 a44f979a35ce style fixes for some .m files John W. Eaton <jwe@octave.org> parents: 11113 diff changeset	300 switch (numel (fontsize))
10913 dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	301 case 0
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	302 fontsize = {};
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	303 case 1
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	304 fontsize = {fontsize};
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	305 endswitch
dd6b90f44ae5 Unify gnuplot printing with the fltk backend. Ben Abbott <bpabbott@mac.com> parents: 10854 diff changeset	306 endfunction

Mercurial > hg > octave-nkf

annotate scripts/plot/private/__gnuplot_print__.m @ 14868:5d3a684236b0