From 1b3d23277e6fa8dfede109e4c17cf1d7c6963009 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Jul 2022 15:22:42 +0100
Subject: [PATCH] places output

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 overflow-tube.ps.pl | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

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 () {
-- 
2.30.2