From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Jul 2022 14:44:16 +0000 (+0100)
Subject: lines
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=c30957587d9e7b3516e42f5f4de721687183695d;p=quacks.git

lines

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

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;