To generate background color (for "xterm(1)"), I use the #Perl (was 5.3[68]; is 5.40) program on #FreeBSD (was 13; is 14) …
use strict; use warnings;
my @red = qw[ 05 15 20 25 30 ];
my @green = qw[ 00 05 10 15 ];
my @blue = qw[ 00 10 15 16 ];
print join( q[/],
$red[ rand @red ],
$green[ rand @green ],
$blue[ rand @blue ]
);
Rarely the FIRST time is the color other than same shade of brown. Because "@red" is longer? Some initial state?
Edited 34d ago