random palette of 215 colours

Distinguish a limited number of values without regard for order.

diff --git a/barcat b/barcat
index 54141ee247a58f552644cf2d536eb4eaa0647d8e..28e09b063738bf66e3e80bbb29337d8a8785c872 100755 (executable)
--- 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