From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 3 Mar 2019 15:32:31 +0000 (+0000)
Subject: Revert "hs in a vertical line, for revert"
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=18c726de3d638cfb91e8a832c354dad79ba82bd4;p=pandemic-rising-tide.git

Revert "hs in a vertical line, for revert"

This reverts commit c7e2acb2475f73ad611f889b647f21606ec72c74.
---

diff --git a/generate-board b/generate-board
index 3df9ec6..31ab5a1 100755
--- a/generate-board
+++ b/generate-board
@@ -266,7 +266,7 @@ sub adjust_nz() {
       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,-63);
+	$$posk = $$posj + 10 * mkvec(100,-50);
       }
       $$posj = $$posj + $dleft + $dout*10;
       $$posk = $$posk          + $dout*10;
@@ -701,8 +701,8 @@ sub hs_initial_1 ($$$;$$$) {
   my $demo_w = $demo_x0 + $dyke_l * 0.60;
   o("  % HS I $colour\n");
   o("  gsave\n");
-  o("    580 1710 translate\n");
-  o("    ", (1*$interval), " ", (($yi-1 + (1-$xi)*-2)*$interval), " translate\n");
+  o("    550 1710 translate\n");
+  o("    ", ($xi*$interval), " ", (($yi-1)*$interval), " translate\n");
   if ($fn) {
     o("  gsave");
     o("        $demo_h setlinewidth 0 0 moveto $demo_w 0 rlineto\n");