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:
7a2245f
)
break out arrow_any
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Tue, 26 Oct 2021 01:37:13 +0000
(
02:37
+0100)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Tue, 26 Oct 2021 01:37:13 +0000
(
02:37
+0100)
pumpkin-books.ps.pl
patch
|
blob
|
history
diff --git
a/pumpkin-books.ps.pl
b/pumpkin-books.ps.pl
index 375ed4a2cb785dfcd469d555a771a3f7e76c34a8..d267dc89e92da4b74460af4a6bf845945c0ba475 100755
(executable)
--- a/
pumpkin-books.ps.pl
+++ b/
pumpkin-books.ps.pl
@@
-542,7
+542,18
@@
END
$o;
}
-
+
+sub arrow_any ($) { <<END;
+ $black 1 setlinewidth
+ newpath
+ $_[0]
+ arrowhead dup neg exch rmoveto
+ arrowhead dup neg rlineto
+ arrowhead neg dup rlineto
+ stroke
+END
+};
+
print <<END or die $!;
%!
@@
-576,13
+587,7
@@
$page_pre
} def
/arrow {
- $black 1 setlinewidth
- newpath
- 0 0 moveto arrowlen 0 rlineto
- arrowhead dup neg exch rmoveto
- arrowhead dup neg rlineto
- arrowhead neg dup rlineto
- stroke
+ ${\ arrow_any("0 0 moveto arrowlen 0 rlineto") }
} def
END