Mercurial > octave-libgccjit
annotate scripts/plot/legend.m @ 8920:eb63fbe60fab
update copyright notices
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Sat, 07 Mar 2009 10:41:27 -0500 |
| parents | 485eabc0cfec |
| children | 350148cc0774 |
| rev | line source |
|---|---|
| 8920 | 1 ## Copyright (C) 2001, 2006, 2007, 2008, 2009 Laurent Mazet |
| 6146 | 2 ## Copyright (C) 2006 John W. Eaton |
| 3 ## | |
| 6440 | 4 ## This file is part of Octave. |
| 5 ## | |
| 6 ## Octave is free software; you can redistribute it and/or modify it | |
| 7 ## under the terms of the GNU General Public License as published by | |
| 7016 | 8 ## the Free Software Foundation; either version 3 of the License, or (at |
| 9 ## your option) any later version. | |
| 6440 | 10 ## |
| 11 ## Octave is distributed in the hope that it will be useful, but | |
| 12 ## WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 13 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
| 14 ## General Public License for more details. | |
| 6146 | 15 ## |
| 16 ## You should have received a copy of the GNU General Public License | |
| 7016 | 17 ## along with Octave; see the file COPYING. If not, see |
| 18 ## <http://www.gnu.org/licenses/>. | |
| 6146 | 19 |
| 20 ## -*- texinfo -*- | |
| 6450 | 21 ## @deftypefn {Function File} {} legend (@var{st1}, @var{st2}, @dots{}) |
| 6977 | 22 ## @deftypefnx {Function File} {} legend (@var{st1}, @var{st2}, @dots{}, "location", @var{pos}) |
| 6146 | 23 ## @deftypefnx {Function File} {} legend (@var{matstr}) |
| 6977 | 24 ## @deftypefnx {Function File} {} legend (@var{matstr}, "location", @var{pos}) |
| 6146 | 25 ## @deftypefnx {Function File} {} legend (@var{cell}) |
| 6977 | 26 ## @deftypefnx {Function File} {} legend (@var{cell}, "location", @var{pos}) |
| 6146 | 27 ## @deftypefnx {Function File} {} legend ('@var{func}') |
| 28 ## | |
| 6895 | 29 ## Display a legend for the current axes using the specified strings |
| 30 ## as labels. Legend entries may be specified as individual character | |
| 31 ## string arguments, a character array, or a cell array of character | |
| 32 ## strings. Legend works on line graphs, bar graphs, etc. A plot must | |
| 33 ## exist before legend is called. | |
| 6146 | 34 ## |
| 6895 | 35 ## The optional parameter @var{pos} specifies the location of the legend |
| 36 ## as follows: | |
| 6146 | 37 ## |
| 6977 | 38 ## @multitable @columnfractions 0.06 0.14 0.80 |
| 39 ## @item @tab north @tab | |
| 40 ## center top | |
| 41 ## @item @tab south @tab | |
| 42 ## center bottom | |
| 43 ## @item @tab east @tab | |
| 44 ## right center | |
| 45 ## @item @tab west @tab | |
| 46 ## left center | |
| 47 ## @item @tab northeast @tab | |
| 48 ## right top (default) | |
| 49 ## @item @tab northwest @tab | |
| 50 ## left top | |
| 51 ## @item @tab southeast @tab | |
| 52 ## right bottom | |
| 53 ## @item @tab southwest @tab | |
| 54 ## left bottom | |
| 55 ## @item | |
| 56 ## @item @tab outside @tab | |
| 57 ## can be appended to any location string | |
| 6146 | 58 ## @end multitable |
| 59 ## | |
| 7001 | 60 ## Some specific functions are directly available using @var{func}: |
| 6146 | 61 ## |
| 7148 | 62 ## @table @asis |
| 6895 | 63 ## @item "show" |
| 6146 | 64 ## Show legends from the plot |
| 6895 | 65 ## @item "hide" |
| 7148 | 66 ## @itemx "off" |
| 6146 | 67 ## Hide legends from the plot |
| 6895 | 68 ## @item "boxon" |
| 6146 | 69 ## Draw a box around legends |
| 6895 | 70 ## @item "boxoff" |
| 6146 | 71 ## Withdraw the box around legends |
| 6895 | 72 ## @item "left" |
| 6146 | 73 ## Text is to the left of the keys |
| 6895 | 74 ## @item "right" |
| 6146 | 75 ## Text is to the right of the keys |
| 76 ## @end table | |
| 77 ## @end deftypefn | |
| 78 | |
| 79 function legend (varargin) | |
| 80 | |
| 8208 | 81 [ca, varargin, nargin] = __plt_get_axis_arg__ ("legend", varargin{:}); |
| 6257 | 82 nargs = nargin; |
| 6146 | 83 |
| 84 if (nargs > 0) | |
| 85 pos = varargin{nargs}; | |
| 86 if (isnumeric (pos) && isscalar (pos) && round (pos) == pos) | |
| 6395 | 87 if (pos >= -1 && pos <= 4) |
| 6257 | 88 set (ca, "keypos", pos); |
| 6146 | 89 nargs--; |
| 90 else | |
| 91 error ("legend: invalid position specified"); | |
| 92 endif | |
| 93 endif | |
| 94 endif | |
| 6977 | 95 |
| 96 if (nargs > 1) | |
| 97 pos = varargin{nargs-1}; | |
| 7054 | 98 str = varargin{nargs}; |
| 6977 | 99 if (strcmpi (pos, "location") && ischar (str)) |
| 100 set (ca, "keypos", str); | |
| 101 nargs -= 2; | |
| 102 endif | |
| 103 endif | |
| 6146 | 104 |
| 6257 | 105 kids = get (ca, "children"); |
| 106 nkids = numel (kids); | |
| 107 k = 1; | |
| 108 turn_on_legend = false; | |
| 109 | |
| 6146 | 110 if (nargs == 1) |
| 111 arg = varargin{1}; | |
| 112 if (ischar (arg)) | |
| 113 if (rows (arg) == 1) | |
| 114 str = tolower (deblank (arg)); | |
| 115 switch (str) | |
| 116 case {"off", "hide"} | |
| 6257 | 117 set (ca, "key", "off"); |
| 6146 | 118 case "show" |
| 6257 | 119 set (ca, "key", "on"); |
| 6146 | 120 case "toggle" |
| 6257 | 121 val = get (ca, "key"); |
|
8190
73d6b71788c0
use case-insensitive comparison for graphics properties; misc style fixes
John W. Eaton <jwe@octave.org>
parents:
8102
diff
changeset
|
122 if (strcmpi (val, "on")) |
| 6257 | 123 set (ca, "key", "off"); |
| 124 else | |
| 125 set (ca, "key", "on"); | |
| 126 endif | |
| 6146 | 127 case "boxon" |
| 6257 | 128 set (ca, "key", "on", "keybox", "on"); |
| 6146 | 129 case "boxoff" |
| 6257 | 130 set (ca, "keybox", "off"); |
|
8291
53f35799b235
Add support for left/right argument to the legend function
David Bateman <dbateman@free.fr>
parents:
8257
diff
changeset
|
131 case "left" |
|
53f35799b235
Add support for left/right argument to the legend function
David Bateman <dbateman@free.fr>
parents:
8257
diff
changeset
|
132 set (ca, "keyreverse", "off") |
|
53f35799b235
Add support for left/right argument to the legend function
David Bateman <dbateman@free.fr>
parents:
8257
diff
changeset
|
133 case "right" |
|
53f35799b235
Add support for left/right argument to the legend function
David Bateman <dbateman@free.fr>
parents:
8257
diff
changeset
|
134 set (ca, "keyreverse", "on") |
| 6146 | 135 otherwise |
| 8208 | 136 typ = get (kids (k), "type"); |
| 137 while (k <= nkids && ! strcmp (typ, "line") && | |
| 138 ! strcmp (typ, "hggroup")) | |
| 6257 | 139 k++; |
| 8257 | 140 typ = get (kids (k), "type"); |
| 6257 | 141 endwhile |
| 142 if (k <= nkids) | |
| 143 turn_on_legend = true; | |
| 8208 | 144 if (strcmp (typ, "hggroup")) |
| 145 hgkids = get (kids(k), "children"); | |
| 146 for j = 1 : length (hgkids) | |
| 147 hgobj = get (hgkids (j)); | |
| 148 if (isfield (hgobj, "keylabel")) | |
| 149 set (hgkids(j), "keylabel", arg); | |
| 150 break; | |
| 151 endif | |
| 152 endfor | |
| 153 else | |
| 154 set (kids(k), "keylabel", arg); | |
| 155 endif | |
| 6257 | 156 else |
| 157 warning ("legend: ignoring extra labels"); | |
| 158 endif | |
| 6146 | 159 endswitch |
| 160 nargs--; | |
| 161 else | |
| 162 varargin = cellstr (arg); | |
| 6740 | 163 nargs = numel (varargin); |
| 6146 | 164 endif |
| 165 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
|
166 varargin = arg; |
| 6146 | 167 nargs = numel (varargin); |
| 168 else | |
| 169 error ("legend: expecting argument to be a character string"); | |
| 170 endif | |
| 171 endif | |
| 172 | |
| 6272 | 173 if (nargs > 0) |
| 174 have_data = false; | |
| 175 for i = 1:nkids | |
| 7148 | 176 if (strcmp (get (kids(k), "type"), "line") |
| 177 || strcmp (get (kids(k), "type"), "surface") | |
| 8208 | 178 || strcmp (get (kids(k), "type"), "patch") |
| 179 || strcmp (get (kids(k), "type"), "hggroup")) | |
| 6272 | 180 have_data = true; |
| 181 break; | |
| 182 endif | |
| 183 endfor | |
| 184 if (! have_data) | |
| 185 warning ("legend: plot data is empty; setting key labels has no effect"); | |
| 186 endif | |
| 6147 | 187 endif |
| 188 | |
| 6575 | 189 warned = false; |
|
8529
774b44619c5c
Fix legend order for both horizontal and vertical string cell.
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
8343
diff
changeset
|
190 for i = nargs:-1:1 |
| 6146 | 191 arg = varargin{i}; |
| 192 if (ischar (arg)) | |
| 7148 | 193 while (k <= nkids |
| 194 && ! (strcmp (get (kids(k), "type"), "line") | |
| 195 || strcmp (get (kids(k), "type"), "surface") | |
| 8208 | 196 || strcmp (get (kids(k), "type"), "patch") |
| 197 || strcmp (get (kids(k), "type"), "hggroup"))) | |
| 6257 | 198 k++; |
| 199 endwhile | |
| 200 if (k <= nkids) | |
| 8208 | 201 if (strcmp (get (kids(k), "type"), "hggroup")) |
| 202 hgkids = get (kids(k), "children"); | |
| 203 for j = 1 : length (hgkids) | |
| 204 hgobj = get (hgkids (j)); | |
| 205 if (isfield (hgobj, "keylabel")) | |
| 206 set (hgkids(j), "keylabel", arg); | |
| 207 break; | |
| 208 endif | |
| 209 endfor | |
| 210 else | |
| 211 set (kids(k), "keylabel", arg); | |
| 212 endif | |
| 6257 | 213 turn_on_legend = true; |
| 6450 | 214 k++; |
| 6257 | 215 elseif (! warned) |
| 216 warned = true; | |
| 217 warning ("legend: ignoring extra labels"); | |
| 218 endif | |
| 6146 | 219 else |
| 220 error ("legend: expecting argument to be a character string"); | |
| 221 endif | |
| 222 endfor | |
| 223 | |
| 6257 | 224 if (turn_on_legend) |
| 225 set (ca, "key", "on"); | |
| 6146 | 226 endif |
| 227 | |
| 228 endfunction | |
| 229 | |
| 230 %!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
|
231 %! clf |
|
8343
9f34f7636fe0
legend.m: Correct ording of legend labels.
Ben Abbott <bpabbott@mac.com>
parents:
8291
diff
changeset
|
232 %! plot(1:10, 1:10, 1:10, fliplr(1:10)); |
|
9f34f7636fe0
legend.m: Correct ording of legend labels.
Ben Abbott <bpabbott@mac.com>
parents:
8291
diff
changeset
|
233 %! title("incline is blue and decline is green"); |
|
9f34f7636fe0
legend.m: Correct ording of legend labels.
Ben Abbott <bpabbott@mac.com>
parents:
8291
diff
changeset
|
234 %! legend({"I'm blue", "I'm green"}, "location", "east") |
|
9f34f7636fe0
legend.m: Correct ording of legend labels.
Ben Abbott <bpabbott@mac.com>
parents:
8291
diff
changeset
|
235 |
|
9f34f7636fe0
legend.m: Correct ording of legend labels.
Ben Abbott <bpabbott@mac.com>
parents:
8291
diff
changeset
|
236 %!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
|
237 %! clf |
| 6146 | 238 %! plot(1:10, 1:10); |
| 239 %! title("a very long label can sometimes cause problems"); | |
| 6977 | 240 %! legend({"hello world"}, "location", "northeastoutside") |
| 6146 | 241 |
| 242 %!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
|
243 %! clf |
| 6146 | 244 %! labels = {}; |
| 245 %! for i = 1:5 | |
|
8915
485eabc0cfec
__go_draw_axes__.m: Preserve the order of axes' children when pruning the handles for the {x,y,z}labels and title.
Ben Abbott <bpabbott@mac.com>
parents:
8790
diff
changeset
|
246 %! h = plot(1:100, i + rand(100,1)); hold on; |
|
485eabc0cfec
__go_draw_axes__.m: Preserve the order of axes' children when pruning the handles for the {x,y,z}labels and title.
Ben Abbott <bpabbott@mac.com>
parents:
8790
diff
changeset
|
247 %! set (h, "color", get (gca, "colororder")(i,:)) |
|
7540
3422f39573b1
strcat.m: Matlab compatibility, with cstrcat.m replacing conventional strcat.m.
Ben Abbott <bpabbott@mac.com>
parents:
7148
diff
changeset
|
248 %! labels = {labels{:}, cstrcat("Signal ", num2str(i))}; |
| 6146 | 249 %! endfor; hold off; |
| 250 %! title("Signals with random offset and uniform noise") | |
| 251 %! xlabel("Sample Nr [k]"); ylabel("Amplitude [V]"); | |
| 6977 | 252 %! legend(labels, "location", "southoutside") |
| 6146 | 253 %! legend("boxon") |