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

annotate scripts/plot/struct2hdl.m @ 15007:8f0e3c5bfa5f

doc: Periodic grammarcheck of documentation * fileattrib.m, glpk.m, axis.m, copyobj.m, gco.m, hdl2struct.m, struct2hdl.m, eigs.cc, variables.cc: Periodic grammarcheck of documentation

author	Rik <rik@octave.org>
date	Tue, 24 Jul 2012 09:34:51 -0700
parents	97ce18b62d0f
children	f34bea431e4f

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