From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 3 Mar 2019 01:08:11 +0000 (+0000)
Subject: wip interpretation
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=b52120d256954b5b4f0325c0db0c14fc2dcc0c63;p=pandemic-rising-tide.git

wip interpretation
---

diff --git a/generate-board b/generate-board
index 38217d6..6445def 100755
--- a/generate-board
+++ b/generate-board
@@ -653,22 +653,27 @@ sub dykes(){
   }
 }
 
-sub hs_initial_1 ($$$) {
-  my ($colour, $xi,$yi) = @_;
+sub hs_initial_1 ($$$;$) {
+  my ($colour, $xi,$yi, $fn) = @_;
   my $interval = $hs_sz * 1.75;
   o("  % HS I $colour\n");
   o("  gsave\n");
   o("    400 1720 translate\n");
   o("    ", ($xi*$interval), " ", (($yi-1)*$interval), " translate\n");
   one_hs($colour, mkvec(0,0));
+  $fn->() if $fn;
   o("  grestore\n");
 }
 
 sub hs_initial () {
   hs_initial_1('red',     0,0);
   hs_initial_1('purple',  0,1);
-  hs_initial_1('green',   1,0);
-  hs_initial_1('yellow',  1,1);
+  hs_initial_1('green',   1,0, sub { });
+  hs_initial_1('yellow',  1,1, sub {
+    o("    newpath dykepath\n");
+    o("    gsave 0.50 setgray fill grestore\n");
+    o("    gsave ",pscolour($c{Colours}{dyke})," fill grestore\n");
+  });
 }
 
 #----- main program -----