overflow-tube: cut adj, break out x_cut_rhs

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/overflow-tube.ps.pl b/overflow-tube.ps.pl
index d417add4d97c9cc590fe301dcf5dc1152f247e4c..0ca63cd2eef265a66ae9d4ae82448a38f400e763 100755 (executable)
--- a/overflow-tube.ps.pl
+++ b/overflow-tube.ps.pl
@@ -48,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;
+
 sub some_cut_line($) {
   <<END;
 gsave
@@ -220,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