From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Jul 2022 14:15:03 +0000 (+0100)
Subject: some cut line
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=b55ce8fc69295add4604812117730508aac3ef97;p=quacks.git

some cut line

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

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