+ANSI (VT100, ISO-6429) 16-colour text palette +as implemented by various systems and programs. +<: +print + "@termlist" ne "@{ $termgroup{default} }" ? 'Additional palettes are included as specified.' : + 'Also see 8-bit legacy hardware palettes.'; +:> +

+<: +use 5.010; +use Shiar_Sheet::Colour '1.04'; +use List::Util qw( min max ); +use POSIX qw( ceil ); - -

Terminal colours

+my $palettes = do 'termcol.inc.pl'; +die "Cannot open palette data: $_\n" for $@ || $! || (); -

%s

', "\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]); + if (my $table = $info->{table}) { + print '
$term
'."\n"; + printf "\n", $caption; + for my $row (@$table) { + print ''; + print colcell(@$_) for @$row; + } + print "
%s
\n\n"; } - print "

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); + if (my $palette = $info->{list}) { + my $order = $get{order} && $get{order}.'order'; + my $colours = colorder($palette, + $info->{$order} // $palettes->{ $info->{parent} }->{$order} + ); + + my $rows = 8; + my $columns = ceil(@{$palette} / $rows); + + print '
', "\n"; + printf "\n", $caption; + for my $row (0 .. $rows - 1) { + print ''; + for my $col (0 .. $columns - 1) { + my $num = $row + $col * $rows; + my ($rgb, $name) = split /:/, $colours->[$num], 3; + $name //= $rgb && $num; + $name = [ $name, [] ] if $term =~ /^msx/ and !$num; + $name = [ $name, ['#333'] ] if $term eq 'xkcd'; + print colcell($name, $rgb); + } } + + for (@draw) { + my $imgpal = colorder($palette, + $info->{ansiorder} // $palettes->{ $info->{parent} }->{ansiorder} + ); + print "
%s
", img_egapal($imgpal, @{$_}); + } + print "
\n\n"; } - print "\n"; } -print "\n"; -print '
'; -print colcell(80, ($_) x 3) for 46, 92, 115, 139, 162, 185, 208, 231; -print "
\n\n"; -:>

%s
", img_egapal($imgpal, @{$_}); + } + print "

+sub colorder { + my ($palette, $reorder) = @_; + return [ map { $palette->[$_] =~ s/:(?![^:])|$/:$_/r } @{$reorder} ] + if $reorder; + return $palette; +} + +sub coltable_hsv { + my ($dim, $rgbval, $greyramp) = @_; -

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); + my $hmax = 2 * $dim * 3; # each face of the rgb cube + my $vmax = $dim - 1; + my $smax = $dim - 1; + $rgbval ||= sub { join('', @_), map { int $_ * 255 / $vmax } @_ }; + + my @greymap = @{$greyramp || []}; # [name, r, g=l, b] + my @colmap; # saturation => value => hue => [name, r,g,b] + + for my $r (0 .. $dim - 1) { + for my $g (0 .. $dim - 1) { + for my $b (0 .. $dim - 1) { + my @rgb = ($r, $g, $b); + + my ($h, $s, $v) = Shiar_Sheet::Colour->new(@rgb)->hsv; + + if (!$s) { + if (@greymap) { + push @greymap, [ $rgbval->(@rgb) ]; + next; + } + + $h = 1; # greyscale hue + $s = $smax - $v + 1; # spread brightness over saturation groups + $v &&= $smax # highest saturation + or $v = $s = 1; # black at initial column + } + + $h *= $hmax; + $v = $vmax - $v; + $s = $smax - $s - $v; + + $colmap[$s][$v][$h] = [ $rgbval->(@rgb) ]; + } } } - print "
\n"; -} -print "\n"; -for my $row (0, 12) { - print '
'; - print colcell(232+$_, ($_*10 + 8) x 3) for $row .. $row+11; - print "
\n"; + my $out = ''; + $out .= sprintf '', scalar @{$_} for @colmap; + my $huerow = $colmap[0][0]; # first {$_} map { @{$_} } @colmap; + for my $h (grep { $huerow->[$_] } 0 .. $#{$huerow}) { + $out .= ''; + $out .= colcell(@$_) for map { $_->[$h] } map { reverse @{$_} } @colmap; + } + + if (@greymap) { + $out .= ''; + my $col = 0; + my $colbreak = scalar map { @$_ } @colmap; # same width as hue rows + for my $cell (sort { $a->[1] <=> $b->[1] || $a->[0] <=> $b->[0] } @greymap) { + $out .= '' unless $col++ % $colbreak; + $out .= colcell(@{$cell}); + } + } + + if (@draw) { + my @palette = map { [ @{$_}[1 .. 3] ] } @greymap, map {@$_} map {@$_} @colmap; + my $tablespan = scalar map { @$_ } @colmap; + my $imgdata = img_egapal(\@palette, @{ $draw[0] }); + $out .= "$imgdata"; + } + + return $out; } -print "\n"; -:>

+:>