commitid.scad.pl: wip, remove simplification

diff --git a/commitid.scad.pl b/commitid.scad.pl
index e1caf36d28b3858d8228713f5a0ab3878f24c59b..72ab7144ba3480bd6cd5a87346a9c67584797b9f 100755 (executable)
--- 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);