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

annotate scripts/plot/legend.m @ 10989:6ea65c5de87a

Respect the units and paperunits figure properties and the units and fontunits axes properties

author	David Bateman <dbateman@free.fr>
date	Thu, 16 Sep 2010 23:13:22 +0200
parents	848f3a13b7cf
children	529b36293297

rev	line source
10989 6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	1 ## Copyright (C) 2010 David Bateman
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	2 ##
6440 98ee80702bca [project @ 2007-03-23 15:13:19 by jwe] jwe parents: 6395 diff changeset	3 ## This file is part of Octave.
98ee80702bca [project @ 2007-03-23 15:13:19 by jwe] jwe parents: 6395 diff changeset	4 ##
98ee80702bca [project @ 2007-03-23 15:13:19 by jwe] jwe parents: 6395 diff changeset	5 ## Octave is free software; you can redistribute it and/or modify it
98ee80702bca [project @ 2007-03-23 15:13:19 by jwe] jwe parents: 6395 diff changeset	6 ## under the terms of the GNU General Public License as published by
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 7001 diff changeset	7 ## the Free Software Foundation; either version 3 of the License, or (at
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 7001 diff changeset	8 ## your option) any later version.
6440 98ee80702bca [project @ 2007-03-23 15:13:19 by jwe] jwe parents: 6395 diff changeset	9 ##
98ee80702bca [project @ 2007-03-23 15:13:19 by jwe] jwe parents: 6395 diff changeset	10 ## Octave is distributed in the hope that it will be useful, but
98ee80702bca [project @ 2007-03-23 15:13:19 by jwe] jwe parents: 6395 diff changeset	11 ## WITHOUT ANY WARRANTY; without even the implied warranty of
98ee80702bca [project @ 2007-03-23 15:13:19 by jwe] jwe parents: 6395 diff changeset	12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
98ee80702bca [project @ 2007-03-23 15:13:19 by jwe] jwe parents: 6395 diff changeset	13 ## General Public License for more details.
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	14 ##
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	15 ## You should have received a copy of the GNU General Public License
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 7001 diff changeset	16 ## along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 7001 diff changeset	17 ## <http://www.gnu.org/licenses/>.
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	18
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	19 ## -- texinfo --
10666 7a43499f074a legend.m: Improve documentation string Rik <octave@nomad.inbox5.com> parents: 10662 diff changeset	20 ## @deftypefn {Function File} {} legend (@var{str1}, @var{str2}, @dots{})
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	21 ## @deftypefnx {Function File} {} legend (@var{matstr})
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	22 ## @deftypefnx {Function File} {} legend (@var{cell})
10666 7a43499f074a legend.m: Improve documentation string Rik <octave@nomad.inbox5.com> parents: 10662 diff changeset	23 ## @deftypefnx {Function File} {} legend (@dots{}, "location", @var{pos})
10989 6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	24 ## @deftypefnx {Function File} {} legend (@dots{}, "orientation", @var{orient})
10662 3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	25 ## @deftypefnx {Function File} {} legend (@var{hax}, @dots{})
3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	26 ## @deftypefnx {Function File} {} legend (@var{hobjs}, @dots{})
3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	27 ## @deftypefnx {Function File} {} legend (@var{hax}, @var{hobjs}, @dots{})
10666 7a43499f074a legend.m: Improve documentation string Rik <octave@nomad.inbox5.com> parents: 10662 diff changeset	28 ## @deftypefnx {Function File} {} legend ("@var{option}")
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	29 ##
10662 3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	30 ## Display a legend for the axes with handle @var{hax}, or the current axes,
3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	31 ## using the specified strings as labels. Legend entries may be specified
3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	32 ## as individual character string arguments, a character array, or a cell
10666 7a43499f074a legend.m: Improve documentation string Rik <octave@nomad.inbox5.com> parents: 10662 diff changeset	33 ## array of character strings. If the handles, @var{hobjs}, are not specified
7a43499f074a legend.m: Improve documentation string Rik <octave@nomad.inbox5.com> parents: 10662 diff changeset	34 ## then the legend's strings will be associated with the axes' descendants.
10662 3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	35 ## Legend works on line graphs, bar graphs, etc.
3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	36 ## A plot must exist before legend is called.
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	37 ##
6895 76e3d985ae56 [project @ 2007-09-13 18:22:38 by jwe] jwe parents: 6740 diff changeset	38 ## The optional parameter @var{pos} specifies the location of the legend
76e3d985ae56 [project @ 2007-09-13 18:22:38 by jwe] jwe parents: 6740 diff changeset	39 ## as follows:
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	40 ##
6977 e78e31f0a236 [project @ 2007-10-08 19:09:32 by jwe] jwe parents: 6895 diff changeset	41 ## @multitable @columnfractions 0.06 0.14 0.80
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10666 diff changeset	42 ##
6977 e78e31f0a236 [project @ 2007-10-08 19:09:32 by jwe] jwe parents: 6895 diff changeset	43 ## @item @tab north @tab
e78e31f0a236 [project @ 2007-10-08 19:09:32 by jwe] jwe parents: 6895 diff changeset	44 ## center top
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10666 diff changeset	45 ##
6977 e78e31f0a236 [project @ 2007-10-08 19:09:32 by jwe] jwe parents: 6895 diff changeset	46 ## @item @tab south @tab
e78e31f0a236 [project @ 2007-10-08 19:09:32 by jwe] jwe parents: 6895 diff changeset	47 ## center bottom
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10666 diff changeset	48 ##
6977 e78e31f0a236 [project @ 2007-10-08 19:09:32 by jwe] jwe parents: 6895 diff changeset	49 ## @item @tab east @tab
e78e31f0a236 [project @ 2007-10-08 19:09:32 by jwe] jwe parents: 6895 diff changeset	50 ## right center
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10666 diff changeset	51 ##
6977 e78e31f0a236 [project @ 2007-10-08 19:09:32 by jwe] jwe parents: 6895 diff changeset	52 ## @item @tab west @tab
e78e31f0a236 [project @ 2007-10-08 19:09:32 by jwe] jwe parents: 6895 diff changeset	53 ## left center
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10666 diff changeset	54 ##
6977 e78e31f0a236 [project @ 2007-10-08 19:09:32 by jwe] jwe parents: 6895 diff changeset	55 ## @item @tab northeast @tab
e78e31f0a236 [project @ 2007-10-08 19:09:32 by jwe] jwe parents: 6895 diff changeset	56 ## right top (default)
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10666 diff changeset	57 ##
6977 e78e31f0a236 [project @ 2007-10-08 19:09:32 by jwe] jwe parents: 6895 diff changeset	58 ## @item @tab northwest @tab
e78e31f0a236 [project @ 2007-10-08 19:09:32 by jwe] jwe parents: 6895 diff changeset	59 ## left top
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10666 diff changeset	60 ##
6977 e78e31f0a236 [project @ 2007-10-08 19:09:32 by jwe] jwe parents: 6895 diff changeset	61 ## @item @tab southeast @tab
e78e31f0a236 [project @ 2007-10-08 19:09:32 by jwe] jwe parents: 6895 diff changeset	62 ## right bottom
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10666 diff changeset	63 ##
6977 e78e31f0a236 [project @ 2007-10-08 19:09:32 by jwe] jwe parents: 6895 diff changeset	64 ## @item @tab southwest @tab
e78e31f0a236 [project @ 2007-10-08 19:09:32 by jwe] jwe parents: 6895 diff changeset	65 ## left bottom
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10666 diff changeset	66 ##
6977 e78e31f0a236 [project @ 2007-10-08 19:09:32 by jwe] jwe parents: 6895 diff changeset	67 ## @item
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10666 diff changeset	68 ##
6977 e78e31f0a236 [project @ 2007-10-08 19:09:32 by jwe] jwe parents: 6895 diff changeset	69 ## @item @tab outside @tab
e78e31f0a236 [project @ 2007-10-08 19:09:32 by jwe] jwe parents: 6895 diff changeset	70 ## can be appended to any location string
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	71 ## @end multitable
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	72 ##
10989 6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	73 ## The optional parameter @var{orient} determines if the key elements
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	74 ## are placed vertically or horizontally. The allowed values are "vertical"
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	75 ## or "horizontal" with the default being "vertical".
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	76 ##
10666 7a43499f074a legend.m: Improve documentation string Rik <octave@nomad.inbox5.com> parents: 10662 diff changeset	77 ## The following customizations are available using @var{option}:
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	78 ##
7148 735086cfd405 [project @ 2007-11-09 18:01:44 by jwe] jwe parents: 7054 diff changeset	79 ## @table @asis
6895 76e3d985ae56 [project @ 2007-09-13 18:22:38 by jwe] jwe parents: 6740 diff changeset	80 ## @item "show"
10666 7a43499f074a legend.m: Improve documentation string Rik <octave@nomad.inbox5.com> parents: 10662 diff changeset	81 ## Show legend on the plot
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10666 diff changeset	82 ##
6895 76e3d985ae56 [project @ 2007-09-13 18:22:38 by jwe] jwe parents: 6740 diff changeset	83 ## @item "hide"
7148 735086cfd405 [project @ 2007-11-09 18:01:44 by jwe] jwe parents: 7054 diff changeset	84 ## @itemx "off"
10666 7a43499f074a legend.m: Improve documentation string Rik <octave@nomad.inbox5.com> parents: 10662 diff changeset	85 ## Hide legend on the plot
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10666 diff changeset	86 ##
6895 76e3d985ae56 [project @ 2007-09-13 18:22:38 by jwe] jwe parents: 6740 diff changeset	87 ## @item "boxon"
10666 7a43499f074a legend.m: Improve documentation string Rik <octave@nomad.inbox5.com> parents: 10662 diff changeset	88 ## Show a box around legend
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10666 diff changeset	89 ##
6895 76e3d985ae56 [project @ 2007-09-13 18:22:38 by jwe] jwe parents: 6740 diff changeset	90 ## @item "boxoff"
10666 7a43499f074a legend.m: Improve documentation string Rik <octave@nomad.inbox5.com> parents: 10662 diff changeset	91 ## Hide the box around legend
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10666 diff changeset	92 ##
6895 76e3d985ae56 [project @ 2007-09-13 18:22:38 by jwe] jwe parents: 6740 diff changeset	93 ## @item "left"
10666 7a43499f074a legend.m: Improve documentation string Rik <octave@nomad.inbox5.com> parents: 10662 diff changeset	94 ## Place text to the left of the keys
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10666 diff changeset	95 ##
6895 76e3d985ae56 [project @ 2007-09-13 18:22:38 by jwe] jwe parents: 6740 diff changeset	96 ## @item "right"
10666 7a43499f074a legend.m: Improve documentation string Rik <octave@nomad.inbox5.com> parents: 10662 diff changeset	97 ## Place text to the right of the keys
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	98 ## @end table
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	99 ## @end deftypefn
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	100
10989 6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	101 function [hlegend2, hobjects2, hplot2, text_strings2] = legend (varargin)
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	102
10989 6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	103 [ca, varargin, nargs] = __plt_get_axis_arg__ (true, "legend", varargin{:});
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	104 if (isnan (ca))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	105 fig = get (0, "currentfigure");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	106 if (isempty (fig))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	107 ca = gca ();
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	108 fig = get (ca, "parent");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	109 else
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	110 ca = get (fig, "children");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	111 ca ( ! strcmp (get (get (fig, "children"), "type"), "axes")) = [];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	112 ca_pos = get (get (fig, "currentaxes"), "position");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	113 ca_outpos = get (get (fig, "currentaxes"), "outerposition");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	114 for i = numel (ca) : -1 : 1
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	115 if (! all (ca_pos, get (ca(i), "position") )
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	116 \|\| ! all (ca_outpos, get (ca(i), "outerposition")))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	117 ca(i) = [];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	118 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	119 endfor
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	120 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	121 else
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	122 fig = get (ca, "parent");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	123 endif
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	124
10662 3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	125 if (all (ishandle (varargin{1})))
3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	126 kids = flipud (varargin{1}(:));
3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	127 varargin(1) = [];
3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	128 nargs = numel (varargin);
3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	129 else
10989 6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	130 kids = get (fig, "children");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	131 kids (strcmp (get (kids, "tag"), "legend")) = [];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	132 if (isscalar (kids))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	133 kids = get(kids, "children")(:);
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	134 else
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	135 kids = [get(kids, "children"){:}](:);
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	136 endif
10662 3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	137 endif
3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	138 nkids = numel (kids);
3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	139
10989 6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	140 position = "northeast";
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	141 orientation = "vertical";
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	142 if (nargs > 0)
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	143 pos = varargin{nargs};
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	144 if (isnumeric (pos) && isscalar (pos) && round (pos) == pos)
6395 a8dd70bacc1e [project @ 2007-03-07 22:22:12 by jwe] jwe parents: 6272 diff changeset	145 if (pos >= -1 && pos <= 4)
10989 6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	146 position = {"northeastoutside", "best", "northeast",
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	147 "northwest", "southwest", "southeast"} (pos + 2);
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	148 nargs--;
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	149 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	150 error ("legend: invalid position specified");
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	151 endif
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	152 endif
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	153 endif
6977 e78e31f0a236 [project @ 2007-10-08 19:09:32 by jwe] jwe parents: 6895 diff changeset	154
10989 6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	155 while (nargs > 1)
6977 e78e31f0a236 [project @ 2007-10-08 19:09:32 by jwe] jwe parents: 6895 diff changeset	156 pos = varargin{nargs-1};
7054 1c5b2b5b58ba [project @ 2007-10-23 23:22:16 by jwe] jwe parents: 7017 diff changeset	157 str = varargin{nargs};
6977 e78e31f0a236 [project @ 2007-10-08 19:09:32 by jwe] jwe parents: 6895 diff changeset	158 if (strcmpi (pos, "location") && ischar (str))
10989 6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	159 position = lower (str);
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	160 nargs -= 2;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	161 elseif (strcmpi (pos, "orientation") && ischar (str))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	162 orientation = lower (str);
10948 6b50fd2d4ca6 Don't create __plotyy_axes__ properties in plotyy if they exist (Bug #30977) David Bateman <dbateman@free.fr> parents: 10821 diff changeset	163 nargs -= 2;
10989 6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	164 else
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	165 break;
6977 e78e31f0a236 [project @ 2007-10-08 19:09:32 by jwe] jwe parents: 6895 diff changeset	166 endif
10989 6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	167 endwhile
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	168
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	169 ## Validate the orientation
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	170 switch (orientation)
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	171 case {"vertical", "horizontal"}
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	172 otherwise
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	173 error ("legend: unrecognized legend orientation");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	174 endswitch
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	175
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	176 ## Validate the position type is valid
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	177 outside = false;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	178 inout = findstr (position, "outside");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	179 if (! isempty (inout))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	180 outside = true;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	181 position = position(1:inout-1);
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	182 else
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	183 outside = false;
6977 e78e31f0a236 [project @ 2007-10-08 19:09:32 by jwe] jwe parents: 6895 diff changeset	184 endif
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	185
10989 6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	186 switch (position)
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	187 case {"north", "south", "east", "west", "northeast", "northwest", ...
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	188 "southeast", "southwest"}
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	189 case "best"
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	190 warning ("legend: 'Best' not yet implemented for location specifier\n");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	191 position = "northeast";
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	192 otherwise
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	193 error ("legend: unrecognized legend position");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	194 endswitch
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	195
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	196 show = "create";
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	197 textpos = "default";
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	198 reverse = false;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	199 box = "default";
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	200
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	201 hlegend = [];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	202 fkids = get (fig, "children");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	203 for i = 1 : numel(fkids)
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	204 if (ishandle (fkids (i)) && strcmp (get (fkids (i), "type"), "axes")
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	205 && (strcmp (get (fkids (i), "tag"), "legend")))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	206 udata = get (fkids (i), "userdata");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	207 if (! isempty (intersect (udata.handle, ca)))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	208 hlegend = fkids (i);
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	209 break;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	210 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	211 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	212 endfor
6257 44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 6163 diff changeset	213
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	214 if (nargs == 1)
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	215 arg = varargin{1};
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	216 if (ischar (arg))
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	217 if (rows (arg) == 1)
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	218 str = tolower (deblank (arg));
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	219 switch (str)
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	220 case {"off", "hide"}
10989 6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	221 show = "off";
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	222 nargs--;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	223 case "show"
10989 6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	224 show = "on";
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	225 nargs--;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	226 case "toggle"
10989 6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	227 if (isempty (hlegend) \|\| strcmp (get (hlegend, "visible"), "off"))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	228 show = "on";
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	229 else
10989 6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	230 show = "off";
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	231 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	232 nargs--;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	233 case "boxon"
10989 6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	234 box = "on";
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	235 nargs--;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	236 case "boxoff"
10989 6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	237 box = "off";
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	238 nargs--;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	239 case "left"
10989 6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	240 textpos = "left";
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	241 reverse = false;
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	242 nargs--;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	243 case "right"
10989 6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	244 textpos = "right";
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	245 reverse = true;
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	246 nargs--;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	247 otherwise
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	248 endswitch
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	249 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	250 varargin = cellstr (arg);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	251 nargs = numel (varargin);
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	252 endif
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	253 elseif (iscellstr (arg))
8529 774b44619c5c Fix legend order for both horizontal and vertical string cell. Daniel J Sebald <daniel.sebald@ieee.org> parents: 8343 diff changeset	254 varargin = arg;
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	255 nargs = numel (varargin);
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	256 else
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	257 error ("legend: expecting argument to be a character string");
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	258 endif
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	259 endif
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	260
10989 6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	261 if (strcmp (show, "off"))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	262 if (! isempty (hlegend))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	263 set (hlegend, "visible", "off");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	264 set (get (hlegend, "children"), "visible", "off");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	265 hlegend = [];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	266 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	267 hobjects = [];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	268 hplots = [];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	269 text_strings = {};
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	270 elseif (strcmp (show, "on"))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	271 if (! isempty (hlegend))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	272 set (hlegend, "visible", "on");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	273 set (get (hlegend, "children"), "visible", "on");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	274 else
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	275 hobjects = [];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	276 hplots = [];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	277 text_strings = {};
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	278 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	279 elseif (strcmp (box, "on"))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	280 if (! isempty (hlegend))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	281 set (hlegend, "visible", "on", "box", "on");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	282 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	283 elseif (strcmp (box, "off"))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	284 if (! isempty (hlegend))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	285 set (hlegend, "box", "off", "visible", "off");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	286 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	287 else
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	288 hobjects = [];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	289 hplots = [];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	290 text_strings = {};
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	291
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	292 if (nargs > 0)
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	293 have_data = false;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	294 for k = 1:nkids
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	295 typ = get (kids(k), "type");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	296 if (strcmp (typ, "line") \|\| strcmp (typ, "surface")
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	297 \|\| strcmp (typ, "patch") \|\| strcmp (typ, "hggroup"))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	298 have_data = true;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	299 break;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	300 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	301 endfor
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	302
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	303 if (! have_data)
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	304 warning ("legend: plot data is empty; setting key labels has no effect");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	305 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	306 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	307
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	308 if (strcmp (textpos, "default"))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	309 warned = false;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	310 k = nkids;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	311 for i = 1 : nargs
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	312 arg = varargin{i};
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	313 if (ischar (arg))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	314 typ = get (kids(k), "type");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	315 while (k > 0
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	316 && ! (strcmp (typ, "line") \|\| strcmp (typ, "surface")
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	317 \|\| strcmp (typ, "patch") \|\| strcmp (typ, "hggroup")))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	318 typ = get (kids(--k), "type");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	319 endwhile
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	320 if (k > 0)
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	321 if (strcmp (get (kids(k), "type"), "hggroup"))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	322 hgkids = get (kids(k), "children");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	323 for j = 1 : length (hgkids)
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	324 hgobj = get (hgkids (j));
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	325 if (isfield (hgobj, "displayname"))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	326 set (hgkids(j), "displayname", arg);
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	327 hplots = [hplots, hgkids(j)];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	328 text_strings = {text_strings{:}, arg};
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	329 break;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	330 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	331 endfor
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	332 else
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	333 set (kids(k), "displayname", arg);
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	334 hplots = [hplots, kids(k)];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	335 text_strings = {text_strings{:}, arg};
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	336 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	337
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	338 if (--k == 0)
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	339 break;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	340 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	341 elseif (! warned)
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	342 warned = true;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	343 warning ("legend: ignoring extra labels");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	344 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	345 else
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	346 error ("legend: expecting argument to be a character string");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	347 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	348 endfor
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	349 else
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	350 k = nkids;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	351 while (k > 0)
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	352 typ = get (kids(k), "type");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	353 while (k > 0
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	354 && ! (strcmp (typ, "line") \|\| strcmp (typ, "surface")
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	355 \|\| strcmp (typ, "patch") \|\| strcmp (typ, "hggroup")))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	356 typ = get (kids(--k), "type");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	357 endwhile
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	358 if (k > 0)
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	359 if (strcmp (get (kids(k), "type"), "hggroup"))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	360 hgkids = get (kids(k), "children");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	361 for j = 1 : length (hgkids)
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	362 hgobj = get (hgkids (j));
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	363 if (isfield (hgobj, "displayname")
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	364 && ! isempty (hgobj.displayname))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	365 hplots = [hplots, hgkids(j)];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	366 text_strings = {text_strings{:}, hbobj.displayname};
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	367 break;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	368 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	369 endfor
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	370 else
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	371 if (! isempty (get (kids (k), "displayname")))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	372 hplots = [hplots, kids(k)];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	373 text_strings = {text_strings{:}, get(kids (k), "displayname")};
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	374 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	375 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	376 if (--k == 0)
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	377 break;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	378 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	379 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	380 endwhile
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	381 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	382
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	383 if (isempty (hplots))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	384 if (! isempty (hlegend))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	385 fkids = get (fig, "children");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	386 delete (fkids (fkids == hlegend));
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	387 hlegend = [];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	388 hobjects = [];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	389 hplots = [];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	390 text_strings = {};
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	391 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	392 else
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	393 ## Delete the old legend if it exists
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	394 if (! isempty (hlegend))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	395 fkids = get (fig, "children");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	396 delete (fkids (fkids == hlegend));
6272 a1f3d3b7ee5c [project @ 2007-02-06 02:09:48 by jwe] jwe parents: 6257 diff changeset	397 endif
10989 6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	398
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	399 ## Force the figure to be drawn here, so that the figure position
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	400 ## is updated correctly before reading it
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	401 drawnow ();
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	402
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	403 ## Get axis size and fontsize in points.
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	404 ## Rely on listener to handle coversion.
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	405 units = get (ca(1), "units");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	406 fontunits = get (ca(1), "fontunits");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	407 unwind_protect
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	408 set (ca(1), "units", "points");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	409 set (ca(1), "fontunits", "points");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	410 ca_pos = get (ca(1), "position");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	411 ca_outpos = get (ca(1), "outerposition");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	412 ca_fontsize = get (ca(1), "fontsize");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	413 unwind_protect_cleanup
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	414 set (ca(1), "units", units);
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	415 set (ca(1), "fontunits", fontunits);
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	416 end_unwind_protect
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	417
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	418 ## Padding between legend entries horizontally and vertically
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	419 xpad = 2;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	420 ypad = 2;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	421
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	422 ## Length of line segments in the legend in points
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	423 linelength = 15;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	424
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	425 ## Create the axis first
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	426 ## FIXME hlegend should inherit properties from "ca"
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	427 curaxes = get (fig, "currentaxes");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	428 unwind_protect
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	429 hlegend = axes ("tag", "legend", "userdata", struct ("handle", ca),
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	430 "box", "off", "outerposition", [0, 0, 0, 0],
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	431 "xtick", [], "ytick", [], "xticklabel", "",
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	432 "yticklabel", "", "zticklabel", "",
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	433 "xlim", [0, 1], "ylim", [0, 1], "visible", "off",
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	434 "activepositionproperty", "position");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	435
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	436 ## Add text label to the axis first, checking their extents
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	437 nentries = numel (hplots);
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	438 texthandle = [];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	439 maxwidth = 0;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	440 maxheight = 0;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	441 for k = 1 : nentries
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	442 if (reverse)
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	443 texthandle = [texthandle, text(0, 0, text_strings {k},
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	444 "horizontalalignment", "left")];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	445 else
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	446 texthandle = [texthandle, text(0, 0, text_strings {k},
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	447 "horizontalalignment", "right")];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	448 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	449 units = get (texthandle (end), "units");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	450 unwind_protect
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	451 set (texthandle (end), "units", "points");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	452 extents = get (texthandle (end), "extent");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	453 ## FIXME fudge for gnuplot as the text extents are calculated from
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	454 ## the FreeType text render rather than from gnuplot itself. Your
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	455 ## luck will vary depending on the terminals that are used.
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	456 if (strcmp (get (fig, "__backend__"), "gnuplot"))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	457 extents = [0,0,1,0] + [1,1,1.22,1] .* extents;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	458 linelength = 20;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	459 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	460 maxwidth = max (maxwidth, extents (3));
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	461 maxheight = max (maxheight, extents (4));
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	462 unwind_protect_cleanup
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	463 set (texthandle (end), "units", units);
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	464 end_unwind_protect
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	465 endfor
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	466
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	467 num1 = nentries;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	468 if (strcmp (orientation, "vertical"))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	469 height = nentries * (ypad + maxheight);
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	470 if (outside)
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	471 if (height > ca_pos (4))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	472 ## Avoid shrinking the height of the axis to zero if outside
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	473 num1 = ca_pos(4) / (maxheight + ypad) / 2;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	474 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	475 else
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	476 if (height > 0.9 * ca_pos (4))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	477 num1 = 0.9 * ca_pos(4) / (maxheight + ypad);
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	478 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	479 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	480 else
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	481 width = nentries * (ypad + maxwidth);
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	482 if (outside)
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	483 if (width > ca_pos (3))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	484 ## Avoid shrinking the width of the axis to zero if outside
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	485 num1 = ca_pos(3) / (maxwidth + ypad) / 2;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	486 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	487 else
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	488 if (width > 0.9 * ca_pos (3))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	489 num1 = 0.9 * ca_pos(3) / (maxwidth + ypad);
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	490 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	491 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	492 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	493 num2 = ceil (nentries / num1);
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	494
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	495 xstep = 3 * xpad + (maxwidth + linelength);
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	496 if (reverse)
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	497 xoffset = xpad;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	498 txoffset = 2 * xpad + linelength;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	499 else
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	500 xoffset = 2 * xpad + maxwidth;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	501 txoffset = xpad + maxwidth;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	502 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	503 ystep = (ypad + maxheight);
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	504 yoffset = ystep / 2;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	505
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	506 ## Place the legend in the desired position
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	507 if (strcmp (orientation, "vertical"))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	508 lpos = [0, 0, num2 * xstep, num1 * ystep];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	509 else
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	510 lpos = [0, 0, num1 * xstep, num2 * ystep];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	511 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	512 switch(position)
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	513 case "north"
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	514 if (outside)
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	515 lpos = [ca_pos(1) + (ca_pos(3) - lpos(3)) / 2, ...
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	516 ca_outpos(2) + ca_outpos(4) - lpos(4), lpos(3), lpos(4)];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	517
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	518 new_pos = [ca_pos(1), ca_pos(2), ca_pos(3), ca_pos(4) - lpos(4)];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	519 new_outpos = [ca_outpos(1), ca_outpos(2), ca_outpos(3), ...
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	520 ca_outpos(4) - lpos(4)];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	521 else
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	522 ca_pos
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	523 lpos = [ca_pos(1) + (ca_pos(3) - lpos(3)) / 2, ...
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	524 ca_pos(2) + ca_pos(4) - lpos(4) - ypad, lpos(3), lpos(4)];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	525 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	526 case "south"
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	527 if (outside)
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	528 lpos = [ca_pos(1) + (ca_pos(3) - lpos(3)) / 2, ca_outpos(2), ...
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	529 lpos(3), lpos(4)];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	530 new_pos = [ca_pos(1), ca_pos(2) + lpos(4), ca_pos(3), ...
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	531 ca_pos(4) - lpos(4)];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	532 new_outpos = [ca_outpos(1), ca_outpos(2) + lpos(4), ...
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	533 ca_outpos(3), ca_outpos(4) - lpos(4)];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	534 else
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	535 lpos = [ca_pos(1) + (ca_pos(3) - lpos(3)) / 2, ...
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	536 ca_pos(2) + ypad, lpos(3), lpos(4)];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	537 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	538 case "east"
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	539 if (outside)
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	540 lpos = [ca_outpos(1) + ca_outpos(3) - lpos(3), ...
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	541 ca_pos(2) + (ca_pos(4) - lpos(4)) / 2, lpos(3), lpos(4)];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	542 new_pos = [ca_pos(1), ca_pos(2), ca_pos(3) - lpos(3), ca_pos(4)];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	543 new_outpos = [ca_outpos(1), ca_outpos(2), ...
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	544 ca_outpos(3) - lpos(3), ca_outpos(4)];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	545 else
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	546 lpos = [ca_pos(1) + ca_pos(3) - lpos(3) - ypad, ...
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	547 ca_pos(2) + (ca_pos(4) - lpos(4)) / 2, lpos(3), lpos(4)];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	548 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	549 case "west"
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	550 if (outside)
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	551 lpos = [ca_outpos(1), ca_pos(2) + (ca_pos(4) - lpos(4)) / 2, ...
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	552 lpos(3), lpos(4)];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	553 new_pos = [ca_pos(1) + lpos(3), ca_pos(2), ...
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	554 ca_pos(3) - lpos(3), ca_pos(4)];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	555 new_outpos = [ca_outpos(1) + lpos(3), ca_outpos(2), ...
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	556 ca_outpos(3) - lpos(3), ca_outpos(4)];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	557 else
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	558 lpos = [ca_pos(1) + ypad, ...
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	559 ca_pos(2) + (ca_pos(4) - lpos(4)) / 2, lpos(3), lpos(4)];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	560 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	561 case "northeast"
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	562 if (outside)
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	563 lpos = [ca_outpos(1) + ca_outpos(3) - lpos(3), ...
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	564 ca_outpos(2) + ca_outpos(4) - lpos(4), lpos(3), lpos(4)];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	565 new_pos = [ca_pos(1), ca_pos(2), ca_pos(3) - lpos(3), ...
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	566 ca_pos(4) - lpos(4)];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	567 new_outpos = [ca_outpos(1), ca_outpos(2), ...
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	568 ca_outpos(3) - lpos(3), ca_outpos(4) - lpos(4)];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	569 else
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	570 lpos = [ca_pos(1) + ca_pos(3) - lpos(3) - ypad, ...
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	571 ca_pos(2) + ca_pos(4) - lpos(4) - ypad, lpos(3), lpos(4)];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	572 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	573 case "northwest"
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	574 if (outside)
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	575 lpos = [ca_outpos(1), ca_outpos(2) + ca_outpos(4) - lpos(4), ...
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	576 lpos(3), lpos(4)];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	577 new_pos = [ca_pos(1) + lpos(3), ca_pos(2), ...
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	578 ca_pos(3) - lpos(3), ca_pos(4) - lpos(4)];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	579 new_outpos = [ca_outpos(1) + lpos(3), ca_outpos(2), ...
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	580 ca_outpos(3) - lpos(3), ca_outpos(4) - lpos(4)];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	581 else
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	582 lpos = [ca_pos(1) + ypad, ...
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	583 ca_pos(2) + ca_pos(4) - lpos(4) - ypad, lpos(3), lpos(4)];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	584 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	585 case "southeast"
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	586 if (outside)
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	587 lpos = [ca_outpos(1) + ca_outpos(3) - lpos(3), ca_outpos(2),
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	588 lpos(3), lpos(4)];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	589 new_pos = [ca_pos(1), ca_pos(2) + lpos(4), ...
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	590 ca_pos(3) - lpos(3), ca_pos(4) - lpos(4)];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	591 new_outpos = [ca_outpos(1), ca_outpos(2) + lpos(4), ...
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	592 ca_outpos(3) - lpos(3), ca_outpos(4) - lpos(4)];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	593 else
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	594 lpos = [ca_pos(1) + ca_pos(3) - lpos(3) - ypad, ...
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	595 ca_pos(2) + ypad, lpos(3), lpos(4)];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	596 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	597 case "southwest"
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	598 if (outside)
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	599 lpos = [ca_outpos(1), ca_outpos(2), 0, lpos(3), lpos(4)];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	600 new_pos = [ca_pos(1) +lpos(3), ca_pos(2) + lpos(4), ...
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	601 ca_pos(3) - lpos(3), ca_pos(4) - lpos(4)];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	602 new_outpos = [ca_outpos(1) + lpos(3), ca_outpos(2) + lpos(4), ...
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	603 ca_outpos(3) - lpos(3), ca_outpos(4) - lpos(4)];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	604 else
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	605 lpos = [ca_pos(1) + ypad, ca_pos(2) + ypad, lpos(3), lpos(4)];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	606 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	607 endswitch
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	608
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	609 units = get (hlegend, "units");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	610 unwind_protect
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	611 set (hlegend, "units", "points");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	612 set (hlegend, "position", lpos, "outerposition", lpos);
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	613 unwind_protect_cleanup
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	614 set (hlegend, "units", units);
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	615 end_unwind_protect
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	616
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	617 ## Now write the line segments and place the text objects correctly
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	618 xk = 0;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	619 yk = 0;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	620 for k = 1 : numel (hplots)
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	621 hobjects = [hobjects, texthandle (k)];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	622 color = get (hplots (k), "color");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	623 style = get (hplots (k), "linestyle");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	624 if (! strcmp (style, "none"))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	625 l1 = line ("xdata", ([xoffset, xoffset + linelength] + xk * xstep) / lpos(3),
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	626 "ydata", [1, 1] .* (lpos(4) - yoffset - yk * ystep) / lpos(4),
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	627 "color", color, "linestyle", style);
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	628 hobjects = [hobjects, l1];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	629 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	630 marker = get (hplots (k), "marker");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	631 if (! strcmp (marker, "none"))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	632 l1 = line ("xdata", (xoffset + 0.5 * linelength + xk * xstep) / lpos(3),
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	633 "ydata", (lpos(4) - yoffset - yk * ystep) / lpos(4),
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	634 "color", color, "marker", marker,
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	635 "markeredgecolor", get (hplots (k), "markeredgecolor"),
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	636 "markerfacecolor", get (hplots (k), "markerfacecolor"),
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	637 "markersize", get (hplots (k), "markersize"));
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	638 hobjects = [hobjects, l1];
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	639 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	640 set (texthandle (k), "position", [(txoffset + xk * xstep) / lpos(3), ...
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	641 (lpos(4) - yoffset - yk * ystep) / lpos(4)]);
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	642
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	643 if (strcmp (orientation, "vertical"))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	644 yk++;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	645 if (yk > num1)
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	646 yk = 0;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	647 xk++;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	648 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	649 else
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	650 xk++;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	651 if (xk > num1)
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	652 xk = 0;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	653 yk++;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	654 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	655 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	656 endfor
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	657
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	658 ## Add an invisible text object to original axis
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	659 ## that when it is destroyed will remove the legend
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	660 t1 = text (0, 0, "", "parent", ca(1), "tag", "legend",
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	661 "handlevisibility", "off", "visible", "off",
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	662 "xliminclude", "off", "yliminclude", "off");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	663 set (t1, "deletefcn", {@deletelegend1, hlegend});
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	664
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	665 ## Resize the axis the legend is attached to if the
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	666 ## legend is "outside" the plot and create listener to
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	667 ## resize axis to original size if the legend is deleted,
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	668 ## hidden or shown
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	669 if (outside)
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	670 for i = 1 : numel (ca)
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	671 units = get (ca(i), "units");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	672 unwind_protect
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	673 set (ca(i), "units", "points");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	674 set (ca (i), "position", new_pos, "outerposition", new_outpos);
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	675 unwind_protect_cleanup
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	676 set (ca(i), "units", units);
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	677 end_unwind_protect
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	678 endfor
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	679
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	680 set (hlegend, "deletefcn", {@deletelegend2, ca, ...
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	681 ca_pos, ca_outpos, t1});
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	682 addlistener (hlegend, "visible", {@hideshowlegend, ca, ...
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	683 ca_pos, new_pos, ...
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	684 ca_outpos, new_outpos});
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	685 else
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	686 set (hlegend, "deletefcn", {@deletelegend2, ca, [], [], t1});
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	687 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	688 unwind_protect_cleanup
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	689 set (fig, "currentaxes", curaxes);
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	690 end_unwind_protect
6272 a1f3d3b7ee5c [project @ 2007-02-06 02:09:48 by jwe] jwe parents: 6257 diff changeset	691 endif
6147 e14b0e9b7bf7 [project @ 2006-11-09 03:28:01 by jwe] jwe parents: 6146 diff changeset	692 endif
e14b0e9b7bf7 [project @ 2006-11-09 03:28:01 by jwe] jwe parents: 6146 diff changeset	693
10989 6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	694 if (nargout > 0)
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	695 hlegend2 = hlegend2;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	696 hobjects2 = hobjects;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	697 hplot2 = hplots;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	698 text_strings2 = text_strings;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	699 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	700
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	701 endfunction
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	702
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	703 function hideshowlegend (h, d, ca, pos1, pos2, outpos1, outpos2)
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	704 isvisible = strcmp (get (h, "visible"), "off");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	705 if (! isvisible)
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	706 kids = get (h, "children");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	707 for i = 1 : numel (kids)
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	708 if (! strcmp (get (kids(i), "visible"), "off"))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	709 isvisible = true;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	710 break;
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	711 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	712 endfor
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	713 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	714
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	715 for i = 1 : numel (ca)
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	716 if (ishandle (ca(i)) && strcmp (get (ca(i), "type"), "axes") &&
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	717 (isempty (gcbf()) \|\| strcmp (get (gcbf(), "beingdeleted"),"off")) &&
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	718 strcmp (get (ca(i), "beingdeleted"), "off"))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	719 units = get (ca(i), "units");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	720 unwind_protect
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	721 set (ca(i), "units", "points");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	722 if (isvisible)
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	723 set (ca(i), "position", pos2, "outerposition", outpos2);
10949 848f3a13b7cf Backed out changeset 6b50fd2d4ca6 David Bateman <dbateman@free.fr> parents: 10948 diff changeset	724 else
10989 6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	725 set (ca(i), "position", pos1, "outerposition", outpos1);
10949 848f3a13b7cf Backed out changeset 6b50fd2d4ca6 David Bateman <dbateman@free.fr> parents: 10948 diff changeset	726 endif
10989 6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	727 unwind_protect_cleanup
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	728 set (ca(i), "units", units);
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	729 end_unwind_protect
10949 848f3a13b7cf Backed out changeset 6b50fd2d4ca6 David Bateman <dbateman@free.fr> parents: 10948 diff changeset	730 endif
848f3a13b7cf Backed out changeset 6b50fd2d4ca6 David Bateman <dbateman@free.fr> parents: 10948 diff changeset	731 endfor
10989 6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	732 endfunction
10948 6b50fd2d4ca6 Don't create __plotyy_axes__ properties in plotyy if they exist (Bug #30977) David Bateman <dbateman@free.fr> parents: 10821 diff changeset	733
10989 6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	734 function deletelegend1 (h, d, ca)
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	735 if (ishandle (ca) && strcmp (get (ca, "type"), "axes") &&
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	736 (isempty (gcbf()) \|\| strcmp (get (gcbf(), "beingdeleted"),"off")) &&
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	737 strcmp (get (ca, "beingdeleted"), "off"))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	738 delete (ca);
10948 6b50fd2d4ca6 Don't create __plotyy_axes__ properties in plotyy if they exist (Bug #30977) David Bateman <dbateman@free.fr> parents: 10821 diff changeset	739 endif
10989 6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	740 endfunction
10948 6b50fd2d4ca6 Don't create __plotyy_axes__ properties in plotyy if they exist (Bug #30977) David Bateman <dbateman@free.fr> parents: 10821 diff changeset	741
10989 6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	742 function deletelegend2 (h, d, ca, pos, outpos, t1)
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	743 for i = 1 : numel (ca)
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	744 if (ishandle (ca(i)) && strcmp (get (ca(i), "type"), "axes") &&
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	745 (isempty (gcbf()) \|\| strcmp (get (gcbf(), "beingdeleted"),"off")) &&
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	746 strcmp (get (ca(i), "beingdeleted"), "off"))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	747 if (!isempty (pos) && !isempty(outpos))
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	748 units = get (ca(i), "units");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	749 unwind_protect
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	750 set (ca(i), "units", "points");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	751 set (ca(i), "position", pos, "outerposition", outpos, "deletefcn", "");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	752 unwind_protect_cleanup
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	753 set (ca(i), "units", units);
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	754 end_unwind_protect
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	755 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	756 if (i == 1)
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	757 set (t1, "deletefcn", "");
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	758 delete (t1);
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	759 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	760 endif
6ea65c5de87a Respect the units and paperunits figure properties and the units and fontunits axes properties David Bateman <dbateman@free.fr> parents: 10949 diff changeset	761 endfor
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	762 endfunction
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	763
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	764 %!demo
8790 a013ff655ca4 Trivial changes to demos to produce a more pleasant output for octave+gnuplot+aquaterm. Ben Abbott <bpabbott@mac.com> parents: 8746 diff changeset	765 %! clf
8343 9f34f7636fe0 legend.m: Correct ording of legend labels. Ben Abbott <bpabbott@mac.com> parents: 8291 diff changeset	766 %! plot(1:10, 1:10, 1:10, fliplr(1:10));
9f34f7636fe0 legend.m: Correct ording of legend labels. Ben Abbott <bpabbott@mac.com> parents: 8291 diff changeset	767 %! title("incline is blue and decline is green");
9f34f7636fe0 legend.m: Correct ording of legend labels. Ben Abbott <bpabbott@mac.com> parents: 8291 diff changeset	768 %! legend({"I'm blue", "I'm green"}, "location", "east")
9f34f7636fe0 legend.m: Correct ording of legend labels. Ben Abbott <bpabbott@mac.com> parents: 8291 diff changeset	769
9f34f7636fe0 legend.m: Correct ording of legend labels. Ben Abbott <bpabbott@mac.com> parents: 8291 diff changeset	770 %!demo
8790 a013ff655ca4 Trivial changes to demos to produce a more pleasant output for octave+gnuplot+aquaterm. Ben Abbott <bpabbott@mac.com> parents: 8746 diff changeset	771 %! clf
9451 350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	772 %! plot(1:10, 1:10, 1:10, fliplr(1:10));
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	773 %! title("incline is blue and decline is green");
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	774 %! legend("I'm blue", "I'm green", "location", "east")
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	775
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	776 %!demo
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	777 %! clf
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	778 %! plot(1:10, 1:10);
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	779 %! title("a very long label can sometimes cause problems");
6977 e78e31f0a236 [project @ 2007-10-08 19:09:32 by jwe] jwe parents: 6895 diff changeset	780 %! legend({"hello world"}, "location", "northeastoutside")
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	781
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	782 %!demo
8790 a013ff655ca4 Trivial changes to demos to produce a more pleasant output for octave+gnuplot+aquaterm. Ben Abbott <bpabbott@mac.com> parents: 8746 diff changeset	783 %! clf
9451 350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	784 %! plot(1:10, 1:10);
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	785 %! title("a very long label can sometimes cause problems");
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	786 %! legend("hello world", "location", "northeastoutside")
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	787
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	788 %!demo
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	789 %! clf
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	790 %! labels = {};
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	791 %! for i = 1:5
8915 485eabc0cfec __go_draw_axes__.m: Preserve the order of axes' children when pruning the handles for the {x,y,z}labels and title. Ben Abbott <bpabbott@mac.com> parents: 8790 diff changeset	792 %! h = plot(1:100, i + rand(100,1)); hold on;
485eabc0cfec __go_draw_axes__.m: Preserve the order of axes' children when pruning the handles for the {x,y,z}labels and title. Ben Abbott <bpabbott@mac.com> parents: 8790 diff changeset	793 %! set (h, "color", get (gca, "colororder")(i,:))
7540 3422f39573b1 strcat.m: Matlab compatibility, with cstrcat.m replacing conventional strcat.m. Ben Abbott <bpabbott@mac.com> parents: 7148 diff changeset	794 %! labels = {labels{:}, cstrcat("Signal ", num2str(i))};
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	795 %! endfor; hold off;
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	796 %! title("Signals with random offset and uniform noise")
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	797 %! xlabel("Sample Nr [k]"); ylabel("Amplitude [V]");
6977 e78e31f0a236 [project @ 2007-10-08 19:09:32 by jwe] jwe parents: 6895 diff changeset	798 %! legend(labels, "location", "southoutside")
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	799 %! legend("boxon")
9451 350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	800
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	801 %!demo
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	802 %! clf
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	803 %! labels = {};
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	804 %! for i = 1:5
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	805 %! h = plot(1:100, i + rand(100,1)); hold on;
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	806 %! set (h, "color", get (gca, "colororder")(i,:))
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	807 %! labels = {labels{:}, cstrcat("Signal ", num2str(i))};
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	808 %! endfor; hold off;
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	809 %! title("Signals with random offset and uniform noise")
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	810 %! xlabel("Sample Nr [k]"); ylabel("Amplitude [V]");
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	811 %! legend(labels{:}, "location", "southoutside")
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	812 %! legend("boxon")
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	813
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	814 %!demo
9457 f9fb8c1a8e45 legend.m: Add an hggroup demo using bar(). Include clf() in each demo. Ben Abbott <bpabbott@mac.com> parents: 9451 diff changeset	815 %! clf
9451 350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	816 %! x = linspace (0, 10);
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	817 %! plot (x, x);
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	818 %! hold ("on");
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	819 %! stem (x, x.^2, 'g')
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	820 %! legend ("linear");
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	821 %! hold ("off");
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	822
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	823 %!demo
9457 f9fb8c1a8e45 legend.m: Add an hggroup demo using bar(). Include clf() in each demo. Ben Abbott <bpabbott@mac.com> parents: 9451 diff changeset	824 %! clf
9451 350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	825 %! x = linspace (0, 10);
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	826 %! plot (x, x, x, x.^2);
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	827 %! legend ("linear");
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	828
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	829 %!demo
9457 f9fb8c1a8e45 legend.m: Add an hggroup demo using bar(). Include clf() in each demo. Ben Abbott <bpabbott@mac.com> parents: 9451 diff changeset	830 %! clf
9451 350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	831 %! x = linspace (0, 10);
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	832 %! plot (x, x, x, x.^2);
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	833 %! legend ("linear", "quadratic");
9457 f9fb8c1a8e45 legend.m: Add an hggroup demo using bar(). Include clf() in each demo. Ben Abbott <bpabbott@mac.com> parents: 9451 diff changeset	834
f9fb8c1a8e45 legend.m: Add an hggroup demo using bar(). Include clf() in each demo. Ben Abbott <bpabbott@mac.com> parents: 9451 diff changeset	835 %!demo
f9fb8c1a8e45 legend.m: Add an hggroup demo using bar(). Include clf() in each demo. Ben Abbott <bpabbott@mac.com> parents: 9451 diff changeset	836 %! clf
f9fb8c1a8e45 legend.m: Add an hggroup demo using bar(). Include clf() in each demo. Ben Abbott <bpabbott@mac.com> parents: 9451 diff changeset	837 %! bar (rand (2, 3))
f9fb8c1a8e45 legend.m: Add an hggroup demo using bar(). Include clf() in each demo. Ben Abbott <bpabbott@mac.com> parents: 9451 diff changeset	838 %! ylim ([0 1.2])
f9fb8c1a8e45 legend.m: Add an hggroup demo using bar(). Include clf() in each demo. Ben Abbott <bpabbott@mac.com> parents: 9451 diff changeset	839 %! legend ({"1st Bar", "2nd Bar", "3rd Bar"})
f9fb8c1a8e45 legend.m: Add an hggroup demo using bar(). Include clf() in each demo. Ben Abbott <bpabbott@mac.com> parents: 9451 diff changeset	840
f9fb8c1a8e45 legend.m: Add an hggroup demo using bar(). Include clf() in each demo. Ben Abbott <bpabbott@mac.com> parents: 9451 diff changeset	841 %!demo
f9fb8c1a8e45 legend.m: Add an hggroup demo using bar(). Include clf() in each demo. Ben Abbott <bpabbott@mac.com> parents: 9451 diff changeset	842 %! clf
f9fb8c1a8e45 legend.m: Add an hggroup demo using bar(). Include clf() in each demo. Ben Abbott <bpabbott@mac.com> parents: 9451 diff changeset	843 %! bar (rand (2, 3))
f9fb8c1a8e45 legend.m: Add an hggroup demo using bar(). Include clf() in each demo. Ben Abbott <bpabbott@mac.com> parents: 9451 diff changeset	844 %! ylim ([0 1.2])
f9fb8c1a8e45 legend.m: Add an hggroup demo using bar(). Include clf() in each demo. Ben Abbott <bpabbott@mac.com> parents: 9451 diff changeset	845 %! legend ("1st Bar", "2nd Bar", "3rd Bar")
10662 3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	846
3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	847 %!demo
3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	848 %! clf
3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	849 %! x = 0:0.1:7;
3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	850 %! h = plot (x, sin(x), x, cos(x), x, sin(x.^2/10), x, cos(x.^2/10));
3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	851 %! title ("Only the sin() objects have keylabels")
3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	852 %! legend (h([1, 3]), {"sin(x)", "sin(x^2/10)"}, "location", "southwest")

Mercurial > hg > octave-nkf

annotate scripts/plot/legend.m @ 10989:6ea65c5de87a