termcol: define mirc palette (included in more)

[sheet.git] / termcol.inc.pl

diff --git a/termcol.inc.pl b/termcol.inc.pl
index bcc7b9e1c09ec027801da5bc6de3d3a9036ccd70..0a7114008293c5054938fade25e823103c83f8f2 100644 (file)
--- a/termcol.inc.pl
+++ b/termcol.inc.pl
@@ -79,6 +79,15 @@ my @msxorder = ( 0,6,2,10,4,13,7,14 , 1,8,3,11,5,9,12,15 );
                        2F2F2F CD5757 8FC35B D1C45E 5C81A9 BC95B7 76CBCB EEEEEC
                )],
        },
+       mirc => {
+               name => 'mIRC',
+               href => 'http://www.mirc.com/colors.html',
+               list => [qw(
+                       FFFFFF 000000 00007F 009300 FF0000 7F0000 9C009C FC7F00
+                       FFFF00 00FC00 009393 00FFFF 0000FC FF00FF 7F7F7F D2D2D2
+               )],
+               ansiorder => [ 1,5,3,7,2,6,10,15 , 14,4,9,8,12,13,11,0  ],
+       },
        mac2 => {
                name => 'MacII',
                list => [qw(
@@ -166,7 +175,7 @@ my @msxorder = ( 0,6,2,10,4,13,7,14 , 1,8,3,11,5,9,12,15 );
                        1B2632::night    005784::sea     31A2F2::sky     B2DCEF::cloud
                )],
                order => [ 0,5,9,12 , 3,6,10,13,1 , 4,7,8,11,14,15,2 ], # by brightness
-               ansiorder => [ 0,3,10,6,12,9,13,1 , 5,7,11,8,14,4,15,2 ],
+               ansiorder => [ 0,3,10,6,13,12,9,1 , 5,7,11,8,14,4,15,2 ],
        },
 
        cpc => {
@@ -200,4 +209,19 @@ my @msxorder = ( 0,6,2,10,4,13,7,14 , 1,8,3,11,5,9,12,15 );
                        [ map { $_ * 10 + 8 } 0 .. 23 ],
                ],
        },
+       512 => {
+               name => '9-bit RGB map',
+               # atari st, msx2, sega genesis/nomad, turbografx16
+               rgbmap => [8],
+       },
+       '4k' => {
+               name => '12-bit RGB map',
+               # amiga, apple IIgs, game gear, neo geo, lynx, cpc+, nextstation
+               rgbmap => [
+                       12 => sub {
+                               join('', map { sprintf '%X', $_ } @_),
+                               map { int $_ * 255 / 11 } @_
+                       },
+               ],
+       },
 }