From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 6 Mar 2019 15:07:09 +0000 (+0000)
Subject: some newlines in ps output
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=dd74e3e49b883318ba0434c608f28ae99efb5ef1;p=pandemic-rising-tide.git

some newlines in ps output
---

diff --git a/generate-board b/generate-board
index 8de6473..c57283e 100755
--- a/generate-board
+++ b/generate-board
@@ -814,16 +814,16 @@ sub hs_initial_1 ($$$;$$$) {
   o("    550 1705 translate\n");
   o("    ", ($xi*$interval), " ", (($yi-1)*$interval), " translate\n");
   if ($fn) {
-    o("  gsave");
+    o("  gsave\n");
     o("        $demo_h setlinewidth 0 0 moveto $demo_w 0 rlineto\n");
     o("        ", facepscolour($colour), " stroke grestore\n");
   }
   one_hs($colour, mkvec(0,0));
   if ($fn) {
-    o("    /words {");
-    o("      2 copy moveto                      ($text) show");
-    o("      2 copy moveto 0 -$text_sz rmoveto ($text2) show");
-    o("    } bind def");
+    o("    /words {\n");
+    o("      2 copy moveto                      ($text) show\n");
+    o("      2 copy moveto 0 -$text_sz rmoveto ($text2) show\n");
+    o("    } bind def\n");
     o("    gsave ".($hs_sz * 0.8)." $cube_gap translate wordsshow grestore\n");
     o("    $demo_x0 ",($hs_sz * -0.25)," translate\n");
     $fn->();
@@ -848,13 +848,13 @@ sub hs_initial () {
 
 sub play_hint () {
   my $sz = 20;
-  o("  gsave ",miscpscolour('hinttext')," 260 1715 translate");
-  o("  /Helvetica-Bold findfont $sz scalefont setfont");
+  o("  gsave ",miscpscolour('hinttext')," 260 1715 translate\n");
+  o("  /Helvetica-Bold findfont $sz scalefont setfont\n");
   my @t = split /\n/, $c{PlayHint};
   foreach my $i (0..$#t) {
     my $t = $t[$i];
     $t =~ s/[\\()]/\\$&/g;
-    o("  0 ",(-$i * $sz)," moveto ($t) show");
+    o("  0 ",(-$i * $sz)," moveto ($t) show\n");
   }
   o("  grestore");
 }