chiark
/
gitweb
/
~ianmdlvl
/
reprap-play.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
distort-stl: delete now-unused subdivision function
[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;
} elsif (s{^\S}{}) {
my $f = $cellmap{$&};
die unless $f;
- $f =~ s/\b\d/ sprintf '%05d', $col*2000 + $&*10
25
/ge;
- $f =~ s/\d\b/ sprintf '%05d', $row*2000 + $&*10
25
/ge;
+ $f =~ s/\b\d/ sprintf '%05d', $col*2000 + $&*10
00
/ge;
+ $f =~ s/\d\b/ sprintf '%05d', $row*2000 + $&*10
00
/ge;
push @{ $chrpolys{$chr} }, { E => [ split / /, $f ] };
} else {
die "$_ ?";
push @{ $chrpolys{$chr} }, { E => [ split / /, $f ] };
} else {
die "$_ ?";
@@
-590,6
+590,8
@@
sub parsefont () {
my $polys = $chrpolys{$chr};
$_->{Holes} = [] foreach @$polys;
my $polys = $chrpolys{$chr};
$_->{Holes} = [] foreach @$polys;
+ simplify($chr,$polys);
+
my $mod = chrmodname $chr;
p "module $mod () {\n";
foreach my $poly (@$polys) {
my $mod = chrmodname $chr;
p "module $mod () {\n";
foreach my $poly (@$polys) {