break out preamble nfc

diff --git a/generate-board b/generate-board
index 23d626f224751b16961f6b45d6ffe00812726de6..621eecd5dd0113540c284ab94ad30348c2ae4ca1 100755 (executable)
--- 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();