Mercurial > hg > octave-nkf
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 |
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 | 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 | 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 | 47 hfigs = hfigs(strcmp (get (hfigs, "visible"), "on")); |
48 for hf = hfigs' | |
49 units = get (hf, "units"); | |
50 unwind_protect | |
51 set (hf, "units", "pixels"); | |
52 pos = get (hf, "position"); | |
53 ## Test if (in order): | |
54 ## The left side is outside the right side of the screen | |
55 ## The bottom is above the top of the screen | |
56 ## The right side is outside the left of the screen | |
57 ## the top is below the bottom of the screen | |
58 if (pos(1) > screensize(3) | |
59 || pos(2) > screensize(4) | |
60 || pos(1)+pos(3) < screensize(1) | |
61 || pos(2)+pos(4) < screensize(2)) | |
14576
4dbb47d09219
New Function, findfigs.m
Carnë Draug <carandraug+dev@gmail.com>
parents:
diff
changeset
|
62 |
17477 | 63 ## the new position will be at the top left of the screen |
64 ## (all moved figures will overlap). The bottom left is chosen | |
65 ## instead of the top left because that allows for the unknown | |
66 ## amount of space for the menu bar and the title bar. | |
67 pos(1) = screensize(1); | |
68 pos(2) = screensize(2); | |
69 set (hf, "position", pos); | |
70 endif | |
71 unwind_protect_cleanup | |
72 set (hf, "units", units); | |
73 end_unwind_protect | |
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 |