From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 4 Feb 2016 17:54:55 +0000 (+0000)
Subject: commitid.scad.pl: wip, remove simplification
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=commitdiff_plain;h=c6f6c39f218a0d9b64d0c82c61fa3fa11bd0b0df

commitid.scad.pl: wip, remove simplification
---

diff --git a/commitid.scad.pl b/commitid.scad.pl
index e1caf36..72ab714 100755
--- a/commitid.scad.pl
+++ b/commitid.scad.pl
@@ -77,33 +77,6 @@ sub parsefont () {
 	    die "$_ ?" if m{\S};
 	}    
     }
-    foreach my $polys (values %chrpolys) {
-	my %edges;
-	foreach my $p (@$polys) {
-	    foreach my $ei (0..$#$p) {
-		my $e = $p->[$ei].$p->[($ei+1) % @$p];
-		die if $edges{$e};
-		$edges{$e} = [ $p, $ei ];
-	    }
-	}
-      AGAIN: {
-	    foreach my $pa (@$polys) {
-		foreach my $eai (0..$#$pa) {
-		    my $ear = $pa->[ ($eai+1) % @$pa ].$pa->[$eai];
-		    my $ebi = $edges{$ear};
-		    next unless $ebi;
-		    my $pb;
-		    ($pb, $ebi) = @$ebi;
-#		    print "# merging $eai $ebi\n";
-		    splice @$pb, $ebi, 1;
-		    splice @$pa, $eai, 1, @$pb;
-		    @$pb = ( );
-		    next AGAIN;
-		}
-	    }
-	}
-#	@$polys = grep { @$_ } @$polys;
-    }
 		    
     use Data::Dumper;
     print Dumper(\%chrpolys);