X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/0934eb163565512a7e1622f931a2f6a60b7c0872..d7efdac99433a38f91de80792fc037351798b267:/termcol.plp diff --git a/termcol.plp b/termcol.plp index c7c74bf..9411ba4 100644 --- a/termcol.plp +++ b/termcol.plp @@ -1,132 +1,192 @@ -<: -use utf8; -use strict; -use warnings; -use open IO => ':utf8'; -use List::Util 'min'; +<(common.inc.plp)><: -our $VERSION = 'v1.0'; +Html({ + title => 'terminal colour cheat sheet', + version => '1.0', + description => [ + "Index of all terminal/console colour codes,", + "with an example result of various environments.", + ], + keywords => [qw' + color code terminal console escape table xterm rxvt + '], + data => ['termcol.inc.pl'], + stylesheet => [qw'light dark'], +}); -$header{content_type} = 'text/html; charset=utf-8'; +:> +

Terminal colours

-:> - +

+ANSI (VT100, ISO-6429) 16-colour text palette +as implemented by various systems and programs. +<: +print + !exists $get{v} ? 'Also see 8-bit legacy hardware palettes.' : + 'Also included are 8-bit legacy hardware palettes.'; +:> +

- -terminal colour cheat sheet - - - +
+<: +use Shiar_Sheet::Colour '1.03'; +use List::Util qw( min max ); - -

Terminal colours

+my $palettes = do 'termcol.inc.pl'; +die "Cannot open palette data: $_\n" for $@ || $! || (); - + +if (exists $get{v}) { + print "\n"; + print "\n"; + print coltable_hsv(3, sub { + $_[2] + 3 * ($_[0] + 3 * $_[1]), + map { $_ && $_ * 127 + 1 } @_ + }); + print "
Amstrad CPC
\n\n"; +} +:>

-

88-colour space

+ my $out = ''; + $out .= sprintf '', 3 * @{$_} for @colmap; + my $huerow = $colmap[0][0]; # first {$_} map { @{$_} } @colmap; + for my $h (grep { $huerow->[$_] } 0 .. $#{$huerow}) { + $out .= ''; + $out .= colcell(@$_) for map { $_->[$h] } map { @{$_} } @colmap; + } + + $offset += $dim ** 3; + $greymap{$offset++} = $_ for @{$greyramp}; -
-

256-colour space

+if ($ENV{PATH_INFO} =~ /256/) { + print "

256-colour space

\n"; + print "\n"; + print coltable_hsv(6, + sub { + $_[2] + 6 * ($_[1] + 6 * $_[0]) + 16, + map { $_ && $_*40 + 55 } @_ + }, + [ map { $_ * 10 + 8 } 0 .. 23 ], + ); + print "
\n"; +} +:> +