multiple initial

diff --git a/generate-board b/generate-board
index df5208425b63c7dbb29e124fe9732361324ada62..a7cf70dbe3986b23667b251cd35f8d26302d29ba 100755 (executable)
--- 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");
     }
   }