From 58a43b780db94635de7d0ffe70c3f387ec7945b4 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Mar 2019 17:26:22 +0000
Subject: [PATCH] fix sea dykes

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

diff --git a/generate-board b/generate-board
index 474b5ff..fcd1c7a 100755
--- a/generate-board
+++ b/generate-board
@@ -551,7 +551,7 @@ sub dykes(){
     foreach my $adj (@{ $rr->{Adj} }) {
       my $neigh = $adj->{Name};
       o("  % dyke $rr->{Name} --- $neigh\n");
-      next if $neigh lt $rr->{Name};
+      next if $neigh lt $rr->{Name} && !$region{$neigh}{Special};
       next if $region{$neigh}{Colour} eq 'high';
       my @ends = adj_ends($adj);
       my $dirn = $ends[1] - $ends[0];
@@ -559,7 +559,7 @@ sub dykes(){
       o("  gsave\n");
       o("    ", psvec( 0.5 * ($ends[0] + $ends[1]) )," translate\n");
       o("    ", ($angle * 360 / TAU), " rotate\n");
-      o("    1 setgray 0 0 moveto 10 0 lineto stroke\n");
+      o("    1 setgray 0 0 moveto 20 0 lineto stroke\n");
       o("  grestore\n");
     }
   }
-- 
2.30.2