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 / g2_anim.c

diff --git a/binaries/src/ViennaRNA/RNAforester/g2-0.70/demo/g2_anim.c b/binaries/src/ViennaRNA/RNAforester/g2-0.70/demo/g2_anim.c
new file mode 100644 (file)
index 0000000..5116f11
--- /dev/null
+++ b/binaries/src/ViennaRNA/RNAforester/g2-0.70/demo/g2_anim.c
@@ -0,0 +1,60 @@
+/*****************************************************************************
+**  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_win32.h>
+
+
+#define N 300
+#define W 400
+#define H 400
+
+int main()
+{
+    int d;
+       int x[N];
+       int y[N];
+       int c[N];
+       int i,t;
+
+    d=g2_open_win32(W, H, "simple_animation", 0);
+    g2_set_auto_flush(d,0);
+
+       for (i=0;i<N;i++)
+       {
+               x[i] = rand()%(W/4)+H/2;
+               y[i] = rand()%(H/4)+W/2;
+               c[i] = rand()%16;
+       }
+
+       for (t=0; t<1000; t++)
+       {
+               g2_clear(d);
+               for (i=0; i<N; i++)
+                       {
+                       g2_filled_circle(d,(double)x[i],(double)y[i],(double)5);
+                       g2_pen(d,c[i]);
+                       x[i] += (rand()%2) * 2 - 1;
+                       y[i] += (rand()%2) * 2 - 1;
+                       }
+       g2_flush(d);
+       }
+    getchar();
+    return 0;
+}