chiark
/
gitweb
/
~ian
/
pandemic-rising-tide.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
7cfb685
)
pscolour supports longer rgb strings
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Wed, 6 Mar 2019 13:26:22 +0000
(13:26 +0000)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Wed, 6 Mar 2019 13:26:22 +0000
(13:26 +0000)
generate-board
patch
|
blob
|
history
diff --git
a/generate-board
b/generate-board
index 7f1037b2dd6a4b5f637d69c7ec0fb4125ac99478..e7e4e68e3baf0a9a89bea1420c9071b49cc407dc 100755
(executable)
--- 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 ' ',