From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Mar 2019 18:02:23 +0000 (+0000)
Subject: triangles nicer
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=a32d578f6c3fe8ae75cb588a9d34155a926d510e;p=pandemic-rising-tide.git

triangles nicer
---

diff --git a/generate-board b/generate-board
index 2eb67ac..9604811 100755
--- a/generate-board
+++ b/generate-board
@@ -560,7 +560,7 @@ sub dykes(){
   o("    gsave 0.50 setgray fill grestore\n");
   o("    gsave 0.00 setgray $lw setlinewidth stroke grestore\n");
   o("  } bind def\n");
-  my $t_sz = $w;
+  my $t_sz = $w * 0.66;
   my $t_at = sub {
     my ($ang) = @_;
     print STDERR "ANG $ang\n";
@@ -573,7 +573,8 @@ sub dykes(){
   o("    newpath @t0 moveto\n");
   o("            @t1 lineto\n");
   o("            @t2 lineto closepath\n");
-  o("    gsave 1 setgray fill grestore\n");
+  o("    gsave ",pscolour($c{Colours}{dyke})," fill grestore\n");
+  o("    gsave 0 setgray $lw setlinewidth stroke grestore\n");
   o("  } bind def\n");
   foreach my $rr (values %region) {
     next if $rr->{Special};
diff --git a/misc-data.pl b/misc-data.pl
index 559a04c..e11bc38 100644
--- a/misc-data.pl
+++ b/misc-data.pl
@@ -11,6 +11,7 @@ our %c =
      high   => '888',
      sea    => '88f',
      land   => '922',
+     dyke   => '922',
  },
  DisplayNames => {
      ZZ => 'Zuiderzee',