triangles nicer

[pandemic-rising-tide.git] / generate-board

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};