From dd74e3e49b883318ba0434c608f28ae99efb5ef1 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Wed, 6 Mar 2019 15:07:09 +0000 Subject: [PATCH] some newlines in ps output --- generate-board | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) 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"); } -- 2.30.2