GrafAnim: made the testbed

GrafAnim/usegenplot.f90

@@ -7,9 +7,37 @@ module usegenplot
 
 subroutine init_genplot(filename)
 
-  character(200) :: filename
+  character(*), intent(in)    :: filename
 
-  write(0, *)   '-------- init genplot '
+  write(0, *)   '--> init genplot "', filename, '"'
+
+end subroutine
+
+! -------------------------------------------------------------------
+
+subroutine gplt_move(x, y)
+   integer, intent(in)          :: x, y
+   print *, x, y, 0
+end subroutine
+
+! -------------------------------------------------------------------
+
+subroutine gplt_draw(x, y)
+   integer, intent(in)          :: x, y
+   print *, x, y, 2
+end subroutine
+
+! -------------------------------------------------------------------
+
+subroutine gplt_line(x1, y1, x2, y2)
+   integer, intent(in)           :: x1, y1, x2, y2
+   call gplt_move(x1, y1)
+   call gplt_draw(x2, y2)
+end subroutine
+
+! -------------------------------------------------------------------
+subroutine gplt_rect(x1, y1, x2, y2)
+   integer, intent(in)           :: x1, y1, x2, y2! -------------------------------------------------------------------
 
 end subroutine