octave-lyh: scripts/plot/struct2hdl.m annotate

annotate scripts/plot/struct2hdl.m @ 15011:f34bea431e4f

maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. * copyobj.m, hdl2struct.m, struct2hdl.m: Use Octave coding standards.

author	Rik <rik@octave.org>
date	Tue, 24 Jul 2012 13:41:41 -0700
parents	8f0e3c5bfa5f
children	a1d1386daeed

rev	line source
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	1 ## Copyright (C) 2012 pdiribarne
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	2 ##
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	3 ## This program is free software; you can redistribute it and/or modify
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	4 ## it under the terms of the GNU General Public License as published by
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	5 ## the Free Software Foundation; either version 3 of the License, or
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	6 ## (at your option) any later version.
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	7 ##
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	8 ## This program is distributed in the hope that it will be useful,
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	9 ## but WITHOUT ANY WARRANTY; without even the implied warranty of
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	10 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	11 ## GNU General Public License for more details.
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	12 ##
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	13 ## You should have received a copy of the GNU General Public License
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	14 ## along with Octave; see the file COPYING. If not, see
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	15 ## <http://www.gnu.org/licenses/>.
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	16
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	17 ## -- texinfo --
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	18 ## @deftypefn {Function File} {@var{h} =} struct2hdl (@var{s})
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	19 ## @deftypefnx {Function File} {@var{h} =} struct2hdl (@var{s}, @var{p})
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	20 ## @deftypefnx {Function File} {@var{h} =} struct2hdl (@var{s}, @var{p}, @var{hilev})
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	21 ## Construct a handle object @var{h} from the structure @var{s}. The structure
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	22 ## must contain the fields "handle", "type", "children", "properties", and
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	23 ## "special". If the handle of an existing figure or axes is specified,
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	24 ## @var{p}, the new object will be created as a child of that object.
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	25 ## If no object handle is provided then a new figure and the necessary
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	26 ## children will be constructed using the default object values from
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	27 ## the root figure.
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	28 ##
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	29 ## A third boolean argument @var{hilev} can be passed to specify whether
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	30 ## the function should try to preserve listeners/callbacks, e.g., for
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	31 ## legends or hggroups. The default is false.
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	32 ## @seealso{hdl2struct, findobj, get, set}
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	33 ## @end deftypefn
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	34
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	35 ## Author: pdiribarne <pdiribarne@new-host.home>
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	36 ## Created: 2012-03-04
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	37
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	38 function [h, pout] = struct2hdl (s, p=[], hilev = false)
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	39
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	40 fields = {"handle", "type", "children", "properties", "special"};
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	41 partypes = {"root", "figure", "axes", "hggroup"};
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	42 othertypes = {"line", "patch", "surface", "image", "text"};
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	43 alltypes = [partypes othertypes];
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	44
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	45 if (nargin > 3 \|\| ! isstruct (s))
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	46 print_usage ();
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	47 elseif (! all (isfield (s, fields)))
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	48 print_usage ();
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	49 elseif (isscalar (p))
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	50 if (! ishandle (p))
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	51 error ("struct2hdl: P is not a handle to a graphic object");
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	52 endif
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	53 if (any (strcmp (get (p).type, partypes)))
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	54 paridx = find (strcmp (get (p).type, alltypes));
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	55 kididx = find (strcmp (s.type, alltypes));
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	56 if (kididx <= paridx)
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	57 error ("struct2hdl: incompatible input handles");
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	58 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	59 else
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	60 error ("struct2hdl: %s object can't be parent object", get (p).type);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	61 endif
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	62 hpar = p;
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	63 p = [NaN; hpar];
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	64 ## create appropriate parent if needed
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	65 if (any (strcmp (s.type, othertypes)))
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	66 for ii = (paridx+1) : (numel (partypes)-1)
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	67 eval (["hpar = " partypes{ii} "(\"parent\", hpar);"]);
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	68 p = [p [NaN; hpar]];
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	69 endfor
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	70 elseif (any (strcmp (s.type, {"hggroup", "axes"})))
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	71 for ii = (paridx+1) : (kididx-1)
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	72 eval (["hpar = " partypes{ii} "(\"parent\", hpar);"]);
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	73 p = [p [NaN; hpar]];
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	74 endfor
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	75 else
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	76 par = NaN;
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	77 endif
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	78 elseif (isempty (p))
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	79 if (any (strcmp (s.type, othertypes)))
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	80 par = axes ();
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	81 elseif (any (strcmp (s.type, {"hggroup", "axes"})))
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	82 par = figure ();
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	83 else
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	84 par = NaN;
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	85 endif
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	86 p = [NaN; par];
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	87 endif
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	88 ## read parent (last column) in p and remove it if duplicate
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	89 par = p(2,end);
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	90 tst = find (p(2,:) == par);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	91 if (numel (tst) > 1)
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	92 p = p(1:2, 1:(tst(end)-1));
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	93 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	94
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	95 ## create object
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	96 if (strcmp (s.type, "root"))
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	97 h = 0;
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	98 s.properties = rmfield (s.properties, ...
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	99 {"callbackobject", "commandwindowsize", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	100 "screendepth", "screenpixelsperinch", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	101 "screensize"});
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	102 elseif (strcmp (s.type, "figure"))
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	103 h = figure ();
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	104 elseif (strcmp (s.type, "axes"))
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	105 ## legends and colorbars are "transformed" in normal axes
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	106 ## if hilev is not requested
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	107 if (! hilev)
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	108 if (strcmp (s.properties.tag, "legend"))
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	109 s.properties.tag = "";
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	110 s.properties.userdata = [];
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	111 par = gcf;
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	112 elseif (strcmp (s.properties.tag, "colorbar"))
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	113 s.properties.tag = "";
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	114 s.properties.userdata = [];
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	115 par = gcf;
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	116 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	117 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	118
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	119 [h, s] = createaxes (s, p, par);
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	120 elseif (strcmp (s.type, "line"))
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	121 h = createline (s, par);
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	122 elseif (strcmp (s.type, "patch"))
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	123 [h, s] = createpatch (s, par);
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	124 elseif (strcmp (s.type, "text"))
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	125 h = createtext (s, par);
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	126 elseif (strcmp (s.type, "image"))
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	127 h = createimage (s, par);
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	128 elseif (strcmp (s.type, "surface"))
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	129 h = createsurface (s, par);
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	130 elseif (strcmp (s.type, "hggroup"))
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	131 [h, s, p] = createhg (s, p, par, hilev);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	132 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	133
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	134 ## children
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	135 p = [p [s.handle; h]]; # [original; new]
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	136 kids = s.children;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	137 nkids = length (kids);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	138 ii = 0;
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	139 while (nkids)
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	140 ii++;
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	141 if (! any (ii == s.special))
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	142 [h2, p] = struct2hdl (s.children(ii), [p [s.handle; h]], hilev);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	143 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	144 nkids--;
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	145 endwhile
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	146
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	147 ## paste properties
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	148 setprops (s, h, p, hilev);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	149
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	150 pout = p;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	151
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	152 endfunction
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	153
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	154 function [h, sout] = createaxes (s, p, par)
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	155 ## regular axes
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	156 if (strcmp (s.properties.tag, ""))
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	157 propval = {"position", s.properties.position};
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	158 hid = {"autopos_tag", "looseinset"};
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	159 for ii = 1:numel (hid)
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	160 prop = hid{ii};
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	161 if (isfield (s.properties, prop))
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	162 val = s.properties.(prop);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	163 propval = [propval, prop, val];
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	164 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	165 endfor
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	166 h = axes (propval{:}, "parent", par);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	167
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	168 if (isfield (s.properties, "__plotyy_axes__"))
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	169 plty = s.properties.__plotyy_axes__;
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	170 addproperty ("__plotyy_axes__", h, "any");
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	171 tmp = [p [s.handle; h]];
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	172 tst = arrayfun (@(x) any (plty == x), tmp(1:2:end));
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	173 if (sum (tst) == numel (plty))
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	174 for ii = 1:numel (plty)
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	175 plty(ii) = tmp(find (tmp == plty(ii)) + 1);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	176 endfor
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	177 for ii = 1:numel (plty)
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	178 set (plty(ii), "__plotyy_axes__", plty);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	179 endfor
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	180 endif
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	181 s.properties = rmfield (s.properties, "__plotyy_axes__");
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	182 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	183
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	184 ## delete non-default and already set properties
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	185 fields = fieldnames (s.properties);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	186 tst = cellfun (@(x) isprop (h, x), fields);
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	187 s.properties = rmfield (s.properties, fields(find (tst == 0)));
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	188
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	189 elseif (strcmp (s.properties.tag, "legend"))
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	190 ## legends
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	191 oldax = s.properties.userdata.handle;
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	192 idx = find (p == oldax);
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	193 newax = p(idx+1);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	194 strings = {};
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	195 kids = s.children;
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	196 kids(s.special) = [];
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	197 oldh = unique (arrayfun (@(x) x.properties.userdata(end), kids));
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	198 for ii = 1:length (oldh)
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	199 idx = find (p(1:2:end) == oldh(ii)) * 2;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	200 if (! isempty (idx))
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	201 newh(ii) = p(idx);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	202 if (! strcmp (get (newh(ii), "type"), "hggroup"))
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	203 str = get (newh(ii), "displayname");
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	204 strings = [strings str];
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	205 else
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	206 str = get (get (newh(ii), "children")(1), "displayname");
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	207 strings = [strings str];
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	208 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	209 else
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	210 error ("struct2hdl: didn't find a legend item");
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	211 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	212 endfor
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	213 location = s.properties.location;
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	214 orientation = s.properties.orientation;
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	215 textpos = s.properties.textposition;
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	216 box = s.properties.box;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	217
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	218 h = legend (newax, newh, strings, "location", location, ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	219 "orientation", orientation);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	220 set (h, "textposition", textpos); # bug makes "textposition"
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	221 # redefine the legend
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	222 h = legend (newax, newh, strings, "location", location, ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	223 "orientation", orientation);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	224 ## box
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	225 if (strcmp (box, "on"))
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	226 legend ("boxon");
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	227 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	228
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	229 ## visibility
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	230 tst = arrayfun (@(x) strcmp (x.properties.visible, "on"), kids);
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	231 if (! any (tst))
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	232 legend ("hide");
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	233 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	234
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	235 ## remove all properties such as "textposition" that redefines
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	236 ## the entire legend. Also remove chidren
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	237 s.properties = rmfield (s.properties, ...
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	238 {"userdata", "xlabel",...
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	239 "ylabel", "zlabel", "location", ...
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	240 "title", "string","orientation", ...
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	241 "visible", "textposition"});
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	242
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	243 s.children = [];
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	244
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	245 elseif (strcmp (s.properties.tag, "colorbar"))
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	246 ## colorbar
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	247 oldax = s.properties.axes;
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	248 if (! isempty (idx = find (oldax == p)))
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	249 ax = p(idx+1);
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	250 location = s.properties.location;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	251 h = colorbar ("peer", ax, location);
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	252 s.properties = rmfield (s.properties, ...
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	253 {"userdata", "xlabel" ...
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	254 "ylabel", "zlabel", ...
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	255 "title", "axes"});
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	256 s.children= [];
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	257 else
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	258 error ("hdl2struct: didn't find an object");
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	259 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	260 endif
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	261 sout = s;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	262 endfunction
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	263
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	264 function h = createline (s, par)
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	265 h = line ("parent", par);
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	266 addmissingprops (h, s.properties);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	267 endfunction
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	268
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	269 function [h, sout] = createpatch (s, par)
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	270 prp.faces = s.properties.faces;
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	271 prp.vertices = s.properties.vertices;
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	272 prp.facevertexcdata = s.properties.facevertexcdata;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	273 h = patch (prp);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	274 set (h, "parent", par);
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	275 s.properties = rmfield (s.properties,
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	276 {"faces", "vertices", "facevertexcdata"});
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	277 addmissingprops (h, s.properties);
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	278 sout = s;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	279 endfunction
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	280
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	281 function h = createtext (s, par)
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	282 h = text ("parent", par);
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	283 addmissingprops (h, s.properties);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	284 endfunction
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	285
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	286 function h = createimage (s, par)
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	287 h = image ("parent", par);
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	288 addmissingprops (h, s.properties);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	289 endfunction
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	290
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	291 function h = createsurface (s, par)
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	292 h = surface ("parent", par);
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	293 addmissingprops (h, s.properties);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	294 endfunction
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	295
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	296 function [h, sout, pout] = createhg (s, p, par, hilev)
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	297 ## Here we infer from properties the type of hggroup we should build
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	298 ## an call corresponding high level functions
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	299 ## We manually set "hold on" to avoid next hggroup be deleted
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	300 ## the proper value of axes "nextplot" will finally be recovered
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	301
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	302 hold on;
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	303 if (hilev)
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	304 [h, s, p] = createhg_hilev (s, p, par);
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	305 if (numel (s.children) != numel (get (h).children))
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	306 warning (["struct2hdl: could not infer the hggroup type. ", ...
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	307 "Will build objects but listener/callback functions ", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	308 "will be lost"]);
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	309 if (isfield (h, "bargroup"))
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	310 delete (get (h).bargroup);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	311 else
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	312 delete (h);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	313 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	314 h = hggroup ("parent", par);
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	315 addmissingprops (h, s.properties);
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	316 s.special = [];
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	317 else
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	318 oldkids = s.children;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	319 newkids = get (h).children;
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	320 nkids = numel (oldkids);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	321 ii = 1;
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	322 while (nkids)
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	323 p = [p [oldkids(ii++).handle; newkids(nkids--)]];
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	324 endwhile
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	325 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	326 else
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	327 h = hggroup ("parent", par);
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	328 addmissingprops (h, s.properties);
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	329 s.special = [];
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	330 endif
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	331 sout = s;
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	332 pout = p;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	333 endfunction
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	334
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	335 function [h, sout, pout] = createhg_hilev (s, p, par)
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	336 fields = s.properties;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	337 if (isfield (fields, "contourmatrix"))
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	338 ## contours
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	339 xdata = s.properties.xdata;
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	340 ydata = s.properties.ydata;
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	341 zdata = s.properties.zdata;
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	342 levellist = s.properties.levellist;
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	343 textlist = s.properties.textlist;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	344
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	345 ## contour creation
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	346 if (isempty (s.children(1).properties.zdata))
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	347 if (strcmpi (s.properties.fill, "on"))
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	348 [cm2, h] = contourf (xdata, ydata, zdata, levellist);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	349 else
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	350 [cm2, h] = contour (xdata, ydata, zdata, levellist);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	351 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	352
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	353 ## labels
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	354 if (strcmpi (s.properties.showtext, "on"))
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	355 clabel (cm2, h, textlist);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	356 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	357 else
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	358 [cm2, h] = contour3 (xdata, ydata, zdata, levellist);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	359 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	360
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	361 ## delete already set properties and children
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	362 s.properties = rmfield (s.properties, ...
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	363 {"xdata", "ydata", "zdata", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	364 "contourmatrix", "levellist", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	365 "fill", "labelspacing", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	366 "levellistmode", "levelstep", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	367 "levelstepmode", "textlist"...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	368 "textlistmode" , "textstep", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	369 "textstepmode", "zlevel", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	370 "zlevelmode"});
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	371
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	372 elseif (isfield (fields, "udata") && isfield (fields, "vdata"))
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	373 ## quiver
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	374 xdata = s.properties.xdata;
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	375 ydata = s.properties.ydata;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	376
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	377 udata = s.properties.udata;
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	378 vdata = s.properties.vdata;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	379
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	380 h = quiver (xdata, ydata, udata, vdata);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	381
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	382 ## delete already set properties and children
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	383 s.properties = rmfield (s.properties, ...
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	384 {"xdata", "ydata", "zdata", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	385 "xdatasource", "ydatasource", "zdatasource", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	386 "udata", "vdata", "wdata", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	387 "udatasource", "vdatasource", "wdatasource"});
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	388
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	389 elseif (isfield (fields, "format"))
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	390 ##errorbar
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	391 form = s.properties.format;
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	392 xdata = s.properties.xdata;
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	393 ydata = s.properties.ydata;
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	394 xldata = s.properties.xldata;
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	395 ldata = s.properties.ldata;
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	396 xudata = s.properties.xudata;
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	397 udata = s.properties.udata;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	398
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	399 switch form
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	400 case "xerr"
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	401 h = errorbar (xdata, ydata, xldata, xudata, ">");
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	402 case "yerr"
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	403 h = errorbar (xdata, ydata, ldata, udata, "~");
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	404 case "xyerr"
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	405 h = errorbar (xdata, ydata, xldata, xudata, ldata, udata, "~>");
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	406 case "box"
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	407 h = errorbar (xdata, ydata, xldata, xudata, "#");
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	408 case "boxy"
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	409 h = errorbar (xdata, ydata, ldata, udata, "#~");
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	410 case "boxxy"
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	411 h = errorbar (xdata, ydata, xldata, xudata, ldata, udata, "#~>");
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	412 otherwise
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	413 error ("struct2hdl: couldn't guess the errorbar format");
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	414 endswitch
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	415 ## delete already set properties
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	416 s.properties = rmfield (s.properties, ...
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	417 {"xdata", "ydata", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	418 "xldata", "ldata", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	419 "xudata", "udata", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	420 "xldatasource", "ldatasource", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	421 "xudatasource", "udatasource", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	422 "format"});
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	423
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	424 elseif (isfield (fields, "bargroup"))
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	425 ## bar plot
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	426 ## FIXME - here we don't have access to brothers so we first create all
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	427 ## the barseries of the bargroup (but the last), then retrieve information,
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	428 ## and rebuild the whole bargroup.
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	429 ## The duplicate are deleted after calling "setprops"
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	430
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	431 bargroup = s.properties.bargroup;
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	432 oldh = s.handle;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	433
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	434 temp = arrayfun (@(x) any(x == bargroup), [p(1:2:end) oldh]);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	435 tst = sum (temp) == length (bargroup);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	436
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	437 if (isscalar (bargroup) \|\| !tst)
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	438 xdata = s.properties.xdata;
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	439 ydata = s.properties.ydata;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	440
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	441 h = bar (xdata, ydata);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	442
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	443 ## delete already set properties,
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	444 s.properties = rmfield (s.properties, ...
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	445 {"xdata", "ydata", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	446 "xdatasource", "ydatasource", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	447 "bargroup", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	448 "barwidth", "baseline"});
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	449 else
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	450 xdata = [];
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	451 ydata = [];
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	452
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	453 ##build x/y matrix
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	454 nbar = length (bargroup);
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	455 tmp = struct ("handle", NaN, "type", "", "children", [], "special", []);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	456 for ii = 1:(nbar - 1)
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	457 idx = find (p(1:2:end) == bargroup(ii)) * 2;
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	458 hdl = p (idx);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	459 xdata = [xdata get(hdl).xdata];
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	460 ydata = [ydata get(hdl).ydata];
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	461 tmp.children(ii) = hdl2struct (hdl);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	462 endfor
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	463
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	464 xdata = [xdata s.properties.xdata];
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	465 ydata = [ydata s.properties.ydata];
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	466 width = s.properties.barwidth;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	467 h = bar (ydata, width);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	468
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	469 ## replace previous handles in "match", copy props and delete redundant
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	470 for ii = 1:(nbar - 1)
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	471 props = tmp.children(ii).properties;
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	472 bl = props.baseline;
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	473 tmp.children(ii).properties = rmfield (props, {"baseline", "bargroup"});
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	474 setprops (tmp.children(ii), h(ii), p, 1);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	475 delete (tmp.children(ii).handle);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	476 delete (bl);
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	477 idxpar = find (p == tmp.children(ii).handle);
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	478 p(idxpar) = h(ii);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	479 idxkid = idxpar - 2;
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	480 p(idxkid) = get (h(ii), "children");
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	481 endfor
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	482 p(2,((end-nbar+2):end)) = h(1:(end-1));
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	483 h = h(end);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	484
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	485 ## delete already set properties ,
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	486 s.properties = rmfield (s.properties, ...
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	487 {"xdata", "ydata", "bargroup"...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	488 "barwidth", "baseline"});
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	489 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	490 elseif (isfield (fields, "baseline"))
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	491 ## stem plot
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	492 xdata = s.properties.xdata;
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	493 ydata = s.properties.ydata;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	494
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	495 h = stem (xdata, ydata);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	496
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	497 ## delete already set properties,
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	498 s.properties = rmfield (s.properties, ...
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	499 {"xdata", "ydata", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	500 "xdatasource", "ydatasource", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	501 "baseline"});
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	502 elseif (isfield (fields, "basevalue"))
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	503 ## area plot
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	504 xdata = s.properties.xdata;
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	505 ydata = s.properties.ydata;
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	506 level = s.properties.basevalue;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	507
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	508 h = area (xdata, ydata, level);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	509
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	510 ## delete already set properties,
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	511 s.properties = rmfield (s.properties, ...
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	512 {"xdata", "ydata", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	513 "xdatasource", "ydatasource"});
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	514 else
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	515 warning ("struct2hdl: could not infer the hggroup type. Will build objects but listener/callback functions will be lost");
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	516 h = hggroup ("parent", par);
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	517 addmissingprops (h, s.properties);
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	518 s.special = []; # children will be treated as normal children
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	519 endif
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	520 sout = s;
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	521 pout = p;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	522 endfunction
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	523
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	524 function setprops (s, h, p, hilev)
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	525 more off;
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	526 if (strcmpi (s.properties.tag, ""))
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	527 specs = s.children(s.special);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	528 hdls = arrayfun (@(x) x.handle, specs);
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	529 nh = length (hdls);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	530 msg = "";
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	531 if (! nh)
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	532 set (h, s.properties);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	533 else
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	534 ## Specials are objects that where automatically constructed with
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	535 ## current object. Among them are "x(yz)labels", "title", high
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	536 ## level hggroup children
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	537 fields = fieldnames (s.properties);
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	538 vals = struct2cell (s.properties);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	539 idx = find (cellfun (@(x) valcomp(x, hdls) , vals));
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	540 s.properties = rmfield (s.properties, fields(idx));
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	541
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	542 ## set all properties but special handles
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	543 set (h, s.properties);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	544
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	545 ## find props with val == (one of special handles)
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	546 nf = length (idx);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	547 fields = fields(idx);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	548 vals = vals(idx);
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	549 while (nf)
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	550 field = fields{nf};
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	551 idx = find (hdls == vals{nf});
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	552 spec = specs(idx);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	553 if (isprop (h, field))
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	554 h2 = get (h , field);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	555 set (h2, spec.properties);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	556 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	557 nf--;
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	558 endwhile
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	559
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	560 ## If hggroup children were created by high level functions,
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	561 ## copy only usefull properties.
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	562 if (hilev)
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	563 if (strcmp (s.type, "hggroup"))
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	564 nold = numel (s.children);
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	565 nnew = numel (get (h).children);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	566
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	567 if (nold == nnew)
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	568 hnew = get (h).children;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	569 ii = 1;
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	570 while (ii <= nnew)
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	571 try
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	572 set (hnew (ii), "displayname", ...
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	573 s.children(ii).properties.displayname);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	574 catch
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	575 sprintf ("struct2hdl: couldn't set hggroup children #%d props.", ii);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	576 end_try_catch
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	577 ii ++;
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	578 endwhile
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	579
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	580 else
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	581 error ("struct2hdl: non-conformant number of children in hgggroup");
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	582 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	583 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	584 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	585 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	586
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	587 elseif (strcmpi (s.properties.tag, "legend")
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	588 \|\| strcmpi (s.properties.tag, "colorbar"))
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	589 set (h, s.properties);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	590 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	591
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	592 endfunction
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	593
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	594 function out = valcomp (x, hdls)
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	595 if (isfloat (x) && isscalar (x))
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	596 out = any (x == hdls);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	597 else
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	598 out = 0;
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	599 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	600 endfunction
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	601
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	602 function addmissingprops (h, props)
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	603 hid = {"autopos_tag", "looseinset"};
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	604 oldfields = fieldnames (props);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	605 curfields = fieldnames (get (h));
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	606 missing = cellfun (@(x) !any (strcmp (x, curfields)), oldfields);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	607 idx = find (missing);
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	608 for ii = 1:length (idx)
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	609 prop = oldfields{idx(ii)};
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	610 if (! any (strcmp (prop, hid)))
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	611 addproperty (prop, h, "any");
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	612 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	613 endfor
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	614 endfunction
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	615
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	616
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	617 ## FIXME: Need validation tests