Revert "debug for revert"

This reverts commit d4e8b5746698b0720ed875cee4c8ddff56978355.

diff --git a/generate-board b/generate-board
index eaeb0caaea54d53dd3ca2adb8c6956a02b66f6ed..767aa2e69ae46fd704a74e6490069cf62fec60b3 100755 (executable)
--- a/generate-board
+++ b/generate-board
@@ -140,7 +140,6 @@ sub calculate_centres () {
     my $sum = Math::GSL::Vector->new(2);
     $sum += $_->{Pos} foreach @$poly;
     $rr->{Centre} = $sum * (1.0 / @$poly);
-    print STDERR "C-of ",prvec($rr->{Centre})," $rr->{Name}\n";
   }
 }
 
@@ -198,10 +197,10 @@ sub transform_coordinates () {
       foreach my $xy (qw(0 1)) {
        my $now = $y->get($xy);
        my $lim = $lims[$topend]->get($xy);
-       print STDERR "?set $topend $xy $now $lim\n";
+       #print STDERR "?set $topend $xy $now $lim\n";
        next if $topend ? ($now <= $lim) : ($now >= $lim);
        $lims[$topend]->set([$xy], [$now]);
-       print STDERR "set $topend $xy $now $why\n";
+       #print STDERR "set $topend $xy $now\n";
       }
     }
   });
@@ -248,7 +247,7 @@ o("%!\n");
 # xxx boundingbox
 write_face_edges();
 
-print STDERR Dumper(\%region);
+#print STDERR Dumper(\%region);
 
 # Local variables:
 # cperl-indent-level: 2