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

wip blue
---

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 82fac26..758fb51 100755
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -8,6 +8,7 @@ my $pumpkin = ["0 .50 0 1.00 0", "0 0 0 1"];
 my $green = ["1 0 1 0", "0 0 0 0"];
 my $red = ["0 1 1 0", "0 0 0 1"];
 my $blue = ["0.6 0.6 0 0", "0 0 0 0"];
+my $yellow = ["0 0 1 0", "0 0 0 1"];
 
 sub chip ($$) {
   my ($cary, $pips) = @_; # put in a gsave translate
@@ -192,6 +193,19 @@ END
 sub blue_book () {
   my $o = general_book($blue, [qw(4 9 16)]);
 
+  my $exchip = sub {
+    my ($that, $pips) = @_;
+    <<END;
+  gsave ${\ chip($that, $pips) } grestore
+END
+  };
+  my $exslash = sub {
+    <<END;
+    8 -5 moveto (/) show
+    20 0 translate
+END
+  };
+
   $o .= <<END;
 /Times-Bold findfont 15 scalefont setfont $black
 gsave 
@@ -201,15 +215,11 @@ gsave
   8 -3 moveto (:) show
   3 0 translate
   0.8 dup scale
-  1 0 translate
-  20 0 translate
-  gsave ${\ chip($green,1) } grestore
-  8 -5 moveto (/) show
-  gsave 20 0 translate  ${\ chip($green,1) } grestore
-  50 -4 moveto (/) show
-  gsave 40 0 translate  ${\ chip($green,1) } grestore
-  70 -4 moveto (/) show
-  gsave 60 0 translate  ${\ chip($green,1) } grestore
+  21 0 translate
+  ${\ $exchip->($green,1) }  ${\ $exslash->() }
+  ${\ $exchip->($red,  1) }  ${\ $exslash->() }
+  ${\ $exchip->($blue, 1) }  ${\ $exslash->() }
+  ${\ $exchip->($yellow, 1) }
 grestore
 gsave 
   0.16 0.15 dc translate