wip dykes

diff --git a/generate-board b/generate-board
index f636fdc971d207f615ba710ab67bb368ff04a760..198c73f203d0eaf43beda2529dde032d312afbb8 100755 (executable)
--- a/generate-board
+++ b/generate-board
@@ -560,11 +560,12 @@ sub dykes(){
   o("    gsave 0.50 setgray fill grestore\n");
   o("    gsave 0.00 setgray $lw setlinewidth stroke grestore\n");
   o("  } bind def\n");
-  my $t_sz = $w * 0.66;
+  my $symbol_sz = $w * 1.33;
+  my $t_sz = $symbol_sz;
   my $t_at = sub {
     my ($ang) = @_;
     print STDERR "ANG $ang\n";
-    map { $t_sz * $_ } cos($ang), sin($ang);
+    map { $t_sz * 0.5 * $_ } cos($ang), sin($ang);
   };
   my @t0 = $t_at->((TAU) *  0.25         );
   my @t1 = $t_at->((TAU) * (0.25 + 1./3) );
@@ -600,6 +601,11 @@ sub dykes(){
          o("    gsave 0 ", $y * $w, " translate dyke ");
          o(" grestore\n");
        }
+       my $nsymbols = !!$initial + !!$adj->{Deltawerk};
+       o("   ", -0.5 * $symbol_sz * ($nsymbols-1)," 0 translate\n");
+       if ($adj->{Deltawerk}) {
+         o("  $symbol_sz 0 translate\n");
+       }
        o(" $angle neg rotate dtriangle ") if $initial;
       }
       o("  grestore\n");

diff --git a/input-graph b/input-graph
index 7627a07d5e255dfb64d8196135bc6ab3d50dbae9..f63cd8b0566ed3bf51275d5b4c91cbb7a1985646 100644 (file)
--- a/input-graph
+++ b/input-graph
@@ -219,9 +219,9 @@ red
                Zeeuws-Vlaanderen +
                Walcheren +
        Zeeuws-Vlaanderen
-               Z-B. +@
+               Z-B. +
                L
-               NZ +
+               NZ +@
                Walcheren +
        Walcheren
                NZ +@