From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 1 Mar 2019 13:12:39 +0000 (+0000)
Subject: break out preamble nfc
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=9deee5fa47fb19498c033d150b2e539c7a275cdd;p=pandemic-rising-tide.git

break out preamble nfc
---

diff --git a/generate-board b/generate-board
index 23d626f..621eecd 100755
--- a/generate-board
+++ b/generate-board
@@ -286,6 +286,11 @@ sub pscolour ($) {
 	   'setrgbcolor';
 }
 
+sub preamble() {
+  o("%!\n");
+  o(" 0.52 dup scale\n"); # xxx bodge, want boundingbox or something
+}
+
 sub fill_faces() {
   o("clippath ", pscolour($c{Colours}{land}), " fill\n");
   foreach my $rr (values %region) {
@@ -323,8 +328,7 @@ calculate_centres();
 transform_coordinates();
 adjust_nz();
 
-o("%!\n");
-o(" 0.52 dup scale\n"); # xxx bodge, want boundingbox or something
+preamble();
 fill_faces();
 edge_faces();
 label_faces();