10% increase of build status font height.

This commit is contained in:
David Brown 2016-07-01 21:24:44 +01:00
parent bb519dc27a
commit f780a801f4

View file

@ -102,13 +102,13 @@ for my $logname (sort @logs) {
if (-f $logname) {parselog($logname);} if (-f $logname) {parselog($logname);}
} }
my $fontheight = 10; my $fontheight = 11;
my $lineheight = 13; 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/2; print $f '" y="', ($y+1)*$lineheight + $fontheight*0.4;
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 '">';