chiark
/
gitweb
/
~ianmdlvl
/
quacks.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
overflow-tube: wip cut2 (whitespace)
[quacks.git]
/
overflow-tube.ps.pl
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
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
GR
} def
END