chiark / gitweb /
wip sea
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Fri, 1 Mar 2019 00:52:49 +0000 (00:52 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Fri, 1 Mar 2019 00:52:49 +0000 (00:52 +0000)
generate-board

index fd87a7f4c32b402fdf79cb5d7cb1aba77f424cec..a9de3d4cf190622a02d1838862f44f8286d92907 100755 (executable)
@@ -242,7 +242,7 @@ sub adjust_nz() {
     next unless $occurs_m->($ei-1);
     next unless $occurs_m->($ei);
     my $pos = \ $poly->[$ei]{Pos};
-    $$pos = $$pos*2 - $mid - Math::GSL::Vector->new([-1400,0]);
+    $$pos = $$pos*2 - $mid + Math::GSL::Vector->new([-1000,0]);
   }
 }