termcol: support image for table palettes

[sheet.git] / termcol.plp

diff --git a/termcol.plp b/termcol.plp
index 3289deb621b36c2563c497a78c0ebd6f841efb06..7e408e602e28288dfa1bae3f54e8559dc237e38c 100644 (file)
--- a/termcol.plp
+++ b/termcol.plp
@@ -24,7 +24,7 @@ my %termgroup = (
        default => [qw( ansi xkcd ansi88 )],
        more    => [qw( ansi mirc legacy ansi256 )],
        msx     => [qw( msx1 msx2 arnejmp )],
-       ansi    => [qw( cga xterm tango app html )],
+       ansi    => [qw( cga xterm tango app html cgarne )],
        legacy  => [qw( c64 msx2 mac2 risc arnegame cpc )],
 );
 @{$_} = map { $termgroup{$_} ? @{ $termgroup{$_} } : $_ } @{$_}
@@ -134,6 +134,12 @@ for my $term (@termlist) {
                        print '<tr>';
                        print colcell(@$_) for @$row;
                }
+
+               my $width = scalar @{ $table->[0] };
+               my @imgpal = map { [ @{$_}[1 .. 3] ] } map { @{$_} } @{$table};
+               for (@draw) {
+                       print "<tr><td colspan=$width>", img_egapal(\@imgpal, @{$_});
+               }
                print "</table>\n\n";
        }