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

annotate scripts/plot/legend.m @ 12388:cf9ca0dbc5ee

Delete old legends and fix for legend locations that are 'southest' (followup #32343)

author	David Bateman <dbateman@free.fr>
date	Sun, 06 Feb 2011 15:33:56 +0100
parents	5fb6ea1bff65
children	c2e1973d870b

rev	line source
11523 fd0a3ac60b0e update copyright notices John W. Eaton <jwe@octave.org> parents: 11462 diff changeset	1 ## Copyright (C) 2010-2011 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})
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 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,
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11563 diff changeset	31 ## using the specified strings as labels. Legend entries may be specified
10662 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 ##
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11563 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 ##
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	73 ## The optional parameter @var{orient} determines if the key elements
11563 3c6e8aaa9555 Grammarcheck m-files before 3.4 release. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	74 ## are placed vertically or horizontally. The allowed values are "vertical"
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	75 ## or "horizontal" with the default being "vertical".
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 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
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 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
11246 c463aed850b0 allow legend and gcf to work when no figure is present John W. Eaton <jwe@octave.org> parents: 11200 diff changeset	103 if (nargin > 0
c463aed850b0 allow legend and gcf to work when no figure is present John W. Eaton <jwe@octave.org> parents: 11200 diff changeset	104 && (! ishandle (varargin{1})
c463aed850b0 allow legend and gcf to work when no figure is present John W. Eaton <jwe@octave.org> parents: 11200 diff changeset	105 \|\| (strcmp (get (varargin{1}, "type"), "axes")
c463aed850b0 allow legend and gcf to work when no figure is present John W. Eaton <jwe@octave.org> parents: 11200 diff changeset	106 && ! strcmp (get (varargin{1}, "tag"), "legend"))))
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	107 [ca, varargin, nargs] = __plt_get_axis_arg__ ("legend", varargin{:});
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	108 fig = get (ca, "parent");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	109 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	110 fig = get (0, "currentfigure");
11246 c463aed850b0 allow legend and gcf to work when no figure is present John W. Eaton <jwe@octave.org> parents: 11200 diff changeset	111 if (isempty (fig))
c463aed850b0 allow legend and gcf to work when no figure is present John W. Eaton <jwe@octave.org> parents: 11200 diff changeset	112 fig = gcf ();
c463aed850b0 allow legend and gcf to work when no figure is present John W. Eaton <jwe@octave.org> parents: 11200 diff changeset	113 endif
c463aed850b0 allow legend and gcf to work when no figure is present John W. Eaton <jwe@octave.org> parents: 11200 diff changeset	114 ca = gca ();
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	115 endif
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	116
11199 91c606a68693 minor fix to previous changeset David Bateman <dbateman@free.fr> parents: 11198 diff changeset	117 if (strcmp (get (ca, "tag"), "plotyy"))
91c606a68693 minor fix to previous changeset David Bateman <dbateman@free.fr> parents: 11198 diff changeset	118 plty = get(ca (strcmp (get (ca, "tag"), "plotyy")), "userdata");
91c606a68693 minor fix to previous changeset David Bateman <dbateman@free.fr> parents: 11198 diff changeset	119 if (isscalar (plty))
91c606a68693 minor fix to previous changeset David Bateman <dbateman@free.fr> parents: 11198 diff changeset	120 ca = [ca, plty];
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11563 diff changeset	121 else
11199 91c606a68693 minor fix to previous changeset David Bateman <dbateman@free.fr> parents: 11198 diff changeset	122 ca = [ca, plty{:}];
91c606a68693 minor fix to previous changeset David Bateman <dbateman@free.fr> parents: 11198 diff changeset	123 endif
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	124 endif
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	125
11246 c463aed850b0 allow legend and gcf to work when no figure is present John W. Eaton <jwe@octave.org> parents: 11200 diff changeset	126 if (nargin > 0 && all (ishandle (varargin{1})))
10662 3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	127 kids = flipud (varargin{1}(:));
3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	128 varargin(1) = [];
3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	129 else
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	130 kids = ca;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	131 kids (strcmp (get (ca, "tag"), "legend")) = [];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	132 if (isscalar (kids))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	133 kids = get(kids, "children")(:);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	134 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	135 kids = [get(kids, "children"){:}](:);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	136 endif
10662 3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	137 endif
11246 c463aed850b0 allow legend and gcf to work when no figure is present John W. Eaton <jwe@octave.org> parents: 11200 diff changeset	138 nargs = numel (varargin);
10662 3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	139 nkids = numel (kids);
3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	140
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	141 orientation = "default";
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	142 position = "default";
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	143 show = "create";
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	144 textpos = "default";
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	145 box = "default";
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	146
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	147 if (nargs > 0)
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	148 pos = varargin{nargs};
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	149 if (isnumeric (pos) && isscalar (pos) && round (pos) == pos)
6395 a8dd70bacc1e [project @ 2007-03-07 22:22:12 by jwe] jwe parents: 6272 diff changeset	150 if (pos >= -1 && pos <= 4)
11003 b1cfff739af5 legend.m: Index location cellstr to obtain a string. Ben Abbott <bpabbott@mac.com> parents: 10999 diff changeset	151 position = [{"northeastoutside", "best", "northeast",
b1cfff739af5 legend.m: Index location cellstr to obtain a string. Ben Abbott <bpabbott@mac.com> parents: 10999 diff changeset	152 "northwest", "southwest", "southeast"}] {pos + 2};
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	153 nargs--;
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	154 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	155 error ("legend: invalid position specified");
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	156 endif
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	157 endif
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	158 endif
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11563 diff changeset	159
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	160 while (nargs > 1)
6977 e78e31f0a236 [project @ 2007-10-08 19:09:32 by jwe] jwe parents: 6895 diff changeset	161 pos = varargin{nargs-1};
7054 1c5b2b5b58ba [project @ 2007-10-23 23:22:16 by jwe] jwe parents: 7017 diff changeset	162 str = varargin{nargs};
6977 e78e31f0a236 [project @ 2007-10-08 19:09:32 by jwe] jwe parents: 6895 diff changeset	163 if (strcmpi (pos, "location") && ischar (str))
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	164 position = lower (str);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	165 nargs -= 2;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	166 elseif (strcmpi (pos, "orientation") && ischar (str))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	167 orientation = lower (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	168 nargs -= 2;
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	169 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	170 break;
6977 e78e31f0a236 [project @ 2007-10-08 19:09:32 by jwe] jwe parents: 6895 diff changeset	171 endif
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	172 endwhile
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	173
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11563 diff changeset	174 ## Validate the orientation
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	175 switch (orientation)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	176 case {"vertical", "horizontal","default"}
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	177 otherwise
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	178 error ("legend: unrecognized legend orientation");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	179 endswitch
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	180
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	181 ## Validate the position type is valid
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	182 outside = false;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	183 inout = findstr (position, "outside");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	184 if (! isempty (inout))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	185 outside = true;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	186 position = position(1:inout-1);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	187 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	188 outside = false;
6977 e78e31f0a236 [project @ 2007-10-08 19:09:32 by jwe] jwe parents: 6895 diff changeset	189 endif
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	190
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	191 switch (position)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	192 case {"north", "south", "east", "west", "northeast", "northwest", ...
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	193 "southeast", "southwest", "default"}
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	194 case "best"
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	195 warning ("legend: 'Best' not yet implemented for location specifier\n");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	196 position = "northeast";
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	197 otherwise
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	198 error ("legend: unrecognized legend position");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	199 endswitch
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	200
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	201 hlegend = [];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	202 fkids = get (fig, "children");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	203 for i = 1 : numel(fkids)
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11563 diff changeset	204 if (ishandle (fkids (i)) && strcmp (get (fkids (i), "type"), "axes")
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	205 && (strcmp (get (fkids (i), "tag"), "legend")))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	206 udata = get (fkids (i), "userdata");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	207 if (! isempty (intersect (udata.handle, ca)))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	208 hlegend = fkids (i);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	209 break;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	210 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	211 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 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"}
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 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"
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 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"
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	227 if (isempty (hlegend) \|\| strcmp (get (hlegend, "visible"), "off"))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	228 show = "on";
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	229 else
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 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"
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 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"
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 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"
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	240 textpos = "left";
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	241 nargs--;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	242 case "right"
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	243 textpos = "right";
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	244 nargs--;
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	245 otherwise
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	246 endswitch
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	247 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	248 varargin = cellstr (arg);
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9457 diff changeset	249 nargs = numel (varargin);
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	250 endif
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	251 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	252 varargin = arg;
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	253 nargs = numel (varargin);
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	254 else
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	255 error ("legend: expecting argument to be a character string");
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	256 endif
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	257 endif
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	258
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	259 if (strcmp (show, "off"))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	260 if (! isempty (hlegend))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	261 set (get (hlegend, "children"), "visible", "off");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	262 hlegend = [];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	263 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	264 hobjects = [];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	265 hplots = [];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	266 text_strings = {};
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	267 elseif (strcmp (show, "on"))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	268 if (! isempty (hlegend))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	269 set (get (hlegend, "children"), "visible", "on");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	270 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	271 hobjects = [];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	272 hplots = [];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	273 text_strings = {};
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	274 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	275 elseif (strcmp (box, "on"))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	276 if (! isempty (hlegend))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	277 set (hlegend, "visible", "on", "box", "on");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	278 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	279 elseif (strcmp (box, "off"))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	280 if (! isempty (hlegend))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	281 set (hlegend, "box", "off", "visible", "off");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	282 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	283 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	284 hobjects = [];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	285 hplots = [];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	286 text_strings = {};
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	287
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	288 if (nargs > 0)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	289 have_data = false;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	290 for k = 1:nkids
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	291 typ = get (kids(k), "type");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	292 if (strcmp (typ, "line") \|\| strcmp (typ, "surface")
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	293 \|\| strcmp (typ, "patch") \|\| strcmp (typ, "hggroup"))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	294 have_data = true;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	295 break;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	296 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	297 endfor
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	298
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	299 if (! have_data)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	300 warning ("legend: plot data is empty; setting key labels has no effect");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	301 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	302 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	303
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	304 if (strcmp (textpos, "default"))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	305 warned = false;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	306 k = nkids;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	307 for i = 1 : nargs
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	308 arg = varargin{i};
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	309 if (ischar (arg))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	310 typ = get (kids(k), "type");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	311 while (k > 0
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	312 && ! (strcmp (typ, "line") \|\| strcmp (typ, "surface")
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	313 \|\| strcmp (typ, "patch") \|\| strcmp (typ, "hggroup")))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	314 typ = get (kids(--k), "type");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	315 endwhile
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	316 if (k > 0)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	317 if (strcmp (get (kids(k), "type"), "hggroup"))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	318 hgkids = get (kids(k), "children");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	319 for j = 1 : length (hgkids)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	320 hgobj = get (hgkids (j));
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	321 if (isfield (hgobj, "displayname"))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	322 set (hgkids(j), "displayname", arg);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	323 hplots = [hplots, hgkids(j)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	324 text_strings = {text_strings{:}, arg};
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	325 break;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	326 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	327 endfor
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	328 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	329 set (kids(k), "displayname", arg);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	330 hplots = [hplots, kids(k)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	331 text_strings = {text_strings{:}, arg};
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	332 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	333
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	334 if (--k == 0)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	335 break;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	336 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	337 elseif (! warned)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	338 warned = true;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	339 warning ("legend: ignoring extra labels");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	340 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	341 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	342 error ("legend: expecting argument to be a character string");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	343 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	344 endfor
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	345 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	346 k = nkids;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	347 while (k > 0)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	348 typ = get (kids(k), "type");
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	349 while (k > 1
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	350 && ! (strcmp (typ, "line") \|\| strcmp (typ, "surface")
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	351 \|\| strcmp (typ, "patch") \|\| strcmp (typ, "hggroup")))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	352 typ = get (kids(--k), "type");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	353 endwhile
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	354 if (! (strcmp (typ, "line") \|\| strcmp (typ, "surface")
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	355 \|\| strcmp (typ, "patch") \|\| strcmp (typ, "hggroup")))
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	356 break
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	357 endif
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	358 if (k > 0)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	359 if (strcmp (get (kids(k), "type"), "hggroup"))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	360 hgkids = get (kids(k), "children");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	361 for j = 1 : length (hgkids)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	362 hgobj = get (hgkids (j));
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11563 diff changeset	363 if (isfield (hgobj, "displayname")
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	364 && ! isempty (hgobj.displayname))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	365 hplots = [hplots, hgkids(j)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	366 text_strings = {text_strings{:}, hbobj.displayname};
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	367 break;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	368 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	369 endfor
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	370 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	371 if (! isempty (get (kids (k), "displayname")))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	372 hplots = [hplots, kids(k)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	373 text_strings = {text_strings{:}, get(kids (k), "displayname")};
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	374 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	375 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	376 if (--k == 0)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	377 break;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	378 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	379 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	380 endwhile
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	381 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	382
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	383 if (isempty (hplots))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	384 if (! isempty (hlegend))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	385 fkids = get (fig, "children");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	386 delete (fkids (fkids == hlegend));
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	387 hlegend = [];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	388 hobjects = [];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	389 hplots = [];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	390 text_strings = {};
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	391 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	392 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	393 ## Delete the old legend if it exists
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	394 if (! isempty (hlegend))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	395 if (strcmp (textpos, "default"))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	396 textpos = get (hlegend, "textposition");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	397 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	398 if (strcmp (position, "default"))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	399 position = get (hlegend, "location");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	400 inout = findstr (position, "outside");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	401 if (! isempty (inout))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	402 outside = true;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	403 position = position(1:inout-1);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	404 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	405 outside = false;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	406 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	407 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	408 if (strcmp (orientation, "default"))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	409 orientation = get (hlegend, "orientation");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	410 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	411 box = get (hlegend, "box");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	412 fkids = get (fig, "children");
12388 cf9ca0dbc5ee Delete old legends and fix for legend locations that are 'southest' (followup #32343) David Bateman <dbateman@free.fr> parents: 12387 diff changeset	413
cf9ca0dbc5ee Delete old legends and fix for legend locations that are 'southest' (followup #32343) David Bateman <dbateman@free.fr> parents: 12387 diff changeset	414 delete (hlegend);
cf9ca0dbc5ee Delete old legends and fix for legend locations that are 'southest' (followup #32343) David Bateman <dbateman@free.fr> parents: 12387 diff changeset	415 hlegend = [];
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	416 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	417 if (strcmp (textpos, "default"))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	418 textpos = "left";
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	419 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	420 if (strcmp (position, "default"))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	421 position = "northeast";
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	422 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	423 if (strcmp (orientation, "default"))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	424 orientation = "vertical";
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	425 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	426 box = "off";
6272 a1f3d3b7ee5c [project @ 2007-02-06 02:09:48 by jwe] jwe parents: 6257 diff changeset	427 endif
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11563 diff changeset	428
c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11563 diff changeset	429 ## Get axis size and fontsize in points.
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	430 ## Rely on listener to handle coversion.
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	431 units = get (ca(1), "units");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	432 fontunits = get (ca(1), "fontunits");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	433 unwind_protect
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	434 set (ca(1), "units", "points");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	435 set (ca(1), "fontunits", "points");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	436 ca_pos = get (ca(1), "position");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	437 ca_outpos = get (ca(1), "outerposition");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	438 ca_fontsize = get (ca(1), "fontsize");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	439 unwind_protect_cleanup
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	440 set (ca(1), "units", units);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	441 set (ca(1), "fontunits", fontunits);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	442 end_unwind_protect
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	443
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	444 ## Padding between legend entries horizontally and vertically
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	445 xpad = 2;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	446 ypad = 2;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	447
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	448 ## Length of line segments in the legend in points
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	449 linelength = 15;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	450
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	451 ## Create the axis first
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	452 ## FIXME hlegend should inherit properties from "ca"
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	453 curaxes = get (fig, "currentaxes");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	454 unwind_protect
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	455 ud = ancestor(hplots, "axes");
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	456 if (!isscalar(ud))
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	457 ud = unique ([ud{:}]);
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	458 endif
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	459 if (isempty (hlegend))
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	460 addprops = true;
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	461 hlegend = axes ("tag", "legend", "userdata", struct ("handle", ud),
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	462 "box", box, "outerposition", [0, 0, 0, 0],
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	463 "xtick", [], "ytick", [], "xticklabel", "",
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11563 diff changeset	464 "yticklabel", "", "zticklabel", "",
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	465 "xlim", [0, 1], "ylim", [0, 1], "visible", "off",
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	466 "activepositionproperty", "position");
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	467 else
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	468 addprops = false;
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	469 axes (hlegend);
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	470 delete (get (hlegend, "children"));
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	471 endif
11434 1f54ee6760b5 legend.m: Only one legend per axes (bug 32022) Ben Abbott <bpabbott@mac.com> parents: 11418 diff changeset	472
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	473 ## Add text label to the axis first, checking their extents
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	474 nentries = numel (hplots);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	475 texthandle = [];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	476 maxwidth = 0;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	477 maxheight = 0;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	478 for k = 1 : nentries
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	479 if (strcmp (textpos, "right"))
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11563 diff changeset	480 texthandle = [texthandle, text(0, 0, text_strings {k},
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	481 "horizontalalignment", "left",
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	482 "userdata", hplots(k))];
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	483 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	484 texthandle = [texthandle, text(0, 0, text_strings {k},
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	485 "horizontalalignment", "right",
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	486 "userdata", hplots(k))];
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	487 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	488 units = get (texthandle (end), "units");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	489 unwind_protect
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	490 set (texthandle (end), "units", "points");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	491 extents = get (texthandle (end), "extent");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	492 maxwidth = max (maxwidth, extents (3));
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	493 maxheight = max (maxheight, extents (4));
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	494 unwind_protect_cleanup
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	495 set (texthandle (end), "units", units);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	496 end_unwind_protect
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	497 endfor
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	498
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	499 num1 = nentries;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	500 if (strcmp (orientation, "vertical"))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	501 height = nentries * (ypad + maxheight);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	502 if (outside)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	503 if (height > ca_pos (4))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	504 ## Avoid shrinking the height of the axis to zero if outside
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	505 num1 = ca_pos(4) / (maxheight + ypad) / 2;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	506 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	507 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	508 if (height > 0.9 * ca_pos (4))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	509 num1 = 0.9 * ca_pos(4) / (maxheight + ypad);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	510 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	511 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	512 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	513 width = nentries * (ypad + maxwidth);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	514 if (outside)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	515 if (width > ca_pos (3))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	516 ## Avoid shrinking the width of the axis to zero if outside
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	517 num1 = ca_pos(3) / (maxwidth + ypad) / 2;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	518 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	519 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	520 if (width > 0.9 * ca_pos (3))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	521 num1 = 0.9 * ca_pos(3) / (maxwidth + ypad);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	522 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	523 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	524 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	525 num2 = ceil (nentries / num1);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	526
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	527 xstep = 3 * xpad + (maxwidth + linelength);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	528 if (strcmp (textpos, "right"))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	529 xoffset = xpad;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	530 txoffset = 2 * xpad + linelength;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	531 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	532 xoffset = 2 * xpad + maxwidth;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	533 txoffset = xpad + maxwidth;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	534 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	535 ystep = (ypad + maxheight);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	536 yoffset = ystep / 2;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	537
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	538 ## Place the legend in the desired position
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	539 if (strcmp (orientation, "vertical"))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	540 lpos = [0, 0, num2 * xstep, num1 * ystep];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	541 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	542 lpos = [0, 0, num1 * xstep, num2 * ystep];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	543 endif
11120 a44f979a35ce style fixes for some .m files John W. Eaton <jwe@octave.org> parents: 11033 diff changeset	544 switch (position)
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	545 case "north"
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	546 if (outside)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	547 lpos = [ca_pos(1) + (ca_pos(3) - lpos(3)) / 2, ...
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	548 ca_outpos(2) + ca_outpos(4) - lpos(4), lpos(3), lpos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	549
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	550 new_pos = [ca_pos(1), ca_pos(2), ca_pos(3), ca_pos(4) - lpos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	551 new_outpos = [ca_outpos(1), ca_outpos(2), ca_outpos(3), ...
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	552 ca_outpos(4) - lpos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	553 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	554 lpos = [ca_pos(1) + (ca_pos(3) - lpos(3)) / 2, ...
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	555 ca_pos(2) + ca_pos(4) - lpos(4) - ypad, lpos(3), lpos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	556 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	557 case "south"
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	558 if (outside)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	559 lpos = [ca_pos(1) + (ca_pos(3) - lpos(3)) / 2, ca_outpos(2), ...
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	560 lpos(3), lpos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	561 new_pos = [ca_pos(1), ca_pos(2) + lpos(4), ca_pos(3), ...
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	562 ca_pos(4) - lpos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	563 new_outpos = [ca_outpos(1), ca_outpos(2) + lpos(4), ...
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	564 ca_outpos(3), ca_outpos(4) - lpos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	565 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	566 lpos = [ca_pos(1) + (ca_pos(3) - lpos(3)) / 2, ...
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	567 ca_pos(2) + ypad, lpos(3), lpos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	568 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	569 case "east"
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	570 if (outside)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	571 lpos = [ca_outpos(1) + ca_outpos(3) - lpos(3), ...
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	572 ca_pos(2) + (ca_pos(4) - lpos(4)) / 2, lpos(3), lpos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	573 new_pos = [ca_pos(1), ca_pos(2), ca_pos(3) - lpos(3), ca_pos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	574 new_outpos = [ca_outpos(1), ca_outpos(2), ...
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	575 ca_outpos(3) - lpos(3), ca_outpos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	576 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	577 lpos = [ca_pos(1) + ca_pos(3) - lpos(3) - ypad, ...
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	578 ca_pos(2) + (ca_pos(4) - lpos(4)) / 2, lpos(3), lpos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	579 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	580 case "west"
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	581 if (outside)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	582 lpos = [ca_outpos(1), ca_pos(2) + (ca_pos(4) - lpos(4)) / 2, ...
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	583 lpos(3), lpos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	584 new_pos = [ca_pos(1) + lpos(3), ca_pos(2), ...
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	585 ca_pos(3) - lpos(3), ca_pos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	586 new_outpos = [ca_outpos(1) + lpos(3), ca_outpos(2), ...
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	587 ca_outpos(3) - lpos(3), ca_outpos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	588 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	589 lpos = [ca_pos(1) + ypad, ...
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	590 ca_pos(2) + (ca_pos(4) - lpos(4)) / 2, lpos(3), lpos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	591 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	592 case "northeast"
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	593 if (outside)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	594 lpos = [ca_outpos(1) + ca_outpos(3) - lpos(3), ...
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	595 ca_outpos(2) + ca_outpos(4) - lpos(4), lpos(3), lpos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	596 new_pos = [ca_pos(1), ca_pos(2), ca_pos(3) - lpos(3), ...
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	597 ca_pos(4) - lpos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	598 new_outpos = [ca_outpos(1), ca_outpos(2), ...
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	599 ca_outpos(3) - lpos(3), ca_outpos(4) - lpos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	600 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	601 lpos = [ca_pos(1) + ca_pos(3) - lpos(3) - ypad, ...
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	602 ca_pos(2) + ca_pos(4) - lpos(4) - ypad, lpos(3), lpos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	603 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	604 case "northwest"
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	605 if (outside)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	606 lpos = [ca_outpos(1), ca_outpos(2) + ca_outpos(4) - lpos(4), ...
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	607 lpos(3), lpos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	608 new_pos = [ca_pos(1) + lpos(3), ca_pos(2), ...
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	609 ca_pos(3) - lpos(3), ca_pos(4) - lpos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	610 new_outpos = [ca_outpos(1) + lpos(3), ca_outpos(2), ...
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	611 ca_outpos(3) - lpos(3), ca_outpos(4) - lpos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	612 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	613 lpos = [ca_pos(1) + ypad, ...
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	614 ca_pos(2) + ca_pos(4) - lpos(4) - ypad, lpos(3), lpos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	615 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	616 case "southeast"
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	617 if (outside)
12388 cf9ca0dbc5ee Delete old legends and fix for legend locations that are 'southest' (followup #32343) David Bateman <dbateman@free.fr> parents: 12387 diff changeset	618 lpos = [ca_outpos(1) + ca_outpos(3) - lpos(3), ca_outpos(2), ...
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	619 lpos(3), lpos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	620 new_pos = [ca_pos(1), ca_pos(2) + lpos(4), ...
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	621 ca_pos(3) - lpos(3), ca_pos(4) - lpos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	622 new_outpos = [ca_outpos(1), ca_outpos(2) + lpos(4), ...
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	623 ca_outpos(3) - lpos(3), ca_outpos(4) - lpos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	624 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	625 lpos = [ca_pos(1) + ca_pos(3) - lpos(3) - ypad, ...
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	626 ca_pos(2) + ypad, lpos(3), lpos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	627 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	628 case "southwest"
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	629 if (outside)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	630 lpos = [ca_outpos(1), ca_outpos(2), 0, lpos(3), lpos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	631 new_pos = [ca_pos(1) +lpos(3), ca_pos(2) + lpos(4), ...
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	632 ca_pos(3) - lpos(3), ca_pos(4) - lpos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	633 new_outpos = [ca_outpos(1) + lpos(3), ca_outpos(2) + lpos(4), ...
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	634 ca_outpos(3) - lpos(3), ca_outpos(4) - lpos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	635 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	636 lpos = [ca_pos(1) + ypad, ca_pos(2) + ypad, lpos(3), lpos(4)];
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	637 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	638 endswitch
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	639
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	640 units = get (hlegend, "units");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	641 unwind_protect
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	642 set (hlegend, "units", "points");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	643 set (hlegend, "position", lpos, "outerposition", lpos);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	644 unwind_protect_cleanup
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	645 set (hlegend, "units", units);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	646 end_unwind_protect
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	647
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	648 ## Now write the line segments and place the text objects correctly
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	649 xk = 0;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	650 yk = 0;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	651 for k = 1 : numel (hplots)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	652 hobjects = [hobjects, texthandle (k)];
11120 a44f979a35ce style fixes for some .m files John W. Eaton <jwe@octave.org> parents: 11033 diff changeset	653 switch (get (hplots(k), "type"))
10999 9f45b76c16e3 legend.m: Treat line, patch, and surface objects differetly. Ben Abbott <bpabbott@mac.com> parents: 10995 diff changeset	654 case "line"
9f45b76c16e3 legend.m: Treat line, patch, and surface objects differetly. Ben Abbott <bpabbott@mac.com> parents: 10995 diff changeset	655 color = get (hplots(k), "color");
9f45b76c16e3 legend.m: Treat line, patch, and surface objects differetly. Ben Abbott <bpabbott@mac.com> parents: 10995 diff changeset	656 style = get (hplots(k), "linestyle");
9f45b76c16e3 legend.m: Treat line, patch, and surface objects differetly. Ben Abbott <bpabbott@mac.com> parents: 10995 diff changeset	657 if (! strcmp (style, "none"))
9f45b76c16e3 legend.m: Treat line, patch, and surface objects differetly. Ben Abbott <bpabbott@mac.com> parents: 10995 diff changeset	658 l1 = line ("xdata", ([xoffset, xoffset + linelength] + xk * xstep) / lpos(3),
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11563 diff changeset	659 "ydata", [1, 1] .* (lpos(4) - yoffset - yk * ystep) / lpos(4),
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	660 "color", color, "linestyle", style, "marker", "none",
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	661 "userdata", hplots (k));
10999 9f45b76c16e3 legend.m: Treat line, patch, and surface objects differetly. Ben Abbott <bpabbott@mac.com> parents: 10995 diff changeset	662 hobjects = [hobjects, l1];
9f45b76c16e3 legend.m: Treat line, patch, and surface objects differetly. Ben Abbott <bpabbott@mac.com> parents: 10995 diff changeset	663 endif
9f45b76c16e3 legend.m: Treat line, patch, and surface objects differetly. Ben Abbott <bpabbott@mac.com> parents: 10995 diff changeset	664 marker = get (hplots(k), "marker");
9f45b76c16e3 legend.m: Treat line, patch, and surface objects differetly. Ben Abbott <bpabbott@mac.com> parents: 10995 diff changeset	665 if (! strcmp (marker, "none"))
9f45b76c16e3 legend.m: Treat line, patch, and surface objects differetly. Ben Abbott <bpabbott@mac.com> parents: 10995 diff changeset	666 l1 = line ("xdata", (xoffset + 0.5 * linelength + xk * xstep) / lpos(3),
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11563 diff changeset	667 "ydata", (lpos(4) - yoffset - yk * ystep) / lpos(4),
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	668 "color", color, "linestyle", "none", "marker", marker,
11033 d9c8916bb9dd Untabify a few remaining .m scripts. Rik <octave@nomad.inbox5.com> parents: 11003 diff changeset	669 "markeredgecolor", get (hplots (k), "markeredgecolor"),
d9c8916bb9dd Untabify a few remaining .m scripts. Rik <octave@nomad.inbox5.com> parents: 11003 diff changeset	670 "markerfacecolor", get (hplots (k), "markerfacecolor"),
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	671 "markersize", get (hplots (k), "markersize"),
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	672 "userdata", hplots (k));
10999 9f45b76c16e3 legend.m: Treat line, patch, and surface objects differetly. Ben Abbott <bpabbott@mac.com> parents: 10995 diff changeset	673 hobjects = [hobjects, l1];
9f45b76c16e3 legend.m: Treat line, patch, and surface objects differetly. Ben Abbott <bpabbott@mac.com> parents: 10995 diff changeset	674 endif
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	675
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	676 addlistener(hplots(k), "color", {@updateline, hlegend, linelength});
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	677 addlistener(hplots(k), "linestyle", {@updateline, hlegend, linelength});
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	678 addlistener(hplots(k), "marker", {@updateline, hlegend, linelength});
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	679 addlistener(hplots(k), "markeredgecolor", {@updateline, hlegend, linelength});
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	680 addlistener(hplots(k), "markerfacecolor", {@updateline, hlegend, linelength});
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	681 addlistener(hplots(k), "markersize", {@updateline, hlegend, linelength});
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	682 addlistener(hplots(k), "displayname", {@updateline, hlegend, linelength});
10999 9f45b76c16e3 legend.m: Treat line, patch, and surface objects differetly. Ben Abbott <bpabbott@mac.com> parents: 10995 diff changeset	683 case "patch"
9f45b76c16e3 legend.m: Treat line, patch, and surface objects differetly. Ben Abbott <bpabbott@mac.com> parents: 10995 diff changeset	684 case "surface"
9f45b76c16e3 legend.m: Treat line, patch, and surface objects differetly. Ben Abbott <bpabbott@mac.com> parents: 10995 diff changeset	685 endswitch
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	686 set (texthandle (k), "position", [(txoffset + xk * xstep) / lpos(3), ...
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	687 (lpos(4) - yoffset - yk * ystep) / lpos(4)]);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	688 if (strcmp (orientation, "vertical"))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	689 yk++;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	690 if (yk > num1)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	691 yk = 0;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	692 xk++;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	693 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	694 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	695 xk++;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	696 if (xk > num1)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	697 xk = 0;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	698 yk++;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	699 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	700 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	701 endfor
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	702
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	703 ## Add an invisible text object to original axis
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	704 ## that when it is destroyed will remove the legend
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11563 diff changeset	705 t1 = text (0, 0, "", "parent", ca(1), "tag", "legend",
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	706 "handlevisibility", "off", "visible", "off",
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	707 "xliminclude", "off", "yliminclude", "off");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	708 set (t1, "deletefcn", {@deletelegend1, hlegend});
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	709
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	710 ## Resize the axis the legend is attached to if the
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11563 diff changeset	711 ## legend is "outside" the plot and create listener to
c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11563 diff changeset	712 ## resize axis to original size if the legend is deleted,
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	713 ## hidden or shown
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	714 if (outside)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	715 for i = 1 : numel (ca)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	716 units = get (ca(i), "units");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	717 unwind_protect
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	718 set (ca(i), "units", "points");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	719 set (ca (i), "position", new_pos, "outerposition", new_outpos);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	720 unwind_protect_cleanup
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	721 set (ca(i), "units", units);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	722 end_unwind_protect
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	723 endfor
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	724
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	725 set (hlegend, "deletefcn", {@deletelegend2, ca, ...
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	726 ca_pos, ca_outpos, t1, hplots});
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	727 addlistener (hlegend, "visible", {@hideshowlegend, ca, ...
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	728 ca_pos, new_pos, ...
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	729 ca_outpos, new_outpos});
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	730 else
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	731 set (hlegend, "deletefcn", {@deletelegend2, ca, [], [], t1, hplots});
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	732 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	733
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	734 if (addprops)
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	735 addproperty ("edgecolor", hlegend, "color", [0, 0, 0]);
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	736 addproperty ("textcolor", hlegend, "color", [0, 0, 0]);
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	737 addproperty ("location", hlegend, "radio", "north\|south\|east\|west\|{northeast}\|southeast\|northwest\|southwest\|northoutside\|southoutside\|eastoutside\|westoutside\|northeastoutside\|southeastoutside\|northwestoutside\|southwestoutside");
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11563 diff changeset	738 addproperty ("orientation", hlegend, "radio",
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	739 "{vertical}\|horizontal");
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	740 addproperty ("string", hlegend, "any", text_strings);
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	741 addproperty ("textposition", hlegend, "radio", "{left}\|right");
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	742 else
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	743 set (hlegend, "string", text_strings);
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	744 endif
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	745
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	746 if (outside)
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11563 diff changeset	747 set (hlegend, "location", strcat (position, "outside"),
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	748 "orientation", orientation, "textposition", textpos);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	749 else
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	750 set (hlegend, "location", position, "orientation", orientation,
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	751 "textposition", textpos);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	752 endif
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	753 if (addprops)
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	754 addlistener (hlegend, "edgecolor", @updatelegendtext);
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	755 addlistener (hlegend, "textcolor", @updatelegendtext);
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	756 addlistener (hlegend, "interpreter", @updatelegendtext);
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	757 addlistener (hlegend, "location", @updatelegend);
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	758 addlistener (hlegend, "orientation", @updatelegend);
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	759 addlistener (hlegend, "string", @updatelegend);
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	760 addlistener (hlegend, "textposition", @updatelegend);
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	761 endif
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	762 unwind_protect_cleanup
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	763 set (fig, "currentaxes", curaxes);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	764 end_unwind_protect
6272 a1f3d3b7ee5c [project @ 2007-02-06 02:09:48 by jwe] jwe parents: 6257 diff changeset	765 endif
6147 e14b0e9b7bf7 [project @ 2006-11-09 03:28:01 by jwe] jwe parents: 6146 diff changeset	766 endif
e14b0e9b7bf7 [project @ 2006-11-09 03:28:01 by jwe] jwe parents: 6146 diff changeset	767
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	768 if (nargout > 0)
11134 7c045d801702 legend.m: Trivial fix to allow legend handle to be returned. Ben Abbott <bpabbott@mac.com> parents: 11120 diff changeset	769 hlegend2 = hlegend;
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	770 hobjects2 = hobjects;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	771 hplot2 = hplots;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	772 text_strings2 = text_strings;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	773 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	774
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	775 endfunction
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	776
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	777 function updatelegend (h, d)
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	778 persistent recursive = false;
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	779 if (! recursive)
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	780 recursive = true;
12339 eda5eabd5d0b Fix for inline legends (#32022, #32343) David Bateman <dbateman@free.fr> parents: 11587 diff changeset	781 unwind_protect
eda5eabd5d0b Fix for inline legends (#32022, #32343) David Bateman <dbateman@free.fr> parents: 11587 diff changeset	782 hax = getfield (get (h, "userdata"), "handle");
eda5eabd5d0b Fix for inline legends (#32022, #32343) David Bateman <dbateman@free.fr> parents: 11587 diff changeset	783 [hplots, text_strings] = __getlegenddata__ (h);
eda5eabd5d0b Fix for inline legends (#32022, #32343) David Bateman <dbateman@free.fr> parents: 11587 diff changeset	784 h = legend (hax, hplots, get (h, "string"));
eda5eabd5d0b Fix for inline legends (#32022, #32343) David Bateman <dbateman@free.fr> parents: 11587 diff changeset	785 unwind_protect_cleanup
eda5eabd5d0b Fix for inline legends (#32022, #32343) David Bateman <dbateman@free.fr> parents: 11587 diff changeset	786 recursive = false;
eda5eabd5d0b Fix for inline legends (#32022, #32343) David Bateman <dbateman@free.fr> parents: 11587 diff changeset	787 end_unwind_protect
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	788 endif
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	789 endfunction
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	790
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	791 function updatelegendtext (h, d)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	792 kids = get (h, "children");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	793 k = numel (kids);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	794 in = get (h, "interpreter");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	795 tc = get (h, "textcolor");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	796 while (k > 0)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	797 typ = get (kids(k), "type");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	798 while (k > 0 && ! strcmp (typ, "text"))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	799 typ = get (kids(--k), "type");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	800 endwhile
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	801 if (k > 0)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	802 set (kids (k), "interpreter", in, "color", tc);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	803 if (--k == 0)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	804 break;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	805 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	806 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	807 endwhile
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	808 endfunction
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	809
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	810 function hideshowlegend (h, d, ca, pos1, pos2, outpos1, outpos2)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	811 isvisible = strcmp (get (h, "visible"), "off");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	812 if (! isvisible)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	813 kids = get (h, "children");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	814 for i = 1 : numel (kids)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	815 if (! strcmp (get (kids(i), "visible"), "off"))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	816 isvisible = true;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	817 break;
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	818 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	819 endfor
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	820 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	821
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	822 for i = 1 : numel (ca)
11149 fe3c3dfc07eb style fix: break lines before && and \|\|, not after John W. Eaton <jwe@octave.org> parents: 11134 diff changeset	823 if (ishandle (ca(i)) && strcmp (get (ca(i), "type"), "axes")
fe3c3dfc07eb style fix: break lines before && and \|\|, not after John W. Eaton <jwe@octave.org> parents: 11134 diff changeset	824 && (isempty (gcbf()) \|\| strcmp (get (gcbf(), "beingdeleted"),"off"))
fe3c3dfc07eb style fix: break lines before && and \|\|, not after John W. Eaton <jwe@octave.org> parents: 11134 diff changeset	825 && strcmp (get (ca(i), "beingdeleted"), "off"))
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	826 units = get (ca(i), "units");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	827 unwind_protect
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	828 set (ca(i), "units", "points");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	829 if (isvisible)
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	830 set (ca(i), "position", pos2, "outerposition", outpos2);
10990 529b36293297 Backed out changeset 6ea65c5de87a David Bateman <dbateman@free.fr> parents: 10989 diff changeset	831 else
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	832 set (ca(i), "position", pos1, "outerposition", outpos1);
10990 529b36293297 Backed out changeset 6ea65c5de87a David Bateman <dbateman@free.fr> parents: 10989 diff changeset	833 endif
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	834 unwind_protect_cleanup
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	835 set (ca(i), "units", units);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	836 end_unwind_protect
10990 529b36293297 Backed out changeset 6ea65c5de87a David Bateman <dbateman@free.fr> parents: 10989 diff changeset	837 endif
529b36293297 Backed out changeset 6ea65c5de87a David Bateman <dbateman@free.fr> parents: 10989 diff changeset	838 endfor
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	839 endfunction
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	840
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	841 function deletelegend1 (h, d, ca)
11149 fe3c3dfc07eb style fix: break lines before && and \|\|, not after John W. Eaton <jwe@octave.org> parents: 11134 diff changeset	842 if (ishandle (ca) && strcmp (get (ca, "type"), "axes")
fe3c3dfc07eb style fix: break lines before && and \|\|, not after John W. Eaton <jwe@octave.org> parents: 11134 diff changeset	843 && (isempty (gcbf()) \|\| strcmp (get (gcbf(), "beingdeleted"),"off"))
fe3c3dfc07eb style fix: break lines before && and \|\|, not after John W. Eaton <jwe@octave.org> parents: 11134 diff changeset	844 && strcmp (get (ca, "beingdeleted"), "off"))
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	845 delete (ca);
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	846 endif
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	847 endfunction
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	848
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	849 function deletelegend2 (h, d, ca, pos, outpos, t1, hplots)
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	850 for i = 1 : numel (ca)
11149 fe3c3dfc07eb style fix: break lines before && and \|\|, not after John W. Eaton <jwe@octave.org> parents: 11134 diff changeset	851 if (ishandle (ca(i)) && strcmp (get (ca(i), "type"), "axes")
fe3c3dfc07eb style fix: break lines before && and \|\|, not after John W. Eaton <jwe@octave.org> parents: 11134 diff changeset	852 && (isempty (gcbf()) \|\| strcmp (get (gcbf(), "beingdeleted"),"off"))
fe3c3dfc07eb style fix: break lines before && and \|\|, not after John W. Eaton <jwe@octave.org> parents: 11134 diff changeset	853 && strcmp (get (ca(i), "beingdeleted"), "off"))
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	854 if (!isempty (pos) && !isempty(outpos))
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	855 units = get (ca(i), "units");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	856 unwind_protect
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	857 set (ca(i), "units", "points");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	858 set (ca(i), "position", pos, "outerposition", outpos, "deletefcn", "");
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	859 unwind_protect_cleanup
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	860 set (ca(i), "units", units);
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	861 end_unwind_protect
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	862 endif
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	863 endif
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	864 endfor
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	865 set (t1, "deletefcn", "");
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	866 delete (t1);
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	867 for i = 1 : numel (hplots)
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	868 if (strcmp (get (hplots (i), "type"), "line"))
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	869 dellistener (hplots (i), "color");
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	870 dellistener (hplots (i), "linestyle");
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	871 dellistener (hplots (i), "marker");
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	872 dellistener (hplots (i), "markeredgecolor");
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	873 dellistener (hplots (i), "markerfacecolor");
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	874 dellistener (hplots (i), "markersize");
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	875 dellistener (hplots (i), "displayname");
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	876 endif
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	877 endfor
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	878 endfunction
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	879
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	880 function updateline (h, d, hlegend, linelength)
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	881 lm = [];
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	882 ll = [];
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	883 kids = get (hlegend, "children");
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	884 for i = 1 : numel (kids)
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11563 diff changeset	885 if (get (kids (i), "userdata") == h
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	886 && strcmp (get (kids(i), "type"), "line"))
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	887 if (strcmp (get (kids (i), "marker"), "none"))
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	888 ll = kids (i);
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	889 else
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	890 lm = kids (i);
10995 e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	891 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	892 endif
e81914f3921f Update legend code to support fltk (fixes #29348 and partially fixes #30461) David Bateman <dbateman@free.fr> parents: 10990 diff changeset	893 endfor
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	894
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	895 linestyle = get (h, "linestyle");
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	896 marker = get (h, "marker");
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	897 displayname = get (h, "displayname");
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	898
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11563 diff changeset	899 if ((isempty (displayname)
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	900 \|\| (strcmp (marker, "none") && strcmp (linestyle, "none")))
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	901 && (! isempty (lm) \|\| isempty (ll)))
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	902 ## An element was removed from the legend. Need to recall the
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	903 ## legend function to recreate a new legend
12339 eda5eabd5d0b Fix for inline legends (#32022, #32343) David Bateman <dbateman@free.fr> parents: 11587 diff changeset	904 [hplots, text_strings] = __getlegenddata__ (hlegend);
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	905 for i = 1 : numel (hplots)
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	906 if (hplots (i) == h)
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	907 hplots(i) = [];
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	908 text_strings(i) = [];
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	909 break;
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	910 endif
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	911 endfor
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	912 legend (hplots, text_strings);
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11563 diff changeset	913 elseif ((!isempty (displayname)
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	914 && (! strcmp (marker, "none") \|\| ! strcmp (linestyle, "none")))
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	915 && isempty (lm) && isempty (ll))
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	916 ## An element was added to the legend. Need to recall the
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	917 ## legend function to recreate a new legend
12339 eda5eabd5d0b Fix for inline legends (#32022, #32343) David Bateman <dbateman@free.fr> parents: 11587 diff changeset	918 [hplots, text_strings] = __getlegenddata__ (hlegend);
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	919 hplots = [hplots, h];
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	920 text_strings = {text_strings{:}, displayname};
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	921 legend (hplots, text_strings);
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	922 else
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	923 if (! isempty (ll))
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	924 ypos1 = get (ll,"ydata");
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	925 xpos1 = get (ll,"xdata");
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	926 ypos2 = ypos1(1);
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	927 xpos2 = sum(xpos1) / 2;
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	928 delete (ll);
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	929 if (! isempty (lm))
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	930 delete (lm);
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	931 endif
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	932 else
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	933 ypos2 = get (lm,"ydata");
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	934 xpos2 = get (lm,"xdata");
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	935 ypos1 = [ypos2, ypos2];
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	936 xpos1 = xpos2 + [-0.5, 0.5] * linelength;
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	937 delete (lm);
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	938 endif
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	939 if (! strcmp (linestyle, "none"))
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11563 diff changeset	940 line ("xdata", xpos1, "ydata", ypos1, "color", get (h, "color"),
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	941 "linestyle", get (h, "linestyle"), "marker", "none",
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	942 "userdata", h, "parent", hlegend);
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	943 endif
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	944 if (! strcmp (marker, "none"))
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11563 diff changeset	945 line ("xdata", xpos2, "ydata", ypos2, "color", get (h, "color"),
11198 9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	946 "marker", marker, "markeredgecolor", get (h, "markeredgecolor"),
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	947 "markerfacecolor", get (h, "markerfacecolor"),
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	948 "markersize", get (h, "markersize"), "linestyle", "none",
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	949 "userdata", h, "parent", hlegend);
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	950 endif
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	951 endif
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	952 endfunction
9f080d23396f Fix multi-parented legends with the gnuplot backend (fixes #30461 and #31522) David Bateman <dbateman@free.fr> parents: 11149 diff changeset	953
11418 a140991387fb legend.m: Add demo to legend for inline key. Ben Abbott <bpabbott@mac.com> parents: 11363 diff changeset	954 %!demo
a140991387fb legend.m: Add demo to legend for inline key. Ben Abbott <bpabbott@mac.com> parents: 11363 diff changeset	955 %! clf
a140991387fb legend.m: Add demo to legend for inline key. Ben Abbott <bpabbott@mac.com> parents: 11363 diff changeset	956 %! x = 0:1;
11462 aed2c50c3082 legend.m: legend with more than two inline keys (bug 31991). Add/modifyy demos. Ben Abbott <bpabbott@mac.com> parents: 11434 diff changeset	957 %! plot (x, x, ";I am Blue;", x, 2x, ";I am Green;", x, 3x, ";I am Red;")
aed2c50c3082 legend.m: legend with more than two inline keys (bug 31991). Add/modifyy demos. Ben Abbott <bpabbott@mac.com> parents: 11434 diff changeset	958
aed2c50c3082 legend.m: legend with more than two inline keys (bug 31991). Add/modifyy demos. Ben Abbott <bpabbott@mac.com> parents: 11434 diff changeset	959 %!demo
aed2c50c3082 legend.m: legend with more than two inline keys (bug 31991). Add/modifyy demos. Ben Abbott <bpabbott@mac.com> parents: 11434 diff changeset	960 %! clf
aed2c50c3082 legend.m: legend with more than two inline keys (bug 31991). Add/modifyy demos. Ben Abbott <bpabbott@mac.com> parents: 11434 diff changeset	961 %! x = 0:1;
11434 1f54ee6760b5 legend.m: Only one legend per axes (bug 32022) Ben Abbott <bpabbott@mac.com> parents: 11418 diff changeset	962 %! plot (x, x, ";I am Blue;", x, 2x, x, 3x, ";I am Red;")
11462 aed2c50c3082 legend.m: legend with more than two inline keys (bug 31991). Add/modifyy demos. Ben Abbott <bpabbott@mac.com> parents: 11434 diff changeset	963 %! title ("Blue and Green keys, with Green mising")
8343 9f34f7636fe0 legend.m: Correct ording of legend labels. Ben Abbott <bpabbott@mac.com> parents: 8291 diff changeset	964
9f34f7636fe0 legend.m: Correct ording of legend labels. Ben Abbott <bpabbott@mac.com> parents: 8291 diff changeset	965 %!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	966 %! clf
9451 350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	967 %! 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	968 %! title("incline is blue and decline is green");
11434 1f54ee6760b5 legend.m: Only one legend per axes (bug 32022) Ben Abbott <bpabbott@mac.com> parents: 11418 diff changeset	969 %! legend({"I am blue", "I am green"}, "location", "east");
1f54ee6760b5 legend.m: Only one legend per axes (bug 32022) Ben Abbott <bpabbott@mac.com> parents: 11418 diff changeset	970 %! legend({"I am blue", "I am green"}, "location", "east");
1f54ee6760b5 legend.m: Only one legend per axes (bug 32022) Ben Abbott <bpabbott@mac.com> parents: 11418 diff changeset	971 %! legend hide
1f54ee6760b5 legend.m: Only one legend per axes (bug 32022) Ben Abbott <bpabbott@mac.com> parents: 11418 diff changeset	972 %! legend show
11363 a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs Rik <octave@nomad.inbox5.com> parents: 11246 diff changeset	973
a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs Rik <octave@nomad.inbox5.com> parents: 11246 diff changeset	974 %!demo
a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs Rik <octave@nomad.inbox5.com> parents: 11246 diff changeset	975 %! clf
a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs Rik <octave@nomad.inbox5.com> parents: 11246 diff changeset	976 %! plot(1:10, 1:10, 1:10, fliplr(1:10));
11434 1f54ee6760b5 legend.m: Only one legend per axes (bug 32022) Ben Abbott <bpabbott@mac.com> parents: 11418 diff changeset	977 %! title("Legend is hidden")
1f54ee6760b5 legend.m: Only one legend per axes (bug 32022) Ben Abbott <bpabbott@mac.com> parents: 11418 diff changeset	978 %! legend({"I am blue", "I am green"}, "location", "east");
1f54ee6760b5 legend.m: Only one legend per axes (bug 32022) Ben Abbott <bpabbott@mac.com> parents: 11418 diff changeset	979 %! legend hide
1f54ee6760b5 legend.m: Only one legend per axes (bug 32022) Ben Abbott <bpabbott@mac.com> parents: 11418 diff changeset	980
1f54ee6760b5 legend.m: Only one legend per axes (bug 32022) Ben Abbott <bpabbott@mac.com> parents: 11418 diff changeset	981 %!demo
1f54ee6760b5 legend.m: Only one legend per axes (bug 32022) Ben Abbott <bpabbott@mac.com> parents: 11418 diff changeset	982 %! clf
1f54ee6760b5 legend.m: Only one legend per axes (bug 32022) Ben Abbott <bpabbott@mac.com> parents: 11418 diff changeset	983 %! plot(1:10, 1:10, 1:10, fliplr(1:10));
1f54ee6760b5 legend.m: Only one legend per axes (bug 32022) Ben Abbott <bpabbott@mac.com> parents: 11418 diff changeset	984 %! title("Legend with box on")
1f54ee6760b5 legend.m: Only one legend per axes (bug 32022) Ben Abbott <bpabbott@mac.com> parents: 11418 diff changeset	985 %! legend({"I am blue", "I am green"}, "location", "east");
1f54ee6760b5 legend.m: Only one legend per axes (bug 32022) Ben Abbott <bpabbott@mac.com> parents: 11418 diff changeset	986 %! legend boxon
1f54ee6760b5 legend.m: Only one legend per axes (bug 32022) Ben Abbott <bpabbott@mac.com> parents: 11418 diff changeset	987
1f54ee6760b5 legend.m: Only one legend per axes (bug 32022) Ben Abbott <bpabbott@mac.com> parents: 11418 diff changeset	988 %!demo
1f54ee6760b5 legend.m: Only one legend per axes (bug 32022) Ben Abbott <bpabbott@mac.com> parents: 11418 diff changeset	989 %! clf
1f54ee6760b5 legend.m: Only one legend per axes (bug 32022) Ben Abbott <bpabbott@mac.com> parents: 11418 diff changeset	990 %! plot(1:10, 1:10, 1:10, fliplr(1:10));
1f54ee6760b5 legend.m: Only one legend per axes (bug 32022) Ben Abbott <bpabbott@mac.com> parents: 11418 diff changeset	991 %! title("Legend with text to the right")
1f54ee6760b5 legend.m: Only one legend per axes (bug 32022) Ben Abbott <bpabbott@mac.com> parents: 11418 diff changeset	992 %! legend({"I am blue", "I am green"}, "location", "east");
1f54ee6760b5 legend.m: Only one legend per axes (bug 32022) Ben Abbott <bpabbott@mac.com> parents: 11418 diff changeset	993 %! legend right
9451 350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	994
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	995 %!demo
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	996 %! clf
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	997 %! plot(1:10, 1:10);
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	998 %! title("a very long label can sometimes cause problems");
11363 a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs Rik <octave@nomad.inbox5.com> parents: 11246 diff changeset	999 %! legend({"hello world"}, "location", "northeastoutside");
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	1000
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	1001 %!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	1002 %! clf
9451 350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1003 %! plot(1:10, 1:10);
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1004 %! title("a very long label can sometimes cause problems");
11363 a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs Rik <octave@nomad.inbox5.com> parents: 11246 diff changeset	1005 %! legend("hello world", "location", "northeastoutside");
9451 350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1006
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1007 %!demo
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1008 %! clf
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	1009 %! labels = {};
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	1010 %! for i = 1:5
11363 a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs Rik <octave@nomad.inbox5.com> parents: 11246 diff changeset	1011 %! h = plot(1:100, i + rand(100,1)); hold on;
a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs Rik <octave@nomad.inbox5.com> parents: 11246 diff changeset	1012 %! set (h, "color", get (gca, "colororder")(i,:))
a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs Rik <octave@nomad.inbox5.com> parents: 11246 diff changeset	1013 %! labels = {labels{:}, cstrcat("Signal ", num2str(i))};
a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs Rik <octave@nomad.inbox5.com> parents: 11246 diff changeset	1014 %! endfor
a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs Rik <octave@nomad.inbox5.com> parents: 11246 diff changeset	1015 %! hold off;
6146 1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	1016 %! title("Signals with random offset and uniform noise")
1a6d826e92b5 [project @ 2006-11-09 03:13:11 by jwe] jwe parents: diff changeset	1017 %! xlabel("Sample Nr [k]"); ylabel("Amplitude [V]");
11363 a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs Rik <octave@nomad.inbox5.com> parents: 11246 diff changeset	1018 %! legend(labels, "location", "southoutside");
a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs Rik <octave@nomad.inbox5.com> parents: 11246 diff changeset	1019 %! legend("boxon");
9451 350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1020
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1021 %!demo
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1022 %! clf
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1023 %! labels = {};
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1024 %! for i = 1:5
11363 a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs Rik <octave@nomad.inbox5.com> parents: 11246 diff changeset	1025 %! h = plot(1:100, i + rand(100,1)); hold on;
a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs Rik <octave@nomad.inbox5.com> parents: 11246 diff changeset	1026 %! set (h, "color", get (gca, "colororder")(i,:))
a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs Rik <octave@nomad.inbox5.com> parents: 11246 diff changeset	1027 %! labels = {labels{:}, cstrcat("Signal ", num2str(i))};
a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs Rik <octave@nomad.inbox5.com> parents: 11246 diff changeset	1028 %! endfor
a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs Rik <octave@nomad.inbox5.com> parents: 11246 diff changeset	1029 %! hold off;
9451 350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1030 %! title("Signals with random offset and uniform noise")
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1031 %! xlabel("Sample Nr [k]"); ylabel("Amplitude [V]");
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1032 %! legend(labels{:}, "location", "southoutside")
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1033 %! legend("boxon")
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1034
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1035 %!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	1036 %! clf
9451 350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1037 %! x = linspace (0, 10);
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1038 %! plot (x, x);
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1039 %! hold ("on");
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1040 %! stem (x, x.^2, 'g')
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1041 %! legend ("linear");
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1042 %! hold ("off");
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1043
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1044 %!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	1045 %! clf
9451 350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1046 %! x = linspace (0, 10);
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1047 %! plot (x, x, x, x.^2);
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1048 %! legend ("linear");
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1049
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1050 %!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	1051 %! clf
9451 350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1052 %! x = linspace (0, 10);
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1053 %! plot (x, x, x, x.^2);
350148cc0774 legend.m: fix legend order John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	1054 %! 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	1055
f9fb8c1a8e45 legend.m: Add an hggroup demo using bar(). Include clf() in each demo. Ben Abbott <bpabbott@mac.com> parents: 9451 diff changeset	1056 %!demo
f9fb8c1a8e45 legend.m: Add an hggroup demo using bar(). Include clf() in each demo. Ben Abbott <bpabbott@mac.com> parents: 9451 diff changeset	1057 %! clf
11363 a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs Rik <octave@nomad.inbox5.com> parents: 11246 diff changeset	1058 %! rand_2x3_data1 = [0.341447, 0.171220, 0.284370; 0.039773, 0.731725, 0.779382];
a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs Rik <octave@nomad.inbox5.com> parents: 11246 diff changeset	1059 %! bar (rand_2x3_data1);
a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs Rik <octave@nomad.inbox5.com> parents: 11246 diff changeset	1060 %! ylim ([0 1.2]);
a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs Rik <octave@nomad.inbox5.com> parents: 11246 diff changeset	1061 %! legend ({"1st Bar", "2nd Bar", "3rd Bar"});
9457 f9fb8c1a8e45 legend.m: Add an hggroup demo using bar(). Include clf() in each demo. Ben Abbott <bpabbott@mac.com> parents: 9451 diff changeset	1062
f9fb8c1a8e45 legend.m: Add an hggroup demo using bar(). Include clf() in each demo. Ben Abbott <bpabbott@mac.com> parents: 9451 diff changeset	1063 %!demo
f9fb8c1a8e45 legend.m: Add an hggroup demo using bar(). Include clf() in each demo. Ben Abbott <bpabbott@mac.com> parents: 9451 diff changeset	1064 %! clf
11363 a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs Rik <octave@nomad.inbox5.com> parents: 11246 diff changeset	1065 %! rand_2x3_data2 = [0.44804, 0.84368, 0.23012; 0.72311, 0.58335, 0.90531];
a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs Rik <octave@nomad.inbox5.com> parents: 11246 diff changeset	1066 %! bar (rand_2x3_data2);
a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs Rik <octave@nomad.inbox5.com> parents: 11246 diff changeset	1067 %! ylim ([0 1.2]);
a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs Rik <octave@nomad.inbox5.com> parents: 11246 diff changeset	1068 %! 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	1069
3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	1070 %!demo
3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	1071 %! clf
3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	1072 %! x = 0:0.1:7;
3afcd24ced61 legend.m: Key labels for specified objects. Ben Abbott <bpabbott@mac.com> parents: 10549 diff changeset	1073 %! h = plot (x, sin(x), x, cos(x), x, sin(x.^2/10), x, cos(x.^2/10));
11363 a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs Rik <octave@nomad.inbox5.com> parents: 11246 diff changeset	1074 %! title ("Only the sin() objects have keylabels");
a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs Rik <octave@nomad.inbox5.com> parents: 11246 diff changeset	1075 %! legend (h([1, 3]), {"sin(x)", "sin(x^2/10)"}, "location", "southwest");
a0dfd7e8e3e2 Assign data used in demo plots for reproducibility between runs Rik <octave@nomad.inbox5.com> parents: 11246 diff changeset	1076
12340 d63007ac067a legend.m: Add demo for inline keys created by two plot commands. Ben Abbott <bpabbott@mac.com> parents: 12339 diff changeset	1077 %!demo
d63007ac067a legend.m: Add demo for inline keys created by two plot commands. Ben Abbott <bpabbott@mac.com> parents: 12339 diff changeset	1078 %! clf
d63007ac067a legend.m: Add demo for inline keys created by two plot commands. Ben Abbott <bpabbott@mac.com> parents: 12339 diff changeset	1079 %! x = 0:0.1:10;
d63007ac067a legend.m: Add demo for inline keys created by two plot commands. Ben Abbott <bpabbott@mac.com> parents: 12339 diff changeset	1080 %! plot (x, sin(x), ";sin(x);")
d63007ac067a legend.m: Add demo for inline keys created by two plot commands. Ben Abbott <bpabbott@mac.com> parents: 12339 diff changeset	1081 %! hold all
d63007ac067a legend.m: Add demo for inline keys created by two plot commands. Ben Abbott <bpabbott@mac.com> parents: 12339 diff changeset	1082 %! plot (x, cos(x), ";cos(x);")
d63007ac067a legend.m: Add demo for inline keys created by two plot commands. Ben Abbott <bpabbott@mac.com> parents: 12339 diff changeset	1083 %! hold off
d63007ac067a legend.m: Add demo for inline keys created by two plot commands. Ben Abbott <bpabbott@mac.com> parents: 12339 diff changeset	1084
12387 5fb6ea1bff65 legend.m: Add demo for replacing existing legend. Ben Abbott <bpabbott@mac.com> parents: 12340 diff changeset	1085 %!demo
5fb6ea1bff65 legend.m: Add demo for replacing existing legend. Ben Abbott <bpabbott@mac.com> parents: 12340 diff changeset	1086 %! clf
5fb6ea1bff65 legend.m: Add demo for replacing existing legend. Ben Abbott <bpabbott@mac.com> parents: 12340 diff changeset	1087 %! x = 0:0.1:10;
5fb6ea1bff65 legend.m: Add demo for replacing existing legend. Ben Abbott <bpabbott@mac.com> parents: 12340 diff changeset	1088 %! plot (x, sin(x), ";sin(x);")
5fb6ea1bff65 legend.m: Add demo for replacing existing legend. Ben Abbott <bpabbott@mac.com> parents: 12340 diff changeset	1089 %! hold all
5fb6ea1bff65 legend.m: Add demo for replacing existing legend. Ben Abbott <bpabbott@mac.com> parents: 12340 diff changeset	1090 %! plot (x, cos(x), ";cos(x);")
5fb6ea1bff65 legend.m: Add demo for replacing existing legend. Ben Abbott <bpabbott@mac.com> parents: 12340 diff changeset	1091 %! hold off
5fb6ea1bff65 legend.m: Add demo for replacing existing legend. Ben Abbott <bpabbott@mac.com> parents: 12340 diff changeset	1092 %! legend ({"sin(x)", "cos(x)"}, "location", "northeastoutside")
5fb6ea1bff65 legend.m: Add demo for replacing existing legend. Ben Abbott <bpabbott@mac.com> parents: 12340 diff changeset	1093
5fb6ea1bff65 legend.m: Add demo for replacing existing legend. Ben Abbott <bpabbott@mac.com> parents: 12340 diff changeset	1094

Mercurial > hg > octave-nkf

annotate scripts/plot/legend.m @ 12388:cf9ca0dbc5ee