X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=overflow-tube.ps.pl;fp=overflow-tube.ps.pl;h=d417add4d97c9cc590fe301dcf5dc1152f247e4c;hb=6e606d4d382cc1a7c5b1a8fc45abd34a1172c327;hp=fd8a95f5e1f8b5d63bd40d904f43b32da688af32;hpb=88f802fd3443e4fcaedd794a1dcd3044f6dd7564;p=quacks.git

diff --git a/overflow-tube.ps.pl b/overflow-tube.ps.pl
index fd8a95f..d417add 100755
--- a/overflow-tube.ps.pl
+++ b/overflow-tube.ps.pl
@@ -19,6 +19,7 @@ ps_start(<<END);
 END
 
 my $x_cut = 27;
+my $x_cutd = 1;
 my $x_cut2 = 38;
 my $y_cut2 = 24;
 my $y_cutd = 10;
@@ -26,7 +27,9 @@ my $y_cutd = 10;
 my $coverup_x = 5;
 my $coverup_y = 89;
 
-my $y_cut2d = $y_cutd * ($x_cut2-$x_cut)/$x_cut;
+my $cutd_slope = ($x_cut2-$x_cut)/$x_cut;
+my $y_cut2d = $y_cutd * $cutd_slope;
+my $y_cutdd = $x_cutd * $cutd_slope;
 
 my $nrepis = 4;
 
@@ -61,8 +64,8 @@ GS
                                           newpath
   $x_cut2     0                           moveto
   $x_cut2     $y_cut2                     lineto
-  $x_cut      $y_cut2   $y_cut2d add      lineto
-  $x_cut      $y_cut                      lineto
+  $x_cut $x_cutd add     $y_cut2   $y_cut2d add      lineto
+  $x_cut $x_cutd add      $y_cut   $y_cutdd add      lineto
   0           $y_cut    $y_cutd add       lineto
   0           $y_top                      lineto
                                           stroke