fix bounding show

diff --git a/generate-board b/generate-board
index 69b31a6c725b28253d88cec744236be05423d3f0..d6b65d986ebe1823adf33d6fe506b2e84330cec2 100755 (executable)
--- a/generate-board
+++ b/generate-board
@@ -345,8 +345,8 @@ sub showboundings () {
     o("    % $bname\n");
     o("    [ $on $off ] ".($i * ($on+$off))," setdash newpath\n");
     my @p = @{ $bb{$bname} };
-    o("    $p[0] $p[0] moveto\n");
-    o("    $p[2] $p[0] lineto\n");
+    o("    $p[0] $p[1] moveto\n");
+    o("    $p[2] $p[1] lineto\n");
     o("    $p[2] $p[3] lineto\n");
     o("    $p[0] $p[3] lineto\n");
     o("    closepath stroke\n");