[AQT-commit] CVS: adapters/fortran demo.f,1.5,1.6

[Per P. <per...@us...>]

Update of /cvsroot/aquaterm/adapters/fortran
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12417

Modified Files:
	demo.f 
Log Message:
Duh, fixing misuse of lines in demo.

Index: demo.f
===================================================================
RCS file: /cvsroot/aquaterm/adapters/fortran/demo.f,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- demo.f	1 Mar 2004 15:09:12 -0000	1.5
+++ demo.f	22 May 2004 15:36:29 -0000	1.6
@@ -105,14 +105,11 @@
       f = 0.0
       do 20 i = 0, 255
          call aqtSetColor(1.0, f/256.0, f/512.0)
-         call aqtMoveTo(320.+f, 370.)
-         call aqtAddLineTo(320.+f, 350.)
+         call aqtAddFilledRect(320.+f, 350., 1., 20.);
          call aqtSetColor(0.0, f/256.0, (1.0-f/256.0))
-         call aqtMoveTo(320.+f, 348.)
-         call aqtAddLineTo(320.+f, 328.)
+         call aqtAddFilledRect(320.+f, 328., 1., 20.);
          call aqtSetColor((1.0-f/256.0), (1.0-f/256.0), (1.0-f/256.0))
-         call aqtMoveTo(320.+f, 326.)
-         call aqtAddLineTo(320.+f, 306.)
+         call aqtAddFilledRect(320.+f, 306., 1., 20.);
          f = f+1.0
  20   end do
 C     Lines