termcol: declare and include cgarne

[sheet.git] / termcol.inc.pl

diff --git a/termcol.inc.pl b/termcol.inc.pl
index c1966f00bd59927adc614eb1b9d67744c6169e76..2eb367f0ed48debea4ff844013c1df93e27c47ef 100644 (file)
--- a/termcol.inc.pl
+++ b/termcol.inc.pl
@@ -208,6 +208,16 @@ use Shiar_Sheet::Colour '1.02';
                ansiorder => [ 0,3,10,6,13,12,9,1 , 5,7,11,8,14,4,15,2 ],
                lumorder => [ 0,5,9,12 , 3,6,10,13,1 , 4,7,8,11,14,15,2 ], # by brightness
        },
+       cgarne => {
+               href => 'http://androidarts.com/palette/16pal.htm',
+               title => "version E",
+               name => 'CGArne',
+               list => [qw(
+                       000000 8A3622 0C7E45 AA5C3D 2234D1 5C2E78 44AACC B5B5B5
+                       5E606E EB8A60 6CD947 FFD93F 4C81FB E23D69 7BE2F9 FFFFFF
+               )],
+               parent => 'cga',
+       },
        dawnbringer => {
                href => 'http://pixeljoint.com/forum/forum_posts.asp?TID=12795',
                title => "Dawnbringer's 16 color palette v1.0",
@@ -249,6 +259,34 @@ use Shiar_Sheet::Colour '1.02';
                ],
                parent => 'cpc',
        },
+       ppu => {
+               name => '<abbr title="Picture Processing Unit">PPU</abbr> (Famicom/NES)',
+               table => [
+                       do {
+                               my @rgb = qw(
+                                       333 555 777 777
+                                       014 036 357 567
+                                       006 027 447 657
+                                       326 407 637 757
+                                       403 507 707 747
+                                       503 704 737 755
+                                       510 700 740 764
+                                       420 630 750 770
+                                       320 430 660 773
+                                       120 140 360 572
+                                       031 040 070 473
+                                       000 053 000 276
+                                       022 044 077 467
+                                       111 222 444 666
+                               );
+                               map { [
+                                       map { [ $_, map { $_ * 255 / 7 } split // ] }
+                                       map { $rgb[$_] }
+                                       $_*4 .. $_*4+3
+                               ] } 0..13
+                       }
+               ],
+       },
        ansi88 => {
                name => 'rxvt 88 colour extension',
                rgbmap => [