triangles nicer

diff --git a/generate-board b/generate-board
index 2eb67ac1aaf2957a9117544be75ff241e42068d0..96048111c37de65b700b49734c85e80e9bdd4487 100755 (executable)
--- 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 559a04c1ad3d4b59fe76f8599fb7c622ef95541e..e11bc38d4d33a45394a30ecfd7aff601427c6874 100644 (file)
--- 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',