debug for revert

diff --git a/generate-board b/generate-board
index 767aa2e69ae46fd704a74e6490069cf62fec60b3..eaeb0caaea54d53dd3ca2adb8c6956a02b66f6ed 100755 (executable)
--- a/generate-board
+++ b/generate-board
@@ -140,6 +140,7 @@ 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";
   }
 }
 
@@ -197,10 +198,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\n";
+       print STDERR "set $topend $xy $now $why\n";
       }
     }
   });
@@ -247,7 +248,7 @@ o("%!\n");
 # xxx boundingbox
 write_face_edges();
 
-#print STDERR Dumper(\%region);
+print STDERR Dumper(\%region);
 
 # Local variables:
 # cperl-indent-level: 2