END
my $x_cut = 27;
+my $x_cut2 = 38;
+my $y_cut2 = 24;
my $y_cutd = 10;
+my $y_cut2d = $y_cutd * ($x_cut2-$x_cut)/$x_cut;
+
my $nrepis = 4;
my $paper_x = 210;
my $y_top = $y_pl_zero + $y_cutd + $spacing*1.25;
-our $veep_bg = " 0.66 0.85 0.75 setrgbcolor ";
+our $veep_bg = " 0.95 0.90 0.67 setrgbcolor ";
sub some_cut_line($) {
<<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 $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
newpath
0 0 chip 0.5 mul 0 360 arc
gsave 0.5 setlinewidth $black stroke grestore
- 0.80 0.85 0.75 setrgbcolor fill
+ 0.80 0.89 0.63 setrgbcolor fill
grestore
-4.7 1 moveto ($money) show
$line = <<END;
newpath
- $veep_bg
+ 0.66 0.85 0.75 setrgbcolor
4 setlinewidth
$line
stroke
repis();
o <<END;
+ gsave
+ /Times-Roman findfont 4.0 scalefont setfont
+ 4 97 moveto (cover) show
+ 6 93.5 moveto (up) show
+ 4 89 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