Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
my $x_cut = 27;
my $x_cut2 = 38;
my $x_cut = 27;
my $x_cut2 = 38;
+my $y_cut2d = $y_cutd * ($x_cut2-$x_cut)/$x_cut;
+
my $nrepis = 4;
my $paper_x = 210;
my $nrepis = 4;
my $paper_x = 210;
newpath
$x_cut2 0 moveto
$x_cut2 $y_cut2 lineto
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
$x_cut $y_cut lineto
0 $y_cut $y_cutd add lineto
0 $y_top lineto