overflow-tube: Add cover up instruction

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

diff --git a/overflow-tube.ps.pl b/overflow-tube.ps.pl
index 3aafd9e767f81fd7e803b89029ee92240d0f3b84..f5804080a12c71dc162312c9fa2d6039509d517a 100755 (executable)
--- a/overflow-tube.ps.pl
+++ b/overflow-tube.ps.pl
@@ -222,6 +222,16 @@ END
   repis();
 
   o <<END;
+    gsave
+      /Times-Roman findfont 4.0 scalefont setfont
+      4 97 moveto  (cover) show
+      6 93.5 moveto  (up) show
+      4 89 moveto
+      /Helvetica-Bold-Italic findfont 3.5 scalefont setfont (35) show
+      1 0 rmoveto
+      /Helvetica-Bold findfont 3.5 scalefont setfont (15) show
+    grestore
+
     gsave
       $paper_x $x_cut sub  $y_top 7 sub translate