Previously we adjusted each polygon's vertices by a fudge factor to
make them overlap. This produces small wrinkles at the corners of the
glyphs, which are undesriable and slow to render.
This new version is about 30% faster on anarres.
} 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 "$_ ?";
my $polys = $chrpolys{$chr};
$_->{Holes} = [] foreach @$polys;
+ simplify($chr,$polys);
+
my $mod = chrmodname $chr;
p "module $mod () {\n";
foreach my $poly (@$polys) {