dykes

diff --git a/generate-board b/generate-board
index c35c0f60641cba39f00301bda3e7e404aff5e6da..e4d40ba695665fee8ae316cb3fd7b44942548dca 100755 (executable)
--- a/generate-board
+++ b/generate-board
@@ -549,7 +549,9 @@ sub sea_track(){
 sub dykes(){
   my $l = 25 * MM2PT;
   my $w = 5 * MM2PT;
-  my $lw = $edge_lw/2;
+  my $lw = $edge_lw * 0.25;
+  my $l2 = $l/2;
+  my $w2 = $w/2;
   foreach my $rr (values %region) {
     next if $rr->{Special};
     next if $rr->{Colour} eq 'high';
@@ -564,8 +566,12 @@ 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("    newpath -$l2 -$w2 moveto\n");
+      o("             $l2 -$w2 lineto\n");
+      o("             $l2  $w2 lineto\n");
+      o("            -$l2  $w2 lineto closepath\n");
+      o("    gsave 0.50 setgray fill grestore\n");
+      o("    gsave 0.00 setgray stroke grestore\n");
       o("  grestore\n");
     }
   }