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:
89587f8
)
break out $page_pre nfc
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Tue, 26 Oct 2021 01:18:05 +0000
(
02:18
+0100)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Tue, 26 Oct 2021 01:18:05 +0000
(
02:18
+0100)
pumpkin-books.ps.pl
patch
|
blob
|
history
diff --git
a/pumpkin-books.ps.pl
b/pumpkin-books.ps.pl
index 9fb22d25bf1287dde72ca3684a16c07952a79e07..dc040049249275f98d3e66839f8d0466ab51db75 100755
(executable)
--- a/
pumpkin-books.ps.pl
+++ b/
pumpkin-books.ps.pl
@@
-14,6
+14,13
@@
my $white = ["1 1 1", "0 0 0"];
my $anychip = ['0.8', '0'];
+our $page_pre = <<END;
+72 25.4 div dup scale
+%210 0 translate
+%90 rotate
+7 10 translate
+END
+
sub colour ($) {
my ($c) = @_;
if ($c =~ m{^(\d+)/(\d+)/(\d+)$}) {
@@
-486,10
+493,7
@@
END
print <<END or die $!;
%!
-72 25.4 div dup scale
-%210 0 translate
-%90 rotate
-7 10 translate
+$page_pre
/tw 57.5 def
/th 73 def