<div class="section">
<h2>88-colour space</h2>
<:
-for my $r (0 .. 3) {
- print '<table>';
- for my $g (0 .. 3) {
- print '<tr>';
- 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 "</table>\n";
-}
-print "\n";
-
-print '<table><tr>';
-print colcell(80+$_, (($_ + 2 + ($_>0)) * 255/11) x 3) for 0 .. 7;
-print "</table>\n\n";
+print coltable_hsv(4,
+ sub {(0, 139, 205, 255)[$_[0]]},
+ [map { ($_ + 2 + ($_>0)) * 255/11 } 0 .. 7],
+);
:></div>
<: if ($ENV{PATH_INFO} =~ /256/) { :>
for my $g (0 .. $dim - 1) {
for my $b (0 .. $dim - 1) {
my $index = $r*$dim*$dim + $g*$dim + $b + $offset;
- my @rgb = map { &$rgbval } $r, $g, $b;
+ my @rgb = map { $rgbval->($_) } $r, $g, $b;
my $h = Shiar_Sheet::Colour->new(@rgb)->hue * $hmax;
my $v = int(max(@rgb) / 255 * $vmax);
}
print coltable_hsv(6,
- sub { $_ && $_*40 + 55 },
+ sub { $_[0] && $_[0]*40 + 55 },
[ map { $_ * 10 + 8 } 0 .. 23 ],
);
:></div>