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

wip

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

diff --git a/overflow-tube.ps.pl b/overflow-tube.ps.pl
index 96b701e..7203177 100755
--- a/overflow-tube.ps.pl
+++ b/overflow-tube.ps.pl
@@ -18,8 +18,24 @@ ps_start(<<END);
 0 -210 translate
 END
 
+my $x_cut = 27;
+my $y_cut = 120; # XX
+my $y_top = 160; # XX
+my $y_cutd = 20;
+
 o <<END;
-0 0 moveto 20 20 lineto stroke
+gsave
+0.5 setgray
+
+/cut_line {
+  $x_cut 0                    moveto
+  $x_cut $y_cut               lineto
+  0      $y_cut $y_cutd add   lineto
+  0      $y_top               lineto
+  stroke
+} def
+
+cut_line
 END
 
 print $ps_framing or die $!;