From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Mar 2019 17:15:12 +0000 (+0000)
Subject: wip dykes
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=d7d693aafde6e250551e7af2abd7aad1c354641b;p=pandemic-rising-tide.git

wip dykes
---

diff --git a/generate-board b/generate-board
index 0726f99..d99c431 100755
--- a/generate-board
+++ b/generate-board
@@ -543,6 +543,19 @@ sub sea_track(){
   o("  grestore\n");
 }
 
+sub dykes(){
+  foreach my $rr (values %region) {
+    next if $rr->{Special};
+    foreach my $adj (@{ $rr->{Adj} }) {
+      o("  % dyke $rr->{Name} --- $rr->{Name}\n");
+      next if $adj->{Name} lt $rr->{Name};
+      o("  gsave\n");
+      
+      o("  grestore\n");
+    }
+  }
+}
+
 #----- main program -----
 
 $xopts = shift @ARGV if $ARGV[0] =~ s/^-X//;