Select Code to Download

my $y = 0;
my @list;
...
print "\"\n";
print "    style=\"stroke: black; width: 1px; fill: none;\"/>\n";
print "</svg>\n";

my $y = 0;
my @list;
...

    print "  <line x1=\"$x1\" y1=\"$y1\" x2=\"$x2\" y2=\"$y2\"/>\n";
}

my $y = 0;
my @list;
...

    return "  <line x1=\"$x1\" y1=\"$y1\" x2=\"$x2\" y2=\"$y2\"/>\n";
}

my $y = 0;
my @list;
...
        return "  <path d=\"M $x1,$y1 V $y2\"/>\n";
    }
}

my $y = 0;
my @list;
...
    print "\"\n";
    print "    style=\"stroke: $color; stroke-width: $width; fill: non
+e;\"/>\n";
}

openSVG( 450, 450 );
openG( transform => 'translate(10,85) scale(1,-1)' );
...
    );
    closeTAG();
}