From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 1 Mar 2019 00:44:35 +0000 (+0000)
Subject: wip nz
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=76905da3e8320d157fe3a82a3b688c45362fa07c;p=pandemic-rising-tide.git

wip nz
---

diff --git a/generate-board b/generate-board
index 76ae573..64500d0 100755
--- a/generate-board
+++ b/generate-board
@@ -216,6 +216,33 @@ sub transform_coordinates () {
   });
 }
 
+sub adjust_nz() {
+  my $poly = $region{NZ}{Polygon};
+  my %occurs;
+  foreach my $v (@$poly) {
+    $occurs{$v->{VxName}}++
+  }
+  foreach my $v (@$poly) {
+    $v->{NZ_Occurs} = $occurs{$v->{VxName}};
+  }
+  my $ei;
+  my $occurs_m = sub {
+    my ($delta) = @_;
+    $poly->[($ei+$delta+@$poly) % @$poly]{NZ_Occurs} > 1
+  };
+  for $ei (0..$#$poly) {
+    next if $occurs_m->(0);
+    next unless $occurs_m->(-1);
+    next unless $occurs_m->(+1);
+    # adjust coord outwards
+  }
+  for $ei (0..$#$poly) {
+    next unless $occurs_m->(-1);
+    next unless $occurs_m->(0);
+    my $pos = \ $poly->{$ei}{Pos};
+  }
+}
+
 sub write_face_edges() {
   o("5 setlinewidth 1 setlinejoin\n");
   foreach my $rr (values %region) {
diff --git a/misc-data.pl b/misc-data.pl
index 524aeee..86032b9 100644
--- a/misc-data.pl
+++ b/misc-data.pl
@@ -9,5 +9,6 @@ our %c =
      green  => '0a0',
      red    => 'f50',
      high   => '888',
+     sea    => '88f',
  },
 );