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

annotate scripts/plot/struct2hdl.m @ 16950:b34202b24212

fplot.m: Overhaul function for Matlab compatibility and performance (bug #38961). * scripts/plot/fplot.m: Add ability to specify n,tol,fmt in any order and simultaneously. Return data rather than plotting it if asked. Use additional test on progress of algorithm to decide whether to quit. Add %!demo and %!tests.

author	Rik <rik@octave.org>
date	Thu, 11 Jul 2013 09:25:54 -0700
parents	e39f00a32dc7
children	eaab03308c0b

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
16933 e39f00a32dc7 maint: Use parentheses around condition for switch(),while(),if() statements. Rik <rik@octave.org> parents: 15941 diff changeset	420 switch (form)
14867 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