sewing-table: some comments (nfc)

[reprap-play.git] / commitid.scad.pl

diff --git a/commitid.scad.pl b/commitid.scad.pl
index ca365a387b20c6b251b205ab2ed4c7cd49d55e53..62ae5105e07259a2a0a2ec25ad2f69f8aec8b0a0 100755 (executable)
--- 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) {