termcol: 16-colour palettes for msx and c64

[sheet.git] / termcol.plp

diff --git a/termcol.plp b/termcol.plp
index 0c51ab8d8aff8eb1c7e0e403b17a2dca3deaf62f..4b9f3e4159dacc070eaa9fddb36c0b00fd5d19ea 100644 (file)
--- a/termcol.plp
+++ b/termcol.plp
@@ -18,7 +18,7 @@ Html({
 
 <div class="section">
 <:
-use Shiar_Sheet::Colour;
+use Shiar_Sheet::Colour '1.01';
 
 sub colcell {
        my $name = shift;
@@ -115,6 +115,18 @@ my %col = (
                qw/FFFFFF DDDDDD BBBBBB 999999 777777 555555 333333 000000
                   004499 EEEE00 00CC00 DD0000 EEEEBB 558800 FFBB00 00BBFF /,
        ],
+       c64 => [
+               'C=64',  # commodore 64/128
+               map { Shiar_Sheet::Colour->newyuv($_)->rgb48 }
+               qw/008080 FF8080 4F4FF5 9FB00A 5FDADA 7F2525 3FFF80 BF0080
+                  5F25DA 3F0AB0 7F4FF5 4F8080 778080 BF2525 77FF80 9F8080 /
+       ],
+       msx => [
+               'MSX',
+               map { Shiar_Sheet::Colour->newyuv($_)->rgb48 }
+               qw/008080 008080 873F1F AA4F37 66FF6F 87EE76 7757D6 BAB70E
+                  874FEE AA4FEE BA1F98 CC3798 77462E 87B0BE CC8080 FF8080 /,
+       ],
 );
 
 for my $term (qw/cga xterm tango app html xkcd/) {