Fortraneries/GrafAnim/usegenplot.f90

module usegenplot

  implicit none
  contains

! -------------------------------------------------------------------

subroutine init_genplot(filename)

  character(*), intent(in)    :: filename

  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

! -------------------------------------------------------------------

end module