add a "genp_line" subroutine

2026-04-24 23:08:11 +02:00
parent 0d0f794103
commit 996cf35f35
1 changed files with 6 additions and 0 deletions
--- a/genplotting.f90
+++ b/genplotting.f90
@@ -64,6 +64,12 @@ subroutine genp_draw (px, py, color)
  if (ly .gt. ymax)      ymax = ly
 end subroutine
 ! ---------------------------------------------------------
+subroutine genp_line(xa, ya, xb, yb, color)
+  real,    intent(in)     :: xa, ya, xb, yb
+  integer, intent(in)     :: color
+  call genp_move(xa, ya)
+  call genp_draw(xb, yb, color)
+end subroutine
 ! ---------------------------------------------------------
 subroutine genp_end (foo)
  integer, intent(in)    :: foo