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 <<GS, some_cut_line(<<GR), <<END;
/cut_line {
GS
- newpath
- $x_cut2 0 moveto
- $x_cut2 $y_cut2 lineto
- $x_cut $y_cut2 $y_cut2d add lineto
- $x_cut $y_cut lineto
- 0 $y_cut $y_cutd add lineto
- 0 $y_top lineto
- stroke
+ newpath
+ $x_cut2 0 moveto
+ $x_cut2 $y_cut2 lineto
+ $x_cut $y_cut2 $y_cut2d add lineto
+ $x_cut $y_cut lineto
+ 0 $y_cut $y_cutd add lineto
+ 0 $y_top lineto
+ stroke
GR
} def
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