From 9deee5fa47fb19498c033d150b2e539c7a275cdd Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 1 Mar 2019 13:12:39 +0000
Subject: [PATCH] break out preamble nfc

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

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();
-- 
2.30.2