From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Jul 2022 14:28:25 +0000 (+0100)
Subject: lines
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=dbc82513f6e1d302138ecb3125877b7fcb2134f0;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 ba1cb01..ed30bf4 100755
--- 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';