termcol: group h/s/v columns by saturation level

diff --git a/termcol.plp b/termcol.plp
index 16b3dfeb77d4ee8e5ac8f2b594659f40b6d300ca..74bcbc4ae7f7fde7044bdc5f5a9f927e2b2c88b3 100644 (file)
--- a/termcol.plp
+++ b/termcol.plp
@@ -281,7 +281,8 @@ for my $r (0 .. 5) {
 }
 
 {
 }
 
 {

-       print '<table>';
+       print '<table class=mapped>';
+       printf '<colgroup span=%d>', 3 * @{$_} for @colmap;

        for my $h (0 .. 30) {
                print '<tr>';
                print colcell(@$_) for map { $_->[$h] } map { @{$_} } @colmap;
        for my $h (0 .. 30) {
                print '<tr>';
                print colcell(@$_) for map { $_->[$h] } map { @{$_} } @colmap;