From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 14 Feb 2016 23:12:44 +0000 (+0000)
Subject: commitid: Make each polygon be a hashref containing E (nfc)
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=commitdiff_plain;h=1a19e5590872fe4ebb3ee6575b04598391c7b3dd

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 d646c32..f6c925a 100755
--- a/commitid.scad.pl
+++ b/commitid.scad.pl
@@ -371,6 +371,8 @@ sub parsefont () {
 	$cellmap{$1} = $_;
     }
     my %chrpolys;
+    # $chrs{$chr}[$poly] = $poly
+    # $poly->{E} = [ "012345012345", ... ]
     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;
-			push @{ $chrpolys{$chr} }, [ split / /, $f ];
+			push @{ $chrpolys{$chr} }, { E => [ split / /, $f ] };
 		    } else {
 			die "$_ ?";
 		    }
@@ -415,7 +417,7 @@ sub parsefont () {
 	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;