cube colour

diff --git a/generate-board b/generate-board
index eb03854367d4e93fbcea8443d7af93f06e98782a..a2431a51fdc032ba757d410307e34786de53e279 100755 (executable)
--- 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 fa228e0c80d5bbfb17574ebd81eb5d9919953f88..cbeadd147b56b81a1bca6d8b5e8aadfb84ed4bf0 100644 (file)
--- 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',
  },