commitid-cube-test.scad: test cube with sunken top and bottom

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

diff --git a/commitid.scad.pl b/commitid.scad.pl
index a6ef9a5f51b67a6b48721b0b75747a79f1909d44..093a8fbca913d2af46a375a49ea9e0bed506c2d2 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;
-                       $f =~ s/\b\d/ sprintf '%05d', $col*4000 + $&*2001 /ge;
-                       $f =~ s/\d\b/ sprintf '%05d', $row*4000 + $&*2001 /ge;
+                       $f =~ s/\b\d/ sprintf '%05d', $col*4000 + $&*2050 /ge;
+                       $f =~ s/\d\b/ sprintf '%05d', $row*4000 + $&*2050 /ge;
                        push @{ $chrpolys{$chr} }, [ split / /, $f ];
                    } else {
                        die "$_ ?";
@@ -153,7 +153,7 @@ R 20 22 02
 
 /#\  r  /#\ ##\ # # ### //  ### /#\ /#\
 # # /#    #   # # # #   #     # # # # #
-#r#  #  /#/ ##< \## ##\ ##\  // >#< \##
+# #  #  /#/ ##< \## ##\ ##\  // >#< \##
 # #  #  #     #   #   # # #  #  # #   #
 \#/ /#\ ### ##/   # ##/ \#/  #  \#/ ##/