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

multiple initial
---

diff --git a/generate-board b/generate-board
index df52084..a7cf70d 100755
--- a/generate-board
+++ b/generate-board
@@ -575,7 +575,14 @@ sub dykes(){
       o("  gsave\n");
       o("    ", psvec( 0.5 * ($ends[0] + $ends[1]) )," translate\n");
       o("    ", ($angle * 360 / TAU), " rotate\n");
-      o("    dyke\n");
+      my $initial = $adj->{Dykes};
+      for my $ys ($initial
+		  ? [ map { $_ - 0.5 * ($initial-1) } 0..$initial-1 ]
+		  : [0]) {
+	foreach my $y (@$ys) {
+	  o("    gsave 0 ", $y * $w, " translate dyke grestore\n");
+	}
+      }
       o("  grestore\n");
     }
   }