From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 3 Mar 2019 02:04:12 +0000 (+0000)
Subject: cube colour
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=a51449226a63a99b5ce4a2f34e392bf27be10393;p=pandemic-rising-tide.git

cube colour
---

diff --git a/generate-board b/generate-board
index eb03854..a2431a5 100755
--- a/generate-board
+++ b/generate-board
@@ -518,7 +518,7 @@ sub water_cubes($){
     o("          $s  0  rlineto\n");
     o("           0 $s  rlineto\n");
     o("         -$s  0  rlineto  closepath\n");
-    o("  gsave ", pscolour($c{Colours}{sea}), " fill grestore\n");
+    o("  gsave ", pscolour($c{Colours}{cube}), " fill grestore\n");
     o("  gsave ", '0 setgray ', $cube_lw,
       " setlinewidth stroke grestore \n");
   }
@@ -553,7 +553,7 @@ sub sea_track(){
   my $track = $c{SeaTrack};
   my $token_sz = $hs_sz;
   my $dy = $token_sz * 1.25;
-  my $linecolour = darkerpscolour('sea', 0.25);
+  my $linecolour = darkerpscolour('cube', 0.25);
   my @pos;
   for my $i (0..$#$track) {
     $pos[$i] = mkvec(0, ($i - 0.5 * @$track) * $dy);
@@ -563,7 +563,7 @@ sub sea_track(){
   o("    ",psvec($pos[0])," moveto ",psvec($pos[-1])," lineto stroke\n");
   for my $pos (@pos) {
     token_circle("SL", $pos,
-		 darkerpscolour('sea', 0.75),
+		 darkerpscolour('cube', 0.75),
 		 $linecolour);
   }
   for my $i (0..$#pos-1) {
diff --git a/misc-data.pl b/misc-data.pl
index fa228e0..cbeadd1 100644
--- a/misc-data.pl
+++ b/misc-data.pl
@@ -10,6 +10,7 @@ our %c =
      red    => 'f50',
      high   => '888',
      sea    => '88f',
+     cube   => '88f',
      land   => '922',
      dyke   => '922',
  },