chiark / gitweb /
ksafe-base: toplevels
[reprap-play.git] / commitid.scad.pl
index ca365a3..62ae510 100755 (executable)
@@ -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) {