Revert "hs in a vertical line, for revert"

This reverts commit c7e2acb2475f73ad611f889b647f21606ec72c74.

diff --git a/generate-board b/generate-board
index 3df9ec659ac59d7d0d74df0f2f7b219fc0adfb15..31ab5a19d838eb729365373e5c803ed3ca65af30 100755 (executable)
--- 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");