some newlines in ps output

diff --git a/generate-board b/generate-board
index 8de6473743d9d75462aeed5948aa68f3dedca415..c57283eeeb54028083112d7bdd96ae6b657e7e5f 100755 (executable)
--- 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");
 }