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 95b09f37d411f27bcbc38ffb8b755173edcb42d9..7e059dae54f728a1221f23e024c95410d00f6bb8 100755 (executable)
--- 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