From 39f99e0418d9b70d5b687eff85559d6ed941e479 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 12 Nov 2022 16:40:20 +0000
Subject: [PATCH] overflow-tube: wip cut2

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

diff --git a/overflow-tube.ps.pl b/overflow-tube.ps.pl
index f580408..976e8f7 100755
--- a/overflow-tube.ps.pl
+++ b/overflow-tube.ps.pl
@@ -19,6 +19,8 @@ ps_start(<<END);
 END
 
 my $x_cut = 27;
+my $x_cut2 = 38;
+my $y_cut2 = 25;
 my $y_cutd = 10;
 
 my $nrepis = 4;
@@ -52,7 +54,9 @@ o <<GS, some_cut_line(<<GR), <<END;
 /cut_line {
 GS
                               newpath
-  $x_cut 0                    moveto
+  $x_cut2 0                   moveto
+  $x_cut2 $y_cut2             lineto
+  $x_cut  $y_cut2             lineto
   $x_cut $y_cut               lineto
   0      $y_cut $y_cutd add   lineto
   0      $y_top               lineto
-- 
2.30.2