#!/usr/bin/perl
use strict;
my $filename = shift @ARGV;
my $render = `dot -Tplain $filename`;
my @commands = split /\n/, $render;
my ($img_scale, $img_width, $img_height);
my $x_dpi = 72;
my $y_dpi = 60;
print q|
\n";
$cur_x = $next_x;
$cur_y = $next_y;
}
}
print "\n";
}