X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/c32011016e046e39ac53f81303c9f3b95b0e9c89..e98b059d1f6bbd6ac8ca06de152959536e4b98b0:/termcol.plp diff --git a/termcol.plp b/termcol.plp index 3dd1d1b..889a55c 100644 --- a/termcol.plp +++ b/termcol.plp @@ -3,6 +3,7 @@ use utf8; use strict; use warnings; use open IO => ':utf8'; +use List::Util 'min'; our $VERSION = 'v1.0'; @@ -18,44 +19,129 @@ $header{content_type} = 'text/html; charset=utf-8'; - +

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 ''."\n", - $num, - $col{-name}[$num], - join('', map {sprintf '

xterm

%s'."\n", + "background:#$rgb48; color:#$inverse", + $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"; + 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 $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"; +} +print "\n"; + +print '
'; +print colcell(80, ($_) x 3) for 46, 92, 115, 139, 162, 185, 208, 231; +print "
\n\n"; +:>

+ +

256-colour space

'; + 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"; +:> + +

+ + +