overflow-tube: cut adjustments

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

diff --git a/overflow-tube.ps.pl b/overflow-tube.ps.pl
index be1eb64b4ca8a1090ca1ecb29c035c0c0db45f66..d417add4d97c9cc590fe301dcf5dc1152f247e4c 100755 (executable)
--- a/overflow-tube.ps.pl
+++ b/overflow-tube.ps.pl
@@ -19,11 +19,17 @@ ps_start(<<END);
 END
 
 my $x_cut = 27;
+my $x_cutd = 1;
 my $x_cut2 = 38;
 my $y_cut2 = 24;
 my $y_cutd = 10;
 
-my $y_cut2d = $y_cutd * ($x_cut2-$x_cut)/$x_cut;
+my $coverup_x = 5;
+my $coverup_y = 89;
+
+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;
 
@@ -55,14 +61,14 @@ END
 o <<GS, some_cut_line(<<GR), <<END;
 /cut_line {
 GS
-                              newpath
-  $x_cut2 0                   moveto
-  $x_cut2 $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
-                              stroke
+                                          newpath
+  $x_cut2     0                           moveto
+  $x_cut2     $y_cut2                     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
 GR
 } def
 END
@@ -229,10 +235,11 @@ END
 
   o <<END;
     gsave
+      $coverup_x $coverup_y translate
       /Times-Roman findfont 4.0 scalefont setfont
-      4 97 moveto  (cover) show
-      6 93.5 moveto  (up) show
-      4 89 moveto
+      0 8 moveto  (cover) show
+      2 4.5 moveto  (up) show
+      0 0 moveto
       /Helvetica-Bold-Italic findfont 3.5 scalefont setfont (35) show
       1 0 rmoveto
       /Helvetica-Bold findfont 3.5 scalefont setfont (15) show