#!/usr/bin/perl
use strict;
use warnings;
use HTML::Entities;

my $min_pixel_spacing = 3;
my $textheight = 10;

my %timings;

while (<>) {
  $timings{$1} = $2 if /(\d+\.\d+) access\("MARK: (.*)", F_OK\) = -1 ENOENT/;
}

my $lowest = 0;
my $min_gap = 0;
my $prev = 0;
for (sort keys %timings) {
    $lowest = $_ unless $lowest;
    $min_gap = $_-$prev if $prev && (($_-$prev)<$min_gap || !$min_gap);
    $prev = $_;
}
my $highest = $prev;

my $seconds_per_pixel = $min_gap/$min_pixel_spacing;

my $wordsheight = $textheight * scalar(keys %timings);

my $height;
if ($wordsheight > ($highest-$lowest)/$seconds_per_pixel) {
    $height = $wordsheight;
    $seconds_per_pixel = ($highest-$lowest) / $wordsheight;
} else {
    $height = ($highest-$lowest)/$seconds_per_pixel;
}

my $wy = 0;

sub guess_width {
    my ($text) = $_;
    return length($text)*($textheight*0.66);
}

my $width = 0;
for (values %timings) {
    my $textwidth = guess_width($_);
    $width = $textwidth if $textwidth > $width;
}

$width += 300; # text starts at 300

my $seconds = int($highest - $lowest)+1;

print "<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"no\"?>";
print "<svg xmlns=\"http://www.w3.org/2000/svg\" width=\"$width\" height=\"$height\">\n";
print "<style>\n";
print "path { stroke-width: 1px; stroke-opacity: 1; stroke:#000000;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1; }\n";
print "text { font-family: monospace; font-size: ${textheight}px; }\n";
print "</style>\n";

if ($seconds>1) {
    print "  <defs>\n";
    print "    <linearGradient id=\"fade\" x2=\"0%\" y2=\"100%\">\n";
    print "      <stop style=\"stop-color:#000000;stop-opacity:1;\" offset=\"0\"/>\n";
    print "      <stop style=\"stop-color:#000000;stop-opacity:0;\" offset=\"1\"/>\n";
    print "    </linearGradient>\n";
    print "  </defs>\n";
}

for (sort keys %timings) {
    $wy += $textheight;
    my $py = ($_-$lowest) / $seconds_per_pixel;
    print "<g>\n";
    print "<path style=\"fill:none\" d=\"M 80,$py L 110,$py L 150,$py L 280,$wy L 300,$wy\"/>\n";
    print "<text x=\"300\" y=\"$wy\">".decode_entities($timings{$_})."</text>\n";
    print "</g>\n";
}

if ($seconds > 1) {
    my $second_height = 1/$seconds_per_pixel;

    for (my $i=0; $i<$seconds; $i++) {
	print "<g>\n";
	print "  <rect style=\"fill:url(#fade)\" width=\"50\" height=\"$second_height\" x=\"0\" y=\"".$i*$second_height."\"/>\n";
	print "  <text x=\"0\" y=\"".$i*$second_height-20."\">".$i+1."s</text>\n";
	print "</g>\n";
    }
}

print "</svg>\n";