overflow-tube: wip cut2

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

diff --git a/overflow-tube.ps.pl b/overflow-tube.ps.pl
index f5804080a12c71dc162312c9fa2d6039509d517a..976e8f77ad64681d90308c6202f17cb0191596c4 100755 (executable)
--- a/overflow-tube.ps.pl
+++ b/overflow-tube.ps.pl
@@ -19,6 +19,8 @@ ps_start(<<END);
 END
 
 my $x_cut = 27;
+my $x_cut2 = 38;
+my $y_cut2 = 25;
 my $y_cutd = 10;
 
 my $nrepis = 4;
@@ -52,7 +54,9 @@ o <<GS, some_cut_line(<<GR), <<END;
 /cut_line {
 GS
                               newpath
-  $x_cut 0                    moveto
+  $x_cut2 0                   moveto
+  $x_cut2 $y_cut2             lineto
+  $x_cut  $y_cut2             lineto
   $x_cut $y_cut               lineto
   0      $y_cut $y_cutd add   lineto
   0      $y_top               lineto