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

annotate scripts/plot/struct2hdl.m @ 16072:ac672925fc98

Merge in Julien's changes

author	Jordi Gutiérrez Hermoso <jordigh@octave.org>
date	Wed, 20 Feb 2013 11:36:36 -0500
parents	8135bce0812a
children	e39f00a32dc7

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
15799 d0579fed7e22 struct2hdl.m: Set the "position" and "outerposition" properties in the Ben Abbott <bpabbott@mac.com> parents: 15775 diff changeset	95 ## Place the "*mode" properties as the end to avoid having the updaters
d0579fed7e22 struct2hdl.m: Set the "position" and "outerposition" properties in the Ben Abbott <bpabbott@mac.com> parents: 15775 diff changeset	96 ## change the mode to "manual" when the value is "auto".
15775 a1d1386daeed struct2hdl.m: Set the ".mode" properties last. (Bug # 37645) Ben Abbott <bpabbott@mac.com>* parents: 15011 diff changeset	97 names = fieldnames (s.properties);
a1d1386daeed struct2hdl.m: Set the ".mode" properties last. (Bug # 37645) Ben Abbott <bpabbott@mac.com>* parents: 15011 diff changeset	98 n = strncmp (cellfun (@fliplr, names, "uniformoutput", false), "edom", 4);
a1d1386daeed struct2hdl.m: Set the ".mode" properties last. (Bug # 37645) Ben Abbott <bpabbott@mac.com>* parents: 15011 diff changeset	99 n = (n \| strcmp (names, "activepositionproperty"));
a1d1386daeed struct2hdl.m: Set the ".mode" properties last. (Bug # 37645) Ben Abbott <bpabbott@mac.com>* parents: 15011 diff changeset	100 names = [names(!n); names(n)];
15799 d0579fed7e22 struct2hdl.m: Set the "position" and "outerposition" properties in the Ben Abbott <bpabbott@mac.com> parents: 15775 diff changeset	101 if (strcmp (s.type, "axes"))
d0579fed7e22 struct2hdl.m: Set the "position" and "outerposition" properties in the Ben Abbott <bpabbott@mac.com> parents: 15775 diff changeset	102 n_pos = find (strcmp (names, "position") \| strcmp (names, "outerposition"));
d0579fed7e22 struct2hdl.m: Set the "position" and "outerposition" properties in the Ben Abbott <bpabbott@mac.com> parents: 15775 diff changeset	103 if (strcmp (s.properties.activepositionproperty, "position"))
d0579fed7e22 struct2hdl.m: Set the "position" and "outerposition" properties in the Ben Abbott <bpabbott@mac.com> parents: 15775 diff changeset	104 names{n_pos(1)} = "outerposition";
d0579fed7e22 struct2hdl.m: Set the "position" and "outerposition" properties in the Ben Abbott <bpabbott@mac.com> parents: 15775 diff changeset	105 names{n_pos(2)} = "position";
d0579fed7e22 struct2hdl.m: Set the "position" and "outerposition" properties in the Ben Abbott <bpabbott@mac.com> parents: 15775 diff changeset	106 else
d0579fed7e22 struct2hdl.m: Set the "position" and "outerposition" properties in the Ben Abbott <bpabbott@mac.com> parents: 15775 diff changeset	107 names{n_pos(1)} = "position";
d0579fed7e22 struct2hdl.m: Set the "position" and "outerposition" properties in the Ben Abbott <bpabbott@mac.com> parents: 15775 diff changeset	108 names{n_pos(2)} = "outerposition";
d0579fed7e22 struct2hdl.m: Set the "position" and "outerposition" properties in the Ben Abbott <bpabbott@mac.com> parents: 15775 diff changeset	109 endif
d0579fed7e22 struct2hdl.m: Set the "position" and "outerposition" properties in the Ben Abbott <bpabbott@mac.com> parents: 15775 diff changeset	110 endif
d0579fed7e22 struct2hdl.m: Set the "position" and "outerposition" properties in the Ben Abbott <bpabbott@mac.com> parents: 15775 diff changeset	111 ## Reorder the properties with the mode properties coming last
15775 a1d1386daeed struct2hdl.m: Set the ".mode" properties last. (Bug # 37645) Ben Abbott <bpabbott@mac.com>* parents: 15011 diff changeset	112 s.properties = orderfields (s.properties, names);
a1d1386daeed struct2hdl.m: Set the ".mode" properties last. (Bug # 37645) Ben Abbott <bpabbott@mac.com>* parents: 15011 diff changeset	113
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	114 ## create object
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	115 if (strcmp (s.type, "root"))
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	116 h = 0;
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	117 s.properties = rmfield (s.properties, ...
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	118 {"callbackobject", "commandwindowsize", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	119 "screendepth", "screenpixelsperinch", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	120 "screensize"});
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	121 elseif (strcmp (s.type, "figure"))
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	122 h = figure ();
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	123 elseif (strcmp (s.type, "axes"))
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	124 ## 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	125 ## if hilev is not requested
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	126 if (! hilev)
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	127 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	128 s.properties.tag = "";
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	129 s.properties.userdata = [];
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	130 par = gcf;
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	131 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	132 s.properties.tag = "";
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	133 s.properties.userdata = [];
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	134 par = gcf;
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	135 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	136 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	137
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	138 [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	139 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	140 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	141 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	142 [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	143 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	144 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	145 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	146 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	147 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	148 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	149 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	150 [h, s, p] = createhg (s, p, par, hilev);
15941 8135bce0812a struct2hdl.m: send error when the requested object type is not implemented. Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: 15799 diff changeset	151 else
8135bce0812a struct2hdl.m: send error when the requested object type is not implemented. Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: 15799 diff changeset	152 error ("struct2hdl: %s objects are not implemented yet", s.type)
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	153 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	154
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	155 ## children
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	156 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	157 kids = s.children;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	158 nkids = length (kids);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	159 ii = 0;
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	160 while (nkids)
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	161 ii++;
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	162 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	163 [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	164 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	165 nkids--;
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	166 endwhile
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	167
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	168 ## paste properties
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	169 setprops (s, h, p, hilev);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	170
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	171 pout = p;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	172
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	173 endfunction
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	174
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	175 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	176 ## regular axes
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	177 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	178 propval = {"position", s.properties.position};
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	179 hid = {"autopos_tag", "looseinset"};
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	180 for ii = 1:numel (hid)
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	181 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	182 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	183 val = s.properties.(prop);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	184 propval = [propval, prop, val];
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	185 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	186 endfor
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	187 h = axes (propval{:}, "parent", par);
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 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	190 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	191 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	192 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	193 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	194 if (sum (tst) == numel (plty))
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	195 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	196 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	197 endfor
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	198 for ii = 1:numel (plty)
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	199 set (plty(ii), "__plotyy_axes__", plty);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	200 endfor
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	201 endif
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	202 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	203 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	204
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	205 ## 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	206 fields = fieldnames (s.properties);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	207 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	208 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	209
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	210 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	211 ## legends
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	212 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	213 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	214 newax = p(idx+1);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	215 strings = {};
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	216 kids = s.children;
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	217 kids(s.special) = [];
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	218 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	219 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	220 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	221 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	222 newh(ii) = p(idx);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	223 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	224 str = get (newh(ii), "displayname");
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	225 strings = [strings str];
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	226 else
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	227 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	228 strings = [strings str];
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	229 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	230 else
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	231 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	232 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	233 endfor
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	234 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	235 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	236 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	237 box = s.properties.box;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	238
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	239 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	240 "orientation", orientation);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	241 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	242 # redefine the legend
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	243 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	244 "orientation", orientation);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	245 ## box
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	246 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	247 legend ("boxon");
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	248 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	249
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	250 ## visibility
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	251 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	252 if (! any (tst))
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	253 legend ("hide");
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	254 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	255
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	256 ## 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	257 ## 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	258 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	259 {"userdata", "xlabel",...
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	260 "ylabel", "zlabel", "location", ...
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	261 "title", "string","orientation", ...
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	262 "visible", "textposition"});
14867 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 s.children = [];
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	265
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	266 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	267 ## colorbar
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	268 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	269 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	270 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	271 location = s.properties.location;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	272 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	273 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	274 {"userdata", "xlabel" ...
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	275 "ylabel", "zlabel", ...
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	276 "title", "axes"});
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	277 s.children= [];
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	278 else
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	279 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	280 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	281 endif
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	282 sout = s;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	283 endfunction
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	284
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	285 function h = createline (s, par)
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	286 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	287 addmissingprops (h, s.properties);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	288 endfunction
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	289
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	290 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	291 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	292 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	293 prp.facevertexcdata = s.properties.facevertexcdata;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	294 h = patch (prp);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	295 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	296 s.properties = rmfield (s.properties,
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	297 {"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	298 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	299 sout = s;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	300 endfunction
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	301
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	302 function h = createtext (s, par)
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	303 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	304 addmissingprops (h, s.properties);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	305 endfunction
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	306
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	307 function h = createimage (s, par)
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	308 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	309 addmissingprops (h, s.properties);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	310 endfunction
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	311
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	312 function h = createsurface (s, par)
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	313 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	314 addmissingprops (h, s.properties);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	315 endfunction
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	316
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	317 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	318 ## 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	319 ## an call corresponding high level functions
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	320 ## 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	321 ## 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	322
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	323 hold on;
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	324 if (hilev)
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	325 [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	326 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	327 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	328 "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	329 "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	330 if (isfield (h, "bargroup"))
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	331 delete (get (h).bargroup);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	332 else
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	333 delete (h);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	334 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	335 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	336 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	337 s.special = [];
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	338 else
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	339 oldkids = s.children;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	340 newkids = get (h).children;
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	341 nkids = numel (oldkids);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	342 ii = 1;
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	343 while (nkids)
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	344 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	345 endwhile
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	346 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	347 else
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	348 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	349 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	350 s.special = [];
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	351 endif
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	352 sout = s;
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	353 pout = p;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	354 endfunction
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	355
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	356 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	357 fields = s.properties;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	358 if (isfield (fields, "contourmatrix"))
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	359 ## contours
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	360 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	361 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	362 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	363 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	364 textlist = s.properties.textlist;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	365
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	366 ## contour creation
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	367 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	368 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	369 [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	370 else
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	371 [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	372 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	373
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	374 ## labels
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	375 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	376 clabel (cm2, h, textlist);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	377 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	378 else
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	379 [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	380 endif
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 "contourmatrix", "levellist", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	386 "fill", "labelspacing", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	387 "levellistmode", "levelstep", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	388 "levelstepmode", "textlist"...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	389 "textlistmode" , "textstep", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	390 "textstepmode", "zlevel", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	391 "zlevelmode"});
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	392
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	393 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	394 ## quiver
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	395 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	396 ydata = s.properties.ydata;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	397
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	398 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	399 vdata = s.properties.vdata;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	400
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	401 h = quiver (xdata, ydata, udata, vdata);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	402
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	403 ## 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	404 s.properties = rmfield (s.properties, ...
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	405 {"xdata", "ydata", "zdata", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	406 "xdatasource", "ydatasource", "zdatasource", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	407 "udata", "vdata", "wdata", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	408 "udatasource", "vdatasource", "wdatasource"});
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	409
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	410 elseif (isfield (fields, "format"))
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	411 ##errorbar
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	412 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	413 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	414 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	415 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	416 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	417 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	418 udata = s.properties.udata;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	419
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	420 switch form
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	421 case "xerr"
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	422 h = errorbar (xdata, ydata, xldata, xudata, ">");
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	423 case "yerr"
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	424 h = errorbar (xdata, ydata, ldata, udata, "~");
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	425 case "xyerr"
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	426 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	427 case "box"
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	428 h = errorbar (xdata, ydata, xldata, xudata, "#");
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	429 case "boxy"
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	430 h = errorbar (xdata, ydata, ldata, udata, "#~");
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	431 case "boxxy"
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	432 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	433 otherwise
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	434 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	435 endswitch
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	436 ## 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	437 s.properties = rmfield (s.properties, ...
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	438 {"xdata", "ydata", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	439 "xldata", "ldata", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	440 "xudata", "udata", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	441 "xldatasource", "ldatasource", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	442 "xudatasource", "udatasource", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	443 "format"});
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	444
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	445 elseif (isfield (fields, "bargroup"))
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	446 ## bar plot
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	447 ## 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	448 ## 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	449 ## and rebuild the whole bargroup.
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	450 ## 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	451
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	452 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	453 oldh = s.handle;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	454
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	455 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	456 tst = sum (temp) == length (bargroup);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	457
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	458 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	459 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	460 ydata = s.properties.ydata;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	461
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	462 h = bar (xdata, ydata);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	463
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	464 ## 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	465 s.properties = rmfield (s.properties, ...
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	466 {"xdata", "ydata", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	467 "xdatasource", "ydatasource", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	468 "bargroup", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	469 "barwidth", "baseline"});
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	470 else
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	471 xdata = [];
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	472 ydata = [];
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	473
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	474 ##build x/y matrix
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	475 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	476 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	477 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	478 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	479 hdl = p (idx);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	480 xdata = [xdata get(hdl).xdata];
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	481 ydata = [ydata get(hdl).ydata];
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	482 tmp.children(ii) = hdl2struct (hdl);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	483 endfor
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	484
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	485 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	486 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	487 width = s.properties.barwidth;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	488 h = bar (ydata, width);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	489
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	490 ## 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	491 for ii = 1:(nbar - 1)
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	492 props = tmp.children(ii).properties;
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	493 bl = props.baseline;
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	494 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	495 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	496 delete (tmp.children(ii).handle);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	497 delete (bl);
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	498 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	499 p(idxpar) = h(ii);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	500 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	501 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	502 endfor
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	503 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	504 h = h(end);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	505
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	506 ## 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	507 s.properties = rmfield (s.properties, ...
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	508 {"xdata", "ydata", "bargroup"...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	509 "barwidth", "baseline"});
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	510 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	511 elseif (isfield (fields, "baseline"))
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	512 ## stem plot
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	513 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	514 ydata = s.properties.ydata;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	515
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	516 h = stem (xdata, ydata);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	517
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	518 ## 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	519 s.properties = rmfield (s.properties, ...
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	520 {"xdata", "ydata", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	521 "xdatasource", "ydatasource", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	522 "baseline"});
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	523 elseif (isfield (fields, "basevalue"))
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	524 ## area plot
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	525 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	526 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	527 level = s.properties.basevalue;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	528
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	529 h = area (xdata, ydata, level);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	530
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	531 ## 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	532 s.properties = rmfield (s.properties, ...
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	533 {"xdata", "ydata", ...
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	534 "xdatasource", "ydatasource"});
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	535 else
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	536 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	537 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	538 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	539 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	540 endif
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	541 sout = s;
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	542 pout = p;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	543 endfunction
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	544
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	545 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	546 more off;
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	547 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	548 specs = s.children(s.special);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	549 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	550 nh = length (hdls);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	551 msg = "";
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	552 if (! nh)
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	553 set (h, s.properties);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	554 else
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	555 ## 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	556 ## 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	557 ## 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	558 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	559 vals = struct2cell (s.properties);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	560 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	561 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	562
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	563 ## 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	564 set (h, s.properties);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	565
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	566 ## 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	567 nf = length (idx);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	568 fields = fields(idx);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	569 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	570 while (nf)
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	571 field = fields{nf};
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	572 idx = find (hdls == vals{nf});
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	573 spec = specs(idx);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	574 if (isprop (h, field))
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	575 h2 = get (h , field);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	576 set (h2, spec.properties);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	577 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	578 nf--;
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	579 endwhile
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	580
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	581 ## 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	582 ## copy only usefull properties.
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	583 if (hilev)
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	584 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	585 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	586 nnew = numel (get (h).children);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	587
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	588 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	589 hnew = get (h).children;
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	590 ii = 1;
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	591 while (ii <= nnew)
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	592 try
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	593 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	594 s.children(ii).properties.displayname);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	595 catch
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	596 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	597 end_try_catch
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	598 ii ++;
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	599 endwhile
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	600
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	601 else
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	602 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	603 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	604 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	605 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	606 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	607
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	608 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	609 \|\| 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	610 set (h, s.properties);
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	611 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	612
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	613 endfunction
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	614
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	615 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	616 if (isfloat (x) && isscalar (x))
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	617 out = any (x == hdls);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	618 else
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	619 out = 0;
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	620 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	621 endfunction
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	622
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	623 function addmissingprops (h, props)
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	624 hid = {"autopos_tag", "looseinset"};
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	625 oldfields = fieldnames (props);
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	626 curfields = fieldnames (get (h));
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	627 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	628 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	629 for ii = 1:length (idx)
14867 97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	630 prop = oldfields{idx(ii)};
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	631 if (! any (strcmp (prop, hid)))
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	632 addproperty (prop, h, "any");
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	633 endif
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	634 endfor
97ce18b62d0f New Functions; copyobj.m, hdl2struct.m, struct2hdl.m Pantxo Diribarne <pantxo.diribarne@gmail.com> parents: diff changeset	635 endfunction
15011 f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	636
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	637
f34bea431e4f maint: Use Octave coding standards for copyobj.m, hdl2struct.m, struct2hdl.m. Rik <rik@octave.org> parents: 15007 diff changeset	638 ## FIXME: Need validation tests