#!/usr/bin/perl
# Converts Genius G-note 7000 file to SVG file
# Desar aquest fitxer com a /usr/local/bin/top2svg amb permisos d'execució
#
open(FILE,$ARGV[0]); # filename
binmode(FILE); # it is a binary file
read(FILE,$header,32); # ignore header
$pen_up = 1;
#print .svg header
print "<?xml version=\"1.0\" standalone=\"no\"?>
<!DOCTYPE svg PUBLIC \"-//W3C//DTD SVG 1.1//EN\"
\"http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd\">
<svg width=\"20cm\" height=\"30cm\"
viewBox=\"0 0 8500 11000\" version=\"1.1\"
xmlns=\"http://www.w3.org/2000/svg\">\n";
print "<path d=\"";
while(read(FILE,$point,6)) {
@byte = unpack ("C*",$point);
$y = $byte[1] + $byte[2] * 256;
$x = $byte[3] + $byte[4] * 256;
$p = $byte[0];
if($pen_up==1)
{
printf("M %d %d ",$x,11000-$y);
$pen_up=0;
}
else
{
printf("L %d %d \n",$x,11000-$y);
}
if($p==0)
{
$pen_up=1;
}
}
print "\"\n fill=\"none\" stroke=\"black\" stroke-width=\"12\" />\n</svg>\n";