Re: print in purple question

[ToddAndMargo via perl6-users]

On 11/3/24 22:04, Bruce Gray wrote:

On Nov 3, 2024, at 22:12, ToddAndMargo via perl6-users <perl6-users@perl.org> 
wrote:

Hi All,

Fedora 41
rakudo-pkg-2024.7.0-01.x86_64
bash-5.2.32-1.fc41.x86_64

I am looking at
   https://metacpan.org/pod/Term::ANSIColor

trying to figure out how to print in dark purple.
I have see dnf5 do this, so I know it is possible.

Now one of the hurdles is that purple is not an
actual color.  It does not appear on a white
light spectrum break out.  Purple is a manifestation
of our brains interpreting a mixture of red and blue.

So how do I mix red and blue to get dark purple?

Many thanks,
-T

Magenta is one of the standard ANSI terminal colors, so that is probably the color you 
are seeing in the `dnf` output as "purple".

Simplest example, using module:
raku -e 'use Terminal::ANSIColor; say color("magenta"), "this is in purple(magenta)", 
color("reset");'

Just the four purples, in raw ANSI codes:
raku -e 'say "\e\[{.[0]};{.[1]}m {.[0]};{.[1]} \e\[m " for (0,1) X (35,95);'

Full color grid:
raku -e '
my @fg = (31..37) X+ (0,60);
my @bg = (41..47) X+ (0,60);
say "    ", @bg.fmt("--%3d--", " ");
for @fg -> $f {
   print $f.fmt("%3d:");
   for @bg -> $b {
     for 0,1 -> $a {
       my $z = "$a;$f;$b";
       print "\e\[{$z}m $a \e\[m ";
     }
   }
   say "";
}'

For more info:
     https://azrael.digipen.edu/~mmead/www/mg/ansicolors/index.html