From 996cf35f35b33ea38a377d0840da1f824a253ddd Mon Sep 17 00:00:00 2001
From: Tonton Th <tth@linda.buvette.org>
Date: Fri, 24 Apr 2026 23:08:11 +0200
Subject: [PATCH] add a "genp_line" subroutine

---
 genplotting.f90 | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/genplotting.f90 b/genplotting.f90
index 40dd537..ec4b809 100644
--- 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