From f418b9da712d5bf7546a116b876bdd5cfafa737a Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Mar 2019 17:24:59 +0000
Subject: [PATCH] no dykes on high regions

---
 generate-board | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/generate-board b/generate-board
index f642902..474b5ff 100755
--- a/generate-board
+++ b/generate-board
@@ -547,9 +547,12 @@ sub sea_track(){
 sub dykes(){
   foreach my $rr (values %region) {
     next if $rr->{Special};
+    next if $rr->{Colour} eq 'high';
     foreach my $adj (@{ $rr->{Adj} }) {
-      o("  % dyke $rr->{Name} --- $rr->{Name}\n");
-      next if $adj->{Name} lt $rr->{Name};
+      my $neigh = $adj->{Name};
+      o("  % dyke $rr->{Name} --- $neigh\n");
+      next if $neigh lt $rr->{Name};
+      next if $region{$neigh}{Colour} eq 'high';
       my @ends = adj_ends($adj);
       my $dirn = $ends[1] - $ends[0];
       my $angle = vec2atan($dirn);
-- 
2.30.2