bodge NZ north coast

diff --git a/generate-board b/generate-board
index dc5fcd8f5847bb258751b55074a56c4d73768b70..12575bd0a350475ad61d3fe33e6baf23abcdcac6 100755 (executable)
--- 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;
     }