END
my $x_cut = 27;
+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;
my $paper_x = 210;
o <<GS, some_cut_line(<<GR), <<END;
/cut_line {
GS
- newpath
- $x_cut 0 moveto
- $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
repis();
o <<END;
+ gsave
+ $coverup_x $coverup_y translate
+ /Times-Roman findfont 4.0 scalefont setfont
+ 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
+ grestore
+
gsave
$paper_x $x_cut sub $y_top 7 sub translate