annotate scripts/plot/util/findfigs.m @ 19864:dfea01b3425f

more mouse interaction features for Qt plotting widget * graphics.in.h, graphics.cc (figure::properties::__mouse_mode__, figure::properties::__pan_mode__, figure::properties::__rotate_mode__, figure::properties::__zoom_mode__): New properties. (figure::properties::set___mouse_mode__): New function. (axes::properties::pan, axes::properties::rotate3d, axes::properties::zoom): New functions. Handle zoom, and pan modes. (axes::properties::clear_zoom_stack): New arg, do_unzoom. Conditionally call unzoom. (axes::properties::unzoom): Also restore view property. (axes::properties::rotate_view): Conditionall save state to zoom stack. (axes::properties::push_zoom_stack): New function. (axes::properties::pan, axes::properties::rotate3d): Delete properties. (axes::properties::update_xlim, axes::properties::update_ylim, axes::properties::update_zlim): Don't clear zoom stack. Delete do_clr_zoom argument. (axes::properties::set_pan, axes::properties::set_rotate3d): Delete. (F__zoom__): New function. * Canvas.h, Canvas.cc (Canvas::toggleAxes, Canvas::toggleGrid): New pure virtual functions. (Canvas::setCursor, Canvas::canvasToggleAxes, Canvas::canvasToggleGrid, Canvas::canvasMouseDoubleClickEvent, Canvas::canvasWheelEvent): New functions. (zoom_enabled, pan_enabled, pan_mode, rotate_enabled, rotate_mode): New static functions. (Canvas::canvasMouseMoveEvent): Call axes::properties::rotate3d to do rotation. Handle panning. (Canvas::canvasMousePressEvent): Also handle "unzoom" action when in pan and rotate modes. (Canvas::canvasMouseReleaseEvent): Zoom by factor if mouse has not moved from mouse press event. * Figure.h, Figure.cc (MouseMode): New enum value, TextMode. (Figure::m_mouseMode, Figure::m_lastMouseMode): Delete member variables. (Figure::mouseMode, Figure::setMouseMode): Get info from and save info to figure properties. (Figure::updateFigureToolBarAndMenuBar, Figure::toggleAxes, Figure::toggleGrid): New functions. (Figure::m_mouseModeGroup): New member variable. (Figure::createFigureToolBarAndMenuBar): Add actions for toggling Axes and Grid. Maintain pointer to MouseModeActionGroup. (mouse_mode_to_string, mouse_mode_from_string): New functions. * GLCanvas.h, GLCanvas.cc (GLCanvas::toggleAxes, GLCanvas::ToggleGrid, GLCanvas::mouseDoubleClickEvent, GLCanvas::wheelEvent): New functions. * MouseModeActionGroup.h, MouseModeActionGroup.cc (MouseModeActionGroup::mouseMode): Delete. (MouseModeActionGroup::setMode): New function. (MouseModeActionGroup::MouseModeActionGroup): Also include action to insert text in the list. * figure.m: Set default pan, rotate, and zoom mode properties for the figure object. * pan.m, rotate3d.m, zoom.m: Improve compatibility with Matlab. Set mode properties for figure. * __init_fltk__.cc: Cope with changes to graphics properties.
author John W. Eaton <jwe@octave.org>
date Fri, 06 Feb 2015 13:06:54 -0500
parents d63878346099
children 4197fc428c7d
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
17744
d63878346099 maint: Update copyright notices for release.
John W. Eaton <jwe@octave.org>
parents: 17572
diff changeset
2 ## Copyright (C) 2012-2013 Carnë Draug
14576
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
17477
f44839118b5f findfigs.m: Overhaul function.
Rik <rik@octave.org>
parents: 17338
diff changeset
32 hfigs = allchild (0);
14576
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
17477
f44839118b5f findfigs.m: Overhaul function.
Rik <rik@octave.org>
parents: 17338
diff changeset
35 set (0, "units", "pixels");
14576
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
36 screensize = get (0, "screensize");
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
37 unwind_protect_cleanup
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
38 set (0, "units", units);
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
39 end_unwind_protect
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
40
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
41 ## 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
42 ## marginally be on the monitor.
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
43 margin = 30;
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
44 screensize(1:2) += margin;
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
45 screensize(3:4) -= margin;
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
46
17477
f44839118b5f findfigs.m: Overhaul function.
Rik <rik@octave.org>
parents: 17338
diff changeset
47 hfigs = hfigs(strcmp (get (hfigs, "visible"), "on"));
f44839118b5f findfigs.m: Overhaul function.
Rik <rik@octave.org>
parents: 17338
diff changeset
48 for hf = hfigs'
f44839118b5f findfigs.m: Overhaul function.
Rik <rik@octave.org>
parents: 17338
diff changeset
49 units = get (hf, "units");
f44839118b5f findfigs.m: Overhaul function.
Rik <rik@octave.org>
parents: 17338
diff changeset
50 unwind_protect
f44839118b5f findfigs.m: Overhaul function.
Rik <rik@octave.org>
parents: 17338
diff changeset
51 set (hf, "units", "pixels");
f44839118b5f findfigs.m: Overhaul function.
Rik <rik@octave.org>
parents: 17338
diff changeset
52 pos = get (hf, "position");
f44839118b5f findfigs.m: Overhaul function.
Rik <rik@octave.org>
parents: 17338
diff changeset
53 ## Test if (in order):
f44839118b5f findfigs.m: Overhaul function.
Rik <rik@octave.org>
parents: 17338
diff changeset
54 ## The left side is outside the right side of the screen
f44839118b5f findfigs.m: Overhaul function.
Rik <rik@octave.org>
parents: 17338
diff changeset
55 ## The bottom is above the top of the screen
f44839118b5f findfigs.m: Overhaul function.
Rik <rik@octave.org>
parents: 17338
diff changeset
56 ## The right side is outside the left of the screen
f44839118b5f findfigs.m: Overhaul function.
Rik <rik@octave.org>
parents: 17338
diff changeset
57 ## the top is below the bottom of the screen
f44839118b5f findfigs.m: Overhaul function.
Rik <rik@octave.org>
parents: 17338
diff changeset
58 if (pos(1) > screensize(3)
f44839118b5f findfigs.m: Overhaul function.
Rik <rik@octave.org>
parents: 17338
diff changeset
59 || pos(2) > screensize(4)
f44839118b5f findfigs.m: Overhaul function.
Rik <rik@octave.org>
parents: 17338
diff changeset
60 || pos(1)+pos(3) < screensize(1)
f44839118b5f findfigs.m: Overhaul function.
Rik <rik@octave.org>
parents: 17338
diff changeset
61 || pos(2)+pos(4) < screensize(2))
14576
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
62
17477
f44839118b5f findfigs.m: Overhaul function.
Rik <rik@octave.org>
parents: 17338
diff changeset
63 ## the new position will be at the top left of the screen
f44839118b5f findfigs.m: Overhaul function.
Rik <rik@octave.org>
parents: 17338
diff changeset
64 ## (all moved figures will overlap). The bottom left is chosen
f44839118b5f findfigs.m: Overhaul function.
Rik <rik@octave.org>
parents: 17338
diff changeset
65 ## instead of the top left because that allows for the unknown
f44839118b5f findfigs.m: Overhaul function.
Rik <rik@octave.org>
parents: 17338
diff changeset
66 ## amount of space for the menu bar and the title bar.
f44839118b5f findfigs.m: Overhaul function.
Rik <rik@octave.org>
parents: 17338
diff changeset
67 pos(1) = screensize(1);
f44839118b5f findfigs.m: Overhaul function.
Rik <rik@octave.org>
parents: 17338
diff changeset
68 pos(2) = screensize(2);
f44839118b5f findfigs.m: Overhaul function.
Rik <rik@octave.org>
parents: 17338
diff changeset
69 set (hf, "position", pos);
f44839118b5f findfigs.m: Overhaul function.
Rik <rik@octave.org>
parents: 17338
diff changeset
70 endif
f44839118b5f findfigs.m: Overhaul function.
Rik <rik@octave.org>
parents: 17338
diff changeset
71 unwind_protect_cleanup
f44839118b5f findfigs.m: Overhaul function.
Rik <rik@octave.org>
parents: 17338
diff changeset
72 set (hf, "units", units);
f44839118b5f findfigs.m: Overhaul function.
Rik <rik@octave.org>
parents: 17338
diff changeset
73 end_unwind_protect
f44839118b5f findfigs.m: Overhaul function.
Rik <rik@octave.org>
parents: 17338
diff changeset
74 endfor
14576
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
75
4dbb47d09219 New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff changeset
76 endfunction
17338
1c89599167a6 maint: End m-files with 1 blank line.
Rik <rik@octave.org>
parents: 15017
diff changeset
77