wip

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

diff --git a/overflow-tube.ps.pl b/overflow-tube.ps.pl
index 96b701e2f36b3b686a9668b932a441a1eb1942bf..7203177bea4353928cf88bf4f9c5299646d4099e 100755 (executable)
--- 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 $!;