wip triangle

diff --git a/generate-board b/generate-board
index a7cf70dbe3986b23667b251cd35f8d26302d29ba..f81459110a864599b1b7c38e41d1114bf369ca39 100755 (executable)
--- a/generate-board
+++ b/generate-board
@@ -560,6 +560,20 @@ 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_at = sub {
+    my ($ang) = @_;
+    map { $t_sz * $_ } cos($ang), sin($ang);
+  };
+  my @t0 = $t_at->(0.5*TAU             );
+  my @t1 = $t_at->(0.5*TAU + 1./3 * TAU);
+  my @t2 = $t_at->(0.5*TAU + 2./3 * TAU);
+  o("  /dtriangle {\n");
+  o("    newpath @t0 moveto\n");
+  o("            @t1 lineto\n");
+  o("            @t2 lineto closepath\n");
+  o("    gsave 1 setgray fill grestore\n");
+  o("  } bind def\n");
   foreach my $rr (values %region) {
     next if $rr->{Special};
     next if $rr->{Name} eq 'ZZ';