lines

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

diff --git a/overflow-tube.ps.pl b/overflow-tube.ps.pl
index ba1cb01c63e7f77b95e86f54b51058da55433981..ed30bf46e5c2e80de03a26ae3d6bbd5d087c3a38 100755 (executable)
--- a/overflow-tube.ps.pl
+++ b/overflow-tube.ps.pl
@@ -62,7 +62,7 @@ END
 sub places ($) {
   my ($repi) = @_;
   my $data = <<END;
-       -1 -1
+      -1-H -1
        -1  0   34 14
        -H  V   34 14 *
         0  0   34 15
@@ -71,7 +71,7 @@ sub places ($) {
         H -2-V 35 16 *
         1 -2   36 16
         1 -1   37 16
-        1  0
+       1+H  0
 END
   my $line;
   my $line_word = 'moveto';