From ec463d01d73aa38803aa7f3e418e32efc9bced79 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 3 Dec 2020 15:34:01 +0000
Subject: [PATCH] costs

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

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 6f430ac..6c1f552 100755
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -2,6 +2,8 @@
 
 use strict;
 
+our $black = '0 0 0 1 setcmykcolor';
+
 my $green = ["1 0 1 0", "0 0 0 0"];
 
 sub chip ($$) {
@@ -32,8 +34,8 @@ END
   $o;
 }
 
-sub general_book ($) {
-  my ($this) = @_;
+sub general_book ($$) {
+  my ($this, $costs) = @_;
   my $o = <<END;
 %!
 
@@ -42,7 +44,7 @@ sub general_book ($) {
 90 rotate
 10 10 translate
 
-0 0 0 1 setcmykcolor
+$black
 1 setlinewidth
 
 /tw 57.5 def
@@ -53,6 +55,10 @@ sub general_book ($) {
 /chip 15 def
 /spot 3.5 def
 
+/costtexth 0.215 def
+/costtextsz 12 def
+/costtextdx -0.03 def
+/costfont /Heletica-BoldOblique findfont costtextsz scalefont def
 
 tw  0  translate
 
@@ -93,12 +99,20 @@ newpath
 END
 
   foreach my $costi (0..2) {
+    my $cost = $costs->[$costi];
     my $pips = qw(1 2 4)[$costi];
     $o .= <<END
+  costfont setfont
+  -2.5 $costi add 3 div
 gsave
-  -2.5 $costi add 3 div costcirch dc translate
+  dup costcirch dc translate
   ${\ chip($this,$pips) }
 grestore
+  costtexth exch costtextdx add exch dc moveto
+  $black
+  ($cost)
+  dup stringwidth pop  -0.5 mul  costtextsz neg  rmoveto
+  show
 END
   }
 
@@ -106,7 +120,7 @@ END
 }
   
 sub green_book () {
-  general_book($green);
+  general_book($green, [qw(5 9 15)]);
 }
 
 print green_book() or die $!;
-- 
2.30.2