X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=overflow-tube.ps.pl;h=be1eb64b4ca8a1090ca1ecb29c035c0c0db45f66;hb=0e02e2e79e6fbab0d9aaabe7f0d5a898c7d72300;hp=976e8f77ad64681d90308c6202f17cb0191596c4;hpb=39f99e0418d9b70d5b687eff85559d6ed941e479;p=quacks.git

diff --git a/overflow-tube.ps.pl b/overflow-tube.ps.pl
index 976e8f7..be1eb64 100755
--- a/overflow-tube.ps.pl
+++ b/overflow-tube.ps.pl
@@ -20,9 +20,11 @@ END
 
 my $x_cut = 27;
 my $x_cut2 = 38;
-my $y_cut2 = 25;
+my $y_cut2 = 24;
 my $y_cutd = 10;
 
+my $y_cut2d = $y_cutd * ($x_cut2-$x_cut)/$x_cut;
+
 my $nrepis = 4;
 
 my $paper_x = 210;
@@ -56,7 +58,7 @@ GS
                               newpath
   $x_cut2 0                   moveto
   $x_cut2 $y_cut2             lineto
-  $x_cut  $y_cut2             lineto
+  $x_cut  $y_cut2 $y_cut2d add lineto
   $x_cut $y_cut               lineto
   0      $y_cut $y_cutd add   lineto
   0      $y_top               lineto