#! /usr/bin/env perl

print <<EOHEAD;
set style data lines
set key off 
set term png
EOHEAD

foreach $log (split ( /\n/, `ls results`))
{
    open ( OUT, ">filtered/$log" );
    @lines = split ( /\n/, `cat results/$log` );
    $firstline = shift @lines;
    print STDERR "$log $firstline\n";
    $lastline = pop @lines;
    if ( ! ($lastline eq "---") )
    {
        print STDERR "DANGER, WILL ROBINSON!\n";
    }

    foreach $line (@lines)
    {
        @cols = split ( /=?[\s]+/, $line );
        for $i (0..7) { print OUT "$cols[2*$i+1] "; }
        print OUT "\n";
    }
    close ( OUT );

@cols = split ( /=?[\s]+/, $lines[1] );
$maxval = $cols[7]+20;
$minval = $cols[7]-20;
#print STDERR "---$cols[7]\n";

print <<EOPLOT;
#set yrange [$minval:$maxval]
set output "power_plots/$log.png"
set title "$log"
plot "filtered/$log" using 1:4, "filtered/$log" using 1:5, "filtered/$log" using 1:7, "filtered/$log" using 1:8
EOPLOT
}