summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/metapost/mproof.tex
blob: aac809db3ab3c4d5f6fd900d1cfc5ba7433e114b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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}%