From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 3 Dec 2020 15:52:45 +0000 (+0000)
Subject: wip green
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=300e87b090c69c7257ba6bb0bf6889d2ca19b156;p=quacks.git

wip green
---

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 57896dc..7b1aedc 100755
--- 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;