From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 6 Mar 2019 13:26:22 +0000 (+0000)
Subject: pscolour supports longer rgb strings
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=e936bd33e12ac957a813d6996fd271ebceaf0715;p=pandemic-rising-tide.git

pscolour supports longer rgb strings
---

diff --git a/generate-board b/generate-board
index 7f1037b..e7e4e68 100755
--- a/generate-board
+++ b/generate-board
@@ -391,7 +391,10 @@ END
 sub pscolour ($;$) {
   my ($spec, $adj1) = @_;
   confess unless defined $spec;
-  my @rgb = map { hex($_) / 15.0 } split //, $spec;
+  my $le = (length $spec)/3;
+  my $re = ("(.{$le})") x 3;
+  my @rgb = $spec =~ m/^$re$/;  @rgb or confess "$re ?";
+  @rgb = map { hex($_) / (16**$le -1) } @rgb;
   $adj1 //= sub { };
   $adj1->(@rgb);
   my $r = join ' ',