From c57c92dddde3023944b7781f5cc9744827368977 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 28 Feb 2019 20:42:39 +0000
Subject: [PATCH] some fill

---
 generate-board | 11 +++++++++--
 misc-data.pl   |  7 +++++++
 2 files changed, 16 insertions(+), 2 deletions(-)

diff --git a/generate-board b/generate-board
index 4fea680..14b264c 100755
--- a/generate-board
+++ b/generate-board
@@ -228,7 +228,14 @@ sub write_face_edges() {
       o(sprintf "    %20.6f %20.6f %s\n", $pos->get(0),$pos->get(1), $xto);
       $xto = 'lineto';
     }
-    o("    closepath stroke\n");
+    o("    closepath\n");
+    my $chex = $c{Colours}{$rr->{Colour}};
+    if ($chex) {
+      o("    gsave ");
+      o(sprintf " %.6f ", hex($_) / 15.0) foreach split //, $chex;
+      o(" setrgbcolor eofill grestore\n");
+    }
+    o("    stroke\n");
   }
 }
 
@@ -245,7 +252,7 @@ o("%!\n");
 # xxx boundingbox
 write_face_edges();
 
-#print STDERR Dumper(\%region);
+print STDERR Dumper(\%region);
 
 # Local variables:
 # cperl-indent-level: 2
diff --git a/misc-data.pl b/misc-data.pl
index 212dd8c..09c467c 100644
--- a/misc-data.pl
+++ b/misc-data.pl
@@ -3,4 +3,11 @@ our %c =
  OrientRegions => [ 'Roer en Overmaas', 'Noorderzijlvest' ],
  OrientBearing => -10,
  GraphScale => 25,
+ Colours => {
+     yellow => 'ff0',
+     purple => 'f0f',
+     green  => '0f0',
+     red    => 'f80',
+     high   => '888',
+ },
 );
-- 
2.30.2