break out cubeedgepscolur seatrackedgepscolour nfc

diff --git a/generate-board b/generate-board
index 4a971e2ca7e9f7e87c2eb09be45accd5351a23ac..7f1037b2dd6a4b5f637d69c7ec0fb4125ac99478 100755 (executable)
--- 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);