From 42923b2543aa1681c7bddf4842588e881ce76103 Mon Sep 17 00:00:00 2001
From: ribet
Date: Thu, 18 Oct 2007 15:49:26 +0000
Subject: Fix I'm not really proud of, but it works... (fontMetrics values are
 wrong)

---
 src/SVG/SVG2zinc/Conversions.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/SVG/SVG2zinc')

diff --git a/src/SVG/SVG2zinc/Conversions.pm b/src/SVG/SVG2zinc/Conversions.pm
index ad3abeb..0c8fd43 100644
--- a/src/SVG/SVG2zinc/Conversions.pm
+++ b/src/SVG/SVG2zinc/Conversions.pm
@@ -116,10 +116,10 @@ sub createNamedFont {
     my ($fontName, $fontKey);
     if ($family =~ /^-[^-]*-([^-]*)-([^-]*)-[^-]*-[^-]*-[^-]*-([^-]*)-[^-]*-[^-]*-[^-]*-[^-]*-[^-]*-[^-]*-[^-]*$/ ) {
 	$weight = $2;
-	$size = $3;
+	$size = 0; # Warning: setting size changes font metrics!
 	$fontKey = "XLFD$family";
 	$fontName = $family;
-	$family = $1;
+	#$family = $1; # Setting the real family prevent from loading the right font
     } else {
 	$weight = "normal" unless $weight;
 	if ( $size =~ /(.*)pt/ ) 
-- 
cgit v1.1