From d4e8b5746698b0720ed875cee4c8ddff56978355 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 28 Feb 2019 20:24:41 +0000
Subject: [PATCH] debug for revert

---
 generate-board | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/generate-board b/generate-board
index 767aa2e..eaeb0ca 100755
--- 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
-- 
2.30.2