From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 12 Nov 2022 16:40:20 +0000 (+0000)
Subject: overflow-tube: wip cut2
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=quacks.git;a=commitdiff_plain;h=39f99e0418d9b70d5b687eff85559d6ed941e479

overflow-tube: wip cut2

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

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