chiark
/
gitweb
/
~ianmdlvl
/
reprap-play.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
c5a6011
)
commitid.scad.pl: Make overlap fudge bigger to avoid openscad stupidity
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Thu, 4 Feb 2016 20:29:21 +0000
(20:29 +0000)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Thu, 4 Feb 2016 20:29:21 +0000
(20:29 +0000)
commitid.scad.pl
patch
|
blob
|
history
diff --git
a/commitid.scad.pl
b/commitid.scad.pl
index a6ef9a5f51b67a6b48721b0b75747a79f1909d44..375d2eb0a8db87eadd5c60d6a2db6bb6dc6dbf89 100755
(executable)
--- a/
commitid.scad.pl
+++ b/
commitid.scad.pl
@@
-92,8
+92,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*4000 + $&*20
01
/ge;
- $f =~ s/\d\b/ sprintf '%05d', $row*4000 + $&*20
01
/ge;
+ $f =~ s/\b\d/ sprintf '%05d', $col*4000 + $&*20
50
/ge;
+ $f =~ s/\d\b/ sprintf '%05d', $row*4000 + $&*20
50
/ge;
push @{ $chrpolys{$chr} }, [ split / /, $f ];
} else {
die "$_ ?";
push @{ $chrpolys{$chr} }, [ split / /, $f ];
} else {
die "$_ ?";