GrafAnim: made the testbed

GrafAnim/essai.f90

@@ -1,13 +1,43 @@
 program essai
-
   use usegenplot
   implicit none
 
-  ! integer                     :: foo, bar
+  integer                   :: foo, bar
+  integer                   :: nbarg
+  integer                   :: numframe = 1
+  character(len=32)         :: arg
 
-  write(0, *)   "------------ essai graf anim ---------------"
+  ! write(0, *)   "------------ essai graf anim ---------------"
 
-  call init_genplot('essai.genplot')
+  nbarg = IARGC()
+  if (nbarg .GT. 0) then
+       call GETARG(1, arg)
+       write (0, '(A40, A5)') "argument = ",  arg
+       read (arg, *) numframe
+  endif
+
+  write(0, '(A40, I5)')  "frame number =", numframe
+
+  call init_genplot("essai.genplot")
+  ! call do_frame(7)
+
+  bar = (numframe * 20) - 160 
+  do foo=20, 620, 40
+    call gplt_line(foo, 20, bar, 460)
+    call gplt_line(bar, 20, foo, 460)
+  enddo
+
+contains        !------------------------------------------
+
+subroutine do_frame(color)
+  integer, intent(in)           :: color
+
+  call gplt_line(  0,   0, 640,   0)
+  call gplt_line(  0, 480, 640, 480)
+  call gplt_line(  0,   0,   0, 480)
+  call gplt_line(640,   0, 640, 480)
+
+end subroutine
 
 end program