END
my $x_cut = 27;
+my $x_cutd = 1;
+my $x_cut2 = 38;
+my $y_cut2 = 24;
my $y_cutd = 10;
+my $coverup_x = 5;
+my $coverup_y = 89;
+
+my $cutd_slope = ($x_cut2-$x_cut)/$x_cut;
+my $y_cut2d = $y_cutd * $cutd_slope;
+my $y_cutdd = $x_cutd * $cutd_slope;
+
my $nrepis = 4;
my $paper_x = 210;
my $y_top = $y_pl_zero + $y_cutd + $spacing*1.25;
+our $veep_bg = " 0.95 0.90 0.67 setrgbcolor ";
+
+our $x_cut_rhs = $paper_x - $x_cut;
+
sub some_cut_line($) {
<<END;
gsave
- 0.5 setgray
+ 0.25 setlinewidth
$_[0]
grestore
END
o <<GS, some_cut_line(<<GR), <<END;
/cut_line {
GS
- newpath
- $x_cut 0 moveto
- $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 $x_cutd add $y_cut2 $y_cut2d add lineto
+ $x_cut $x_cutd add $y_cut $y_cutdd add lineto
+ 0 $y_cut $y_cutd add lineto
+ 0 $y_top lineto
+ stroke
GR
} def
END
+my $veep_font = "/Helvetica-Bold findfont 6.5 scalefont setfont";
+my $money_font = "/Helvetica-BoldOblique findfont 6.5 scalefont setfont";
+
o <<END;
- /Helvetica-Bold findfont 6.5 scalefont setfont
+$money_font
END
sub veepsq ($) {
$sqx $sqy lineto
$sqx -$sqy lineto closepath
- gsave 1 setgray fill grestore
+ gsave
+ $veep_bg
+ fill
+ grestore
+ 0.19 0.35 0.25 setrgbcolor
0.5 setlinewidth
stroke
grestore
+ $veep_font
0 0 moveto
($veeps) dup stringwidth pop -0.5 mul -2.5 rmoveto show
grestore
% place $x $y $money $veeps $ruby
gsave
$x $y translate
- gsave ${\ chip($anychip, 0) } grestore
- -4 1 moveto ($money) show
+ gsave
+ newpath
+ 0 0 chip 0.5 mul 0 360 arc
+ gsave 0.5 setlinewidth $black stroke grestore
+ 0.80 0.89 0.63 setrgbcolor fill
+ grestore
+
+ -4.7 1 moveto ($money) show
${\ veepsq($veeps) }
END
grestore
END
- (" newpath $line stroke ", $o)
+ $line = <<END;
+ newpath
+ 0.66 0.85 0.75 setrgbcolor
+ 4 setlinewidth
+ $line
+ stroke
+END
+
+ ($line, $o)
}
sub repis () {
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
repis();
o <<END;
+ gsave
+ $coverup_x $coverup_y translate
+ /Times-Roman findfont 4.0 scalefont setfont
+ 0 8 moveto (cover) show
+ 2 4.5 moveto (up) show
+ 0 0 moveto
+ /Helvetica-Bold-Italic findfont 3.5 scalefont setfont (35) show
+ 1 0 rmoveto
+ /Helvetica-Bold findfont 3.5 scalefont setfont (15) show
+ grestore
+
gsave
$paper_x $x_cut sub $y_top 7 sub translate
-40 0 translate
/Helvetica-Bold findfont 6.5 scalefont setfont
- -4 0 moveto
+ -4.5 0 moveto
+ $money_font
(+16) show
4 -2 translate