From 28546b5e32dc05accd389b25f42e2328a4a3a3de Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 1 Mar 2019 12:56:02 +0000
Subject: [PATCH] sea

---
 generate-board | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/generate-board b/generate-board
index b35d41f..e44c55c 100755
--- a/generate-board
+++ b/generate-board
@@ -244,15 +244,17 @@ sub adjust_nz() {
     next unless $occurs_m->($ei);
     print STDERR " nz occurs_m $ei $poly->[$ei]{VxName}\n";
     next unless $occurs_m->($ei-1);
-    my $dleft = Math::GSL::Vector->new([-200,0]);
+    my $dleft = Math::GSL::Vector->new([-1000,0]);
     foreach my $which (0,-1) {
       my $ej = ($ei +        $which + @$poly) % @$poly;
       my $ek = ($ei + +1 + 3*$which + @$poly) % @$poly;
       my $posj = \ $poly->[$ej]{Pos};
       my $posk = \ $poly->[$ek]{Pos};
+      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";
-      $$posj = $$posj + $dleft;
+      $$posj = $$posj + $dleft + $dout*10;
+      $$posk = $$posk          + $dout*10;
     }
   }
 }
-- 
2.30.2