2 %% lltjcore.sty: derived from plcore.dtx in pLaTeX.
3 %% This file does not include the code relating to "tategaki".
6 \newif\iftombow \tombowfalse
7 \newif\iftombowdate \tombowdatetrue
9 \setlength{\@tombowwidth}{.1\p@}
10 \newbox\@TL\newbox\@Tl
12 \newbox\@TR\newbox\@Tr
13 \newbox\@BL\newbox\@Bl
15 \newbox\@BR\newbox\@Br
18 \font\@bannerfont=cmtt9
22 \setbox\@TL\hbox to\z@{\yoko\hss
23 \vrule width13mm height\@tombowwidth depth\z@
24 \vrule height10mm width\@tombowwidth depth\z@
26 \raise4pt\hbox to\z@{\hskip5mm\@bannerfont\the\@bannertoken\hss}%
28 \setbox\@Tl\hbox to\z@{\yoko\hss
29 \vrule width10mm height\@tombowwidth depth\z@
30 \vrule height13mm width\@tombowwidth depth\z@}%
31 \setbox\@TC\hbox{\yoko
32 \vrule width10mm height\@tombowwidth depth\z@
33 \vrule height10mm width\@tombowwidth depth\z@
34 \vrule width10mm height\@tombowwidth depth\z@}%
35 \setbox\@TR\hbox to\z@{\yoko
36 \vrule height10mm width\@tombowwidth depth\z@
37 \vrule width13mm height\@tombowwidth depth\z@\hss}%
38 \setbox\@Tr\hbox to\z@{\yoko
39 \vrule height13mm width\@tombowwidth depth\z@
40 \vrule width10mm height\@tombowwidth depth\z@\hss}%
41 \setbox\@BL\hbox to\z@{\yoko\hss
42 \vrule width13mm depth\@tombowwidth height\z@
43 \vrule depth10mm width\@tombowwidth height\z@}%
44 \setbox\@Bl\hbox to\z@{\yoko\hss
45 \vrule width10mm depth\@tombowwidth height\z@
46 \vrule depth13mm width\@tombowwidth height\z@}%
47 \setbox\@BC\hbox{\yoko
48 \vrule width10mm depth\@tombowwidth height\z@
49 \vrule depth10mm width\@tombowwidth height\z@
50 \vrule width10mm depth\@tombowwidth height\z@}%
51 \setbox\@BR\hbox to\z@{\yoko
52 \vrule depth10mm width\@tombowwidth height\z@
53 \vrule width13mm depth\@tombowwidth height\z@\hss}%
54 \setbox\@Br\hbox to\z@{\yoko
55 \vrule depth13mm width\@tombowwidth height\z@
56 \vrule width10mm depth\@tombowwidth height\z@\hss}%
57 \setbox\@CL\hbox to\z@{\yoko\hss
58 \vrule width10mm height.5\@tombowwidth depth.5\@tombowwidth
59 \vrule height10mm depth10mm width\@tombowwidth}%
60 \setbox\@CR\hbox to\z@{\yoko
61 \vrule height10mm depth10mm width\@tombowwidth
62 \vrule height.5\@tombowwidth depth.5\@tombowwidth width10mm\hss}%
66 \vbox to\z@{\kern-13mm\relax
67 \moveleft3mm\vbox to\@@paperheight{%
68 \hbox to\@@paperwidth{\hskip3mm\relax
69 \copy\@TL\hfill\copy\@TC\hfill\copy\@TR\hskip3mm}%
71 \hbox to\@@paperwidth{\copy\@Tl\hfill\copy\@Tr}%
73 \hbox to\@@paperwidth{\copy\@CL\hfill\copy\@CR}%
75 \hbox to\@@paperwidth{\copy\@Bl\hfill\copy\@Br}%
77 \hbox to\@@paperwidth{\hskip3mm\relax
78 \copy\@BL\hfill\copy\@BC\hfill\copy\@BR\hskip3mm}%
83 \newdimen\@@paperheight
84 \newdimen\@@paperwidth
87 \begingroup % the \endgroup is put in by \aftergroup
89 \dimen\z@\textwidth \textwidth\textheight \textheight\dimen\z@
91 \let \protect \noexpand
93 \global\let\@@if@newlist\if@newlist
99 \aftergroup\set@typeset@protect
101 \global\@specialpagefalse\@nameuse{ps@\@specialstyle}%
104 \ifodd\count\z@ \let\@thehead\@oddhead \let\@thefoot\@oddfoot
105 \iftdir\let\@themargin\evensidemargin
106 \else\let\@themargin\oddsidemargin\fi
107 \else \let\@thehead\@evenhead
108 \let\@thefoot\@evenfoot
109 \iftdir\let\@themargin\oddsidemargin
110 \else\let\@themargin\evensidemargin\fi
112 \@@topmargin\topmargin
114 \@@paperwidth\paperwidth \advance\@@paperwidth 6mm\relax
115 \@@paperheight\paperheight \advance\@@paperheight 16mm\relax
116 \advance\@@topmargin 1in\relax \advance\@themargin 1in\relax
123 \let\glossary\@gobble
124 \baselineskip\z@skip \lineskip\z@skip \lineskiplimit\z@
128 \moveright\@themargin\vbox{%
129 \setbox\@tempboxa \vbox to\headheight{%
133 \hb@xt@\textwidth{\@thehead}%
140 \baselineskip \footskip
143 \hb@xt@\textwidth{\@thefoot}%
147 \global\let\if@newlist\@@if@newlist
148 \global \@colht \textheight
150 \let\firstmark\botmark
152 \def\@verbatim{\trivlist \item\relax
153 \if@minipage\else\vskip\parskip\fi
154 \leftskip\@totalleftmargin\rightskip\z@skip
155 \parindent\z@\parfillskip\@flushglue\parskip\z@skip
160 \leavevmode \null \@@par\penalty\interlinepenalty
163 \ifhmode\@@par\penalty\interlinepenalty\fi
165 \let\do\@makeother \dospecials \catcode"FFFFF=12 %"
166 \obeylines \verbatim@font \@noligs
167 \hyphenchar\font\m@ne
168 \everypar \expandafter{\the\everypar \unpenalty}%
170 \def\verb{\relax\ifmmode\hbox\else\leavevmode\null\fi
172 \verb@eol@error \let\do\@makeother \dospecials \catcode"FFFFF=12 %"
173 \verbatim@font\@noligs
174 \@ifstar\@sverb\@verb}