From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 12 Nov 2022 16:45:54 +0000 (+0000)
Subject: overflow-tube: Add cover up instruction (introduce var)
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=quacks.git;a=commitdiff_plain;h=4fe15599edb21c9dbc0e8cdf177ed022f9c1d21d

overflow-tube: Add cover up instruction (introduce var)

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

diff --git a/overflow-tube.ps.pl b/overflow-tube.ps.pl
index 5f15bfe..bdbe366 100755
--- a/overflow-tube.ps.pl
+++ b/overflow-tube.ps.pl
@@ -23,6 +23,9 @@ my $x_cut2 = 38;
 my $y_cut2 = 24;
 my $y_cutd = 10;
 
+my $coverup_x = 4;
+my $coverup_y = 89;
+
 my $y_cut2d = $y_cutd * ($x_cut2-$x_cut)/$x_cut;
 
 my $nrepis = 4;
@@ -229,10 +232,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