wip green

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 57896dce6e8a8a88abb5c0efbd84e6841896646f..7b1aedc974606fce42304718fb747f36a1d9c0ee 100755 (executable)
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -8,7 +8,7 @@ my $pumpkin = ["0 .50 0 1.00 0", "0 0 0 1"];
 my $green = ["1 0 1 0", "0 0 0 0"];
 
 sub chip ($$) {
-  my ($cary, $pips) = @_; # put in a gsave
+  my ($cary, $pips) = @_; # put in a gsave translate
   my $o = <<END;
   $cary->[0] setcmykcolor
   newpath
@@ -35,6 +35,19 @@ END
   $o;
 }
 
+sub ruby () { # put in gsave translate
+  <<END;
+  newpath
+    rubysz neg  0 moveto
+    0  rubysz neg lineto
+    rubysz      0 lineto
+    0      rubysz lineto
+    closepath
+    0 1 0.5 0 setcmykcolor gsave fill grestore
+    $black 1 setlinewidth stroke
+END
+}
+
 sub general_book ($$) {
   my ($this, $costs) = @_;
   my $o = <<END;
@@ -61,6 +74,8 @@ $black
 /costtextdx -0.03 def
 /costfont /Heletica-BoldOblique findfont costtextsz scalefont def
 
+/rubysz 4 def
+
 tw  0  translate
 
 % diagonal conversion
@@ -137,6 +152,11 @@ dup
 /Times-Roman findfont
   38 scalefont setfont
   0.45 0.14 dc moveto (}) show
+
+gsave
+  0.85 0.275 dc translate
+  ${\ ruby() }
+grestore
 END
 
   $o;