summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/misc/mproof.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/generic/misc/mproof.tex')
-rw-r--r--Master/texmf-dist/tex/generic/misc/mproof.tex28
1 files changed, 28 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/misc/mproof.tex b/Master/texmf-dist/tex/generic/misc/mproof.tex
new file mode 100644
index 00000000000..aac809db3ab
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/misc/mproof.tex
@@ -0,0 +1,28 @@
+% To produce proof sheets from MetaPost output (includes date and time):
+% tex mproof <MetaPost output file names>
+
+\input epsf
+\font\textt=cmtex10 \textt
+\def\okbreak{\vfil\penalty2000\vfilneg}
+
+\def\today{\ifcase\month\or
+ January\or February\or March\or April\or May\or June\or
+ July\or August\or September\or October\or November\or December\fi
+ \space\number\day, \number\year}
+\newcount\m \newcount\n
+\n=\time \divide\n 60 \m=-\n \multiply\m 60 \advance\m \time
+\def\hours{\twodigits\n\twodigits\m}
+\def\twodigits#1{\ifnum #1<10 0\fi \number#1}
+
+\footline={\sevenrm\today\ at \hours\hss\tenrm\folio\hss}
+
+\def\endit{\\}
+\def\munch#1 {\def\next{#1}\ifx\next\endit\endit
+ \else#1$$\epsfverbosetrue\epsfbox{#1}$$\par\okbreak\fi\munch}
+
+\def\\{\let\munch=\relax\def\\{}}
+
+\everypar{\everypar{}\munchline}
+
+\obeylines\def\munchline#1
+{\catcode`\^^M=5 \munch#1\\ \vfill\end}%