From ca717d77c02bba495c81e87b8b14f1dfa9263a8f Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 3 Mar 2019 02:36:56 +0000
Subject: [PATCH] colours of decks

---
 generate-board | 3 +++
 misc-data.pl   | 1 +
 2 files changed, 4 insertions(+)

diff --git a/generate-board b/generate-board
index c575e22..1ba27f8 100755
--- 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 57be6ae..2363541 100644
--- 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',
-- 
2.30.2