print "</table>\n\n";
}
- if (my $colours = $info->{list}) {
- if (my $reorder = $info->{ansiorder} and $get{v}) {
- $colours = [ map { $colours->[$_] =~ s/:|$/:$_/r } @{$reorder} ];
- }
+ if (my $palette = $info->{list}) {
+ my $colours = colorder($palette, $get{v} && $info->{ansiorder});
my $rows = 8;
- my $columns = ceil(@{$colours} / $rows);
+ my $columns = ceil(@{$palette} / $rows);
print '<table class=color>', "\n";
printf "<caption>%s</caption>\n", $caption;
}
}
- print "<tr><td colspan=$columns>", img_egapal(\@{$colours}, @{$_}) for @draw;
+ for (@draw) {
+ my $imgpal = colorder($palette, $info->{ansiorder});
+ print "<tr><td colspan=$columns>", img_egapal($imgpal, @{$_});
+ }
print "</table>\n\n";
}
}
+sub colorder {
+ my ($palette, $reorder) = @_;
+ return [ map { $palette->[$_] =~ s/:|$/:$_/r } @{$reorder} ];
+ if $reorder;
+ return $palette;
+}
+
sub coltable_hsv {
my ($dim, $rgbval, $greyramp) = @_;