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