move text down very slightly.

This commit is contained in:
David Brown 2016-07-01 21:02:26 +01:00
parent 0c5d71dc19
commit b7871e1927

View file

@ -108,7 +108,7 @@ my $lineheight = 13;
sub svgtext { sub svgtext {
my ($f, $x, $y, $colour, $msg) = @_; my ($f, $x, $y, $colour, $msg) = @_;
print $f '<text x="', $x; print $f '<text x="', $x;
print $f '" y="', ($y+1)*$lineheight + $fontheight/3; print $f '" y="', ($y+1)*$lineheight + $fontheight/2;
print $f '" font-family="Verdana" font-size="', $fontheight, 'px" fill="'; print $f '" font-family="Verdana" font-size="', $fontheight, 'px" fill="';
print $f $colour; print $f $colour;
print $f '">'; print $f '">';