doc/s1sty.tex

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