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;
-                       $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,15 +153,15 @@ R 20 22 02
 
 /#\  r  /#\ ##\ # # ### //  ### /#\ /#\
 # # /#    #   # # # #   #     # # # # #
-#r#  #  /#/ ##< \## ##\ ##\  // >#< \##
+# #  #  /#/ ##< \## ##\ ##\  // >#< \##
 # #  #  #     #   #   # # #  #  # #   #
 \#/ /#\ ### ##/   # ##/ \#/  #  \#/ ##/
 
 a b c d e f
 
     #         #     /##
-/## ##\ /## /## /#\ #
-# # # # #   # # #r/ ###
+    #   /##   # /#\ #
+/## ##\ #   /## #r# ###
 # # # # #   # # #/  #
 \## ##/ \## \## \#/ #