octave-nkf: src/graphics/fltk_backend/fltk

author	Shai Ayal <shaiay@users.sourceforge.net>
date	Mon, 17 Mar 2008 18:51:36 +0200 (2008-03-17)
parents	dfae35ac4fb0
children	e6d5532f760e

rev	line source
7834 caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	1 /*
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	2
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	3 Copyright (C) 2007 Shai Ayal
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	4
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	5 This file is part of Octave.
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	6
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	7 Octave is free software; you can redistribute it and/or modify it
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	8 under the terms of the GNU General Public License as published by the
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	9 Free Software Foundation; either version 3 of the License, or (at your
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	10 option) any later version.
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	11
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	12 Octave is distributed in the hope that it will be useful, but WITHOUT
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	15 for more details.
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	16
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	17 You should have received a copy of the GNU General Public License
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	18 along with Octave; see the file COPYING. If not, see
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	19 <http://www.gnu.org/licenses/>.
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	20
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	21 */
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	22
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	23 #include <map>
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	24 #include <set>
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	25 #include <sstream>
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	26 #include <iostream>
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	27
7839 71eb1793f0db fltk_backend can now handle figure.position changes Shai Ayal <shaiay@sourceforge.net> parents: 7834 diff changeset	28 #ifdef HAVE_CONFIG_H
71eb1793f0db fltk_backend can now handle figure.position changes Shai Ayal <shaiay@sourceforge.net> parents: 7834 diff changeset	29 #include <config.h>
71eb1793f0db fltk_backend can now handle figure.position changes Shai Ayal <shaiay@sourceforge.net> parents: 7834 diff changeset	30 #endif
71eb1793f0db fltk_backend can now handle figure.position changes Shai Ayal <shaiay@sourceforge.net> parents: 7834 diff changeset	31
71eb1793f0db fltk_backend can now handle figure.position changes Shai Ayal <shaiay@sourceforge.net> parents: 7834 diff changeset	32 #include "gl-render.h"
71eb1793f0db fltk_backend can now handle figure.position changes Shai Ayal <shaiay@sourceforge.net> parents: 7834 diff changeset	33
7834 caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	34 #include <FL/Fl.H>
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	35 #include <FL/Fl_Window.H>
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	36 #include <FL/Fl_Output.H>
7852 4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	37 #include <FL/Fl_Button.H>
7834 caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	38 #include <FL/Fl_Gl_Window.H>
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	39 #include <FL/fl_ask.H>
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	40 #include <FL/fl_draw.H>
7852 4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	41 #include <FL/gl.h>
7834 caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	42
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	43 #include "oct.h"
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	44 #include "parse.h"
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	45 #include "graphics.h"
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	46
7841 c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle Shai Ayal <shaiay@users.sourceforge.net> parents: 7840 diff changeset	47 #define FLTK_BACKEND_NAME "fltk"
c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle Shai Ayal <shaiay@users.sourceforge.net> parents: 7840 diff changeset	48
7834 caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	49 const char* help_text = "\
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	50 Keyboard Shortcuts\n\
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	51 a - autoscale\n\
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	52 g - toggle grid\n\
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	53 \n\
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	54 Mouse\n\
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	55 left drag - zoom\n\
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	56 right click - unzoom\n\
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	57 double click - copy coordinates to clipboard\
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	58 ";
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	59
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	60 class OpenGL_fltk : public Fl_Gl_Window {
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	61 public:
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	62 OpenGL_fltk (int x, int y, int w, int h, double num) :
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	63 Fl_Gl_Window (x, y, w, h, 0),
7852 4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	64 number (num),
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	65 in_zoom (false)
7834 caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	66 {
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	67 // ask for double buffering and a depth buffer
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	68 mode(FL_DEPTH \| FL_DOUBLE );
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	69 };
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	70 ~OpenGL_fltk () {};
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	71
7852 4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	72 void zoom (bool z) {in_zoom = z;}
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	73 bool zoom () {return in_zoom;}
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	74 void set_zoom_box (Matrix zb) {zoom_box = zb;}
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	75
7834 caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	76 private:
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	77 double number;
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	78 opengl_renderer renderer;
7852 4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	79 bool in_zoom;
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	80
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	81 // (x1,y1,x2,y2)
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	82 Matrix zoom_box;
7834 caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	83
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	84 void setup_viewport (int _w, int _h) {
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	85 glMatrixMode(GL_PROJECTION);
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	86 glLoadIdentity();
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	87 glViewport (0, 0, _w, _h);
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	88 }
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	89
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	90 void draw () {
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	91 if (!valid ()) {
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	92 valid (1);
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	93 setup_viewport (w (), h ());
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	94 }
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	95
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	96 renderer.draw (gh_manager::lookup (number));
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	97 };
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	98
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	99 void resize (int _x,int _y,int _w,int _h) {
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	100 Fl_Gl_Window::resize (_x, _y, _w, _h);
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	101 setup_viewport (_w, _h);
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	102 redraw ();
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	103 };
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	104
7852 4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	105 void draw_overlay(void)
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	106 {
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	107 if(!in_zoom) return;
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	108
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	109 if(!valid()) {
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	110 valid(1);
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	111 setup_viewport (w (), h ());
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	112 }
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	113
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	114 glPushMatrix ();
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	115
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	116 glMatrixMode (GL_MODELVIEW);
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	117 glLoadIdentity ();
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	118
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	119 glMatrixMode (GL_PROJECTION);
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	120 glLoadIdentity ();
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	121 gluOrtho2D (0.0, w (), 0.0, h ());
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	122
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	123 glPushAttrib (GL_DEPTH_BUFFER_BIT \| GL_CURRENT_BIT);
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	124 glDisable (GL_DEPTH_TEST);
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	125
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	126 glLineWidth (1);
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	127 glBegin (GL_LINE_STRIP);
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	128 gl_color(0);
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	129 glVertex2d ( zoom_box(0), h () - zoom_box(1) );
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	130 glVertex2d ( zoom_box(0), h () - zoom_box(3) );
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	131 glVertex2d ( zoom_box(2), h () - zoom_box(3) );
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	132 glVertex2d ( zoom_box(2), h () - zoom_box(1) );
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	133 glVertex2d ( zoom_box(0), h () - zoom_box(1) );
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	134 glEnd ();
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	135
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	136 glPopAttrib ();
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	137 glPopMatrix ();
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	138 }
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	139
7834 caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	140 int handle (int event)
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	141 {
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	142 int retval = Fl_Gl_Window::handle (event);
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	143
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	144 switch (event)
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	145 {
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	146 case FL_ENTER:
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	147 window ()->cursor (FL_CURSOR_CROSS);
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	148 return 1;
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	149
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	150 case FL_LEAVE:
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	151 window ()->cursor (FL_CURSOR_DEFAULT);
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	152 return 1;
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	153 }
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	154
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	155 return retval;
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	156 };
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	157
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	158 };
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	159
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	160 class plot_window : public Fl_Window {
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	161 public:
7841 c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle Shai Ayal <shaiay@users.sourceforge.net> parents: 7840 diff changeset	162 plot_window (int _x, int _y, int _w, int _h, figure::properties& _fp) :
7834 caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	163 Fl_Window (_x, _y, _w, _h, "octave"),
7841 c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle Shai Ayal <shaiay@users.sourceforge.net> parents: 7840 diff changeset	164 fp (_fp)
7834 caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	165 {
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	166 callback (window_close, static_cast<void*> (this));
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	167
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	168 begin();
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	169 {
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	170 canvas = new
7841 c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle Shai Ayal <shaiay@users.sourceforge.net> parents: 7840 diff changeset	171 OpenGL_fltk (0, 0, _w , _h - status_h, number ());
7834 caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	172
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	173 autoscale = new
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	174 Fl_Button (0,
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	175 _h - status_h,
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	176 status_h,
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	177 status_h,
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	178 "A");
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	179 autoscale->callback (button_callback, static_cast<void*> (this));
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	180
7856 cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle Shai Ayal <shaiay@users.sourceforge.net> parents: 7852 diff changeset	181 togglegrid = new
cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle Shai Ayal <shaiay@users.sourceforge.net> parents: 7852 diff changeset	182 Fl_Button (status_h,
cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle Shai Ayal <shaiay@users.sourceforge.net> parents: 7852 diff changeset	183 _h - status_h,
cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle Shai Ayal <shaiay@users.sourceforge.net> parents: 7852 diff changeset	184 status_h,
cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle Shai Ayal <shaiay@users.sourceforge.net> parents: 7852 diff changeset	185 status_h,
cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle Shai Ayal <shaiay@users.sourceforge.net> parents: 7852 diff changeset	186 "G");
cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle Shai Ayal <shaiay@users.sourceforge.net> parents: 7852 diff changeset	187 togglegrid->callback (button_callback, static_cast<void*> (this));
cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle Shai Ayal <shaiay@users.sourceforge.net> parents: 7852 diff changeset	188
7834 caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	189 help = new
7856 cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle Shai Ayal <shaiay@users.sourceforge.net> parents: 7852 diff changeset	190 Fl_Button (2*status_h,
7834 caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	191 _h - status_h,
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	192 status_h,
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	193 status_h,
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	194 "H");
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	195 help->callback (button_callback, static_cast<void*> (this));
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	196
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	197 status = new
7856 cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle Shai Ayal <shaiay@users.sourceforge.net> parents: 7852 diff changeset	198 Fl_Output (3*status_h,
7834 caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	199 _h - status_h,
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	200 _w > 2*status_h ? _w - status_h : 0,
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	201 status_h, "");
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	202
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	203 status->textcolor (FL_BLACK);
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	204 status->color (FL_GRAY);
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	205 status->textfont (FL_COURIER);
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	206 status->textsize (10);
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	207 status->box (FL_ENGRAVED_BOX);
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	208
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	209 // This allows us to have a valid OpenGL context right away
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	210 canvas->mode (FL_DEPTH \| FL_DOUBLE );
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	211 show ();
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	212 canvas->show ();
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	213 canvas->make_current ();
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	214 }
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	215 end ();
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	216
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	217 status->show ();
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	218 autoscale->show ();
7856 cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle Shai Ayal <shaiay@users.sourceforge.net> parents: 7852 diff changeset	219 togglegrid->show ();
7834 caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	220
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	221 resizable (canvas);
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	222 size_range (4status_h, 2status_h);
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	223
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	224 std::stringstream name;
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	225 name << "octave: figure " << number ();
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	226 label (name.str ().c_str ());
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	227 }
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	228
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	229 ~plot_window () {
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	230 canvas->hide();
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	231 status->hide();
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	232 this->hide();
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	233 delete canvas;
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	234 delete status;
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	235 };
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	236
7841 c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle Shai Ayal <shaiay@users.sourceforge.net> parents: 7840 diff changeset	237 // FIXME -- this could change
c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle Shai Ayal <shaiay@users.sourceforge.net> parents: 7840 diff changeset	238 double number () { return fp.get___myhandle__ ().value ();};
7834 caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	239
7840 2c8f693c32fd convert_position not static anymore Shai Ayal <shaiay@sourceforge.net> parents: 7839 diff changeset	240 void mark_modified ()
2c8f693c32fd convert_position not static anymore Shai Ayal <shaiay@sourceforge.net> parents: 7839 diff changeset	241 {
2c8f693c32fd convert_position not static anymore Shai Ayal <shaiay@sourceforge.net> parents: 7839 diff changeset	242 damage (FL_DAMAGE_ALL);
2c8f693c32fd convert_position not static anymore Shai Ayal <shaiay@sourceforge.net> parents: 7839 diff changeset	243 canvas->damage (FL_DAMAGE_ALL);
2c8f693c32fd convert_position not static anymore Shai Ayal <shaiay@sourceforge.net> parents: 7839 diff changeset	244 }
7834 caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	245
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	246 private:
7841 c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle Shai Ayal <shaiay@users.sourceforge.net> parents: 7840 diff changeset	247 // figure properties
c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle Shai Ayal <shaiay@users.sourceforge.net> parents: 7840 diff changeset	248 figure::properties& fp;
7834 caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	249
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	250 // status area height
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	251 static const int status_h = 20;
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	252
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	253 // window callback
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	254 static void window_close (Fl_Widget* w, void* data)
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	255 {
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	256 octave_value_list args;
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	257 args(0) = static_cast<plot_window*> (data)-> number ();
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	258 feval("close",args);
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	259 }
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	260
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	261 // button callbacks
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	262 static void button_callback (Fl_Widget* w, void* data) {
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	263 static_cast<plot_window*> (data)-> button_press (w);
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	264 };
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	265
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	266 void button_press (Fl_Widget* widg) {
7852 4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	267 if (widg == autoscale) axis_auto ();
7856 cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle Shai Ayal <shaiay@users.sourceforge.net> parents: 7852 diff changeset	268 if (widg == togglegrid) toggle_grid ();
7834 caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	269 if (widg == help) fl_message (help_text);
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	270 }
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	271
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	272 OpenGL_fltk* canvas;
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	273 Fl_Button* autoscale;
7856 cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle Shai Ayal <shaiay@users.sourceforge.net> parents: 7852 diff changeset	274 Fl_Button* togglegrid;
7834 caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	275 Fl_Button* help;
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	276 Fl_Output* status;
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	277
7852 4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	278 void axis_auto ()
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	279 {
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	280 octave_value_list args;
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	281 args(0) = "auto";
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	282 feval("axis",args);
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	283 mark_modified ();
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	284 }
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	285
7856 cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle Shai Ayal <shaiay@users.sourceforge.net> parents: 7852 diff changeset	286 void toggle_grid ()
cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle Shai Ayal <shaiay@users.sourceforge.net> parents: 7852 diff changeset	287 {
cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle Shai Ayal <shaiay@users.sourceforge.net> parents: 7852 diff changeset	288 feval ("grid");
cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle Shai Ayal <shaiay@users.sourceforge.net> parents: 7852 diff changeset	289 mark_modified ();
cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle Shai Ayal <shaiay@users.sourceforge.net> parents: 7852 diff changeset	290 }
cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle Shai Ayal <shaiay@users.sourceforge.net> parents: 7852 diff changeset	291
7834 caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	292 void pixel2pos (int px, int py, double& x, double& y) const {
7842 1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	293 graphics_object ax = gh_manager::get_object (fp.get_currentaxes ());
1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	294 if (ax && ax.isa ("axes"))
1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	295 {
1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	296 axes::properties& ap =
1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	297 dynamic_cast<axes::properties&> (ax.get_properties ());
1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	298 ColumnVector pp = ap.pixel2coord (px, py);
1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	299 x = pp(0);
1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	300 y = pp(1);
1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	301 }
7834 caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	302 }
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	303
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	304 graphics_handle pixel2axes (int px, int py) {
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	305 double x,y;
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	306
7840 2c8f693c32fd convert_position not static anymore Shai Ayal <shaiay@sourceforge.net> parents: 7839 diff changeset	307 Matrix children = fp.get_children ();
7834 caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	308 for (octave_idx_type n = 0; n < children.numel (); n++)
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	309 {
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	310 graphics_object ax = gh_manager::get_object (children (n));
7840 2c8f693c32fd convert_position not static anymore Shai Ayal <shaiay@sourceforge.net> parents: 7839 diff changeset	311 if (ax && ax.isa ("axes"))
7834 caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	312 {
7840 2c8f693c32fd convert_position not static anymore Shai Ayal <shaiay@sourceforge.net> parents: 7839 diff changeset	313 axes::properties& ap =
2c8f693c32fd convert_position not static anymore Shai Ayal <shaiay@sourceforge.net> parents: 7839 diff changeset	314 dynamic_cast<axes::properties&> (ax.get_properties ());
7842 1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	315
1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	316 // std::cout << "\npixpos="<<pixpos<<"(px,py)=("<<px<<","<<py<<")\n";
1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	317 // if (px >= pixpos(0) && px <= pixpos(2)
1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	318 // &&
1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	319 // py >= pixpos(1) && py <= pixpos(3))
1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	320 // return ap.get___myhandle__ ();
7834 caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	321 }
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	322 }
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	323 return graphics_handle ();
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	324 }
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	325
7842 1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	326 void pixel2status (int px0, int py0, int px1 = -1, int py1 = -1) {
1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	327 double x0,y0,x1,y1;
1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	328 std::stringstream cbuf;
7834 caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	329
7842 1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	330 pixel2pos (px0, py0, x0, y0);
1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	331 cbuf << "[" << x0 << ", " << y0 << "]";
1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	332 if (px1 >= 0)
1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	333 {
1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	334 pixel2pos (px1, py1, x1, y1);
1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	335 cbuf << " -> ["<< x1 << ", " << y1 << "]";
1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	336 }
7840 2c8f693c32fd convert_position not static anymore Shai Ayal <shaiay@sourceforge.net> parents: 7839 diff changeset	337
7842 1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	338 status->value (cbuf.str ().c_str ());
1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	339 status->redraw ();
7834 caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	340 }
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	341
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	342 void resize (int _x,int _y,int _w,int _h)
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	343 {
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	344 Fl_Window::resize (_x, _y, _w, _h);
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	345
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	346 Matrix pos (1,4,0);
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	347 pos(0) = _x;
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	348 pos(1) = _y;
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	349 pos(2) = _w;
7861 7397a0026ca8 make the fltk_backend canvas the size of figure.position Shai Ayal <shaiay@users.sourceforge.net> parents: 7858 diff changeset	350 pos(3) = _h - status_h;
7834 caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	351
7841 c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle Shai Ayal <shaiay@users.sourceforge.net> parents: 7840 diff changeset	352 fp.set_position (pos);
7834 caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	353 }
7839 71eb1793f0db fltk_backend can now handle figure.position changes Shai Ayal <shaiay@sourceforge.net> parents: 7834 diff changeset	354
71eb1793f0db fltk_backend can now handle figure.position changes Shai Ayal <shaiay@sourceforge.net> parents: 7834 diff changeset	355 void draw (void)
71eb1793f0db fltk_backend can now handle figure.position changes Shai Ayal <shaiay@sourceforge.net> parents: 7834 diff changeset	356 {
71eb1793f0db fltk_backend can now handle figure.position changes Shai Ayal <shaiay@sourceforge.net> parents: 7834 diff changeset	357 Matrix pos = fp.get_position ().matrix_value ();
7861 7397a0026ca8 make the fltk_backend canvas the size of figure.position Shai Ayal <shaiay@users.sourceforge.net> parents: 7858 diff changeset	358 Fl_Window::resize (pos(0), pos(1) , pos(2), pos(3) + status_h);
7839 71eb1793f0db fltk_backend can now handle figure.position changes Shai Ayal <shaiay@sourceforge.net> parents: 7834 diff changeset	359
71eb1793f0db fltk_backend can now handle figure.position changes Shai Ayal <shaiay@sourceforge.net> parents: 7834 diff changeset	360 return Fl_Window::draw ();
71eb1793f0db fltk_backend can now handle figure.position changes Shai Ayal <shaiay@sourceforge.net> parents: 7834 diff changeset	361 }
7834 caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	362
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	363 int handle (int event) {
7842 1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	364 static int px0,py0;
7834 caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	365 static graphics_handle h0 = graphics_handle ();
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	366
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	367 int retval = Fl_Window::handle (event);
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	368
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	369 // we only handle events which are in the canvas area
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	370 if (Fl::event_y () >= h() - status_h)
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	371 return retval;
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	372
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	373 switch (event)
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	374 {
7856 cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle Shai Ayal <shaiay@users.sourceforge.net> parents: 7852 diff changeset	375 case FL_KEYDOWN:
cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle Shai Ayal <shaiay@users.sourceforge.net> parents: 7852 diff changeset	376 switch(Fl::event_key ())
cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle Shai Ayal <shaiay@users.sourceforge.net> parents: 7852 diff changeset	377 {
cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle Shai Ayal <shaiay@users.sourceforge.net> parents: 7852 diff changeset	378 case 'a':
cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle Shai Ayal <shaiay@users.sourceforge.net> parents: 7852 diff changeset	379 case 'A':
cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle Shai Ayal <shaiay@users.sourceforge.net> parents: 7852 diff changeset	380 axis_auto ();
cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle Shai Ayal <shaiay@users.sourceforge.net> parents: 7852 diff changeset	381 break;
cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle Shai Ayal <shaiay@users.sourceforge.net> parents: 7852 diff changeset	382 case 'g':
cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle Shai Ayal <shaiay@users.sourceforge.net> parents: 7852 diff changeset	383 case 'G':
cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle Shai Ayal <shaiay@users.sourceforge.net> parents: 7852 diff changeset	384 toggle_grid ();
cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle Shai Ayal <shaiay@users.sourceforge.net> parents: 7852 diff changeset	385 break;
cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle Shai Ayal <shaiay@users.sourceforge.net> parents: 7852 diff changeset	386 }
cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle Shai Ayal <shaiay@users.sourceforge.net> parents: 7852 diff changeset	387 break;
cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle Shai Ayal <shaiay@users.sourceforge.net> parents: 7852 diff changeset	388
7834 caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	389 case FL_MOVE:
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	390 pixel2status (Fl::event_x (), Fl::event_y ());
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	391 break;
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	392
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	393 case FL_PUSH:
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	394 if (Fl::event_button () == 1)
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	395 {
7842 1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	396 px0 = Fl::event_x ();
1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	397 py0 = Fl::event_y ();
7834 caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	398 h0 = pixel2axes (Fl::event_x (), Fl::event_y ());
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	399 return 1;
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	400 }
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	401 break;
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	402
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	403 case FL_DRAG:
7842 1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	404 pixel2status (px0, py0, Fl::event_x (), Fl::event_y ());
7834 caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	405 if (Fl::event_button () == 1)
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	406 {
7852 4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	407 canvas->zoom (true);
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	408 Matrix zoom_box (1,4,0);
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	409 zoom_box (0) = px0;
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	410 zoom_box (1) = py0;
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	411 zoom_box (2) = Fl::event_x ();
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	412 zoom_box (3) = Fl::event_y ();
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	413 canvas->set_zoom_box (zoom_box);
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	414 canvas->redraw_overlay ();
7834 caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	415 return 1;
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	416 }
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	417 break;
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	418
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	419 case FL_RELEASE:
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	420 if (Fl::event_button () == 1)
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	421 {
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	422 // end of drag -- zoom
7852 4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	423 if (canvas->zoom ())
7834 caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	424 {
7852 4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	425 canvas->zoom (false);
7842 1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	426 double x0,y0,x1,y1;
1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	427 graphics_object ax =
1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	428 gh_manager::get_object (fp.get_currentaxes ());
1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	429 if (ax && ax.isa ("axes"))
1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	430 {
1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	431 axes::properties& ap =
1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	432 dynamic_cast<axes::properties&> (ax.get_properties ());
1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	433 pixel2pos (px0, py0, x0, y0);
1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	434 pixel2pos (Fl::event_x (), Fl::event_y (), x1, y1);
7858 dfae35ac4fb0 added zoomstack support to fltk_backend Shai Ayal <shaiay@users.sourceforge.net> parents: 7856 diff changeset	435 Matrix xl (1,2,0);
dfae35ac4fb0 added zoomstack support to fltk_backend Shai Ayal <shaiay@users.sourceforge.net> parents: 7856 diff changeset	436 Matrix yl (1,2,0);
7842 1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	437 if (x0 < x1)
1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	438 {
7858 dfae35ac4fb0 added zoomstack support to fltk_backend Shai Ayal <shaiay@users.sourceforge.net> parents: 7856 diff changeset	439 xl(0) = x0;
dfae35ac4fb0 added zoomstack support to fltk_backend Shai Ayal <shaiay@users.sourceforge.net> parents: 7856 diff changeset	440 xl(1) = x1;
7842 1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	441 }
1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	442 else
1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	443 {
7858 dfae35ac4fb0 added zoomstack support to fltk_backend Shai Ayal <shaiay@users.sourceforge.net> parents: 7856 diff changeset	444 xl(0) = x1;
dfae35ac4fb0 added zoomstack support to fltk_backend Shai Ayal <shaiay@users.sourceforge.net> parents: 7856 diff changeset	445 xl(1) = x0;
7842 1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	446 }
1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	447 if (y0 < y1)
1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	448 {
7858 dfae35ac4fb0 added zoomstack support to fltk_backend Shai Ayal <shaiay@users.sourceforge.net> parents: 7856 diff changeset	449 yl(0) = y0;
dfae35ac4fb0 added zoomstack support to fltk_backend Shai Ayal <shaiay@users.sourceforge.net> parents: 7856 diff changeset	450 yl(1) = y1;
7842 1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	451 }
1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	452 else
1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	453 {
7858 dfae35ac4fb0 added zoomstack support to fltk_backend Shai Ayal <shaiay@users.sourceforge.net> parents: 7856 diff changeset	454 yl(0) = y1;
dfae35ac4fb0 added zoomstack support to fltk_backend Shai Ayal <shaiay@users.sourceforge.net> parents: 7856 diff changeset	455 yl(1) = y0;
7842 1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	456 }
7858 dfae35ac4fb0 added zoomstack support to fltk_backend Shai Ayal <shaiay@users.sourceforge.net> parents: 7856 diff changeset	457 ap.zoom (xl, yl);
7842 1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	458 mark_modified ();
1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor Shai Ayal <shaiay@users.sourceforge.net> parents: 7841 diff changeset	459 }
7834 caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	460 }
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	461 // one click -- select axes
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	462 else if ( Fl::event_clicks () == 0)
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	463 {
7840 2c8f693c32fd convert_position not static anymore Shai Ayal <shaiay@sourceforge.net> parents: 7839 diff changeset	464 std::cout << "ca="<< h0.value ()<<"\n";
7834 caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	465 if (h0.ok ())
7841 c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle Shai Ayal <shaiay@users.sourceforge.net> parents: 7840 diff changeset	466 fp.set_currentaxes (h0.value());
7834 caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	467 return 1;
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	468 }
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	469 }
7852 4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	470 else if (Fl::event_button () == 3)
4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	471 {
7858 dfae35ac4fb0 added zoomstack support to fltk_backend Shai Ayal <shaiay@users.sourceforge.net> parents: 7856 diff changeset	472 graphics_object ax =
dfae35ac4fb0 added zoomstack support to fltk_backend Shai Ayal <shaiay@users.sourceforge.net> parents: 7856 diff changeset	473 gh_manager::get_object (fp.get_currentaxes ());
dfae35ac4fb0 added zoomstack support to fltk_backend Shai Ayal <shaiay@users.sourceforge.net> parents: 7856 diff changeset	474 if (ax && ax.isa ("axes"))
dfae35ac4fb0 added zoomstack support to fltk_backend Shai Ayal <shaiay@users.sourceforge.net> parents: 7856 diff changeset	475 {
dfae35ac4fb0 added zoomstack support to fltk_backend Shai Ayal <shaiay@users.sourceforge.net> parents: 7856 diff changeset	476 axes::properties& ap =
dfae35ac4fb0 added zoomstack support to fltk_backend Shai Ayal <shaiay@users.sourceforge.net> parents: 7856 diff changeset	477 dynamic_cast<axes::properties&> (ax.get_properties ());
dfae35ac4fb0 added zoomstack support to fltk_backend Shai Ayal <shaiay@users.sourceforge.net> parents: 7856 diff changeset	478 ap.unzoom ();
dfae35ac4fb0 added zoomstack support to fltk_backend Shai Ayal <shaiay@users.sourceforge.net> parents: 7856 diff changeset	479 mark_modified ();
dfae35ac4fb0 added zoomstack support to fltk_backend Shai Ayal <shaiay@users.sourceforge.net> parents: 7856 diff changeset	480 }
7852 4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3) Shai Ayal <shaiay@users.sourceforge.net> parents: 7842 diff changeset	481 }
7834 caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	482 break;
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	483 }
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	484
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	485 return retval;
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	486 }
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	487
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	488 };
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	489
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	490 class figure_manager {
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	491 public:
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	492
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	493 static figure_manager& Instance () {
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	494 static figure_manager fm;
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	495 return fm;
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	496 }
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	497
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	498 ~figure_manager () {
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	499 close_all ();
caab78e7e377 added checks for fltk & freetype in configure script Shai Ayal <shaiay@sourceforge.net> parents: diff changeset	500 }

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

1 /*

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

2

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

4

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

5 This file is part of Octave.

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

6

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

7 Octave is free software; you can redistribute it and/or modify it

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

8 under the terms of the GNU General Public License as published by the

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

9 Free Software Foundation; either version 3 of the License, or (at your

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

10 option) any later version.

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

11

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

12 Octave is distributed in the hope that it will be useful, but WITHOUT

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

15 for more details.

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

16

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

17 You should have received a copy of the GNU General Public License

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

18 along with Octave; see the file COPYING. If not, see

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

19 <http://www.gnu.org/licenses/>.

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

20

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

21 */

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

22

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

23 #include <map>

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

24 #include <set>

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

25 #include <sstream>

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

26 #include <iostream>

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

27

7839

71eb1793f0db fltk_backend can now handle figure.position changes

Shai Ayal <shaiay@sourceforge.net>

parents: 7834

diff changeset

28 #ifdef HAVE_CONFIG_H

71eb1793f0db fltk_backend can now handle figure.position changes

Shai Ayal <shaiay@sourceforge.net>

parents: 7834

diff changeset

29 #include <config.h>

71eb1793f0db fltk_backend can now handle figure.position changes

Shai Ayal <shaiay@sourceforge.net>

parents: 7834

diff changeset

30 #endif

71eb1793f0db fltk_backend can now handle figure.position changes

Shai Ayal <shaiay@sourceforge.net>

parents: 7834

diff changeset

31

71eb1793f0db fltk_backend can now handle figure.position changes

Shai Ayal <shaiay@sourceforge.net>

parents: 7834

diff changeset

32 #include "gl-render.h"

71eb1793f0db fltk_backend can now handle figure.position changes

Shai Ayal <shaiay@sourceforge.net>

parents: 7834

diff changeset

33

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

34 #include <FL/Fl.H>

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

35 #include <FL/Fl_Window.H>

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

36 #include <FL/Fl_Output.H>

7852

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

37 #include <FL/Fl_Button.H>

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

38 #include <FL/Fl_Gl_Window.H>

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

39 #include <FL/fl_ask.H>

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

40 #include <FL/fl_draw.H>

7852

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

41 #include <FL/gl.h>

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

42

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

43 #include "oct.h"

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

44 #include "parse.h"

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

45 #include "graphics.h"

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

46

7841

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

47 #define FLTK_BACKEND_NAME "fltk"

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

48

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

49 const char* help_text = "\

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

50 Keyboard Shortcuts\n\

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

51 a - autoscale\n\

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

52 g - toggle grid\n\

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

53 \n\

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

54 Mouse\n\

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

55 left drag - zoom\n\

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

56 right click - unzoom\n\

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

57 double click - copy coordinates to clipboard\

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

58 ";

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

59

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

60 class OpenGL_fltk : public Fl_Gl_Window {

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

61 public:

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

62 OpenGL_fltk (int x, int y, int w, int h, double num) :

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

63 Fl_Gl_Window (x, y, w, h, 0),

7852

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

64 number (num),

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

65 in_zoom (false)

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

66 {

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

67 // ask for double buffering and a depth buffer

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

68 mode(FL_DEPTH | FL_DOUBLE );

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

69 };

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

70 ~OpenGL_fltk () {};

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

71

7852

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

72 void zoom (bool z) {in_zoom = z;}

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

73 bool zoom () {return in_zoom;}

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

74 void set_zoom_box (Matrix zb) {zoom_box = zb;}

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

75

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

76 private:

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

77 double number;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

78 opengl_renderer renderer;

7852

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

79 bool in_zoom;

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

80

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

81 // (x1,y1,x2,y2)

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

82 Matrix zoom_box;

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

83

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

84 void setup_viewport (int _w, int _h) {

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

85 glMatrixMode(GL_PROJECTION);

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

86 glLoadIdentity();

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

87 glViewport (0, 0, _w, _h);

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

88 }

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

89

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

90 void draw () {

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

91 if (!valid ()) {

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

92 valid (1);

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

93 setup_viewport (w (), h ());

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

94 }

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

95

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

96 renderer.draw (gh_manager::lookup (number));

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

97 };

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

98

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

99 void resize (int _x,int _y,int _w,int _h) {

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

100 Fl_Gl_Window::resize (_x, _y, _w, _h);

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

101 setup_viewport (_w, _h);

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

102 redraw ();

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

103 };

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

104

7852

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

105 void draw_overlay(void)

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

106 {

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

107 if(!in_zoom) return;

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

108

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

109 if(!valid()) {

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

110 valid(1);

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

111 setup_viewport (w (), h ());

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

112 }

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

113

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

114 glPushMatrix ();

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

115

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

116 glMatrixMode (GL_MODELVIEW);

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

117 glLoadIdentity ();

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

118

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

119 glMatrixMode (GL_PROJECTION);

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

120 glLoadIdentity ();

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

121 gluOrtho2D (0.0, w (), 0.0, h ());

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

122

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

123 glPushAttrib (GL_DEPTH_BUFFER_BIT | GL_CURRENT_BIT);

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

124 glDisable (GL_DEPTH_TEST);

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

125

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

126 glLineWidth (1);

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

127 glBegin (GL_LINE_STRIP);

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

128 gl_color(0);

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

129 glVertex2d ( zoom_box(0), h () - zoom_box(1) );

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

130 glVertex2d ( zoom_box(0), h () - zoom_box(3) );

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

131 glVertex2d ( zoom_box(2), h () - zoom_box(3) );

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

132 glVertex2d ( zoom_box(2), h () - zoom_box(1) );

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

133 glVertex2d ( zoom_box(0), h () - zoom_box(1) );

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

134 glEnd ();

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

135

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

136 glPopAttrib ();

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

137 glPopMatrix ();

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

138 }

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

139

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

140 int handle (int event)

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

141 {

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

142 int retval = Fl_Gl_Window::handle (event);

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

143

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

144 switch (event)

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

145 {

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

146 case FL_ENTER:

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

147 window ()->cursor (FL_CURSOR_CROSS);

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

148 return 1;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

149

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

150 case FL_LEAVE:

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

151 window ()->cursor (FL_CURSOR_DEFAULT);

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

152 return 1;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

153 }

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

154

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

155 return retval;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

156 };

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

157

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

158 };

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

159

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

160 class plot_window : public Fl_Window {

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

161 public:

7841

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

162 plot_window (int _x, int _y, int _w, int _h, figure::properties& _fp) :

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

163 Fl_Window (_x, _y, _w, _h, "octave"),

7841

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

164 fp (_fp)

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

165 {

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

166 callback (window_close, static_cast<void*> (this));

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

167

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

168 begin();

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

169 {

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

170 canvas = new

7841

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

171 OpenGL_fltk (0, 0, _w , _h - status_h, number ());

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

172

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

173 autoscale = new

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

174 Fl_Button (0,

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

175 _h - status_h,

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

176 status_h,

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

177 status_h,

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

178 "A");

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

179 autoscale->callback (button_callback, static_cast<void*> (this));

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

180

7856

cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7852

diff changeset

181 togglegrid = new

cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7852

diff changeset

182 Fl_Button (status_h,

cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7852

diff changeset

183 _h - status_h,

cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7852

diff changeset

184 status_h,

cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7852

diff changeset

185 status_h,

cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7852

diff changeset

186 "G");

cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7852

diff changeset

187 togglegrid->callback (button_callback, static_cast<void*> (this));

cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7852

diff changeset

188

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

189 help = new

7856

cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7852

diff changeset

190 Fl_Button (2*status_h,

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

191 _h - status_h,

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

192 status_h,

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

193 status_h,

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

194 "H");

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

195 help->callback (button_callback, static_cast<void*> (this));

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

196

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

197 status = new

7856

cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7852

diff changeset

198 Fl_Output (3*status_h,

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

199 _h - status_h,

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

200 _w > 2*status_h ? _w - status_h : 0,

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

201 status_h, "");

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

202

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

203 status->textcolor (FL_BLACK);

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

204 status->color (FL_GRAY);

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

205 status->textfont (FL_COURIER);

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

206 status->textsize (10);

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

207 status->box (FL_ENGRAVED_BOX);

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

208

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

209 // This allows us to have a valid OpenGL context right away

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

210 canvas->mode (FL_DEPTH | FL_DOUBLE );

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

211 show ();

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

212 canvas->show ();

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

213 canvas->make_current ();

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

214 }

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

215 end ();

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

216

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

217 status->show ();

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

218 autoscale->show ();

7856

cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7852

diff changeset

219 togglegrid->show ();

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

220

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

221 resizable (canvas);

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

222 size_range (4*status_h, 2*status_h);

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

223

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

224 std::stringstream name;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

225 name << "octave: figure " << number ();

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

226 label (name.str ().c_str ());

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

227 }

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

228

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

229 ~plot_window () {

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

230 canvas->hide();

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

231 status->hide();

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

232 this->hide();

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

233 delete canvas;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

234 delete status;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

235 };

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

236

7841

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

237 // FIXME -- this could change

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

238 double number () { return fp.get___myhandle__ ().value ();};

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

239

7840

2c8f693c32fd convert_position not static anymore

Shai Ayal <shaiay@sourceforge.net>

parents: 7839

diff changeset

240 void mark_modified ()

2c8f693c32fd convert_position not static anymore

Shai Ayal <shaiay@sourceforge.net>

parents: 7839

diff changeset

241 {

2c8f693c32fd convert_position not static anymore

Shai Ayal <shaiay@sourceforge.net>

parents: 7839

diff changeset

242 damage (FL_DAMAGE_ALL);

2c8f693c32fd convert_position not static anymore

Shai Ayal <shaiay@sourceforge.net>

parents: 7839

diff changeset

243 canvas->damage (FL_DAMAGE_ALL);

2c8f693c32fd convert_position not static anymore

Shai Ayal <shaiay@sourceforge.net>

parents: 7839

diff changeset

244 }

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

245

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

246 private:

7841

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

247 // figure properties

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

248 figure::properties& fp;

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

249

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

250 // status area height

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

251 static const int status_h = 20;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

252

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

253 // window callback

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

254 static void window_close (Fl_Widget* w, void* data)

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

255 {

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

256 octave_value_list args;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

257 args(0) = static_cast<plot_window*> (data)-> number ();

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

258 feval("close",args);

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

259 }

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

260

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

261 // button callbacks

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

262 static void button_callback (Fl_Widget* w, void* data) {

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

263 static_cast<plot_window*> (data)-> button_press (w);

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

264 };

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

265

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

266 void button_press (Fl_Widget* widg) {

7852

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

267 if (widg == autoscale) axis_auto ();

7856

cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7852

diff changeset

268 if (widg == togglegrid) toggle_grid ();

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

269 if (widg == help) fl_message (help_text);

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

270 }

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

271

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

272 OpenGL_fltk* canvas;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

273 Fl_Button* autoscale;

7856

cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7852

diff changeset

274 Fl_Button* togglegrid;

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

275 Fl_Button* help;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

276 Fl_Output* status;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

277

7852

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

278 void axis_auto ()

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

279 {

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

280 octave_value_list args;

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

281 args(0) = "auto";

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

282 feval("axis",args);

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

283 mark_modified ();

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

284 }

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

285

7856

cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7852

diff changeset

286 void toggle_grid ()

cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7852

diff changeset

287 {

cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7852

diff changeset

288 feval ("grid");

cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7852

diff changeset

289 mark_modified ();

cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7852

diff changeset

290 }

cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7852

diff changeset

291

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

292 void pixel2pos (int px, int py, double& x, double& y) const {

7842

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

293 graphics_object ax = gh_manager::get_object (fp.get_currentaxes ());

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

294 if (ax && ax.isa ("axes"))

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

295 {

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

296 axes::properties& ap =

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

297 dynamic_cast<axes::properties&> (ax.get_properties ());

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

298 ColumnVector pp = ap.pixel2coord (px, py);

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

299 x = pp(0);

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

300 y = pp(1);

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

301 }

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

302 }

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

303

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

304 graphics_handle pixel2axes (int px, int py) {

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

305 double x,y;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

306

7840

2c8f693c32fd convert_position not static anymore

Shai Ayal <shaiay@sourceforge.net>

parents: 7839

diff changeset

307 Matrix children = fp.get_children ();

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

308 for (octave_idx_type n = 0; n < children.numel (); n++)

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

309 {

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

310 graphics_object ax = gh_manager::get_object (children (n));

7840

2c8f693c32fd convert_position not static anymore

Shai Ayal <shaiay@sourceforge.net>

parents: 7839

diff changeset

311 if (ax && ax.isa ("axes"))

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

312 {

7840

2c8f693c32fd convert_position not static anymore

Shai Ayal <shaiay@sourceforge.net>

parents: 7839

diff changeset

313 axes::properties& ap =

2c8f693c32fd convert_position not static anymore

Shai Ayal <shaiay@sourceforge.net>

parents: 7839

diff changeset

314 dynamic_cast<axes::properties&> (ax.get_properties ());

7842

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

315

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

316 // std::cout << "\npixpos="<<pixpos<<"(px,py)=("<<px<<","<<py<<")\n";

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

317 // if (px >= pixpos(0) && px <= pixpos(2)

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

318 // &&

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

319 // py >= pixpos(1) && py <= pixpos(3))

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

320 // return ap.get___myhandle__ ();

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

321 }

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

322 }

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

323 return graphics_handle ();

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

324 }

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

325

7842

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

326 void pixel2status (int px0, int py0, int px1 = -1, int py1 = -1) {

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

327 double x0,y0,x1,y1;

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

328 std::stringstream cbuf;

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

329

7842

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

330 pixel2pos (px0, py0, x0, y0);

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

331 cbuf << "[" << x0 << ", " << y0 << "]";

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

332 if (px1 >= 0)

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

333 {

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

334 pixel2pos (px1, py1, x1, y1);

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

335 cbuf << " -> ["<< x1 << ", " << y1 << "]";

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

336 }

7840

2c8f693c32fd convert_position not static anymore

Shai Ayal <shaiay@sourceforge.net>

parents: 7839

diff changeset

337

7842

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

338 status->value (cbuf.str ().c_str ());

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

339 status->redraw ();

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

340 }

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

341

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

342 void resize (int _x,int _y,int _w,int _h)

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

343 {

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

344 Fl_Window::resize (_x, _y, _w, _h);

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

345

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

346 Matrix pos (1,4,0);

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

347 pos(0) = _x;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

348 pos(1) = _y;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

349 pos(2) = _w;

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

351

7841

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

352 fp.set_position (pos);

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

353 }

7839

71eb1793f0db fltk_backend can now handle figure.position changes

Shai Ayal <shaiay@sourceforge.net>

parents: 7834

diff changeset

354

71eb1793f0db fltk_backend can now handle figure.position changes

Shai Ayal <shaiay@sourceforge.net>

parents: 7834

diff changeset

355 void draw (void)

71eb1793f0db fltk_backend can now handle figure.position changes

Shai Ayal <shaiay@sourceforge.net>

parents: 7834

diff changeset

356 {

71eb1793f0db fltk_backend can now handle figure.position changes

Shai Ayal <shaiay@sourceforge.net>

parents: 7834

diff changeset

357 Matrix pos = fp.get_position ().matrix_value ();

7839

71eb1793f0db fltk_backend can now handle figure.position changes

Shai Ayal <shaiay@sourceforge.net>

parents: 7834

diff changeset

359

71eb1793f0db fltk_backend can now handle figure.position changes

Shai Ayal <shaiay@sourceforge.net>

parents: 7834

diff changeset

360 return Fl_Window::draw ();

71eb1793f0db fltk_backend can now handle figure.position changes

Shai Ayal <shaiay@sourceforge.net>

parents: 7834

diff changeset

361 }

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

362

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

363 int handle (int event) {

7842

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

364 static int px0,py0;

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

365 static graphics_handle h0 = graphics_handle ();

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

366

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

367 int retval = Fl_Window::handle (event);

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

368

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

369 // we only handle events which are in the canvas area

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

370 if (Fl::event_y () >= h() - status_h)

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

371 return retval;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

372

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

373 switch (event)

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

374 {

7856

cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7852

diff changeset

375 case FL_KEYDOWN:

cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7852

diff changeset

376 switch(Fl::event_key ())

cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7852

diff changeset

377 {

cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7852

diff changeset

378 case 'a':

cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7852

diff changeset

379 case 'A':

cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7852

diff changeset

380 axis_auto ();

cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7852

diff changeset

381 break;

cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7852

diff changeset

382 case 'g':

cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7852

diff changeset

383 case 'G':

cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7852

diff changeset

384 toggle_grid ();

cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7852

diff changeset

385 break;

cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7852

diff changeset

386 }

cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7852

diff changeset

387 break;

cf672485be43 Add toggle grid button & handle the 'a' & 'g' keys for auto axis and toggle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7852

diff changeset

388

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

389 case FL_MOVE:

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

390 pixel2status (Fl::event_x (), Fl::event_y ());

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

391 break;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

392

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

393 case FL_PUSH:

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

394 if (Fl::event_button () == 1)

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

395 {

7842

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

396 px0 = Fl::event_x ();

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

397 py0 = Fl::event_y ();

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

398 h0 = pixel2axes (Fl::event_x (), Fl::event_y ());

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

399 return 1;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

400 }

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

401 break;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

402

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

403 case FL_DRAG:

7842

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

404 pixel2status (px0, py0, Fl::event_x (), Fl::event_y ());

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

405 if (Fl::event_button () == 1)

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

406 {

7852

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

407 canvas->zoom (true);

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

408 Matrix zoom_box (1,4,0);

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

409 zoom_box (0) = px0;

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

410 zoom_box (1) = py0;

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

411 zoom_box (2) = Fl::event_x ();

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

412 zoom_box (3) = Fl::event_y ();

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

413 canvas->set_zoom_box (zoom_box);

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

414 canvas->redraw_overlay ();

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

415 return 1;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

416 }

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

417 break;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

418

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

419 case FL_RELEASE:

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

420 if (Fl::event_button () == 1)

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

421 {

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

422 // end of drag -- zoom

7852

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

423 if (canvas->zoom ())

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

424 {

7852

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

425 canvas->zoom (false);

7842

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

426 double x0,y0,x1,y1;

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

427 graphics_object ax =

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

428 gh_manager::get_object (fp.get_currentaxes ());

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

429 if (ax && ax.isa ("axes"))

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

430 {

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

431 axes::properties& ap =

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

432 dynamic_cast<axes::properties&> (ax.get_properties ());

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

433 pixel2pos (px0, py0, x0, y0);

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

434 pixel2pos (Fl::event_x (), Fl::event_y (), x1, y1);

7858

dfae35ac4fb0 added zoomstack support to fltk_backend

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7856

diff changeset

435 Matrix xl (1,2,0);

dfae35ac4fb0 added zoomstack support to fltk_backend

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7856

diff changeset

436 Matrix yl (1,2,0);

7842

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

437 if (x0 < x1)

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

438 {

7858

dfae35ac4fb0 added zoomstack support to fltk_backend

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7856

diff changeset

439 xl(0) = x0;

dfae35ac4fb0 added zoomstack support to fltk_backend

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7856

diff changeset

440 xl(1) = x1;

7842

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

441 }

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

442 else

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

443 {

7858

dfae35ac4fb0 added zoomstack support to fltk_backend

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7856

diff changeset

444 xl(0) = x1;

dfae35ac4fb0 added zoomstack support to fltk_backend

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7856

diff changeset

445 xl(1) = x0;

7842

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

446 }

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

447 if (y0 < y1)

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

448 {

7858

dfae35ac4fb0 added zoomstack support to fltk_backend

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7856

diff changeset

449 yl(0) = y0;

dfae35ac4fb0 added zoomstack support to fltk_backend

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7856

diff changeset

450 yl(1) = y1;

7842

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

451 }

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

452 else

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

453 {

7858

dfae35ac4fb0 added zoomstack support to fltk_backend

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7856

diff changeset

454 yl(0) = y1;

dfae35ac4fb0 added zoomstack support to fltk_backend

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7856

diff changeset

455 yl(1) = y0;

7842

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

456 }

7858

dfae35ac4fb0 added zoomstack support to fltk_backend

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7856

diff changeset

457 ap.zoom (xl, yl);

7842

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

458 mark_modified ();

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

459 }

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

460 }

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

461 // one click -- select axes

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

462 else if ( Fl::event_clicks () == 0)

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

463 {

7840

2c8f693c32fd convert_position not static anymore

Shai Ayal <shaiay@sourceforge.net>

parents: 7839

diff changeset

464 std::cout << "ca="<< h0.value ()<<"\n";

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

465 if (h0.ok ())

7841

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

466 fp.set_currentaxes (h0.value());

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

467 return 1;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

468 }

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

469 }

7852

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

470 else if (Fl::event_button () == 3)

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

471 {

7858

dfae35ac4fb0 added zoomstack support to fltk_backend

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7856

diff changeset

472 graphics_object ax =

dfae35ac4fb0 added zoomstack support to fltk_backend

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7856

diff changeset

473 gh_manager::get_object (fp.get_currentaxes ());

dfae35ac4fb0 added zoomstack support to fltk_backend

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7856

diff changeset

474 if (ax && ax.isa ("axes"))

dfae35ac4fb0 added zoomstack support to fltk_backend

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7856

diff changeset

475 {

dfae35ac4fb0 added zoomstack support to fltk_backend

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7856

diff changeset

476 axes::properties& ap =

dfae35ac4fb0 added zoomstack support to fltk_backend

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7856

diff changeset

477 dynamic_cast<axes::properties&> (ax.get_properties ());

dfae35ac4fb0 added zoomstack support to fltk_backend

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7856

diff changeset

478 ap.unzoom ();

dfae35ac4fb0 added zoomstack support to fltk_backend

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7856

diff changeset

479 mark_modified ();

dfae35ac4fb0 added zoomstack support to fltk_backend

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7856

diff changeset

480 }

7852

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

481 }

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

482 break;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

483 }

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

484

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

485 return retval;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

486 }

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

487

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

488 };

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

489

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

490 class figure_manager {

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

491 public:

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

492

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

493 static figure_manager& Instance () {

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

494 static figure_manager fm;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

495 return fm;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

496 }

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

497

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

498 ~figure_manager () {

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

499 close_all ();

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

500 }

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

501

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

502 void close_all () {

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

503 wm_iterator win;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

504 for (win = windows.begin (); win != windows.end (); win++)

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

505 delete (*win).second;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

506 windows.clear ();

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

507 }

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

508

7841

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

509 void new_window (figure::properties& fp) {

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

510 int x,y,w,h;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

511

7841

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

512 int idx = figprops2idx (fp);

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

513 if (idx >= 0 && windows.find (idx) == windows.end ())

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

514 {

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

515 default_size(x,y,w,h);

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

516 idx2figprops (curr_index , fp);

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

517 windows[curr_index++] = new plot_window (x, y, w, h, fp);

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

518 }

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

519 };

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

520

7841

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

521 void delete_window (int idx) {

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

522 wm_iterator win;

7841

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

523 if ( (win=windows.find (idx)) != windows.end ())

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

524 {

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

525 delete (*win).second;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

526 windows.erase (win);

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

527 }

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

528 };

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

529

7841

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

530 void delete_window (std::string idx_str)

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

531 { delete_window (str2idx (idx_str)); }

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

532

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

533 void mark_modified (int idx) {

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

534 wm_iterator win;

7841

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

535 if ( (win=windows.find (idx)) != windows.end ())

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

536 {

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

537 (*win).second->mark_modified ();

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

538 }

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

539 };

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

540

7841

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

541 void mark_modified (const graphics_handle& gh)

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

542 { mark_modified (hnd2idx(gh)); }

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

543

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

544 Matrix get_size (int idx)

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

545 {

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

546 Matrix sz (1, 2, 0.0);

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

547

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

548 wm_iterator win;

7841

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

549 if ( (win=windows.find (idx)) != windows.end ())

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

550 {

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

551 sz(0) = (*win).second->w ();

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

552 sz(1) = (*win).second->h ();

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

553 }

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

554

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

555 return sz;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

556 }

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

557

7841

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

558 Matrix get_size (const graphics_handle& gh)

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

559 { return get_size (hnd2idx (gh)); }

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

560

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

561 private:

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

562 figure_manager () {};

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

563 figure_manager (const figure_manager& ) {};

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

564 figure_manager& operator = (const figure_manager&) {return *this;};

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

565 // singelton -- hide all of the above

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

566

7841

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

567 static int curr_index;

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

568 typedef std::map<int, plot_window*> window_map;

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

569 typedef window_map::iterator wm_iterator;;

7841

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

570 window_map windows;

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

571

7841

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

572 static std::string fltk_idx_header;

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

573

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

574 void default_size (int& x, int& y, int& w, int& h) {

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

575 x = 10;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

576 y = 10;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

577 w = 400;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

578 h = 300;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

579 }

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

580

7841

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

581 int str2idx (const caseless_str clstr)

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

582 {

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

583 int ind;

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

584 if (clstr.find (fltk_idx_header,0) == 0)

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

585 {

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

586 std::istringstream istr (clstr.substr (fltk_idx_header.size ()));

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

587 if (istr >> ind )

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

588 return ind;

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

589 }

7852

4dc3e0ff730a Added zoombox (mouse button 1) & autoscale (button marked A and mouse button 3)

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7842

diff changeset

590 error ("fltk_backend: could not recognize fltk index");

7841

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

591 return -1;

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

592 }

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

593

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

594 void idx2figprops (int idx, figure::properties& fp)

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

595 {

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

596 std::ostringstream ind_str;

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

597 ind_str << fltk_idx_header << idx;

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

598 fp.set___plot_stream__ (ind_str.str ());

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

599 }

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

600

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

601 int figprops2idx (const figure::properties& fp)

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

602 {

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

603 if (fp.get___backend__ () == FLTK_BACKEND_NAME)

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

604 {

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

605 octave_value ps = fp.get___plot_stream__ ();

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

606 if (ps.is_string ())

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

607 return str2idx (ps.string_value ());

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

608 else

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

609 return 0;

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

610 }

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

611 error ("fltk_backend:: figure is not fltk");

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

612 return -1;

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

613 }

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

614

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

615 int hnd2idx (const graphics_handle& fh)

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

616 { return hnd2idx (fh.value ()); }

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

617

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

618 int hnd2idx (const double h)

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

619 {

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

620 graphics_object fobj = gh_manager::get_object (h);

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

621 if (fobj && fobj.isa ("figure"))

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

622 {

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

623 figure::properties& fp =

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

624 dynamic_cast<figure::properties&> (fobj.get_properties ());

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

625 return figprops2idx (fp);

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

626 }

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

627 error ("fltk_backend:: not a figure");

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

628 return -1;

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

629 }

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

630

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

631 };

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

632

7841

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

633 std::string figure_manager::fltk_idx_header="fltk index=";

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

634 int figure_manager::curr_index = 1;

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

635

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

636 class fltk_backend : public base_graphics_backend

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

637 {

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

638 public:

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

639 fltk_backend (void)

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

640 : base_graphics_backend (FLTK_BACKEND_NAME) { }

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

641

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

642 ~fltk_backend (void) { }

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

643

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

644 bool is_valid (void) const { return true; }

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

645

7841

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

646 void close_figure (const octave_value& ov) const

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

647 {

7841

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

648 if (ov.is_string ())

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

649 figure_manager::Instance ().delete_window (ov.string_value ());

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

650 }

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

651

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

652 void redraw_figure (const graphics_handle& fh) const

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

653 {

7841

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

654 figure_manager::Instance ().mark_modified (fh);

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

655 }

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

656

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

657 void print_figure (const graphics_handle& fh, const std::string& term,

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

658 const std::string& file, bool mono,

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

659 const std::string& debug_file) const

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

660 {

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

661 }

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

662

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

663 Matrix get_canvas_size (const graphics_handle& fh) const

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

664 {

7841

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

665 return figure_manager::Instance ().get_size (fh);

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

666 }

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

667

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

668 double get_screen_resolution (void) const

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

669 {

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

670 // FLTK doesn't give this info

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

671 return 72.0;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

672 }

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

673

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

674 Matrix get_screen_size (void) const

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

675 {

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

676 Matrix sz (1, 2, 0.0);

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

677 sz(0) = Fl::w ();

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

678 sz(1) = Fl::h ();

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

679 return sz;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

680 }

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

681 };

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

682

7839

71eb1793f0db fltk_backend can now handle figure.position changes

Shai Ayal <shaiay@sourceforge.net>

parents: 7834

diff changeset

683 static bool backend_registered = false;

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

684 // call this to init the fltk backend

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

685 DEFUN_DLD (__init_fltk__, args, nargout,"")

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

686 {

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

687 graphics_backend::register_backend (new fltk_backend);

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

688 backend_registered = true;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

689

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

690 octave_value retval;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

691 return retval;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

692 }

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

693

7842

1357bcae6e29 added pixel<->coord transform in axes and use it for display of cursor

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7841

diff changeset

694

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

695 // call this to delete the fltk backend

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

696 DEFUN_DLD (__remove_fltk__, args, nargout,"")

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

697 {

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

698 figure_manager::Instance ().close_all ();

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

699 graphics_backend::unregister_backend (FLTK_BACKEND_NAME);

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

700 backend_registered = false;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

701

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

702

7839

71eb1793f0db fltk_backend can now handle figure.position changes

Shai Ayal <shaiay@sourceforge.net>

parents: 7834

diff changeset

703 // give FLTK 10 seconds to wrap it up

71eb1793f0db fltk_backend can now handle figure.position changes

Shai Ayal <shaiay@sourceforge.net>

parents: 7834

diff changeset

704 Fl::wait(10);

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

705 octave_value retval;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

706 return retval;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

707 }

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

708

7839

71eb1793f0db fltk_backend can now handle figure.position changes

Shai Ayal <shaiay@sourceforge.net>

parents: 7834

diff changeset

709 // give FLTK no more than 0.01 sec to do it's stuff

71eb1793f0db fltk_backend can now handle figure.position changes

Shai Ayal <shaiay@sourceforge.net>

parents: 7834

diff changeset

710 static double fltk_maxtime = 1e-2;

71eb1793f0db fltk_backend can now handle figure.position changes

Shai Ayal <shaiay@sourceforge.net>

parents: 7834

diff changeset

711

71eb1793f0db fltk_backend can now handle figure.position changes

Shai Ayal <shaiay@sourceforge.net>

parents: 7834

diff changeset

712 // call this to delete the fltk backend

71eb1793f0db fltk_backend can now handle figure.position changes

Shai Ayal <shaiay@sourceforge.net>

parents: 7834

diff changeset

713 DEFUN_DLD (__fltk_maxtime__, args, nargout,"")

71eb1793f0db fltk_backend can now handle figure.position changes

Shai Ayal <shaiay@sourceforge.net>

parents: 7834

diff changeset

714 {

71eb1793f0db fltk_backend can now handle figure.position changes

Shai Ayal <shaiay@sourceforge.net>

parents: 7834

diff changeset

715 octave_value retval=fltk_maxtime;

71eb1793f0db fltk_backend can now handle figure.position changes

Shai Ayal <shaiay@sourceforge.net>

parents: 7834

diff changeset

716

71eb1793f0db fltk_backend can now handle figure.position changes

Shai Ayal <shaiay@sourceforge.net>

parents: 7834

diff changeset

717 if (args.length () == 1 )

71eb1793f0db fltk_backend can now handle figure.position changes

Shai Ayal <shaiay@sourceforge.net>

parents: 7834

diff changeset

718 {

71eb1793f0db fltk_backend can now handle figure.position changes

Shai Ayal <shaiay@sourceforge.net>

parents: 7834

diff changeset

719 if (args(0).is_real_scalar ())

71eb1793f0db fltk_backend can now handle figure.position changes

Shai Ayal <shaiay@sourceforge.net>

parents: 7834

diff changeset

720 fltk_maxtime = args(0).double_value ();

71eb1793f0db fltk_backend can now handle figure.position changes

Shai Ayal <shaiay@sourceforge.net>

parents: 7834

diff changeset

721 else

71eb1793f0db fltk_backend can now handle figure.position changes

Shai Ayal <shaiay@sourceforge.net>

parents: 7834

diff changeset

722 error("argument must be a real scalar");

71eb1793f0db fltk_backend can now handle figure.position changes

Shai Ayal <shaiay@sourceforge.net>

parents: 7834

diff changeset

723 }

71eb1793f0db fltk_backend can now handle figure.position changes

Shai Ayal <shaiay@sourceforge.net>

parents: 7834

diff changeset

724

71eb1793f0db fltk_backend can now handle figure.position changes

Shai Ayal <shaiay@sourceforge.net>

parents: 7834

diff changeset

725 return retval;

71eb1793f0db fltk_backend can now handle figure.position changes

Shai Ayal <shaiay@sourceforge.net>

parents: 7834

diff changeset

726 }

71eb1793f0db fltk_backend can now handle figure.position changes

Shai Ayal <shaiay@sourceforge.net>

parents: 7834

diff changeset

727

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

728 // call this from the idle_callback to refresh windows

7839

71eb1793f0db fltk_backend can now handle figure.position changes

Shai Ayal <shaiay@sourceforge.net>

parents: 7834

diff changeset

729 DEFUN_DLD (__fltk_redraw__, args, nargout,\

71eb1793f0db fltk_backend can now handle figure.position changes

Shai Ayal <shaiay@sourceforge.net>

parents: 7834

diff changeset

730 "internal function for the fltk backend")

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

731 {

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

732 octave_value retval;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

733

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

734 if (!backend_registered)

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

735 return retval;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

736

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

737 // we scan all figures and add those which use FLTK as a backend

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

738 graphics_object obj = gh_manager::get_object (0);

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

739 if (obj && obj.isa ("root_figure"))

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

740 {

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

741 base_properties& props = obj.get_properties ();

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

742 Matrix children = props.get_children ();

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

743

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

744 for (octave_idx_type n = 0; n < children.numel (); n++)

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

745 {

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

746 graphics_object fobj = gh_manager::get_object (children (n));

7841

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

747 if (fobj)

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

748 if (fobj.isa ("figure"))

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

749 {

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

750 figure::properties& fp =

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

751 dynamic_cast<figure::properties&> (fobj.get_properties ());

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

752 if (fp.get___backend__ () == FLTK_BACKEND_NAME)

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

753 figure_manager::Instance ().new_window (fp);

c643e5c520f5 fltk_backend now indexes using an internal index instead of figure handle

Shai Ayal <shaiay@users.sourceforge.net>

parents: 7840

diff changeset

754 }

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

755 }

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

756 }

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

757

7839

71eb1793f0db fltk_backend can now handle figure.position changes

Shai Ayal <shaiay@sourceforge.net>

parents: 7834

diff changeset

758 Fl::wait(fltk_maxtime);

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

759

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

760 return retval;

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

761 }

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

762

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

763 /* to init

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

764 autoload("__init_fltk__",[pwd(),"/fltk_backend.oct"])

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

765 autoload("__remove_fltk__",[pwd(),"/fltk_backend.oct"])

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

766 autoload("__fltk_redraw__",[pwd(),"/fltk_backend.oct"])

7839

71eb1793f0db fltk_backend can now handle figure.position changes

Shai Ayal <shaiay@sourceforge.net>

parents: 7834

diff changeset

767 autoload("__fltk_maxtime__",[pwd(),"/fltk_backend.oct"])

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

768 input_event_hook ("__fltk_redraw__");

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

769 __init_fltk__ ();

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

770 set(gcf(),"__backend__","fltk")

7839

71eb1793f0db fltk_backend can now handle figure.position changes

Shai Ayal <shaiay@sourceforge.net>

parents: 7834

diff changeset

771 plot(randn(1e3,1));

7834

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

772

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

773

caab78e7e377 added checks for fltk & freetype in configure script

Shai Ayal <shaiay@sourceforge.net>

parents:

diff changeset

774 */

Mercurial > hg > octave-nkf

annotate src/graphics/fltk_backend/fltk_backend.cc @ 7861:7397a0026ca8