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 / demo_f.f

diff --git a/binaries/src/ViennaRNA/RNAforester/g2-0.70/demo/demo_f.f b/binaries/src/ViennaRNA/RNAforester/g2-0.70/demo/demo_f.f
new file mode 100644 (file)
index 0000000..599826b
--- /dev/null
+++ b/binaries/src/ViennaRNA/RNAforester/g2-0.70/demo/demo_f.f
@@ -0,0 +1,59 @@
+c
+c  Copyright (C) 1998-2001  Ljubomir Milanovic & Horst Wagner
+c  This file is part of the g2 library
+c
+c  This library is free software; you can redistribute it and/or
+c  modify it under the terms of the GNU Lesser General Public
+c  License as published by the Free Software Foundation; either
+c  version 2.1 of the License, or (at your option) any later version.
+c
+c  This library is distributed in the hope that it will be useful,
+c  but WITHOUT ANY WARRANTY; without even the implied warranty of
+c  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+c  Lesser General Public License for more details.
+c
+c  You should have received a copy of the GNU Lesser General Public
+c  License along with this library; if not, write to the Free Software
+c  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+c
+        real demo_f
+        real  a, b
+        real d, d1, d2
+        real color
+
+        d=g2_open_vd()
+        write (6,*) d        
+        d1=g2_open_X11(100.0, 100.0)
+        write (6,*) d1
+        d2=g2_open_PS('demo_f.ps', 4.0, 1.0)
+        write (6,*) d2
+
+        call g2_attach(d, d1)
+        call g2_attach(d, d2)
+
+        call g2_plot(d, 50.0, 50.0)
+        call g2_arc(d, 50.0, 50.0, 30.0, 20.0, 45.0, 180.0)
+
+        color=g2_ink(d1, 1.0, 0.0, 0.0)
+        call g2_pen(d1, color)
+        write (6,*) color
+        call g2_string(d1, 15.0, 75.0, 'TEST (Window)')
+
+        color=g2_ink(d2, 0.0, 1.0, 0.0)
+        call g2_pen(d2, color)
+        write (6,*) color        
+        call g2_string(d2, 15.0, 75.0, 'TEST (File)')
+
+        call g2_pen(d, 1.0)
+        call g2_circle(d, 20.0, 20.0, 10.0)
+        call g2_string(d, 20.0, 20.0, 'All devices!')
+        call g2_flush(d)
+
+        call g2_close(d2)
+
+        read (*,*) a
+
+        stop
+        end
+
+