From 9674f4956935001b7f9bb8a05fc66e876be74fc8 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Mar 2019 18:15:46 +0000
Subject: [PATCH] wip dykes

---
 generate-board | 10 ++++++++--
 input-graph    |  4 ++--
 2 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/generate-board b/generate-board
index f636fdc..198c73f 100755
--- 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 7627a07..f63cd8b 100644
--- 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 +@
-- 
2.30.2