wip blue

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 758fb5184644c252751c8206dda8bdc25eb4a323..a82147bf947bd98d5d731fde104b377b733c8690 100755 (executable)
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -193,6 +193,10 @@ END
 sub blue_book () {
   my $o = general_book($blue, [qw(4 9 16)]);
 
+  $o .= <<END;
+/Times-Bold findfont 15 scalefont setfont $black
+END
+
   my $exchip = sub {
     my ($that, $pips) = @_;
     <<END;
@@ -205,22 +209,31 @@ END
     20 0 translate
 END
   };
-
-  $o .= <<END;
-/Times-Bold findfont 15 scalefont setfont $black
+  
+  my $exchline = sub {
+    my ($y, $pips, $content) = @_;
+    <<END;
 gsave 
-  0.16 0.50 dc translate
+  0.16 0.15 0.16 $y mul add dc translate
   0.60 dup scale
   gsave ${\ chip($blue,1) } grestore
   8 -3 moveto (:) show
   3 0 translate
   0.8 dup scale
   21 0 translate
+$content
+grestore
+END
+  };
+
+  $o .= $exchline->(2, 1, <<END);
   ${\ $exchip->($green,1) }  ${\ $exslash->() }
   ${\ $exchip->($red,  1) }  ${\ $exslash->() }
   ${\ $exchip->($blue, 1) }  ${\ $exslash->() }
   ${\ $exchip->($yellow, 1) }
-grestore
+END
+
+  $o .= <<END;
 gsave 
   0.16 0.15 dc translate
   0.60 dup scale