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

---
 generate-board | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/generate-board b/generate-board
index 3e4e9bc..f642902 100755
--- a/generate-board
+++ b/generate-board
@@ -550,8 +550,13 @@ sub dykes(){
     foreach my $adj (@{ $rr->{Adj} }) {
       o("  % dyke $rr->{Name} --- $rr->{Name}\n");
       next if $adj->{Name} lt $rr->{Name};
+      my @ends = adj_ends($adj);
+      my $dirn = $ends[1] - $ends[0];
+      my $angle = vec2atan($dirn);
       o("  gsave\n");
-      
+      o("    ", psvec( 0.5 * ($ends[0] + $ends[1]) )," translate\n");
+      o("    ", ($angle * 360 / TAU), " rotate\n");
+      o("    1 setgray 0 0 moveto 10 0 lineto stroke\n");
       o("  grestore\n");
     }
   }
@@ -572,6 +577,7 @@ adjust_nz();
 preamble();
 fill_faces();
 edge_faces();
+dykes();
 # xxx dykes
 # xxx dyke spots
 label_faces();
-- 
2.30.2