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

wip dykes
---

diff --git a/generate-board b/generate-board
index 38d927a..c35c0f6 100755
--- a/generate-board
+++ b/generate-board
@@ -547,6 +547,9 @@ sub sea_track(){
 }
 
 sub dykes(){
+  my $l = 25 * MM2PT;
+  my $w = 5 * MM2PT;
+  my $lw = $edge_lw/2;
   foreach my $rr (values %region) {
     next if $rr->{Special};
     next if $rr->{Colour} eq 'high';
@@ -561,6 +564,7 @@ sub dykes(){
       o("  gsave\n");
       o("    ", psvec( 0.5 * ($ends[0] + $ends[1]) )," translate\n");
       o("    ", ($angle * 360 / TAU), " rotate\n");
+#      o("    
       o("    1 setgray 0 0 moveto 20 0 lineto stroke\n");
       o("  grestore\n");
     }