From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Jul 2022 14:22:42 +0000 (+0100)
Subject: places output
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=1b3d23277e6fa8dfede109e4c17cf1d7c6963009;p=quacks.git

places output

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/overflow-tube.ps.pl b/overflow-tube.ps.pl
index 2b06819..1e86ef1 100755
--- a/overflow-tube.ps.pl
+++ b/overflow-tube.ps.pl
@@ -75,7 +75,9 @@ sub places ($) {
 END
   my @line_poses;
 
-  o <<END;
+  my $o = '';
+
+  $o .= <<END;
     gsave
     /Helvetica-Bold findfont 8 scalefont setfont
 END
@@ -97,7 +99,7 @@ END
     $money += 4 * $repi;
     $veeps += 2 * $repi;
 
-    o <<END;
+    $o .= <<END;
 % place $x $y $money $veeps $ruby
 gsave
   $x_pl_zero $y_pl_zero translate
@@ -107,9 +109,11 @@ gsave
 grestore
 END
   }
-  o <<END;
+  $o .= <<END;
     grestore
 END
+
+  $ps_framing .= $o;
 }
 
 sub repis () {