From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Mar 2019 17:52:08 +0000 (+0000)
Subject: wip triangle
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=46753b58895d568c21bdac88b1c58bbf6285da14;p=pandemic-rising-tide.git

wip triangle
---

diff --git a/generate-board b/generate-board
index a7cf70d..f814591 100755
--- 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';