#!/usr/bin/perl
use strict;
if (@ARGV == 0) {
print "Usage: perl act2html.pl INPUT.act... > OUTPUT.html\n";
exit;
}
my @files = glob "@ARGV";
@files > 0 or die "act2html.pl: no input file\n";
my @palettes;
for (@files) {
my $pal;
open IN, $_ and read IN, $pal, 769 and close IN or die "act2html.pl: $_: $!\n";
die "act2html.pl: $_ is too short\n" if length($pal) < 768;
die "act2html.pl: $_ is too long\n" if length($pal) > 768;
push @palettes, $pal;
}
print qq{\n\nGenerated by act2html.pl\n\n};
print qq{\n\n| file | };
print qq{$_ | } for 0 .. 15;
print qq{
|---|
\n};
for my $hue (0 .. 15) {
print qq{| Hue: $hue |
|---|
\n};
for my $i (0 .. $#files) {
print qq{| $files[$i] | };
for (my $color = $hue * 16; ; ) {
my $rgb = substr($palettes[$i], $color * 3, 3);
my $colspan = 1;
while (($color & 0xf) < 0xf && $rgb eq substr($palettes[$i], $color * 3 + 3, 3)) {
$colspan++;
$color++;
}
print qq{ | };
++$color & 0xf or last;
}
print qq{
\n};
}
}
print qq{
\n\n\n};