0 -210 translate
END
+my $x_cut = 27;
+my $y_cut = 120; # XX
+my $y_top = 160; # XX
+my $y_cutd = 20;
+
o <<END;
-0 0 moveto 20 20 lineto stroke
+gsave
+0.5 setgray
+
+/cut_line {
+ $x_cut 0 moveto
+ $x_cut $y_cut lineto
+ 0 $y_cut $y_cutd add lineto
+ 0 $y_top lineto
+ stroke
+} def
+
+cut_line
END
print $ps_framing or die $!;