multiple triangles

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