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

wip hs_initial
---

diff --git a/generate-board b/generate-board
index c74392d..38217d6 100755
--- a/generate-board
+++ b/generate-board
@@ -653,6 +653,24 @@ sub dykes(){
   }
 }
 
+sub hs_initial_1 ($$$) {
+  my ($colour, $xi,$yi) = @_;
+  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));
+  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);
+}
+
 #----- main program -----
 
 $xopts = shift @ARGV if $ARGV[0] =~ s/^-X//;
@@ -671,6 +689,7 @@ edge_faces();
 dykes();
 label_faces();
 sea_track();
+hs_initial();
 # xxx HS initial locations
 # xxx HS instructions
 # xxx overall instructions