wip nz

diff --git a/generate-board b/generate-board
index 76ae573d9b682a72541dedcf3b21049357a98d50..64500d0dd7ecd18f1797d25ca82027a9941b23bc 100755 (executable)
--- 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 524aeee634983c8664d0647dc19833625efd2cc1..86032b950ac01c027e1e409c54c8edf9f5e319b1 100644 (file)
--- a/misc-data.pl
+++ b/misc-data.pl
@@ -9,5 +9,6 @@ our %c =
      green  => '0a0',
      red    => 'f50',
      high   => '888',
+     sea    => '88f',
  },
 );