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

diff --git a/binaries/src/ViennaRNA/RNAforester/g2-0.70/demo/pointer.c b/binaries/src/ViennaRNA/RNAforester/g2-0.70/demo/pointer.c
new file mode 100644 (file)
index 0000000..48968a8
--- /dev/null
+++ b/binaries/src/ViennaRNA/RNAforester/g2-0.70/demo/pointer.c
@@ -0,0 +1,46 @@
+/*****************************************************************************
+**  Copyright (C) 1998-2001  Ljubomir Milanovic & Horst Wagner
+**  This file is part of the g2 library
+**
+**  This library is free software; you can redistribute it and/or
+**  modify it under the terms of the GNU Lesser General Public
+**  License as published by the Free Software Foundation; either
+**  version 2.1 of the License, or (at your option) any later version.
+**
+**  This library is distributed in the hope that it will be useful,
+**  but WITHOUT ANY WARRANTY; without even the implied warranty of
+**  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+**  Lesser General Public License for more details.
+**
+**  You should have received a copy of the GNU Lesser General Public
+**  License along with this library; if not, write to the Free Software
+**  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+******************************************************************************/
+#include <stdio.h>
+#include <g2.h>
+#include <g2_X11.h>
+
+int main()
+{
+    int d;
+    double x, y;
+    unsigned int button;
+    
+    d=g2_open_X11(100, 50);
+
+    g2_set_coordinate_system(d, 50, 25, 50., 25.);
+
+    g2_line(d, -1, 0, 1, 0);
+    g2_line(d, 0, -1, 0, 1);
+
+    printf("Press <Enter> to start\n");
+    getchar();
+
+    for(;;) {
+       g2_query_pointer(d, &x, &y, &button);
+       printf("%f %f  0x%04x\n", x, y, button);
+    }
+       
+    return 0;
+}
+