terminal colour cheat sheet

Terminal colours

<: +sub luminance { + # perceived brightness (using ITU-R recommendation 601 luma co-efficients) + my ($r, $g, $b) = @_; + return $r*.299 + $g*.587 + $b*.114; +} + +sub colcell { + my $id = shift; + my @rgb = @_ >= 3 ? @_ : (map {hex} $_[0] =~ /(..)/g); + my $rgb24 = ''; + $rgb24 .= sprintf '%X', min($_ / 17 + .5, 15) for @rgb[0..2]; + my $rgb48 = ''; + $rgb48 .= sprintf '%02X', $_ for @rgb[0..2]; + my $inverse = sprintf('%X', luminance(@rgb)/255 < .3 ? 12 : 0) x 3; + return sprintf '

xterm

%s'."\n", + join(',', map { int } @rgb[0..2]), + "background:#$rgb48; color:#$inverse; padding:0 1ex", + $id, + "background:#000; color:#$rgb48", + $rgb24, + "background:#FFF; color:#$rgb48", + $rgb24, +} + my %col = ( - -name => [ - qw/black red green orange blue magenta cyan gray - gray red green yellow blue magenta cyan white/, + -html => [ + qw/black maroon green olive navy purple cyan silver + gray red lime yellow blue fuchsia aqua white/, qw/reset bold dim italic underline blink fastblink reverse hidden/, ], - linux => [ - qw/000 CCC/, - qw/000 A00 0A0 A50 00A A0A 0AA AAA - 555 F55 5F5 FF5 55F F5F 5FF FFF/, + html => [ + qw/000000 CCCCCC/, + qw/000000 800000 008000 808000 000080 800080 008080 C0C0C0 + 808080 FF0000 00FF00 FFFF00 0000FF FF00FF 00FFFF FFFFFF/, + ], + cga => [ + qw/000000 CCCCCC/, + qw/000000 AA0000 00AA00 AA5500 0000AA AA00AA 00AAAA AAAAAA + 555555 FF5555 55FF55 FFFF55 5555FF FF55FF 55FFFF FFFFFF/, ], xterm => [ - qw/000 CCC/, - qw/000 C00 0C0 CC0 4682B4 C0C 0CC E5E5E5 - 4C4C4C F00 0F0 FF0 1E90FF F0F 0FF FFF/, + qw/000000 CCCCCC/, + qw/000000 CC0000 00CC00 CCCC00 4682B4 CC00CC 00CCCC E5E5E5 + 4C4C4C FF0000 00FF00 FFFF00 1E90FF FF00FF 00FFFF FFFFFF/, ], tango => [ - qw/000 CCC/, + qw/000000 CCCCCC/, qw/2E3436 CC0000 4E9A06 C4A000 3465A4 75507B 06989A D3D7CF 555753 EF2929 8AE234 FCE94F 729FCF AD7FA8 34E2E2 EEEEEC/, ], ); -for my $num (0 .. 15) { - printf('

%s%s

âª ', - 'background:#'.$col{$_}[0].'; color:#'.$col{$_}[$num + 2], - } qw/linux xterm tango/ ), - ); +for my $term (qw/html cga xterm tango/) { + print '', "\n"; + print "\n"; + for my $num (0 .. 15) { + my $rgb = $col{$term}[$num + 2]; + print '', + colcell($col{"-$term"}[$num] || $num, $rgb, $col{$term}[0]); + } + print "

\n\n"; +} +:> + +

+ +

88-colour space

+<: +for my $r (0 .. 3) { + print ''; + for my $g (0 .. 3) { + print ''; + for my $b (0 .. 3) { + my $index = $r*4*4 + $g*4 + $b + 16; + print colcell($index, map {(0, 139, 205, 255)[$_]} $r, $g, $b); + } + } + print "

\n"; } -:>

256-colour space

+<: +for my $r (0 .. 5) { + print ''; + for my $g (0 .. 5) { + print ''; + for my $b (0 .. 5) { + my $index = $r*6*6 + $g*6 + $b + 16; + print colcell($index, map { $_ && $_*40 + 55 } $r, $g, $b); + } + } + print "

\n"; +} +print "\n"; + +for my $row (0, 12) { + print ''; + print colcell(232+$_, ($_*10 + 8) x 3) for $row .. $row+11; + print "

\n"; +} +print "\n"; + +:>