From 0232b9e15d3f0b7d8ab6a1d70bee8273d1cc4924 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Jul 2022 15:27:23 +0100
Subject: [PATCH] lines

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

diff --git a/overflow-tube.ps.pl b/overflow-tube.ps.pl
index 4102578..ba1cb01 100755
--- a/overflow-tube.ps.pl
+++ b/overflow-tube.ps.pl
@@ -93,6 +93,8 @@ END
     $ruby ||= 0;
     $x *= $colspacing;
     $y *= $spacing;
+    $x += $x_pl_zero;
+    $y += $y_pl_zero;
 
     $line .= " $x $y $line_word";
     $line_word = 'lineto';
@@ -104,7 +106,6 @@ END
     $o .= <<END;
 % place $x $y $money $veeps $ruby
 gsave
-  $x_pl_zero $y_pl_zero translate
   $x $y translate
   gsave ${\ chip($anychip, 0) } grestore
   -5 0 moveto ($money) show
@@ -115,20 +116,23 @@ END
     grestore
 END
 
-  ("newpath $line stroke", $o)
+  (" newpath $line stroke ", $o)
 }
 
 sub repis () {
-  for my $repi (0..$nrepis-1) {
-    o(<<END);
+  for my $places_i (qw(0 1)) {
+    for my $repi (0..$nrepis-1) {
+      o(<<END);
+% repi $places_i $repi
 gsave
   $repi $colspacing 2 mul mul  0 translate
 END
 
-    o( (places($repi))[1] );
-    o(<<END);
+      o( (places($repi))[$places_i] );
+      o(<<END);
 grestore
 END
+    }
   }
 }
 
-- 
2.30.2