From 24840f774af9b6beda84ed5cfa1173ac491c77d8 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 1 Mar 2019 12:57:30 +0000
Subject: [PATCH] break out psvec

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

diff --git a/generate-board b/generate-board
index e44c55c..5b7fa99 100755
--- a/generate-board
+++ b/generate-board
@@ -259,6 +259,11 @@ sub adjust_nz() {
   }
 }
 
+sub psvec ($) {
+  my ($pos) = @_;
+  sprintf "%20.6f %20.6f", $pos->get(0),$pos->get(1)
+}
+
 sub write_face_edges() {
   o("5 setlinewidth 1 setlinejoin\n");
   foreach my $rr (values %region) {
@@ -269,8 +274,7 @@ sub write_face_edges() {
     # xxx ordering: must do all fills then all strokes
     foreach my $vertex (@{ $rr->{Polygon} }) {
       my $pos = $vertex->{Pos};
-      # xxx break this out
-      o(sprintf "    %20.6f %20.6f %s\n", $pos->get(0),$pos->get(1), $xto);
+      o(sprintf "    %s %s\n", psvec($pos), $xto);
       $xto = 'lineto';
     }
     o("    closepath\n");
-- 
2.30.2