chiark / gitweb /
move into misc-data.pl: OuterCoastDelta rename
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 10 Mar 2019 19:43:46 +0000 (19:43 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 10 Mar 2019 20:48:19 +0000 (20:48 +0000)
NFC

generate-board

index b48f8bc2d8be1018e544d6053644dfac09461114..03d5ae72ae5b7b13b17815e896f0ecc57f422e98 100755 (executable)
@@ -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;
     }
   }