termcol: replace msx colours by msx2 rgb values

[sheet.git] / termcol.plp

diff --git a/termcol.plp b/termcol.plp
index 96f9b75a472ed08704f37103638a9ec0d6031ba9..c7a257332e24f6a30c052302f7b028960d5878b4 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;
@@ -105,6 +105,28 @@ my %col = (
                qw/000000 9C1D1D 6C9446 AC9A47 335786 8F6496 486768 E0DCDC
                   2F2F2F CD5757 8FC35B D1C45E 5C81A9 BC95B7 76CBCB EEEEEC /,
        ],
+       mac2 => [
+               'MacII',
+               qw/FFFFFF FBF305 FF6403 DD0907 F20884 4700A5 0000D3 02ABEA
+                  1FB714 006412 562C05 90713A C0C0C0 808080 404040 000000 /,
+       ],
+       risc => [
+               'RISC',  # v2/3
+               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 { s{([0-7])}{sprintf '%02X', $1 / 7 * 255}egr }
+               qw/ 000 000 161 373 117 237 511 267
+                   711 733 661 663 141 625 555 777 /,
+       ],
 );
 
 for my $term (qw/cga xterm tango app html xkcd/) {