From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 4 Mar 2019 01:48:26 +0000 (+0000)
Subject: o_amble
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=1ea66faea32aa1d5ed7ea2929bd104b739c58730;p=pandemic-rising-tide.git

o_amble
---

diff --git a/generate-board b/generate-board
index b2f8e81..70a4e3a 100755
--- a/generate-board
+++ b/generate-board
@@ -312,18 +312,27 @@ sub pscolour ($;$) {
   return $r;
 }
 
+sub o_amble (@) {
+  # CPerl-mode does a really awful thing with %s in the preamble
+  # and postamble, causing constant useless flashing
+  # So we write & in the here docs and transform them back:
+  my ($t) = join '', @_;
+  $t =~ s/^\&+/ '%' x length $& /mge;
+  o($t);
+}
+      
 sub preamble() {
   my $tprinteredge = ($xopts =~ m/M/ ? $max_printeredge : 0) * MM2PT;
   my $xmax = $a4_h - $tprinteredge;
   my $ymax = ($a4_w + $a3_h) - 2 * $max_printeredge - $tprinteredge;
-  o(<<END);
-%!PS-Adobe-3.0
-%%BoundingBox $tprinteredge $tprinteredge $xmax $ymax
-%%Pages: 1
-%%EndComments
-%%BeginProlog
-%%EndProlog
-%%BeginSetup
+  o_amble(<<END);
+&!PS-Adobe-3.0
+&&BoundingBox $tprinteredge $tprinteredge $xmax $ymax
+&&Pages: 1
+&&EndComments
+&&BeginProlog
+&&EndProlog
+&&BeginSetup
 /board {
   gsave
   40 -26 translate
@@ -332,18 +341,18 @@ END
 }
 
 sub postamble () {
-  o(<<END);
+  o_amble(<<END);
   grestore
 } bind def
-%%EndSetup
-%%Page: 1
-%%BeginPageSetup
+&&EndSetup
+&&Page: 1
+&&BeginPageSetup
 /pgsave save def
-%%EndPageSetup
+&&EndPageSetup
 board
 pgsave restore
 showpage
-%%EOF
+&&EOF
 END
 }