From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 4 Mar 2019 02:26:52 +0000 (+0000)
Subject: fix bounding show
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=f3377753b88b5ddfc6d52541502937bf8a867458;p=pandemic-rising-tide.git

fix bounding show
---

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");