add new comparison method rgb_difference that resembles arithmetical difference per...
[imager.git] / bench / benchform.perl
CommitLineData
02d1d628
AMH
1#!perl -w
2use strict;
3<>; #drop the uname
4my @text = <>;
5$text[0] =~ s/\$VAR1/\$data/;
6my $data;
7eval join '', @text;
8print <<EOS;
9 | closest | errdiff |
10algorithm | image | mono | addi |webmap| mono | addi |webmap|
11EOS
12for my $algo (qw(hashbox sortchan linsearch rand2dist)) {
13 for my $image (qw(rgbtile hsvgrad kscdisplay)) {
14 printf("%-10s|%-10s|", $algo, $image);
15 for my $tran (qw(closest errdiff)) {
16 for my $pal (qw(mono addi webmap)) {
17 printf("%6.2f|", $data->{$algo}{$image}{$tran}{$pal});
18 }
19 }
20 print "\n";
21 }
22}
23
24__END__
25
26=head1 NAME
27
28 benchform.perl - formats quantbench.perl results into a table.
29
30=head1 SYNOPSIS
31
32 perl benchform.perl quantbench.txt
33
34=cut