From 18c726de3d638cfb91e8a832c354dad79ba82bd4 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sun, 3 Mar 2019 15:32:31 +0000 Subject: [PATCH] Revert "hs in a vertical line, for revert" This reverts commit c7e2acb2475f73ad611f889b647f21606ec72c74. --- generate-board | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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"); -- 2.30.2