commitid: Make each polygon be a hashref containing E (nfc)

We are going to want to record holes too.

diff --git a/commitid.scad.pl b/commitid.scad.pl
index d646c32762bfca62f3ce9fe61f57a0d53f986701..f6c925afdee52b7bd2f8d278cc5ec7a0b5e0a034 100755 (executable)
--- a/commitid.scad.pl
+++ b/commitid.scad.pl
@@ -371,6 +371,8 @@ sub parsefont () {
        $cellmap{$1} = $_;
     }
     my %chrpolys;
        $cellmap{$1} = $_;
     }
     my %chrpolys;

+    # $chrs{$chr}[$poly] = $poly
+    # $poly->{E} = [ "012345012345", ... ]

     while (<DATA>) {
        next unless m/\S/;
        chomp;
     while (<DATA>) {
        next unless m/\S/;
        chomp;


@@ -397,7 +399,7 @@ sub parsefont () {
                        die unless $f;
                        $f =~ s/\b\d/ sprintf '%05d', $col*2000 + $&*1025 /ge;
                        $f =~ s/\d\b/ sprintf '%05d', $row*2000 + $&*1025 /ge;
                        die unless $f;
                        $f =~ s/\b\d/ sprintf '%05d', $col*2000 + $&*1025 /ge;
                        $f =~ s/\d\b/ sprintf '%05d', $row*2000 + $&*1025 /ge;

-                       push @{ $chrpolys{$chr} }, [ split / /, $f ];
+                       push @{ $chrpolys{$chr} }, { E => [ split / /, $f ] };

                    } else {
                        die "$_ ?";
                    }
                    } else {
                        die "$_ ?";
                    }


@@ -415,7 +417,7 @@ sub parsefont () {
        foreach my $poly (@{ $chrpolys{$chr} }) {
            p " polygon([";
            my $delim = "";
        foreach my $poly (@{ $chrpolys{$chr} }) {
            p " polygon([";
            my $delim = "";

-           foreach my $pt (@$poly) {
+           foreach my $pt (@{ $poly->{E} }) {

                p $delim;
                $pt =~ s{\d{5}}{$&,};
                $pt =~ s{\b\d}{$&.}g;
                p $delim;
                $pt =~ s{\d{5}}{$&,};
                $pt =~ s{\b\d}{$&.}g;