X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=blobdiff_plain;f=commitid.scad.pl;h=62ae5105e07259a2a0a2ec25ad2f69f8aec8b0a0;hp=ca365a387b20c6b251b205ab2ed4c7cd49d55e53;hb=16187156ae630cf20952fc84f67f01f9a3f6ca8d;hpb=05a15467ac34b5e3621b77108aa8e0fbc2ea4346

diff --git a/commitid.scad.pl b/commitid.scad.pl
index ca365a3..62ae510 100755
--- a/commitid.scad.pl
+++ b/commitid.scad.pl
@@ -571,8 +571,8 @@ sub parsefont () {
 		    } elsif (s{^\S}{}) {
 			my $f = $cellmap{$&};
 			die unless $f;
-			$f =~ s/\b\d/ sprintf '%05d', $col*2000 + $&*1025 /ge;
-			$f =~ s/\d\b/ sprintf '%05d', $row*2000 + $&*1025 /ge;
+			$f =~ s/\b\d/ sprintf '%05d', $col*2000 + $&*1000 /ge;
+			$f =~ s/\d\b/ sprintf '%05d', $row*2000 + $&*1000 /ge;
 			push @{ $chrpolys{$chr} }, { E => [ split / /, $f ] };
 		    } else {
 			die "$_ ?";
@@ -590,6 +590,8 @@ sub parsefont () {
 	my $polys = $chrpolys{$chr};
 	$_->{Holes} = [] foreach @$polys;
 
+	simplify($chr,$polys);
+
 	my $mod = chrmodname $chr;
 	p "module $mod () {\n";
 	foreach my $poly (@$polys) {