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