From b55ce8fc69295add4604812117730508aac3ef97 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Jul 2022 15:15:03 +0100
Subject: [PATCH] some cut line

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 overflow-tube.ps.pl | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/overflow-tube.ps.pl b/overflow-tube.ps.pl
index 95b09f3..7e059da 100755
--- a/overflow-tube.ps.pl
+++ b/overflow-tube.ps.pl
@@ -36,17 +36,26 @@ my $y_pl_zero = $y_cut + $spacing - $y_cutd* 0.5 * $x_cut/$colspacing;
 
 my $y_top = $y_pl_zero + $y_cutd + $spacing*1.25;
 
-o <<END;
+sub some_cut_line($) {
+  <<END;
 gsave
-0.5 setgray
+  0.5 setgray
+  $_[0]
+grestore
+END
+}
+
 
+o <<GS, some_cut_line(<<GR), <<END;
 /cut_line {
+GS
                               newpath
   $x_cut 0                    moveto
   $x_cut $y_cut               lineto
   0      $y_cut $y_cutd add   lineto
   0      $y_top               lineto
                               stroke
+GR
 } def
 END
 
-- 
2.30.2