X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/a6bdc11ce27566679da505185e519ddd0bc9a5ca..29b407ddf91b653e6e8380f73e221628a392376f:/termcol.inc.pl diff --git a/termcol.inc.pl b/termcol.inc.pl index e3fbd71..b575944 100644 --- a/termcol.inc.pl +++ b/termcol.inc.pl @@ -1,9 +1,12 @@ -use strict; -use Shiar_Sheet::Colour '1.02'; - -my @msxorder = ( 0,6,2,10,4,13,7,14 , 1,8,3,11,5,9,12,15 ); +use 5.014; +use Shiar_Sheet::Colour 1.05; +{ + default => [qw( ansi ansi88 )], + more => [qw( ansi mirc legacy ansi256 )], + ansi => [qw( cga putty xterm tango app html cgarne )], + legacy => [qw( c64 msx2 mac2 risc arnegame cpc )], + html => { title => 'HTML keywords (inherited by CSS≥2.1 and SVG), mostly identical to X11', href => 'http://www.w3.org/TR/css3-color/#html4', @@ -13,6 +16,7 @@ my @msxorder = ( 0,6,2,10,4,13,7,14 , 1,8,3,11,5,9,12,15 ); 808080:gray FF0000:red 00FF00:lime FFFF00:yellow 0000FF:blue FF00FF:fuchsia 00FFFF:aqua FFFFFF:white )], + parent => 'cga', }, cga => { # linux console, kde? @@ -21,6 +25,7 @@ my @msxorder = ( 0,6,2,10,4,13,7,14 , 1,8,3,11,5,9,12,15 ); 555555 FF5555 55FF55 FFFF55 5555FF FF55FF 55FFFF FFFFFF )], # reset bold dim italic underline blink fastblink reverse hidden + hueorder => [ 1,3,2,6,4,5, 0,7 , 9,11,10,14,12,13, 8,15 ], }, xterm => { # rxvt except for blues @@ -28,6 +33,7 @@ my @msxorder = ( 0,6,2,10,4,13,7,14 , 1,8,3,11,5,9,12,15 ); 000000 CC0000 00CC00 CCCC00 4682B4 CC00CC 00CCCC E5E5E5 4C4C4C FF0000 00FF00 FFFF00 1E90FF FF00FF 00FFFF FFFFFF )], + parent => 'cga', }, tango => { # default Gnome theme @@ -35,6 +41,7 @@ my @msxorder = ( 0,6,2,10,4,13,7,14 , 1,8,3,11,5,9,12,15 ); 2E3436 CC0000 4E9A06 C4A000 3465A4 75507B 06989A D3D7CF 555753 EF2929 8AE234 FCE94F 729FCF AD7FA8 34E2E2 EEEEEC )], + parent => 'cga', }, xkcd => { title => 'human averages in xkcd survey results', @@ -45,6 +52,7 @@ my @msxorder = ( 0,6,2,10,4,13,7,14 , 1,8,3,11,5,9,12,15 ); 929591:grey e50000:red aaff32:lime ffff14:yellow 0343df:blue ed0dd9:fuchsia 00ffff:cyan ffffff:white )], + parent => 'cga', }, android => { href => 'http://developer.android.com/guide/practices/ui_guidelines/icon_design.html', @@ -58,10 +66,21 @@ my @msxorder = ( 0,6,2,10,4,13,7,14 , 1,8,3,11,5,9,12,15 ); }, app => { name => 'Term.app', + title => 'Mac OSX Yosemite Terminal app', + list => [qw( + 000000 990B00 35A600 999900 0000B3 B304B2 31A6B3 BFBFBF + 666666 E51600 48D901 E5E600 0100FF E607E5 48E6E6 E6E5E6 + )], + parent => 'cga', + }, + iterm => ['putty'], # identical in v2.2.1 + pastel => { + name => 'iTerm Pastel', list => [qw( - 000000 C23621 25BC24 ADAD27 492EE1 D338D3 33BBC8 CBCCCD - 818383 FC391F 31E722 EAEC23 5833FF F935F8 14F0F0 E9EBEB + 4F4F4F FF6C60 A8FF60 FFFFB6 96CBFE FF73FD C6C5FE EEEEEE + 7C7C7C FFB6B0 CEFFAC FFFFCC B5DCFF FF9CFE DFDFFE FFFFFF )], + parent => 'cga', }, putty => { name => 'PuTTY', @@ -69,6 +88,7 @@ my @msxorder = ( 0,6,2,10,4,13,7,14 , 1,8,3,11,5,9,12,15 ); 000000 BB0000 00BB00 BBBB00 0000BB BB00BB 00BBBB BBBBBB 555555 FF5555 55FF55 FFFF55 5555FF FF55FF 55FFFF FFFFFF )], + parent => 'cga', }, slutty => { name => 'SluTTY', @@ -78,6 +98,17 @@ my @msxorder = ( 0,6,2,10,4,13,7,14 , 1,8,3,11,5,9,12,15 ); 000000 9C1D1D 6C9446 AC9A47 335786 8F6496 486768 E0DCDC 2F2F2F CD5757 8FC35B D1C45E 5C81A9 BC95B7 76CBCB EEEEEC )], + parent => 'cga', + }, + 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 ], + hueorder => [ 5,7,3,10,2,6, 1,15 , 4,8,9,11,12,13, 14,0 ], }, mac2 => { name => 'MacII', @@ -85,7 +116,8 @@ my @msxorder = ( 0,6,2,10,4,13,7,14 , 1,8,3,11,5,9,12,15 ); FFFFFF FBF305 FF6403 DD0907 F20884 4700A5 0000D3 02ABEA 1FB714 006412 562C05 90713A C0C0C0 808080 404040 000000 )], - ansiorder => [ 15,3,9,11,6,5,7,12 , 14,2,8,1,13,4,10,0 ], + ansiorder => [ 15,3,9,11,6,5,7,12 , 14,2,8,1,10,4,13,0 ], + hueorder => [ 3,2,1,8,7,6,5,4 , 10,11,9 , 15,14,13,12,0 ], }, risc => { name => 'RISC', # v2/3 @@ -93,7 +125,8 @@ my @msxorder = ( 0,6,2,10,4,13,7,14 , 1,8,3,11,5,9,12,15 ); FFFFFF DDDDDD BBBBBB 999999 777777 555555 333333 000000 004499 EEEE00 00CC00 DD0000 EEEEBB 558800 FFBB00 00BBFF )], - ansiorder => [ 7,11,13,14,8,12,15,1, 6,5,10,9,4,3,2,0 ], + ansiorder => [ 7,5,13,14,4,3,2,1 , 6,11,10,9,8,12,15,0 ], + hueorder => [ 11,14,9,12,13,10,15,8 , reverse 0..7 ], }, c64 => { name => 'C=64', # commodore 64/128 @@ -112,21 +145,23 @@ my @msxorder = ( 0,6,2,10,4,13,7,14 , 1,8,3,11,5,9,12,15 ); } # convert to rgb - $y *= 255 / 32; - $_ = $_ * 127.5 + 128 for $u, $v; + $y /= 32; + $_ /= 2 for $u, $v; Shiar_Sheet::Colour->newyuv($y, $u, $v)->rgb48; } qw( 0 32 10+5 20-5 12+2 16-2 8+0 24-0 12+6 8+7 16+5 10 15 24-2 15+0 20 )], ansiorder => [ 0,2,5,9,6,4,3,15 , 11,10,13,7,14,8,12,1 ], + hueorder => [ 2,8,7,5,3,6,4,9 , 10,13,14,0,11,12,15,1 ], }, + + msx => [qw( msx1 msx2 arnejmp )], msx1 => { name => 'MSX', list => [ map { my ($y, @c) = split /;/; - $y *= 255; - $_ = ($_ - .47) / .53 * 127.5 + 128 for @c; + $_ = ($_ - .47) / .53 / 2 for @c; Shiar_Sheet::Colour->newyuv($y, @c)->rgb48; } qw( 0.00;0.47;0.47 0.00;0.47;0.47 0.53;0.20;0.07 0.67;0.27;0.17 @@ -134,7 +169,8 @@ my @msxorder = ( 0,6,2,10,4,13,7,14 , 1,8,3,11,5,9,12,15 ); 0.53;0.27;0.93 0.67;0.27;0.93 0.73;0.07;0.57 0.80;0.17;0.57 0.47;0.23;0.13 0.53;0.67;0.73 0.80;0.47;0.47 1.00;0.47;0.47 )], - ansiorder => \@msxorder, + ansiorder => [ 0,6,12,10,4,13,7,14 , 1,8,2,11,5,9,3,15 ], + hueorder => [ 8,10,2,12,4,6, 1,0 , 9,11,3,7,5,13, 14,15 ], }, msx2 => { name => 'MSX2', @@ -143,7 +179,7 @@ my @msxorder = ( 0,6,2,10,4,13,7,14 , 1,8,3,11,5,9,12,15 ); 000 000 161 373 117 237 511 267 711 733 661 663 141 625 555 777 )], - ansiorder => \@msxorder, + parent => 'msx1', }, arnejmp => { href => 'http://androidarts.com/palette/16pal.htm', @@ -153,20 +189,53 @@ my @msxorder = ( 0,6,2,10,4,13,7,14 , 1,8,3,11,5,9,12,15 ); 000000 191028 46AF45 A1D685 453E78 7664FE 833129 9EC2E8 DC534B E18D79 D6B97B E9D8A1 216C4B D365C8 AFAAB9 F5F4EB )], - ansiorder => \@msxorder, + parent => 'msx1', }, + arnegame => { href => 'http://androidarts.com/palette/16pal.htm', title => 'Generic 16 color game palette v20 by Arne Niklas Jansson', name => 'Arne', list => [qw( - 000000::void 9D9D9D::ash FFFFFF::blind BE2633::bloodred - E06F8B::pigmeat 493C2B::oldpoop A46422::newpoop EB8931::blaze - F7E26B::zornskin 2F484E::shade 44891A::leaf A3CE27::slime - 1B2632::night 005784::sea 31A2F2::sky B2DCEF::cloud + 000000:void 9D9D9D:ash FFFFFF:blind BE2633:bloodred + E06F8B:pigmeat 493C2B:oldpoop A46422:newpoop EB8931:blaze + F7E26B:zornskin 2F484E:shade 44891A:leaf A3CE27:slime + 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 + hueorder => [ 3,7,8,11,10,9,13,14 , 4,6,5,15,12,0,1,2 ], 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", + name => 'Dawnbringer', + list => [qw( + 140C1C 442434 30346D 4E4A4E 854C30 346524 D04648 757161 + 597DCE D27D2C 8595A1 6DAA2C D2AA99 6DC2CA DAD45E DEEED6 + )], + ansiorder => [ 0,1,5,4,2,12,10,7 , 3,6,11,14,8,9,13,15 ], + hueorder => [ 6,9,14,11,13,8,2,1 , 12,4,7,5,15,10,3,0 ], + }, + solarized => { + href => 'http://ethanschoonover.com/solarized', + list => [qw( + 002b36:base03 073642:base02 586e75:base01 657b83:base00 + 839496:base0 93a1a1:base1 eee8d5:base2 fdf6e3:base3 + b58900:yellow cb4b16:orange dc322f:red d33682:magenta + 6c71c4:violet 268bd2:blue 2aa198:cyan 859900:green + )], + ansiorder => [ 1,10,15,8,13,11,14,6 , 0,9,2,3,4,12,5,7 ], }, cpc => { @@ -178,6 +247,76 @@ my @msxorder = ( 0,6,2,10,4,13,7,14 , 1,8,3,11,5,9,12,15 ); }, ], }, + cpcboy => { + name => 'Arne CPC Boy v3', + href => 'http://androidarts.com/palette/16pal.htm', + rgbmap => [ + 3 => sub { + my $index = $_[2] + 3 * ($_[0] + 3 * $_[1]); + $index, + map { map { hex } /(..)/g } [qw( + 000000 1B1B76 3636D8 761F28 623870 953EA7 CC3636 CE4B7A E3669A + 1B761B 197F96 1986F2 8C6E1A 8E8E8E 9C9EE7 E48E2A EAA597 FE80FE + 54BF47 37C79F 35CFE4 8DD836 B8D1B5 97E9D1 EDD446 EBE4A4 FFFFFF + )]->[$index] + }, + [ # gameboy ramp + map { [ 27 + (state $index)++, map { hex } /(..)/g ] } + qw( F2EFE7 BAC375 859550 485D48 293941 ) + ], + ], + parent => 'cpc', + }, + shiar => { + name => 'Shiar32', + table => [ + [qw( 761F28:2A CC2222:3A CC8B7B:4A 000000:0 )], + [qw( 4C3C2B:1B CB4B16:3B EB8931:5B 444444:1 )], + [qw( 5E581A:2C B58900:3C C0C070:4C 686868:2 )], + [qw( 0 859900:3D 0 B0B0B0:3 )], + [qw( 1B661B:2E 4E9A06:3E 8BBB7B:4E CCCCCC:4 )], + [qw( 0 37A76F:3F 0 FFFFFF:5 )], + [qw( 2F484E:1G 06989A:3G 31E2C2:5G )], + [qw( 0 0088CC:3H 0 )], + [qw( 00337C:2I 3465A4:3I 6899AA:4I )], + [qw( 0 6C71C4:3J 0 )], + [qw( 362747:1K 75507B:3K F06FCB:5K )], + [qw( 0 D33662:3L 0 )], + ], + parent => 'cpc', + }, + ppu => { + name => 'PPU (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 + } + ], + }, + 64 => { + name => '6-bit (Sega Master System, EGA, FAP80)', + rgbmap => [4], + }, ansi88 => { name => 'rxvt 88 colour extension', rgbmap => [ @@ -185,19 +324,18 @@ my @msxorder = ( 0,6,2,10,4,13,7,14 , 1,8,3,11,5,9,12,15 ); $_[2] + 4 * ($_[1] + 4 * $_[0]) + 16, map { (0, 139, 205, 255)[$_] } @_ }, - [ map { ($_ + 2 + ($_>0)) * 255/11 } 0 .. 7 ], + [ map { [80 + $_, (($_ + 2 + ($_>0)) * 255/11) x 3] } 0 .. 7 ], ], }, ansi256 => { name => 'xterm 256 colour extension', - href => 'http://web.archive.org/web/20130125000058/http://www.frexx.de/xterm-256-notes/', # \033[38;5;${FG}m rgbmap => [ 6 => sub { $_[2] + 6 * ($_[1] + 6 * $_[0]) + 16, map { $_ && $_*40 + 55 } @_ }, - [ map { $_ * 10 + 8 } 0 .. 23 ], + [ map { [232 + $_, ($_ * 10 + 8) x 3] } 0 .. 23 ], ], }, 512 => {