From 7cfb685990d95fd458fc390ffc96e49340feaa31 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 6 Mar 2019 13:05:45 +0000
Subject: [PATCH] break out cubeedgepscolur seatrackedgepscolour nfc

---
 generate-board | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/generate-board b/generate-board
index 4a971e2..7f1037b 100755
--- a/generate-board
+++ b/generate-board
@@ -423,6 +423,10 @@ sub miscpscolour ($) {
   pscolour($c{Colours}{$colourname});
 }
 
+sub cubeedgepscolour () {  '0 setgray ' }
+sub seatrackedgepscolour () { darkerpscolour('cube', 0.25) }
+# xxx ^ combine these - which one ?
+
 sub fill_faces() {
   o("clippath ", facepscolour('land'), " fill\n");
   foreach my $rr (values %region) {
@@ -589,7 +593,7 @@ sub water_cubes($){
     o("           0 $s  rlineto\n");
     o("         -$s  0  rlineto  closepath\n");
     o("  gsave ", miscpscolour('cube'), " fill grestore\n");
-    o("  gsave ", '0 setgray ', $cube_lw,
+    o("  gsave ", cubeedgepscolour(), $cube_lw,
       " setlinewidth stroke grestore \n");
   }
 }
@@ -629,7 +633,7 @@ sub sea_track(){
   my $token_sz = $hs_sz;
   my $dy = $token_sz * 1.25;
   my $dx = $token_sz * 1.25;
-  my $linecolour = darkerpscolour('cube', 0.25);
+  my $linecolour = seatrackedgepscolour();
   my @pos;
   for my $i (0..$#$track) {
     $pos[$i] = mkvec(0, ($i - 0.5 * @$track) * $dy);
-- 
2.30.2