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

---
 generate-board | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/generate-board b/generate-board
index 38d927a..c35c0f6 100755
--- a/generate-board
+++ b/generate-board
@@ -547,6 +547,9 @@ sub sea_track(){
 }
 
 sub dykes(){
+  my $l = 25 * MM2PT;
+  my $w = 5 * MM2PT;
+  my $lw = $edge_lw/2;
   foreach my $rr (values %region) {
     next if $rr->{Special};
     next if $rr->{Colour} eq 'high';
@@ -561,6 +564,7 @@ sub dykes(){
       o("  gsave\n");
       o("    ", psvec( 0.5 * ($ends[0] + $ends[1]) )," translate\n");
       o("    ", ($angle * 360 / TAU), " rotate\n");
+#      o("    
       o("    1 setgray 0 0 moveto 20 0 lineto stroke\n");
       o("  grestore\n");
     }
-- 
2.30.2