Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
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;
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