WSTester updated to work plus hopefully all the other changes that need to go into...
[jabaws.git] / binaries / src / ViennaRNA / RNAforester / g2-0.70 / demo / pointer.c
1 /*****************************************************************************
2 **  Copyright (C) 1998-2001  Ljubomir Milanovic & Horst Wagner
3 **  This file is part of the g2 library
4 **
5 **  This library is free software; you can redistribute it and/or
6 **  modify it under the terms of the GNU Lesser General Public
7 **  License as published by the Free Software Foundation; either
8 **  version 2.1 of the License, or (at your option) any later version.
9 **
10 **  This library is distributed in the hope that it will be useful,
11 **  but WITHOUT ANY WARRANTY; without even the implied warranty of
12 **  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13 **  Lesser General Public License for more details.
14 **
15 **  You should have received a copy of the GNU Lesser General Public
16 **  License along with this library; if not, write to the Free Software
17 **  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
18 ******************************************************************************/
19 #include <stdio.h>
20 #include <g2.h>
21 #include <g2_X11.h>
22
23 int main()
24 {
25     int d;
26     double x, y;
27     unsigned int button;
28     
29     d=g2_open_X11(100, 50);
30
31     g2_set_coordinate_system(d, 50, 25, 50., 25.);
32
33     g2_line(d, -1, 0, 1, 0);
34     g2_line(d, 0, -1, 0, 1);
35
36     printf("Press <Enter> to start\n");
37     getchar();
38
39     for(;;) {
40         g2_query_pointer(d, &x, &y, &button);
41         printf("%f %f  0x%04x\n", x, y, button);
42     }
43         
44     return 0;
45 }
46