use 5.010;
use Shiar_Sheet::Colour '1.02';
-my @msxorder = ( 0,6,12,10,4,13,7,14 , 1,8,2,11,5,9,3,15 );
-
+{
html => {
title => 'HTML keywords (inherited by CSSā„2.1 and SVG), mostly identical to X11',
0.53;0.27;0.93 0.67;0.27;0.93 0.73;0.07;0.57 0.80;0.17;0.57
0.47;0.23;0.13 0.53;0.67;0.73 0.80;0.47;0.47 1.00;0.47;0.47
)],
- ansiorder => \@msxorder,
+ ansiorder => [ 0,6,12,10,4,13,7,14 , 1,8,2,11,5,9,3,15 ],
},
msx2 => {
name => 'MSX2',
000 000 161 373 117 237 511 267
711 733 661 663 141 625 555 777
)],
- ansiorder => \@msxorder,
+ parent => 'msx1',
},
arnejmp => {
href => 'http://androidarts.com/palette/16pal.htm',
000000 191028 46AF45 A1D685 453E78 7664FE 833129 9EC2E8
DC534B E18D79 D6B97B E9D8A1 216C4B D365C8 AFAAB9 F5F4EB
)],
- ansiorder => \@msxorder,
+ parent => 'msx1',
},
arnegame => {
href => 'http://androidarts.com/palette/16pal.htm',
qw( F2EFE7 BAC375 859550 485D48 293941 )
],
],
+ parent => 'cpc',
},
ansi88 => {
name => 'rxvt 88 colour extension',
}
if (my $palette = $info->{list}) {
- my $colours = colorder($palette, $get{v} && $info->{ansiorder});
+ my $order = $get{v} && 'ansiorder';
+ my $colours = colorder($palette,
+ $info->{$order} // $palettes->{ $info->{parent} }->{$order}
+ );
my $rows = 8;
my $columns = ceil(@{$palette} / $rows);
}
for (@draw) {
- my $imgpal = colorder($palette, $info->{ansiorder});
+ my $imgpal = colorder($palette,
+ $info->{ansiorder} // $palettes->{ $info->{parent} }->{ansiorder}
+ );
print "<tr><td colspan=$columns>", img_egapal($imgpal, @{$_});
}
print "</table>\n\n";