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

wip blue
---

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