From f3377753b88b5ddfc6d52541502937bf8a867458 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 4 Mar 2019 02:26:52 +0000
Subject: [PATCH] fix bounding show

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

diff --git a/generate-board b/generate-board
index 69b31a6..d6b65d9 100755
--- 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");
-- 
2.30.2