our $veep_bg = " 0.95 0.90 0.67 setrgbcolor ";
+our $x_cut_rhs = $paper_x - $x_cut;
+
sub some_cut_line($) {
<<END;
gsave
o(<<END);
cut_line
gsave
- $paper_x $x_cut sub 0 translate
+ $x_cut_rhs 0 translate
cut_line
grestore
END
o some_cut_line <<END;
newpath
0 $y_top moveto
- $paper_x $x_cut sub $y_top lineto
+ $x_cut_rhs $y_top lineto
stroke
END