From 1442c64203abaed8bbebda4647bda9917d9867c3 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 27 Oct 2021 00:57:27 +0100
Subject: [PATCH] wip black

---
 pumpkin-books.ps.pl | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 9927a18..7a071da 100755
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -592,13 +592,22 @@ END
 }
 
 sub black_common () {
+  my $font = <<END;
+/Helvetica-Bold findfont 6 scalefont setfont
+END
   <<END;
+    gsave
+      .45 .27 dc translate
+      droplet_image
+      3.5 -1 translate .7 dup scale
+      arrow
+    grestore
     gsave
       .15 .37 dc translate
       .7 dup scale
 
       15 1.5 moveto
-      /Helvetica-Bold findfont 6 scalefont setfont
+      $font
       (closest) show
 
       gsave
-- 
2.30.2