src/doc-sampsty.tex

   1
   2 % Fonts  for 8pt
   3 \font\eightrm=cmr8
   4 \font\eightbf=cmbx8
   5 \font\eightit=cmti8
   6 \font\eightsl=cmsl8
   7 \font\eightmus=cmmi8
   8 \font\eighttt=cmtt8
   9 % Fonts  for 12pt
  10 \font\twelverm=cmr12
  11 \font\twelvebf=cmbx12
  12 \font\twelveit=cmti12
  13 \font\twelvesl=cmsl12
  14 \font\twelvemus=cmmi12
  15 \font\twelvett=cmtt12
  16
  17 \font\bigbf=cmbx12 scaled \magstep3
  18 \font\eightsc=cmcsc10 at 8pt
  19 \font\tensc=cmcsc10
  20 \font\twelvesc=cmcsc10 at 12pt
  21
  22 % Japanese fonts
  23 \input luatexja-core.sty
  24 \loadjfontmetric{mt}{ujis}
  25 \loadjfontmetric{zero}{mono}
  26 \def\minfnt{file:ipam.ttf }
  27 \def\gothfnt{file:ipag.ttf }
  28 \font\eightipam=\minfnt at 10.5\jQ\jfont\eightipam{mt}
  29 \font\eightipag=\gothfnt at 10.5\jQ\jfont\eightipag{mt}
  30 \font\tenipam=\minfnt at 13.5\jQ\jfont\tenipam{mt}
  31 \font\tenjtt=\gothfnt at 13.5\jQ\jfont\tenjtt{zero}
  32 \font\tenipag=\gothfnt at 13.5\jQ\jfont\tenipag{mt}
  33 \font\twelveipam=\minfnt at 16\jQ\jfont\twelveipam{mt}
  34 \font\twelveipag=\gothfnt at 16\jQ\jfont\twelveipag{mt}
  35 \font\bigipag=\gothfnt at 28\jQ\jfont\bigipag{mt}
  36
  37 % Size
  38 \def\large{\def\rm{\textfont0=\twelverm\twelverm\fam0}\def\bf{\twelvebf\gt}%
  39   \let\it=\twelveit  \let\sl=\twelvesl \let\mus=\twelvemus
  40   \let\sc=\twelvesc  \let\tt=\twelvett
  41   \let\mc=\twelveipam \let\gt=\twelveipag
  42   \baselineskip=18pt\rm\mc\xkanjiskip=0.25\zw plus 0.10\zw minus 0.10\zw}
  43
  44 \def\big{\bigbf\bigipag\xkanjiskip=0.25\zw plus 0.10\zw minus 0.10\zw}
  45
  46 \def\normalsize{\def\rm{\textfont0=\tenrm\tenrm\fam0}\def\bf{\tenbf\gt}%
  47   \let\it=\tenit \let\sl=\tensl \let\mus=\tenmus
  48   \let\sc=\tensc \def\tt{\tentt\tenjtt}%
  49   \let\mc=\tenipam \let\gt=\tenipag
  50   \baselineskip=15pt\rm\mc\xkanjiskip=0.25\zw plus 0.10\zw minus 0.10\zw}
  51 \def\small{\def\rm{\textfont0=\eightrm\eightrm\fam0}\def\bf{\eightbf\gt}%
  52   \let\it=\eightit \let\sl=\eightsl \let\mus=\eightmus
  53   \let\sc=\eightsc \def\tt{\eighttt\eightjtt}%
  54   \let\mc=\eightipam \let\gt=\eightipag%
  55   \rm\mc\xkanjiskip=0.25\zw plus 0.10\zw minus 0.10\zw%
  56   \ykbaselineshift=-49807\yabaselineshift=-49807% 0.76 pt
  57 }
  58
  59
  60
  61 % layout
  62 \normalsize\parindent=1\zw\parskip=0pt
  63 \pdfpagewidth=210mm\pdfpageheight=297mm
  64 \hsize=40\zw\hoffset=\dimexpr(\pdfpagewidth-\hsize)/2-1in\relax
  65 \vsize=246mm
  66
  67 % heading
  68 \outer\def\beginsection#1\par{\vskip0pt plus.1\vsize\penalty-250%
  69   \vskip0pt plus-.1\vsize\bigskip\vskip\parskip%
  70   \message{#1}\leftline{\large\bf#1\hskip0.5\zw\hrulefill}\nobreak\smallskip}
  71 \outer\def\beginparagraph#1\par{\vskip0pt plus.1\vsize\penalty-100%
  72   \vskip0pt plus-.1\vsize\medskip\vskip\parskip%
  73   \message{#1}\leftline{\bf■#1}\nobreak}
  74
  75 % verbatim
  76 % borrowed from manmac.tex
  77 \chardef\other=12
  78 \newbox\vspbox
  79 \setbox\vspbox=\hbox{\tt\char32}
  80 {\catcode`\ =\active%\catcode`\%=\active
  81 \gdef\ttverbatim{\begingroup\xkanjiskip=0pt
  82 \catcode`\ =\active\let =~\catcode`\%=\other
  83 \catcode`\\=\other\catcode`\{=\other\catcode`\}=\other
  84 \catcode`\$=\other\catcode`\&=\other\catcode`\#=\other\catcode`\~=\other
  85 \catcode`\_=\other\catcode`\^=\other\catcode"FFFFF=12%" <- needed
  86 \obeyspaces\obeylines\tt}}
  87
  88 \abovedisplayskip=\medskipamount
  89 \abovedisplayshortskip=\medskipamount
  90 \belowdisplayskip=\medskipamount
  91 \belowdisplayshortskip=\medskipamount
  92 %
  93 \outer\def\begintt{$$\let\par=\endgraf \ttverbatim\parskip=0pt\catcode`\|=0 \rightskip-5pc\ttfinish}
  94 {\catcode`\|=0 |catcode`|\=\other% | is temporary escape character
  95 |obeylines% end of line is active
  96 |gdef|ttfinish#1^^M#2\endtt{#1|parindent3|zw|noindent|vbox{#2}|hss|endgroup$$}}
  97
  98 \catcode`\|=\active
  99 {\obeylines \gdef|{\ttverbatim \spaceskip.5em\let^^M=\  \let|=\endgroup}}
 100
 101 \catcode`\<=\active
 102 \def<#1>{{\it$\langle$#1$\rangle$}}
 103
 104 % itemize
 105 \newcount\enumi\enumi=0
 106 \def\item{\par\medskip\leftskip=3\zw\noindent\hskip-1\zw\hbox to 1\zw{\hss$\bullet$\hss}\kern-1\zw　}
 107 \def\itemitem{\par\leftskip=5\zw\noindent\hskip-1\zw\hbox to 1\zw{\hss$-$\hss}\kern-1\zw　}
 108 \def\itemT{\par\leftskip=7\zw\noindent\hskip-1\zw\hbox to 1\zw{\hss$\bullet$\hss}\kern-1\zw　}
 109 \def\enum{\par\medskip\advance\enumi1\leftskip=3\zw\noindent\hskip-1\zw\hbox to 1\zw{\hss\the\enumi.\kern0.5\zw}\kern-1\zw　}
 110 \def\enditem{\medskip\par\enumi=0\leftskip=0pt\parskip=0pt\noindent}
 111
 112
 113 \endinput