wip dykes

diff --git a/generate-board b/generate-board
index 38d927af25cc0aa88cdbc1fb7076c1f54a903eff..c35c0f60641cba39f00301bda3e7e404aff5e6da 100755 (executable)
--- 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");
     }