Mercurial > hg > octave-nkf

annotate scripts/plot/findfigs.m @ 14576:4dbb47d09219

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
New Function, findfigs.m * findfigs.m: New File. * scripts/plot/module.mk: Add new file. * scripts/help/unimplmented.m: Remove findfigs.m from list. * NEWS: Mention new file.
author Carnë Draug <carandraug+dev@gmail.com>
date Sat, 21 Apr 2012 18:10:11 -0400
parents
children dd4ad69e4ab9
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
14576
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
1 ## Copyright (C) 2008 Bill Denney
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
2 ## Copyright (C) 2012 Carnë Draug
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
3 ##
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
4 ## This file is part of Octave.
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
5 ##
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
6 ## Octave is free software; you can redistribute it and/or modify it
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
7 ## under the terms of the GNU General Public License as published by
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
8 ## the Free Software Foundation; either version 3 of the License, or (at
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
9 ## your option) any later version.
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
10 ##
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
11 ## Octave is distributed in the hope that it will be useful, but
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
12 ## WITHOUT ANY WARRANTY; without even the implied warranty of
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
13 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
14 ## General Public License for more details.
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
15 ##
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
16 ## You should have received a copy of the GNU General Public License
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
17 ## along with Octave; see the file COPYING. If not, see
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
18 ## <http://www.gnu.org/licenses/>.
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
19
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
20 ## -*- texinfo -*-
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
21 ## @deftypefn {Function File} {} findfigs ()
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
22 ## Find all visible figures that are currently off the screen and move them
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
23 ## onto the screen.
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
24 ## @seealso{allchild, figure, get, set}
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
25 ## @end deftypefn
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
26
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
27 ## Author: Bill Denney <bill@denney.ws>
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
28 ## Modified by: Carnë Draug <carandraug+dev@gmail.com>
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
29
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
30 function findfigs ()
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
31
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
32 figh = allchild (0);
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
33 units = get (0, "units");
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
34 unwind_protect
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
35 if (!strcmp (units, "pixels"))
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
36 set (0, "units", "pixels");
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
37 endif
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
38 screensize = get (0, "screensize");
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
39 unwind_protect_cleanup
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
40 set (0, "units", units);
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
41 end_unwind_protect
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
42
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
43 ## give the monitor a margin so that the figure must not just
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
44 ## marginally be on the monitor.
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
45 margin = 30;
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
46 screensize(1:2) += margin;
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
47 screensize(3:4) -= margin;
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
48
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
49 for i = 1:numel (figh)
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
50 if strcmp (get (figh(i), "visible"), "on")
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
51
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
52 units = get (figh(i), "units");
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
53 unwind_protect
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
54 if (!strcmp (units, "pixels"))
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
55 set (figh(i), "units", "pixels");
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
56 endif
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
57 pos = get (figh(i), "position");
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
58 ## Test if (in order):
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
59 ## The left side is outside the right side of the screen
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
60 ## The bottom is above the top of the screen
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
61 ## The right side is outside the left of the screen
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
62 ## the top is below the bottom of the screen
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
63 if (pos(1) > screensize(3)
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
64 || pos(2) > screensize(4)
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
65 || pos(1)+pos(3) < screensize(1)
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
66 || pos(2)+pos(4) < screensize(2))
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
67
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
68 ## the new position will be at the top left of the screen
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
69 ## (all moved figures will overlap). The bottom left is chosen
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
70 ## instead of the top left because that allows for the unknown
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
71 ## amount of space for the menu bar and the title bar.
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
72 pos(1) = screensize(1);
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
73 pos(2) = screensize(2);
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
74 set (figh(i), "position", pos);
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
75 endif
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
76 unwind_protect_cleanup
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
77 set (figh(i), "units", units);
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
78 end_unwind_protect
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
79 endif
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
80 endfor
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
81 endfunction