From 6867d04c0b37e26207137452370f2a4fa557b492 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sun, 10 Mar 2019 19:43:46 +0000 Subject: [PATCH] move into misc-data.pl: OuterCoastDelta rename NFC --- generate-board | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/generate-board b/generate-board index b48f8bc..03d5ae7 100755 --- a/generate-board +++ b/generate-board @@ -272,7 +272,7 @@ sub adjust_sea() { next unless $occurs_m->($ei); #print STDERR " sea occurs_m $ei $poly->[$ei]{VxName}\n"; next unless $occurs_m->($ei-1); - my $dleft = &mkvec(@{ $c{PA}{OuterCoastDelta} }); + my $delta = &mkvec(@{ $c{PA}{OuterCoastDelta} }); foreach my $which (0,-1) { my $ej = ($ei + $which + @$poly) % @$poly; my $ek = ($ei + +1 + 3*$which + @$poly) % @$poly; @@ -287,7 +287,7 @@ sub adjust_sea() { $$posk = $$posj + 10 * &mkvec(@{ $paocv->{PA} }); } } - $$posj = $$posj + $dleft + $dout*10; + $$posj = $$posj + $delta + $dout*10; $$posk = $$posk + $dout*10; } } -- 2.30.2