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