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
commitid-cube-test: TT test
[reprap-play.git]
/
commitid.scad.pl
diff --git
a/commitid.scad.pl
b/commitid.scad.pl
index a6ef9a5f51b67a6b48721b0b75747a79f1909d44..da6341a9915ae71acae84f521980bf5ddc5f9443 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 "$_ ?";
@@
-153,15
+153,15
@@
R 20 22 02
/#\ r /#\ ##\ # # ### // ### /#\ /#\
# # /# # # # # # # # # # # #
/#\ r /#\ ##\ # # ### // ### /#\ /#\
# # /# # # # # # # # # # # #
-#
r
# # /#/ ##< \## ##\ ##\ // >#< \##
+#
# # /#/ ##< \## ##\ ##\ // >#< \##
# # # # # # # # # # # # #
\#/ /#\ ### ##/ # ##/ \#/ # \#/ ##/
a b c d e f
# # /##
# # # # # # # # # # # # #
\#/ /#\ ### ##/ # ##/ \#/ # \#/ ##/
a b c d e f
# # /##
-
/## ##\ /## /#
# /#\ #
-
# # # # # # # #r/
###
+
# /##
# /#\ #
+
/## ##\ # /## #r#
###
# # # # # # # #/ #
\## ##/ \## \## \#/ #
# # # # # # # #/ #
\## ##/ \## \## \#/ #