X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/293a4f16c3755d04621c2bee751a7a04d05158c4..07d8d05b9543279bab3e3f351d982609b7d88f85:/termcol.plp
diff --git a/termcol.plp b/termcol.plp
index 0c51ab8..c7a2573 100644
--- a/termcol.plp
+++ b/termcol.plp
@@ -18,7 +18,7 @@ Html({
<:
-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 { 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/) {