From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 12 Nov 2022 17:02:00 +0000 (+0000)
Subject: overflow-tube: cut adj, break out x_cut_rhs
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=afc172514f30b3976c4ae8b049696d2c25cec737;p=quacks.git

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 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