octave: scripts/plot/util/hgsave.m annotate

annotate scripts/plot/util/hgsave.m @ 23083:e9a0469dedd9 stable

maint: strip extra trailing newlines from files.

author	John W. Eaton <jwe@octave.org>
date	Fri, 20 Jan 2017 12:19:08 -0500
parents	bac0d6f07a3e
children	ef4d915df748 3ac9f9ecfae5

rev	line source
22323 bac0d6f07a3e maint: Update copyright notices for 2016. John W. Eaton <jwe@octave.org> parents: 20852 diff changeset	1 ## Copyright (C) 2014-2016 Massimiliano Fasi
18580 13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	2 ##
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	3 ## This file is part of Octave.
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	4 ##
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	5 ## Octave is free software; you can redistribute it and/or modify it
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	6 ## under the terms of the GNU General Public License as published by
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	7 ## the Free Software Foundation; either version 3 of the License, or (at
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	8 ## your option) any later version.
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	9 ##
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	10 ## Octave is distributed in the hope that it will be useful, but
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	11 ## WITHOUT ANY WARRANTY; without even the implied warranty of
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	13 ## General Public License for more details.
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	14 ##
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	15 ## You should have received a copy of the GNU General Public License
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	16 ## along with Octave; see the file COPYING. If not, see
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	17 ## <http://www.gnu.org/licenses/>.
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	18
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	19 ## -- texinfo --
20852 516bb87ea72e 2015 Code Sprint: remove class of function from docstring for all m-files. Rik <rik@octave.org> parents: 20173 diff changeset	20 ## @deftypefn {} {} hgsave (@var{filename})
516bb87ea72e 2015 Code Sprint: remove class of function from docstring for all m-files. Rik <rik@octave.org> parents: 20173 diff changeset	21 ## @deftypefnx {} {} hgsave (@var{h}, @var{filename})
516bb87ea72e 2015 Code Sprint: remove class of function from docstring for all m-files. Rik <rik@octave.org> parents: 20173 diff changeset	22 ## @deftypefnx {} {} hgsave (@var{h}, @var{filename}, @var{fmt})
18580 13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	23 ## Save the graphics handle @var{h} to the file @var{filename} in the format
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	24 ## @var{fmt}.
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	25 ##
19597 db92e7e28e1f strip trailing whitespace from most source files John W. Eaton <jwe@octave.org> parents: 19278 diff changeset	26 ## If unspecified, @var{h} is the current figure as returned by @code{gcf}.
20173 777f26aa8e3e doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19833 diff changeset	27 ##
18580 13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	28 ## When @var{filename} does not have an extension the default filename
20173 777f26aa8e3e doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19833 diff changeset	29 ## extension @file{.ofig} will be appended.
777f26aa8e3e doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19833 diff changeset	30 ##
777f26aa8e3e doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19833 diff changeset	31 ## If present, @var{fmt} should be one of the following:
18580 13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	32 ##
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	33 ## @itemize @bullet
18815 19a140e93b1f doc: Periodic grammarcheck of documentation. Rik <rik@octave.org> parents: 18679 diff changeset	34 ## @item @option{-binary}, @option{-float-binary}
19a140e93b1f doc: Periodic grammarcheck of documentation. Rik <rik@octave.org> parents: 18679 diff changeset	35 ##
19a140e93b1f doc: Periodic grammarcheck of documentation. Rik <rik@octave.org> parents: 18679 diff changeset	36 ## @item @option{-hdf5}, @option{-float-hdf5}
19a140e93b1f doc: Periodic grammarcheck of documentation. Rik <rik@octave.org> parents: 18679 diff changeset	37 ##
19a140e93b1f doc: Periodic grammarcheck of documentation. Rik <rik@octave.org> parents: 18679 diff changeset	38 ## @item @option{-V7}, @option{-v7}, @code{-7}, @option{-mat7-binary}
19a140e93b1f doc: Periodic grammarcheck of documentation. Rik <rik@octave.org> parents: 18679 diff changeset	39 ##
19a140e93b1f doc: Periodic grammarcheck of documentation. Rik <rik@octave.org> parents: 18679 diff changeset	40 ## @item @option{-V6}, @option{-v6}, @code{-6}, @option{-mat6-binary}
19a140e93b1f doc: Periodic grammarcheck of documentation. Rik <rik@octave.org> parents: 18679 diff changeset	41 ##
19a140e93b1f doc: Periodic grammarcheck of documentation. Rik <rik@octave.org> parents: 18679 diff changeset	42 ## @item @option{-text}
19a140e93b1f doc: Periodic grammarcheck of documentation. Rik <rik@octave.org> parents: 18679 diff changeset	43 ##
19a140e93b1f doc: Periodic grammarcheck of documentation. Rik <rik@octave.org> parents: 18679 diff changeset	44 ## @item @option{-zip}, @option{-z}
18580 13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	45 ## @end itemize
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	46 ##
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	47 ## When producing graphics for final publication use @code{print} or
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	48 ## @code{saveas}. When it is important to be able to continue to edit a
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	49 ## figure as an Octave object, use @code{hgsave}/@code{hgload}.
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	50 ## @seealso{hgload, hdl2struct, saveas, print}
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	51 ## @end deftypefn
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	52
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	53 ## Author: Massimiliano Fasi
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	54
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	55 function hgsave (h, filename, fmt = "-binary")
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	56
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	57 if (nargin < 1 \|\| nargin > 3)
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	58 print_usage ();
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	59 endif
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	60
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	61 ## Check input arguments
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	62 if (nargin == 1 && ischar (h))
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	63 filename = h;
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	64 h = get (0, "currentfigure");
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	65 if (isempty (h))
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	66 error ("hgsave: No current figure to save");
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	67 endif
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	68 elseif (! (ishandle (h) && ischar (filename)))
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	69 print_usage ();
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	70 endif
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	71
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	72 ## Check file extension
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	73 [~, ~, ext] = fileparts (filename);
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	74 if (isempty (ext))
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	75 filename = [filename ".ofig"];
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	76 endif
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	77
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	78 s_oct40 = hdl2struct (h);
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	79 save (fmt, filename, "s_oct40");
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	80
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	81 endfunction
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	82
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	83
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	84 %!testif HAVE_MAGICK
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	85 %! toolkit = graphics_toolkit ();
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	86 %! graphics_toolkit ("gnuplot");
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	87 %! unwind_protect
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	88 %! h1 = figure ("visible", "off");
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	89 %! x = 0:0.1:2*pi;
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	90 %! y1 = sin (x);
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	91 %! y2 = exp (x - 1);
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	92 %! ax = plotyy (x,y1, x-1,y2, @plot, @semilogy);
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	93 %! xlabel ("X");
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	94 %! ylabel (ax(1), "Axis 1");
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	95 %! ylabel (ax(2), "Axis 2");
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	96 %! axes (ax(1));
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	97 %! text (0.5, 0.5, "Left Axis", ...
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	98 %! "color", [0 0 1], "horizontalalignment", "center");
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	99 %! axes (ax(2));
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	100 %! text (4.5, 80, "Right Axis", ...
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	101 %! "color", [0 0.5 0], "horizontalalignment", "center");
19278 6ca096827123 Use tempname() rather than tmpnam() in core Octave. Rik <rik@octave.org> parents: 18815 diff changeset	102 %! ftmp = [tempname() ".ofig"];
6ca096827123 Use tempname() rather than tmpnam() in core Octave. Rik <rik@octave.org> parents: 18815 diff changeset	103 %! png1 = [tempname() ".png"];
6ca096827123 Use tempname() rather than tmpnam() in core Octave. Rik <rik@octave.org> parents: 18815 diff changeset	104 %! png2 = [tempname() ".png"];
18580 13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	105 %! unwind_protect
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	106 %! hgsave (h1, ftmp);
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	107 %! print (h1, png1);
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	108 %! [img1, map1, alpha1] = imread (png1);
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	109 %! h2 = hgload (ftmp);
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	110 %! print (h2, png2);
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	111 %! [img2, map2, alpha2] = imread (png2);
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	112 %! unwind_protect_cleanup
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	113 %! unlink (ftmp);
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	114 %! unlink (png1);
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	115 %! unlink (png2);
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	116 %! end_unwind_protect
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	117 %! assert (img1, img2);
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	118 %! assert (map1, map2);
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	119 %! assert (alpha1, alpha2);
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	120 %! unwind_protect_cleanup
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	121 %! close (h1);
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	122 %! close (h2);
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	123 %! graphics_toolkit (toolkit);
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	124 %! end_unwind_protect
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	125
19833 9fc020886ae9 maint: Clean up m-files to follow Octave coding conventions. Rik <rik@octave.org> parents: 19697 diff changeset	126 ## Test input validation
18580 13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	127 %!error hgsave ()
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	128 %!error hgsave (1, 2, 3, 4)
13c80c3e9660 Add new functions hgsave and hgload (bug #39532). Massimiliano Fasi <mogrob.sanit@gmail.com> and Rik <rik@octave.org> parents: diff changeset	129 %!error hgsave ("abc", "def")

Mercurial > octave

annotate scripts/plot/util/hgsave.m @ 23083:e9a0469dedd9 stable