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

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

diff --git a/overflow-tube.ps.pl b/overflow-tube.ps.pl
index 2be98f9..a98ab71 100755
--- a/overflow-tube.ps.pl
+++ b/overflow-tube.ps.pl
@@ -62,16 +62,16 @@ END
 sub places ($) {
   my ($repi) = @_;
   my $data = <<END;
-      -1-H -1
+    -1-L*H -1
 	-1  0	34 14
-	-H  V	34 14 *
+	-H  V	34 14 1
 	 0  0	34 15
 	 0 -1	35 15
 	 0 -2	35 16
-	 H -2-V	35 16 *
+	 H -2-V	35 16 1
 	 1 -2	36 16
 	 1 -1	37 16
-       1+H  0
+     1+R*H  0
 END
   my $line;
   my $line_word = 'moveto';
@@ -86,9 +86,10 @@ END
     s{\#.*}{};
     next unless m/\S/;
     s{^\s*}{};
+    s{L}{ ($repi == 0         ? 1 : 0) }ge;
+    s{R}{ ($repi == $nrepis-1 ? 1 : 0) }ge;
     s{H}{ 0.5 }ge;
     s{V}{ $vhalf / $spacing }ge;
-    s{\*}{1}eg;
     my ($x,$y,$money,$veeps,$ruby) = map { eval $_ } split /\s+/;
     $ruby ||= 0;
     $x *= $colspacing;
-- 
2.30.2