termcol.inc.pl

   1 use strict;
   2 use 5.010;
   3 use Shiar_Sheet::Colour '1.02';
   4
   5 my @msxorder = ( 0,6,2,10,4,13,7,14 , 1,8,3,11,5,9,12,15 );
   6
   7 +{
   8         html => {
   9                 title => 'HTML keywords (inherited by CSS≥2.1 and SVG), mostly identical to X11',
  10                 href => 'http://www.w3.org/TR/css3-color/#html4',
  11                 list => [qw(
  12                         000000:black 800000:maroon  008000:green 808000:olive
  13                         000080:navy  800080:purple  008080:cyan  C0C0C0:silver
  14                         808080:gray  FF0000:red     00FF00:lime  FFFF00:yellow
  15                         0000FF:blue  FF00FF:fuchsia 00FFFF:aqua  FFFFFF:white
  16                 )],
  17         },
  18         cga => {
  19                 # linux console, kde?
  20                 list => [qw(
  21                         000000 AA0000 00AA00 AA5500 0000AA AA00AA 00AAAA AAAAAA
  22                         555555 FF5555 55FF55 FFFF55 5555FF FF55FF 55FFFF FFFFFF
  23                 )],
  24                 # reset bold dim italic underline blink fastblink reverse hidden
  25         },
  26         xterm => {
  27                 # rxvt except for blues
  28                 list => [qw(
  29                         000000 CC0000 00CC00 CCCC00 4682B4 CC00CC 00CCCC E5E5E5
  30                         4C4C4C FF0000 00FF00 FFFF00 1E90FF FF00FF 00FFFF FFFFFF
  31                 )],
  32         },
  33         tango => {
  34                 # default Gnome theme
  35                 list => [qw(
  36                         2E3436 CC0000 4E9A06 C4A000 3465A4 75507B 06989A D3D7CF
  37                         555753 EF2929 8AE234 FCE94F 729FCF AD7FA8 34E2E2 EEEEEC
  38                 )],
  39         },
  40         xkcd => {
  41                 title => 'human averages in xkcd survey results',
  42                 href => 'http://blog.xkcd.com/2010/05/03/color-survey-results/',
  43                 list => [qw(
  44                         000000:black 650021:maroon  15b01a:green 6e750e:olive
  45                         01153e:navy  7e1e9c:purple  029386:teal  c5c9c7:silver
  46                         929591:grey  e50000:red     aaff32:lime  ffff14:yellow
  47                         0343df:blue  ed0dd9:fuchsia 00ffff:cyan  ffffff:white
  48                 )],
  49         },
  50         android => {
  51                 href => 'http://developer.android.com/guide/practices/ui_guidelines/icon_design.html',
  52                 title => 'recommended colour palette for Android icons',
  53                 list => [qw(
  54                         FFFFFF:white   BFBFBF:light   808080:medium  404040:dark
  55                         000000:black   6699FF:blue1   3366CC:blue2   003399:blue3
  56                         99CC33:green1  00CC00:green2  669933:green3  FFCC00:orange1
  57                         FF9900:orange2 FF6600:orange3 CC0000:red
  58                 )],
  59         },
  60         app => {
  61                 name => 'Term.app',
  62                 list => [qw(
  63                         000000 C23621 25BC24 ADAD27 492EE1 D338D3 33BBC8 CBCCCD
  64                         818383 FC391F 31E722 EAEC23 5833FF F935F8 14F0F0 E9EBEB
  65                 )],
  66         },
  67         putty => {
  68                 name => 'PuTTY',
  69                 list => [qw(
  70                         000000 BB0000 00BB00 BBBB00 0000BB BB00BB 00BBBB BBBBBB
  71                         555555 FF5555 55FF55 FFFF55 5555FF FF55FF 55FFFF FFFFFF
  72                 )],
  73         },
  74         slutty => {
  75                 name => 'SluTTY',
  76                 href => 'http://www.npjh.com/slutty.html',
  77                 title => 'PuTTY fork with light colour scheme',
  78                 list => [qw(
  79                         000000 9C1D1D 6C9446 AC9A47 335786 8F6496 486768 E0DCDC
  80                         2F2F2F CD5757 8FC35B D1C45E 5C81A9 BC95B7 76CBCB EEEEEC
  81                 )],
  82         },
  83         mirc => {
  84                 name => 'mIRC',
  85                 href => 'http://www.mirc.com/colors.html',
  86                 list => [qw(
  87                         FFFFFF 000000 00007F 009300 FF0000 7F0000 9C009C FC7F00
  88                         FFFF00 00FC00 009393 00FFFF 0000FC FF00FF 7F7F7F D2D2D2
  89                 )],
  90                 ansiorder => [ 1,5,3,7,2,6,10,15 , 14,4,9,8,12,13,11,0  ],
  91         },
  92         mac2 => {
  93                 name => 'MacII',
  94                 list => [qw(
  95                         FFFFFF FBF305 FF6403 DD0907 F20884 4700A5 0000D3 02ABEA
  96                         1FB714 006412 562C05 90713A C0C0C0 808080 404040 000000
  97                 )],
  98                 ansiorder => [ 15,3,9,11,6,5,7,12 , 14,2,8,1,13,4,10,0 ],
  99         },
 100         risc => {
 101                 name => 'RISC',  # v2/3
 102                 list => [qw(
 103                         FFFFFF DDDDDD BBBBBB 999999 777777 555555 333333 000000
 104                         004499 EEEE00 00CC00 DD0000 EEEEBB 558800 FFBB00 00BBFF
 105                 )],
 106                 ansiorder => [ 7,11,13,14,8,12,15,1, 6,5,10,9,4,3,2,0 ],
 107         },
 108         c64 => {
 109                 name => 'C=64',  # commodore 64/128
 110                 list => [ map {
 111                         # 5-bit luma ± 2-bit colour angle
 112                         my ($y, $neg, $hue) = split /(-)|\+/;
 113
 114                         # convert to yuv
 115                         my ($u, $v) = (0, 0);
 116                         if (defined $hue) {
 117                                 my $RAD = 3.14159;
 118                                 $hue *= $RAD / 8;
 119                                 $hue += $RAD if $neg;
 120                                 $u = cos $hue;
 121                                 $v = sin $hue;
 122                         }
 123
 124                         # convert to rgb
 125                         $y *= 255 / 32;
 126                         $_ = $_ * 127.5 + 128 for $u, $v;
 127                         Shiar_Sheet::Colour->newyuv($y, $u, $v)->rgb48;
 128                 } qw(
 129                         0    32  10+5 20-5 12+2 16-2 8+0  24-0
 130                         12+6 8+7 16+5 10   15   24-2 15+0 20
 131                 )],
 132                 ansiorder => [ 0,2,5,9,6,4,3,15 , 11,10,13,7,14,8,12,1 ],
 133         },
 134         msx1 => {
 135                 name => 'MSX',
 136                 list => [ map {
 137                         my ($y, @c) = split /;/;
 138                         $y *= 255;
 139                         $_ = ($_ - .47) / .53 * 127.5 + 128 for @c;
 140                         Shiar_Sheet::Colour->newyuv($y, @c)->rgb48;
 141                 } qw(
 142                         0.00;0.47;0.47 0.00;0.47;0.47 0.53;0.20;0.07 0.67;0.27;0.17
 143                         0.40;1.00;0.40 0.53;0.93;0.43 0.47;0.30;0.83 0.73;0.70;0.00
 144                         0.53;0.27;0.93 0.67;0.27;0.93 0.73;0.07;0.57 0.80;0.17;0.57
 145                         0.47;0.23;0.13 0.53;0.67;0.73 0.80;0.47;0.47 1.00;0.47;0.47
 146                 )],
 147                 ansiorder => \@msxorder,
 148         },
 149         msx2 => {
 150                 name => 'MSX2',
 151                 list => [
 152                         map { s{([0-7])}{sprintf '%02X', $1 / 7 * 255}egr } qw(
 153                         000 000 161 373 117 237 511 267
 154                         711 733 661 663 141 625 555 777
 155                 )],
 156                 ansiorder => \@msxorder,
 157         },
 158         arnejmp => {
 159                 href => 'http://androidarts.com/palette/16pal.htm',
 160                 title => "Arne's Japanese Machine Palette v3 (MSX)",
 161                 name => 'A:JMP',
 162                 list => [qw(
 163                         000000 191028 46AF45 A1D685 453E78 7664FE 833129 9EC2E8
 164                         DC534B E18D79 D6B97B E9D8A1 216C4B D365C8 AFAAB9 F5F4EB
 165                 )],
 166                 ansiorder => \@msxorder,
 167         },
 168         arnegame => {
 169                 href => 'http://androidarts.com/palette/16pal.htm',
 170                 title => 'Generic 16 color game palette v20 by Arne Niklas Jansson',
 171                 name => 'Arne',
 172                 list => [qw(
 173                         000000::void     9D9D9D::ash     FFFFFF::blind   BE2633::bloodred
 174                         E06F8B::pigmeat  493C2B::oldpoop A46422::newpoop EB8931::blaze
 175                         F7E26B::zornskin 2F484E::shade   44891A::leaf    A3CE27::slime
 176                         1B2632::night    005784::sea     31A2F2::sky     B2DCEF::cloud
 177                 )],
 178                 order => [ 0,5,9,12 , 3,6,10,13,1 , 4,7,8,11,14,15,2 ], # by brightness
 179                 ansiorder => [ 0,3,10,6,13,12,9,1 , 5,7,11,8,14,4,15,2 ],
 180         },
 181
 182         cpc => {
 183                 name => 'Amstrad CPC',
 184                 rgbmap => [
 185                         3 => sub {
 186                                 $_[2] + 3 * ($_[0] + 3 * $_[1]),
 187                                 map { $_ && $_ * 127 + 1 } @_
 188                         },
 189                 ],
 190         },
 191         cpcboy => {
 192                 name => 'Arne CPC Boy v3',
 193                 href => 'http://androidarts.com/palette/16pal.htm',
 194                 rgbmap => [
 195                         3 => sub {
 196                                 my $index = $_[2] + 3 * ($_[0] + 3 * $_[1]);
 197                                 $index,
 198                                 map { map { hex } /(..)/g } [qw(
 199                                         000000 1B1B76 3636D8  761F28 623870 953EA7  CC3636 CE4B7A E3669A
 200                                         1B761B 197F96 1986F2  8C6E1A 8E8E8E 9C9EE7  E48E2A EAA597 FE80FE
 201                                         8DD836 B8D1B5 97E9D1  54BF47 37C79F 35CFE4  EDD446 EBE4A4 FFFFFF
 202                                 )]->[$index]
 203                         },
 204                         [ # gameboy ramp
 205                                 map { [ 27 + (state $index)++, map { hex } /(..)/g ] }
 206                                 qw( F2EFE7 BAC375 859550 485D48 293941 )
 207                         ],
 208                 ],
 209         },
 210         ansi88 => {
 211                 name => 'rxvt 88 colour extension',
 212                 rgbmap => [
 213                         4 => sub {
 214                                 $_[2] + 4 * ($_[1] + 4 * $_[0]) + 16,
 215                                 map { (0, 139, 205, 255)[$_] } @_
 216                         },
 217                         [ map { [80 + $_, (($_ + 2 + ($_>0)) * 255/11) x 3] } 0 .. 7 ],
 218                 ],
 219         },
 220         ansi256 => {
 221                 name => 'xterm 256 colour extension',
 222                 href => 'http://web.archive.org/web/20130125000058/http://www.frexx.de/xterm-256-notes/',
 223                 # \033[38;5;${FG}m
 224                 rgbmap => [
 225                         6 => sub {
 226                                 $_[2] + 6 * ($_[1] + 6 * $_[0]) + 16,
 227                                 map { $_ && $_*40 + 55 } @_
 228                         },
 229                         [ map { [232 + $_, ($_ * 10 + 8) x 3] } 0 .. 23 ],
 230                 ],
 231         },
 232         512 => {
 233                 name => '9-bit RGB map',
 234                 # atari st, msx2, sega genesis/nomad, turbografx16
 235                 rgbmap => [8],
 236         },
 237         '4k' => {
 238                 name => '12-bit RGB map',
 239                 # amiga, apple IIgs, game gear, neo geo, lynx, cpc+, nextstation
 240                 rgbmap => [
 241                         12 => sub {
 242                                 join('', map { sprintf '%X', $_ } @_),
 243                                 map { int $_ * 255 / 11 } @_
 244                         },
 245                 ],
 246         },
 247 }