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/) {