lines

[quacks.git] / overflow-tube.ps.pl

diff --git a/overflow-tube.ps.pl b/overflow-tube.ps.pl
index 2be98f90166b75f16de7b9d97edf9abab7ad5cb3..a98ab71d471dd4695bec490132619eacf8a974c1 100755 (executable)
--- 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;