overflow-tube: wip cut2

[quacks.git] / overflow-tube.ps.pl

diff --git a/overflow-tube.ps.pl b/overflow-tube.ps.pl
index 976e8f77ad64681d90308c6202f17cb0191596c4..be1eb64b4ca8a1090ca1ecb29c035c0c0db45f66 100755 (executable)
--- 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