X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=overflow-tube.ps.pl;h=0ca63cd2eef265a66ae9d4ae82448a38f400e763;hb=afc172514f30b3976c4ae8b049696d2c25cec737;hp=d417add4d97c9cc590fe301dcf5dc1152f247e4c;hpb=6e606d4d382cc1a7c5b1a8fc45abd34a1172c327;p=quacks.git

diff --git a/overflow-tube.ps.pl b/overflow-tube.ps.pl
index d417add..0ca63cd 100755
--- 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