From 656260a6471d498212e93ed6c1891f14e02946d5 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Jul 2022 12:28:15 +0100
Subject: [PATCH] wip

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

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 $!;
-- 
2.30.2