diff options
| author | ribet | 2007-10-19 12:34:51 +0000 |
|---|---|---|
| committer | ribet | 2007-10-19 12:34:51 +0000 |
| commit | 56ace5bcfdcf422b6b2e179c0c173be3efd1c0a3 (patch) | |
| tree | 6143067a717cc468221b6295eb6c3ae50c4c4322 /src | |
| parent | 42923b2543aa1681c7bddf4842588e881ce76103 (diff) | |
| download | mtc-56ace5bcfdcf422b6b2e179c0c173be3efd1c0a3.zip mtc-56ace5bcfdcf422b6b2e179c0c173be3efd1c0a3.tar.gz mtc-56ace5bcfdcf422b6b2e179c0c173be3efd1c0a3.tar.bz2 mtc-56ace5bcfdcf422b6b2e179c0c173be3efd1c0a3.tar.xz | |
Good fix for XLFD font position. Release 1.5.1 is ready.
Diffstat (limited to 'src')
| -rw-r--r-- | src/SVG/SVG2zinc.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/SVG/SVG2zinc.pm b/src/SVG/SVG2zinc.pm index 75e1429..d1e3235 100644 --- a/src/SVG/SVG2zinc.pm +++ b/src/SVG/SVG2zinc.pm @@ -1167,7 +1167,7 @@ my %save_current_context = (); if ($current_font_key =~ /^XLFD/) { my $fontname = $current_font_key; $fontname =~ s/^XLFD//; - push (@ascent, "\$ascent = int(\`xlsfonts -l -fn '$fontname' |tail -1|cut -c 31-33\`);"); + push (@ascent, "\$ascent = -> fontMetrics ('$fontname', -ascent);"); } else { push (@ascent, "\$ascent = -> fontMetrics (\$fonts{\"$current_font_key\"}, -ascent);"); } |