clarifications etc. from notes

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

diff --git a/overflow-tube.ps.pl b/overflow-tube.ps.pl
index bdbe3663d178db0714b6055dd2364a66cbab8e2a..071ccd16ac17341797b5b68324ed09a182f9e3e1 100755 (executable)
--- a/overflow-tube.ps.pl
+++ b/overflow-tube.ps.pl
@@ -19,14 +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 $coverup_x = 4;
+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;
 
@@ -45,6 +48,8 @@ my $y_top = $y_pl_zero + $y_cutd + $spacing*1.25;
 
 our $veep_bg = " 0.95 0.90 0.67 setrgbcolor ";
 
+our $x_cut_rhs = $paper_x - $x_cut + 0.5 * $colspacing;;
+
 sub some_cut_line($) {
   <<END;
 gsave
@@ -61,8 +66,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
@@ -217,14 +222,14 @@ sub set () {
   o(<<END);
     cut_line
     gsave
-      $paper_x $x_cut sub  0 translate
+      $x_cut_rhs 0 translate
       cut_line
     grestore
 END
   o some_cut_line <<END;
                                  newpath
     0                    $y_top  moveto
-    $paper_x $x_cut sub  $y_top  lineto
+    $x_cut_rhs           $y_top  lineto
                                  stroke
 END