latex_mk/test/otsuberuto_zo_s/aozora.sty

   1 \NeedsTeXFormat{pLaTeX2e}
   2 \ProvidesPackage{aozora}[2004/05/05 v1.0b3 psitau]
   3 \RequirePackage{verbatim}
   4 \RequirePackage{keyval}
   5 %
   6 %スタイルオプション
   7 %
   8 \newif\if@aaaaland \@aaaalandfalse
   9 \newif\if@bbbbb \@bbbbbfalse
  10 \newif\if@twoup \@twoupfalse
  11 \newif\if@nakatoji \@nakatojifalse
  12 \def\aozora@title@style{plain}
  13 \def\aozora@dviware{dvipdfmx}
  14 \define@key{aozora}{title}[plain]{\def\aozora@title@style{#1}}
  15 \define@key{aozora}{dviware}[dvipdfmx]{\def\aozora@dviware{#1}}
  16 \define@key{aozora}{final}[true]{\let\footnote\@gobble}
  17 \define@key{aozora}{draft}[false]{\relax}
  18 \define@key{aozora}{a4land}[false]{\@aaaalandtrue\@bbbbbfalse}
  19 \define@key{aozora}{b5}[false]{\@aaaalandfalse\@bbbbbtrue}
  20 \define@key{aozora}{2up}[false]{\@twouptrue\@nakatojifalse}
  21 \define@key{aozora}{nakatoji}[false]{\@twoupfalse\@nakatojitrue}
  22 \def\ProcessOptionsWithKV#1{%
  23         \let\@tempc\relax%
  24         \let\aozora@tempa\@empty
  25         \@for\CurrentOption:=\@classoptionslist\do{%
  26                 \@ifundefined{KV@#1@\CurrentOption}%
  27                 {}%
  28                 {\edef\aozora@tempa{\aozora@tempa,\CurrentOption,}}%
  29         }%
  30         \edef\aozora@tempa{%
  31                 \noexpand\setkeys{#1}{%
  32                         \aozora@tempa\@ptionlist{\@currname.\@currext}%
  33                 }%
  34         }%
  35         \aozora@tempa
  36 }
  37 \ProcessOptionsWithKV{aozora}
  38 \AtEndOfPackage{%
  39         \let\@unprocessedoptions\relax
  40 }
  41 %graphic packageの読み込み
  42 \RequirePackage[\aozora@dviware]{graphicx}
  43 %
  44 %文字サイズの設定
  45 %
  46 \newlength{\JQ}
  47 \setlength{\JQ}{0.259817mm}
  48 \renewcommand{\normalsize}{%
  49         \@setfontsize\normalsize{13\JQ}{23H}%本文13級  行送り23歯
  50         \abovedisplayskip\z@ \belowdisplayskip\z@
  51         \abovedisplayshortskip\z@ \belowdisplayshortskip\z@
  52         \let\@listi\@listI}
  53 %\normalsize
  54 \setlength\Cht{6.5Q}
  55 \setlength\Cdp{6.5Q}
  56 \setlength\Cwd{13Q}
  57 \setlength\Cvs{\baselineskip}
  58 \setlength\Chs{13Q}
  59 \renewcommand{\small}{%
  60         \@setfontsize\small{12\JQ}{21H}%
  61         \abovedisplayskip\z@ \belowdisplayskip\z@
  62         \abovedisplayshortskip\z@ \belowdisplayshortskip\z@
  63         \let\@listi\@listI}
  64 \renewcommand{\footnotesize}{%
  65         \@setfontsize\footnotesize{11\JQ}{16H}%
  66         \abovedisplayskip\z@ \belowdisplayskip\z@
  67         \abovedisplayshortskip\z@ \belowdisplayshortskip\z@
  68         \let\@listi\@listI}
  69 \renewcommand{\scriptsize}{\@setfontsize\scriptsize{9\JQ}{12H}}
  70 \renewcommand{\tiny}{\@setfontsize\tiny{6.5\JQ}{9H}}
  71 \renewcommand{\large}{\@setfontsize\large{14\JQ}{23H}}
  72 \renewcommand{\Large}{\@setfontsize\Large{18\JQ}{31H}}
  73 \renewcommand{\LARGE}{\@setfontsize\LARGE{20\JQ}{36H}}
  74 \renewcommand{\huge}{\@setfontsize\huge{24\JQ}{40H}}
  75 \renewcommand{\Huge}{\@setfontsize\Huge{36\JQ}{47H}}
  76 \newcommand{\HUGE}{\@setfontsize\HUGE{60}{72}}
  77 \newcommand{\TINY}{\@setfontsize\TINY{3.25\JQ}{4.5H}}
  78 %
  79 %版面の設定
  80 %
  81 \setlength\columnseprule{0pt}
  82 \setlength\marginparsep{0pt}
  83 \setlength\marginparwidth{0pt}
  84 \setlength\columnsep{39H}%段間3文字分
  85 \if@bbbbb
  86         \addtolength\topmargin{0.5cm}
  87         \if@twocolumn
  88                 \setlength\textwidth{819H}%１行63字詰、1段30字詰め
  89         \else
  90                 \PackageError{aozora}{You can't use a onecolumn option in b5.}{Use an twocolumn option.}
  91         \fi
  92         \setlength\textheight{552H}
  93         \@twoupfalse
  94 \else
  95         \if@aaaaland
  96                 \if@twocolumn
  97                         \PackageError{aozora}{You can't use a twocolumn option in a4land.}{Use an onecolumn option.}
  98                 \else
  99                         \setlength\textwidth{650H}%50字詰
 100                 \fi
 101                 \setlength\textheight{943H}
 102                 \@twoupfalse
 103         \else
 104                 \if@twocolumn
 105                         \setlength\textwidth{689H}%１行53字詰、1段25字詰め
 106                 \else
 107                         \setlength\textwidth{650H}%50字詰
 108                 \fi
 109                 \setlength\textheight{414H}
 110         \fi
 111 \fi
 112 \addtolength\textheight{13H}
 113 \setlength\topmargin{-1in}
 114 \addtolength\topmargin{1cm}
 115 \setlength\headheight{20H}
 116 \setlength\topskip{\Cht}
 117 \setlength\headsep{20H}
 118 \setlength{\footskip}{23H}
 119 %左右の空き(版面が左右中央に来るように設定)
 120 \dimen0=\paperwidth
 121 \advance\dimen0 by -\textheight
 122 \oddsidemargin=.5\dimen0
 123 \advance\oddsidemargin by -1in
 124 \evensidemargin=\oddsidemargin
 125 %共通の設定
 126 \kanjiskip=0pt plus .0625zw minus .0625zw%和字間は最大16分まで延び、最大16分縮む
 127 \xkanjiskip=.25zw plus .083zw minus .125zw%和欧文間は最大3分まで延び、最大8分まで縮む
 128 \maxdepth=\topskip
 129 %段落の設定
 130 \setlength\parskip{0pt}
 131 \setlength\parsep{0pt}
 132 \setlength\partopsep{0pt}
 133 \setlength\parindent{0pt}
 134 \raggedbottom
 135 \AtBeginDocument{\obeylines}
 136 %
 137 %行整形用パラメータ
 138 %
 139 \clubpenalty=0
 140 \widowpenalty=0
 141 \jcharwidowpenalty=0
 142 \displaywidowpenalty=0
 143 \prebreakpenalty\jis"2147=10000      % 5000   ’
 144 \postbreakpenalty\jis"2148=10000     % 5000   “
 145 \prebreakpenalty\jis"2149=10000      % 5000   ”
 146 \inhibitxspcode`〒=2
 147 \prebreakpenalty\jis"2133=10000
 148 \prebreakpenalty\jis"2134=10000
 149 \prebreakpenalty\jis"2135=10000
 150 \prebreakpenalty\jis"2136=10000
 151 %
 152 %fontの設定
 153 %
 154 \def\chapterfont{\mcfamily\bfseries}%\chapterの見出し
 155 \def\headfont{\gtfamily\sffamily}%\section, \subsetionの見出し
 156 \def\titlefont{\gtfamily\bfseries}%題名のフォント
 157 \def\subtitlefont{\gtfamily}%副題のフォント
 158 \def\authorfont{\gtfamily}%著者のフォント
 159 %
 160 % chapterの再定義
 161 %
 162 \def\chapter#1{%
 163         \cleardoublepage
 164         \if@twocolumn
 165                 \@restonecoltrue\onecolumn
 166         \else
 167                 \@restonecolfalse\newpage
 168         \fi
 169         \thispagestyle{empty}%
 170         \let\footnotesize\small
 171         \let\footnoterule\relax
 172         \begingroup
 173         \def\rubykatuji{\rubyfamily\small}
 174         \vbox to\textheight\bgroup\tate\hsize\textwidth
 175                 \vfil
 176                 {\centering\Huge\chapterfont #1\par}%
 177                 \vfil
 178         \egroup
 179         \endgroup
 180         \markboth{}{#1}
 181         \addcontentsline{toc}{chapter}{#1}
 182         \if@restonecol\twocolumn \else \newpage \fi
 183 }
 184 \def\@chapter[#1]#2{%著者名付き
 185         \cleardoublepage
 186         \if@twocolumn
 187                 \@restonecoltrue\onecolumn
 188         \else
 189                 \@restonecolfalse\newpage
 190         \fi
 191         \thispagestyle{empty}%
 192         \let\footnotesize\small
 193         \let\footnoterule\relax
 194         \begingroup
 195         \def\rubykatuji{\rubyfamily\small}
 196         \vbox to\textheight\bgroup\tate\hsize\textwidth
 197                 \vfil
 198                 {\centering\Huge\chapterfont #2\par}%
 199                 {\centering\huge\chapterfont #1\par}%
 200                 \vfil
 201         \egroup
 202         \endgroup
 203         \markboth{}{#2}
 204         \addcontentsline{toc}{chapter}{#2　#1}
 205         \if@restonecol\twocolumn \else \newpage \fi
 206 }
 207 %
 208 %セクションの再定義
 209 %
 210 \def\@startsection#1#2#3#4#5#6{%
 211         \if@noskipsec \leavevmode \fi
 212         \par
 213         \@tempskipa #4\relax
 214         \@afterindenttrue
 215         \ifdim \@tempskipa <\z@
 216                 \@tempskipa -\@tempskipa \@afterindentfalse
 217         \fi
 218         \if@nobreak
 219                 \ifnum#2=2\vspace{\sectosubsec}\fi
 220                 \everypar{}%
 221         \else
 222                 \addpenalty\@secpenalty
 223                 \ifdim \@tempskipa >\z@
 224                         \null
 225                         \vspace*{-\baselineskip}\vskip\@tempskipa
 226                 \fi
 227         \fi
 228         \noindent
 229         \@ifstar
 230         {\@ssect{#3}{#4}{#5}{#6}}%
 231         {\@dblarg{\@sect{#1}{#2}{#3}{#4}{#5}{#6}}}}
 232
 233 \def\@sect#1#2#3#4#5#6[#7]#8{%
 234         \ifnum #2>\c@secnumdepth
 235                 \let\@svsec\@empty
 236         \else
 237                 \refstepcounter{#1}%
 238                 \protected@edef\@svsec{\@seccntformat{#1}\relax}%
 239         \fi
 240         \@tempskipa #5\relax
 241         \ifdim \@tempskipa<\z@
 242                 \def\@svsechd{%
 243                         #6{\hskip #3\relax
 244                         \@svsec #8}%
 245                 \csname #1mark\endcsname{#7}%
 246                 \addcontentsline{toc}{#1}{%
 247                 \ifnum #2>\c@secnumdepth \else
 248                         \protect\numberline{\csname the#1\endcsname}%
 249                 \fi
 250                 #7}}
 251         \else
 252                 \begingroup
 253                         \interlinepenalty \@M
 254                         #6{%
 255                         \@hangfrom{\hskip #3\relax\@svsec}%
 256                         #8\@@par}%
 257                 \endgroup
 258                 \csname #1mark\endcsname{#7}%
 259                 \addcontentsline{toc}{#1}{%
 260                 \ifnum #2>\c@secnumdepth \else
 261                         \protect\numberline{\csname the#1\endcsname}%
 262                 \fi
 263                 #7}% 目次にフルネームを載せるなら #8
 264         \fi
 265         \@xsect{#5}}
 266 %
 267 %***************from ipsj style file*******************
 268 %
 269 %% Modify \@xsect to avoid (buggy) \clubpenalty=10000. (H.N.)
 270 %
 271 \def\@xsect#1{\@tempskipa #1\relax
 272         \ifdim \@tempskipa<\z@
 273                 \glboal\@nobreakfalse \global\@noskipsectrue
 274                 \everypar{\global\@noskipsecfalse \hskip-\parindent
 275                         \begingroup \@svsechd \endgroup \unskip
 276                         \hskip -#1\everypar{}}%
 277         \else
 278                 \par \nobreak
 279                 \vskip \@tempskipa \global\@nobreaktrue
 280                 \everypar{\global\@nobreakfalse
 281                         \if@afterindent\else {\setbox0\lastbox}\fi%
 282                         \everypar{}}%
 283         \fi\ignorespaces}
 284
 285 \def\@ssect#1#2#3#4#5{%
 286         \@tempskipa #3\relax
 287         \ifdim \@tempskipa<\z@
 288                 \def\@svsechd{#4{\hskip #1\relax #5}}
 289         \else
 290                 \begingroup
 291                         #4{%
 292                         \@hangfrom{\hskip #1}%
 293                         \interlinepenalty \@M #5\@@par}%
 294                 \endgroup
 295         \fi
 296         \@xsect{#3}}
 297 %
 298 %セクション
 299 %
 300 \def\metadata#1{\relax}
 301 \def\subtitle#1{\gdef\@subtitle{#1}}
 302 \def\subauthor#1{\gdef\@subauthor{#1}}
 303 \renewcommand{\section}{\@startsection{section}{1}{\z@}{23H}{23H}{\@sectionfont}}%3行取り
 304 \renewcommand{\subsection}{\@startsection{subsection}{2}{\z@}%
 305   {11.5H}{11.5H}{\@subsectionfont}}%2行取り、sectionの直後だと合わせて4行取り
 306 \def\@sectionfont{\reset@font\seclarge\headfont}
 307 \def\@subsectionfont{\reset@font\subseclarge\headfont}
 308 \newcommand{\seclarge}{\@setfontsize\seclarge{18\JQ}{23H}}
 309 \newcommand{\subseclarge}{\@setfontsize\subseclarge{14\JQ}{23H}}
 310 \newlength{\sectosubsec}
 311 \setlength{\sectosubsec}{-11.5H}
 312 %
 313 %タイトル部分
 314 %
 315 \def\biblioname{青空文庫}
 316 \def\azbanner{\hbox{\yoko\includegraphics[height= 1.5cm]{azlogo.eps}}\hspace*{50Q}}
 317 \renewcommand{\maketitle}{
 318         \cleardoublepage
 319         \if@twoup
 320                 \c@page=0
 321                 \null\thispagestyle{empty}\clearpage
 322         \fi
 323         \if@twocolumn
 324                 \@restonecoltrue\onecolumn
 325         \else
 326                 \@restonecolfalse\newpage
 327         \fi
 328         \thispagestyle{empty}
 329         \setcounter{page}\@ne
 330         \begingroup
 331         \let\footnotesize\small
 332         \let\footnoterule\relax
 333         \let\thanks\p@thanks
 334         \let\footnote\thanks
 335         \if@bbbbb
 336                         \@ifundefined{\aozora@title@style @b5}
 337                                 {\plain@a5}%
 338                                 {\expandafter\csname\aozora@title@style @b5\endcsname}
 339         \else
 340                 \if@aaaaland
 341                         \@ifundefined{\aozora@title@style @a4land}
 342                                 {\plain@a4land}%
 343                                 {\expandafter\csname\aozora@title@style @a4land\endcsname}
 344                 \else
 345                         \@ifundefined{\aozora@title@style @a5}
 346                                 {\plain@a5}%
 347                                 {\expandafter\csname\aozora@title@style @a5\endcsname}
 348                 \fi
 349         \fi
 350         \endgroup
 351         \clearpage
 352         \thispagestyle{empty}
 353         \az@title@back
 354         \if@restonecol\twocolumn \else \newpage \fi
 355         \clearpage
 356         \setcounter{footnote}{0}%
 357         \global\let\thanks\relax
 358         \global\let\p@thanks\relax
 359         \global\let\@thanks\@empty
 360         \global\let\@author\@empty
 361         \global\let\@date\@empty
 362         \global\let\@title\@empty
 363         \global\let\date\relax
 364         \global\let\and\relax
 365 }%
 366 \def\az@title@back{%タイトルの裏
 367         \vbox to\textheight{\vss%
 368                 \hbox to\textwidth{\tate\hfill\azbanner}
 369                 \vss
 370         }%
 371 }
 372 %
 373 %デフォルトのタイトルページ
 374 %
 375 \@namedef{plain@a5}{\begingroup
 376         \def\rubykatuji{\rubyfamily\small}
 377         \vbox to\textheight\bgroup\tate\hsize\textwidth
 378                 \null\vfil
 379                 \begin{center}%
 380                 {\Huge\titlefont \@title \par}%
 381                 \@ifundefined{@subtitle}{\relax}{{\vskip 0.5em\huge\subtitlefont \@subtitle \par}}
 382                 \vskip 3em%
 383                 {\huge
 384                 \lineskip .75em%
 385                 \begin{tabular}[t]{c}%
 386                 \authorfont\@author
 387                 \@ifundefined{@subauthor}{\relax}{\\\authorfont\@subauthor}
 388                 \end{tabular}\par}%
 389                 \end{center}\par
 390                 \vfil\null
 391         \egroup
 392         \endgroup
 393 }
 394 \@namedef{plain@a4land}{\begingroup
 395         \def\rubykatuji{\rubyfamily\small}
 396         \vbox to \textwidth\bgroup\yoko\hsize\textheight
 397         \null\vfil
 398         \begin{center}%
 399                 {\HUGE\titlefont\kanjiskip 0pt plus 0pt minus 0pt \@title \par}%
 400                 \vskip 3em%
 401                 {\Huge
 402                         \lineskip .75em%
 403                         \begin{tabular}[t]{c}%
 404                                 \authorfont\@author
 405                                 \@ifundefined{@subauthor}{\relax}{\\\authorfont\@subauthor}
 406                         \end{tabular}\par}%
 407         \end{center}\par
 408         \vfil\null
 409         \egroup
 410         \endgroup
 411 }
 412 \def\cleardoublepage{\clearpage
 413         \ifodd\c@page
 414         \else
 415                 \hbox{}\thispagestyle{empty}\newpage
 416                 \if@twocolumn\hbox{}\newpage\fi
 417         \fi
 418 }
 419 % マクロなど
 420 \def\ruby{\kana}
 421 \def\Ruby#1#2{\kana[2]{#1}{#2}}
 422 \def\RUBY#1#2{\kana[3]{#1}{#2}}
 423 \let\KANA=\KANAtop
 424 \def\——{—\kern-.5zw—\kern-.5zw—}
 425 \newenvironment{jisage}[1]{\advance\leftskip#1zw}{}
 426 \def\sirogomabou#1{\bgroup\renewcommand{\boutenchar}{\hbox to 1zh{\tate\hfil\tiny\ajWhiteSesame}}\bou{#1}\egroup}
 427 \def\marubou#1{\bgroup\renewcommand{\boutenchar}{\hbox to 1zh{\tate\hfil\tiny●}}\bou{#1}\egroup}
 428 \def\siromarubou#1{\bgroup\renewcommand{\boutenchar}{\hbox to 1zh{\tate\hfil\tiny○}}\bou{#1}\egroup}
 429 \def\kurosankakubou#1{\bgroup\renewcommand{\boutenchar}{\hbox to 1zh{\tate\hfil\tiny▲}}\bou{#1}\egroup}
 430 \def\sirosankakubou#1{\bgroup\renewcommand{\boutenchar}{\hbox to 1zh{\tate\hfil\tiny△}}\bou{#1}\egroup}
 431 \def\nijyuumarubou#1{\bgroup\renewcommand{\boutenchar}{\hbox to 1zh{\tate\hfil\tiny◎}}\bou{#1}\egroup}
 432 \def\jyanomebou#1{\bgroup\renewcommand{\boutenchar}{\hbox to 1zh{\tate\hfil\tiny\UTF{25C9}}}\bou{#1}\egroup}
 433 \def\ajKunojiwithsirogomaBou{\bgroup\renewcommand{\boutenchar}{\hbox to 1zh{\tate\hfil\tiny\ajWhiteSesame}}\ajKunojiwithBou\egroup}
 434 \def\ajKunojiwithmaruBou{\bgroup\renewcommand{\boutenchar}{\hbox to 1zh{\tate\hfil\tiny●}}\ajKunojiwithBou\egroup}
 435 \def\ajKunojiwithsiromaruBou{\bgroup\renewcommand{\boutenchar}{\hbox to 1zh{\tate\hfil\tiny○}}\ajKunojiwithBou\egroup}
 436 \def\ajKunojiwithkurosankakuBou{\bgroup\renewcommand{\boutenchar}{\hbox to 1zh{\tate\hfil\tiny▲}}\ajKunojiwithBou\egroup}
 437 \def\ajKunojiwithsirosankakuBou{\bgroup\renewcommand{\boutenchar}{\hbox to 1zh{\tate\hfil\tiny△}}\ajKunojiwithBou\egroup}
 438 \def\ajKunojiwithnijyuumaruBou{\bgroup\renewcommand{\boutenchar}{\hbox to 1zh{\tate\hfil\tiny◎}}\ajKunojiwithBou\egroup}
 439 \def\ajKunojiwithjyanomeBou{\bgroup\renewcommand{\boutenchar}{\hbox to 1zh{\tate\hfil\tiny\UTF{25C9}}}\ajKunojiwithBou\egroup}
 440 \def\ajDKunojiwithsirogomaBou{\bgroup\renewcommand{\boutenchar}{\hbox to 1zh{\tate\hfil\tiny\ajWhiteSesame}}\ajDKunojiwithBou\egroup}
 441 \def\ajDKunojiwithmaruBou{\bgroup\renewcommand{\boutenchar}{\hbox to 1zh{\tate\hfil\tiny●}}\ajDKunojiwithBou\egroup}
 442 \def\ajDKunojiwithsiromaruBou{\bgroup\renewcommand{\boutenchar}{\hbox to 1zh{\tate\hfil\tiny○}}\ajDKunojiwithBou\egroup}
 443 \def\ajDKunojiwithkurosankakuBou{\bgroup\renewcommand{\boutenchar}{\hbox to 1zh{\tate\hfil\tiny▲}}\ajDKunojiwithBou\egroup}
 444 \def\ajDKunojiwithsirosankakuBou{\bgroup\renewcommand{\boutenchar}{\hbox to 1zh{\tate\hfil\tiny△}}\ajDKunojiwithBou\egroup}
 445 \def\ajDKunojiwithnijyuumaruBou{\bgroup\renewcommand{\boutenchar}{\hbox to 1zh{\tate\hfil\tiny◎}}\ajDKunojiwithBou\egroup}
 446 \def\ajDKunojiwithjyanomeBou{\bgroup\renewcommand{\boutenchar}{\hbox to 1zh{\tate\hfil\tiny\UTF{25C9}}}\ajDKunojiwithBou\egroup}
 447 \def\kaeriten#1{%
 448         \nobreak\setbox1\hbox{あ}\setbox2\hbox{\tiny あ}
 449         \ifdim\ht1=\ht2
 450                 \setbox1\hbox{あ}\setbox2\hbox{\TINY あ}
 451                 \dimen1=\ht1 \advance\dimen1 by -\ht2
 452                 \raisebox{-\dimen1}{\TINY #1}%
 453         \else
 454                 \dimen1=\ht1 \advance\dimen1 by -\ht2
 455                 \raisebox{-\dimen1}{\tiny #1}%
 456         \fi
 457 }%
 458 \def\okurigana#1{%
 459         \nobreak\setbox1\hbox{あ}\setbox2\hbox{\tiny あ}
 460         \ifdim\ht1=\ht2
 461                 \setbox1\hbox{あ}\setbox2\hbox{\TINY あ}
 462                 \dimen1=\ht1 \advance\dimen1 by -\ht2
 463                 \raisebox{\dimen1}{\TINY #1}%
 464         \else
 465                 \dimen1=\ht1 \advance\dimen1 by -\ht2
 466                 \raisebox{\dimen1}{\tiny #1}%
 467         \fi
 468 }%
 469 \def\bousen#1{#1}
 470 \if@twoup
 471         \dimen0=2\paperwidth
 472         \AtBeginDvi{\special{pdf: pagesize height \the\paperheight\space width \the\dimen0}}
 473         \RequirePackage[notombow, spread]{1010crop}
 474 \fi
 475 \if@nakatoji \else
 476         \AtBeginDvi{\special{pdf: pagesize height \the\paperheight\space width \the\paperwidth}}
 477         \AtBeginDvi{\special{pdf:docview <</ViewerPreferences <</Direction /R2L>> >>}}
 478 \fi
 479 \newcounter{notecount}
 480 \setcounter{notecount}{0}
 481 \def\thenotecount{\@arabic\c@notecount}
 482 \def\endnote#1{%
 483         \stepcounter{notecount}%
 484         \raisebox{0.75zh}{\tiny\ajTsumekakko{\c@notecount}}%
 485         \expandafter\gdef\csname note@\number\c@notecount\endcsname{#1}%
 486 }
 487 \def\endnotehead{後註}
 488 \def\theendnotes{%
 489         \@ifundefined{note@1}{\relax}{%
 490                 \expandafter\subsection*{\endnotehead}%
 491                 \@tempcnta=\thenotecount\relax%
 492                 \advance\@tempcnta by1\relax%
 493                 \setcounter{notecount}{0}%
 494                 \begin{description}
 495                 \loop
 496                         \stepcounter{notecount}
 497                 \ifnum\@tempcnta>\c@notecount
 498                         \item[\ajTsumekakko{\c@notecount}]\csname note@\number\c@notecount\endcsname\par
 499                         \global\expandafter\let\csname note@\number\c@notecount\endcsname=\@undefined%
 500                 \repeat
 501                 \end{description}
 502         }%
 503         \setcounter{notecount}{0}%
 504 }
 505 %
 506 %複數文書の同時処理
 507 %
 508 \def\ArticleInput#1{%
 509         \begingroup
 510                 \def\documentclass[##1]##2{\relax}
 511                 \def\usepackage{\@ifnextchar[{\az@temp@usepackage}{\az@temp@usepackage[]}}
 512                 \def\az@temp@usepackage[##1]##2{\relax}
 513                 \def\maketitle{\@chapter[\@author]{\@title}}
 514                 \def\document{\relax}
 515                 \let\enddocument\endinput
 516                 \renewenvironment{teihon}{\comment}{\endcomment}
 517                 \def\renewenvironment##1##2##3{\relax}
 518                 \input{#1}
 519         \endgroup
 520 }
 521 \def\articleinput#1{%
 522         \begingroup
 523                 \def\documentclass[##1]##2{\relax}
 524                 \def\usepackage{\@ifnextchar[{\az@temp@usepackage}{\az@temp@usepackage[]}}
 525                 \def\az@temp@usepackage[##1]##2{\relax}
 526                 \def\maketitle{\chapter{\@title}}
 527                 \def\author##1{\relax}
 528                 \def\document{\relax}
 529                 \let\enddocument\endinput
 530                 \renewenvironment{teihon}{\comment}{\endcomment}
 531                 \def\renewenvironment##1##2##3{\relax}
 532                 \input{#1}
 533         \endgroup
 534 }
 535 %
 536 %ヘッダの定義
 537 %
 538 \def\ps@aozora{\let\ps@jpl@in\ps@headnombre
 539         \let\@oddfoot\@empty\let\@evenfoot\@empty
 540         \def\@evenhead{\footnotesize\hfil\leftmark\hspace*{36H}\thepage\hspace*{13H}\null}%
 541         \def\@oddhead{\footnotesize\null\hspace*{13H}\thepage\hspace*{36H}\rightmark\hfil}%
 542         \let\@mkboth\markboth
 543 }
 544 \pagestyle{aozora}
 545 %
 546 %底本の処理の変更（ダミー環境）
 547 %
 548 \newenvironment{teihon}{\relax}{\relax}
 549 %
 550 %目次の体裁の設定
 551 %
 552 \def\addcontentsline#1#2#3{%
 553         \protected@write\@auxout
 554         {\let\label\@gobble \let\index\@gobble \let\glossary\@gobble
 555         \@temptokena{\rensuji{\ajLabel\ajTsumesuji2{page}}}}%
 556         {\string\@writefile{#1}%
 557         {\protect\contentsline{#2}{#3}{\the\@temptokena}}}%
 558 }
 559 \setcounter{tocdepth}{0}%目次に載るのは\chapterまで
 560 \renewcommand{\@pnumwidth}{2zw}
 561 \setlength\toclineskip{\z@}
 562 \def\contentsname{目\hskip2zw 次}
 563 \renewcommand{\tableofcontents}{%
 564         \if@twocolumn\@restonecoltrue\onecolumn\else\@restonecolfalse\fi
 565         \begingroup
 566                 \if@twoup \clearpage\else \cleardoublepage\fi
 567                 \pagestyle{empty}
 568                 \vspace*{1\baselineskip}
 569                 {\leftskip13zw\mcfamily\contentsname\par}
 570                 \vspace*{0.5\baselineskip}
 571                 \@starttoc{toc}%
 572                 \clearpage
 573         \endgroup
 574         \if@restonecol\twocolumn\fi
 575 }
 576 \renewcommand*{\l@chapter}[2]{%
 577         \ifnum \c@tocdepth >\m@ne
 578                 \begingroup
 579                         \vspace{0.5\baselineskip}
 580                         \rightskip\@pnumwidth
 581                         \advance\rightskip15zw
 582                         \parfillskip-\@pnumwidth
 583                         \leftskip10zw
 584                         \leavevmode
 585                         #1\hskip1zw\nobreak\leaders\hbox to 1zw{…}\hfil\nobreak\hbox to\@pnumwidth{\hss#2}\par
 586                 \endgroup
 587         \fi
 588 }
 589 %
 590 %タイトルページのヴァリエーション
 591 %
 592 \def\reserved@a{webomints}
 593 \ifx\aozora@title@style\reserved@a
 594         \@namedef{webomints@a5}{\begingroup
 595                 \def\wb##1##2{\fontsize{##1}{##2}\usefont{U}{webo}{xl}{n}}
 596                 \def\rubykatuji{\rubyfamily\small}
 597                 \def\titlefont{\mcfamily\bfseries\propshape}
 598                 \def\authorfont{\mcfamily}
 599                 \if@restonecol \dimen1=0.92\textwidth \else \dimen1=0.97\textwidth\fi
 600                 \leavevmode\hspace*{3mm}\hbox to 0pt{%
 601                 \vbox to \dimen1\bgroup\yoko\hsize\textheight
 602                         \hbox to \textheight{{\wb{36bp}{36bp}A}\hfil{\wb{36bp}{36bp}B}}\par
 603                         \vskip 100pt
 604                         \begin{center}%
 605                         \begin{minipage}{0.8\textheight}
 606                         {\centering\Huge\titlefont \@title \par}%
 607                         \@ifundefined{@subtitle}{\relax}{{\vskip 0.5em\centering\huge\subtitlefont \@subtitle \par}}
 608                         \end{minipage}
 609                         \vskip 30pt%
 610                         {\huge
 611                         \lineskip .75em%
 612                         \begin{tabular}[t]{c}%
 613                         \authorfont\@author
 614                         \@ifundefined{@subauthor}{\relax}{\\\authorfont\@subauthor}
 615                         \end{tabular}\par}%
 616                         \vfil
 617                         {\wb{15bp}{15bp}8}\par
 618                         \vskip 15pt%
 619                         {\large\mcfamily\bfseries \biblioname \par}%
 620                         \end{center}\par
 621                         \hbox to \textheight{{\wb{36bp}{36bp}C}\hfil{\wb{36bp}{36bp}D}}\par
 622                 \egroup
 623                 \hss}
 624                 \endgroup
 625         }
 626 \fi
 627 \def\reserved@a{framed}
 628 \ifx\aozora@title@style\reserved@a
 629         \RequirePackage{niceframe}
 630         \@namedef{framed@a5}{\begingroup
 631                 \def\rubykatuji{\rubyfamily\small}
 632                 \def\titlefont{\mcfamily\bfseries}
 633                 \def\authorfont{\mcfamily}
 634                 \if@restonecol \dimen1=0.92\textwidth \else \dimen1=0.97\textwidth\fi
 635                 \leavevmode\hspace*{3mm}\hbox to 0pt{%
 636                 \vbox to \dimen1\bgroup\yoko\hsize\textheight
 637                         \vskip 60pt
 638                         \hbox to \textheight{\hss\niceframe[0.8\textheight]{%
 639                         \begin{center}%
 640                         \begin{minipage}{0.6\textheight}
 641                         {\centering\Huge\titlefont \@title \par}%
 642                         \@ifundefined{@subtitle}{\relax}{{\vskip 0.5em\centering\huge\subtitlefont \@subtitle \par}}
 643                         \end{minipage}
 644                         \vskip 10pt%
 645                         {\huge
 646                         \lineskip .75em%
 647                         \begin{tabular}[t]{c}%
 648                         \authorfont\@author
 649                         \@ifundefined{@subauthor}{\relax}{\\\authorfont\@subauthor}
 650                         \end{tabular}\par}%
 651                         \vskip 20pt
 652                         {\ding C}\par
 653                         \vskip 5pt%
 654                         {\large\mcfamily\bfseries \biblioname \par}%
 655                         \end{center}\par
 656                         }\hss}
 657                 \egroup
 658                 \endgroup
 659         }
 660 \fi
 661 \endinput