Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
o <<GS, some_cut_line(<<GR), <<END;
/cut_line {
GS
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