doc/s1sty.tex

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