wip blue

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 82fac26bfd368e202242a701f80d87d6ba98b712..758fb5184644c252751c8206dda8bdc25eb4a323 100755 (executable)
--- 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