From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 3 Mar 2019 16:23:09 +0000 (+0000)
Subject: multiple triangles
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=df7c69b16ce45ae842981eb2ed02be08bc6f1135;p=pandemic-rising-tide.git

multiple triangles
---

diff --git a/generate-board b/generate-board
index 8a4abfd..2f08a84 100755
--- a/generate-board
+++ b/generate-board
@@ -683,14 +683,17 @@ sub dykes(){
 	  o("    gsave 0 ", $y * $w, " translate dyke ");
 	  o(" grestore\n");
 	}
-	my $nsymbols = !!$initial + !!$adj->{Deltawerk};
+	my $nsymbols = $initial + !!$adj->{Deltawerk};
 	o("   ", -0.5 * $symbol_sz * ($nsymbols-1)," 0 translate\n");
 	my $trans = "  $symbol_sz 0 translate";
 	if ($adj->{Deltawerk}) {
 	  one_hs('red', mkvec(0,0), $symbol_sz * 0.8, $lw);
 	  o($trans);
 	}
-	o(" gsave $angle neg rotate dtriangle grestore\n");
+	foreach my $i (1..$initial) {
+	  o(" gsave $angle neg rotate dtriangle grestore\n");
+	  o($trans);
+	}
       }
       o("  grestore\n");
     }