From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Jul 2022 14:24:58 +0000 (+0100)
Subject: places output
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=77cecbf5c40536c66ec4e8c967845385747d006e;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 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