From 56ace5bcfdcf422b6b2e179c0c173be3efd1c0a3 Mon Sep 17 00:00:00 2001
From: ribet
Date: Fri, 19 Oct 2007 12:34:51 +0000
Subject: Good fix for XLFD font position. Release 1.5.1 is ready.

---
 src/SVG/SVG2zinc.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/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);");
 		}
-- 
cgit v1.1