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

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

diff --git a/overflow-tube.ps.pl b/overflow-tube.ps.pl
index 1e86ef1..4102578 100755
--- a/overflow-tube.ps.pl
+++ b/overflow-tube.ps.pl
@@ -73,7 +73,8 @@ sub places ($) {
 	 1 -1	37 16
 	 1  0
 END
-  my @line_poses;
+  my $line;
+  my $line_word = 'moveto';
 
   my $o = '';
 
@@ -93,7 +94,8 @@ END
     $x *= $colspacing;
     $y *= $spacing;
 
-    push @line_poses, "$x $y";
+    $line .= " $x $y $line_word";
+    $line_word = 'lineto';
     next unless defined $money;
 
     $money += 4 * $repi;
@@ -113,7 +115,7 @@ END
     grestore
 END
 
-  $ps_framing .= $o;
+  ("newpath $line stroke", $o)
 }
 
 sub repis () {
@@ -123,7 +125,7 @@ gsave
   $repi $colspacing 2 mul mul  0 translate
 END
 
-    places($repi);
+    o( (places($repi))[1] );
     o(<<END);
 grestore
 END
-- 
2.30.2