From 0fcd8eef348c4949eb44939bb6caa3eeda8cd407 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Mar 2019 17:44:10 +0000
Subject: [PATCH] multiple initial

---
 generate-board | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

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");
     }
   }
-- 
2.30.2