X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=blobdiff_plain;f=commitid.scad.pl;h=da6341a9915ae71acae84f521980bf5ddc5f9443;hp=a6ef9a5f51b67a6b48721b0b75747a79f1909d44;hb=6babab3b28bf015868ef16fe0cf1650858f63866;hpb=23fa78caadadc497688db91a01f1c2348eb46f30

diff --git a/commitid.scad.pl b/commitid.scad.pl
index a6ef9a5..da6341a 100755
--- 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# ###
 # # # # #   # # #/  #
 \## ##/ \## \## \#/ #