use size option of gneplot2, and more

GrafAnim/essai.f90

@@ -5,7 +5,7 @@ program essai
   integer                   :: foo, bar
   integer                   :: nbarg
   integer                   :: numframe = 0
-  character(len=32)         :: arg
+  character(len=256)        :: arg
 
   ! write(0, *)   "------------ essai graf anim ---------------"
 
@@ -16,7 +16,7 @@ program essai
        read (arg, *) numframe
   endif
 
-  ! write(0, '(A20, I5)')  "frame number =", numframe
+  write(0, '(A20, I5)')  "frame number =", numframe
 
   call init_genplot("essai.genplot")
   call do_frame(7)

GrafAnim/go.sh

@@ -9,7 +9,7 @@ do
 	./essai $foo > a.scratch
 	fname=$(printf "F/%04d.tga" $foo)
 	echo $fname
-	genplot2 a.scratch $fname
+	genplot2 -s 640x480 a.scratch $fname
 
 done
 

GrafAnim/usegenplot.f90

@@ -26,6 +26,19 @@ subroutine end_genplot(message)
 end subroutine
 
 ! -------------------------------------------------------------------
+
+subroutine do_initialise_once(motif)
+
+  character(*), intent(in)    :: motif
+
+  write(0, *)   '--> do initialise once "', motif, '", flag is ', initialised
+
+  call init_genplot('a.scratch')
+
+end subroutine
+
+! -------------------------------------------------------------------
+
 subroutine gplt_setcol(col)
   integer, intent(in)           :: col
   color = col
@@ -38,6 +51,11 @@ end function
 
 subroutine gplt_move(x, y)
   integer, intent(in)          :: x, y
+
+  if (.NOT. initialised) then
+    call do_initialise_once('in gplt_move')
+  endif
+
   print *, x, y, 0
 end subroutine
 
@@ -45,6 +63,9 @@ end subroutine
 
 subroutine gplt_draw(x, y)
   integer, intent(in)          :: x, y
+  if (.NOT. initialised) then
+    call do_initialise_once('in gplt_draw')
+  endif
   print *, x, y, color
 end subroutine