From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sun, 13 Nov 2022 00:44:16 +0000 (+0100)
Subject: random palette of 215 colours
X-Git-Tag: v1.09~25
X-Git-Url: http://git.shiar.nl/barcat.git/commitdiff_plain/42684ea2841442dfa93e28bb0f217cc230f6ec07

random palette of 215 colours

Distinguish a limited number of values without regard for order.
---

diff --git a/barcat b/barcat
index 54141ee..28e09b0 100755
--- a/barcat
+++ b/barcat
@@ -64,6 +64,7 @@ GetOptions(\%opt,
 			)],
 			whites => [qw( 1;30 0;37 1;37 )],
 			greys  => [map {"38;5;$_"} 0, 232..255, 15],
+			random => [map {"38;5;$_"} List::Util::shuffle(17..231)],
 			rainbow=> [map {"38;5;$_"}
 				196, # r
 				(map { 196 + $_*6   } 0..4), # +g