diff options
| -rw-r--r-- | debian/changelog | 7 | ||||
| -rw-r--r-- | src/SVG/SVG2zinc.pm | 2 |
2 files changed, 8 insertions, 1 deletions
diff --git a/debian/changelog b/debian/changelog index 07b5b6b..fd9ee0e 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,10 @@ +mtools-perl (1.5.1-1) unstable; urgency=low + * Amélioration du positionnement des fontes XLFD + * Amélioration de la prise en compte des fontes XLFD + * L'antirecouvrement de plante plus si l'objet est invisible + + -- Philippe Ribet <ribet@cena.fr> Fri, 19 Oct 2007 8:32:00 +0200 + mtools-perl (1.5-1) unstable; urgency=low * Prise en charge des noms XLFD. * Correction d'un bug concerant les images avec de la transparence dans un svg 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);"); } |