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

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 7e059da..cdaf9be 100755
--- a/overflow-tube.ps.pl
+++ b/overflow-tube.ps.pl
@@ -125,6 +125,12 @@ sub set () {
       cut_line
     grestore
 END
+  o some_cut_line <<END;
+                                 newpath
+    0                    $y_top  moveto
+    $paper_x $x_cut sub  $y_top  lineto
+                                 stroke
+END
 
   repis();
 }