chiark
/
gitweb
/
~ianmdlvl
/
quacks.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
0e02e2e
)
overflow-tube: wip cut2 (whitespace)
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sat, 12 Nov 2022 16:42:33 +0000
(16:42 +0000)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sat, 12 Nov 2022 16:42:33 +0000
(16:42 +0000)
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
overflow-tube.ps.pl
patch
|
blob
|
history
diff --git
a/overflow-tube.ps.pl
b/overflow-tube.ps.pl
index be1eb64b4ca8a1090ca1ecb29c035c0c0db45f66..5f15bfeb9f4e894de79c1276527382e2a2efb686 100755
(executable)
--- a/
overflow-tube.ps.pl
+++ b/
overflow-tube.ps.pl
@@
-55,14
+55,14
@@
END
o <<GS, some_cut_line(<<GR), <<END;
/cut_line {
GS
- newpath
- $x_cut2
0
moveto
- $x_cut2
$y_cut2
lineto
- $x_cut
$y_cut2 $y_cut2d add
lineto
- $x_cut
$y_cut
lineto
- 0
$y_cut $y_cutd add
lineto
- 0
$y_top
lineto
- stroke
+
newpath
+ $x_cut2
0
moveto
+ $x_cut2
$y_cut2
lineto
+ $x_cut
$y_cut2 $y_cut2d add
lineto
+ $x_cut
$y_cut
lineto
+ 0
$y_cut $y_cutd add
lineto
+ 0
$y_top
lineto
+
stroke
GR
} def
END