From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 1 Mar 2019 14:01:44 +0000 (+0000)
Subject: bodge NZ north coast
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=c152777e6c21c8bde6fa116d85ba69050294e32a;p=pandemic-rising-tide.git

bodge NZ north coast
---

diff --git a/generate-board b/generate-board
index dc5fcd8..12575bd 100755
--- a/generate-board
+++ b/generate-board
@@ -252,6 +252,10 @@ sub adjust_nz() {
       my $dout = $$posk - $$posj;
       print STDERR " nz adj j=$ej ",prvec($$posj)," $poly->[$ej]{VxName}\n";
       print STDERR " nz adj k=$ek ",prvec($$posk)," $poly->[$ek]{VxName}\n";
+      if ($poly->[$ej]{VxName} =~ /Noorderzijlvest/) {
+	print STDERR " nz adj extra\n";
+	$$posk = $$posj + 10 * mkvec(100,-50);
+      }
       $$posj = $$posj + $dleft + $dout*10;
       $$posk = $$posk          + $dout*10;
     }