From 1350ef54b6bc75f3956fc8ccb2f58b093314750f Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 3 Dec 2020 14:58:47 +0000
Subject: [PATCH] make book() sub

---
 pumpkin-books.ps.pl | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index afe1986..e8f3cef 100755
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -2,23 +2,24 @@
 
 use strict;
 
-my $thiscolour = "1 0 1 0";
-my $spotcolour = "0 0 0 0";
-
 sub chip ($$) {
   my ($this, $spot) = @_; # put in a gsave
   <<END;
-  $thiscolour setcmykcolor
+  $this setcmykcolor
   newpath
   0 0 chip 0.5 mul 0 360 arc fill
 
-  $spotcolour setcmykcolor
+  $spot setcmykcolor
   newpath
   0 0 spot 0.5 mul 0 360 arc fill
 END
 }
 
-print <<END or die $!;
+sub book () {
+  my $thiscolour = "1 0 1 0";
+  my $spotcolour = "0 0 0 0";
+
+  <<END;
 %!
 
 72 25.4 div dup scale
@@ -82,4 +83,6 @@ gsave
   ${\ chip($thiscolour, $spotcolour) }
 grestore
 END
+}
 
+print book() or die $!;
-- 
2.30.2