colours of decks

diff --git a/generate-board b/generate-board
index c575e2237e091182c79f36ece846bf33fc9d4a58..1ba27f8d0eadaff0ca7f34408964078889234914 100755 (executable)
--- a/generate-board
+++ b/generate-board
@@ -531,6 +531,7 @@ sub water_cubes($){
 }
 
 sub decks(){
+  my $lw = $edge_lw/2;
   o("  /deck1path {\n");
   my $w = 63 * MM2PT;
   my $h = 89 * MM2PT;
@@ -549,7 +550,9 @@ sub decks(){
   o("    newpath         deck1path\n");
   o("    200 0 translate deck1path\n");
   o("  } bind def");
+  o("  $lw setlinewidth 1 setgray\n");
   o("  gsave 407 50 translate deckpairpathx stroke grestore");
+  o("  $lw setlinewidth ",pscolour($c{Colours}{dykefail}),"\n");
   o("  gsave 225 1375 translate 90 rotate deckpairpathx stroke grestore");
 }
 

diff --git a/misc-data.pl b/misc-data.pl
index 57be6ae1693935c05c22922d7c40052f8cfaa9a5..236354152da4efe54aac73826de0fd3a4d251d04 100644 (file)
--- a/misc-data.pl
+++ b/misc-data.pl
@@ -13,6 +13,7 @@ our %c =
      cube   => '88f',
      land   => '922',
      dyke   => '922',
+     dykefail => '444',
  },
  DisplayNames => {
      ZZ => 'Zuiderzee',