From d401692a9f99d5cf4242128790f468f5999cdba2 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 3 Dec 2020 17:25:09 +0000
Subject: [PATCH] wip blue

---
 pumpkin-books.ps.pl | 23 ++++++++++++++++++-----
 1 file changed, 18 insertions(+), 5 deletions(-)

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 758fb51..a82147b 100755
--- 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
-- 
2.30.2