From 4a46f4a3677371813bc4c3c007c79835a78d5e0d Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 5 Dec 2020 21:24:02 +0000
Subject: [PATCH] new color() thing

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 pumpkin-books.ps.pl | 21 +++++++++++++++++----
 1 file changed, 17 insertions(+), 4 deletions(-)

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 93b83f2..acd4ad9 100755
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -2,8 +2,6 @@
 
 use strict;
 
-our $black = '0 0 0 setrgbcolor';
-
 my $pumpkin = [".9 .7 0", "0 0 0"];
 my $green = ["0 .5 0", "1 1 1"];
 my $red = ["1 0 0", "0 0 0"];
@@ -13,17 +11,32 @@ my $moth = ["0 0 0", "1 1 1"];
 my $purple = ["1 0 0.8", "0 0 0"];
 my $lotus = ["0.6 0.7 .5", "0.5 0.5 0"];
 
+sub colour ($) {
+  my ($c) = @_;
+  if ($c =~ m/[^ 0-9.]/) {
+    return $c;
+  } elsif ($c =~ m/^\s*\S+\s*$/) {
+    return "$c setgray";
+  } elsif ($c =~ m/./) {
+    return "$c setrgbcolor";
+  } else {
+    return '';
+  }
+}
+
+our $black = colour('0');
+
 sub chip ($$) {
   my ($cary, $pips) = @_; # put in a gsave translate
   my $o = <<END;
   newpath
   0 0 chip 0.5 mul 0 360 arc
   gsave 1 setlinewidth $black stroke grestore
-  $cary->[0] setrgbcolor fill
+  ${\ colour($cary->[0]) } fill
 END
   if ($pips) {
     $o .= <<END;
-  $cary->[1] setrgbcolor
+  ${\ colour($cary->[1]) }
 END
   }
   my $spot = sub {
-- 
2.30.2