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\xkanjiskip=0.25\zw plus 0.10\zw minus 0.10\zw}
  44
  45 \def\big{\bigbf\biggt\xkanjiskip=0.25\zw plus 0.10\zw minus 0.10\zw}
  46
  47 \def\normalsize{\def\rm{\textfont0=\tenrm\tenrm\fam0\let\sx=\sevenrm}%
  48   \def\bf{\tenbf\gt\let\sx=\sevenbf}%
  49   \let\it=\tenit \let\sl=\tensl \let\mus=\tenmus
  50   \let\sc=\tensc \def\tt{\tentt\tenjtt}%
  51   \let\mc=\tenmc \let\gt=\tengt
  52   \baselineskip=15pt\rm\mc\xkanjiskip=0.25\zw plus 1pt minus 1pt}
  53 \def\small{\def\rm{\textfont0=\eightrm\eightrm\fam0}\def\bf{\eightbf\gt}%
  54   \let\it=\eightit \let\sl=\eightsl \let\mus=\eightmus
  55   \let\sc=\eightsc \def\tt{\eighttt\eightjtt}%
  56   \let\mc=\eightmc \let\gt=\eightgt%
  57   \rm\mc\xkanjiskip=0.25\zw plus 1pt minus 1pt%
  58   \ltjsetparameter{yjabaselineshift=-0.76pt, yalbaselineshift=-0.76pt}
  59 }
  60
  61
  62
  63 % layout
  64 \normalsize\parindent=1\zw\parskip=0pt
  65 \pdfpagewidth=210mm\pdfpageheight=297mm
  66 \hsize=43\zw\hoffset=\dimexpr(\pdfpagewidth-\hsize)/2-1in\relax
  67 \vsize=246mm
  68
  69 % heading
  70 \outer\def\beginsection#1\par{\vskip0pt plus.1\vsize\penalty-250%
  71   \vskip0pt plus-.1\vsize\bigskip\vskip\parskip%
  72   \message{#1}\leftline{\large\bf#1\hskip0.5\zw\hrulefill}\nobreak\smallskip}
  73 \outer\def\beginparagraph#1\par{\vskip0pt plus.1\vsize\penalty-100%
  74   \vskip0pt plus-.1\vsize\medskip\vskip\parskip%
  75   \message{#1}\leftline{\bf\char"25A0#1}\nobreak}
  76
  77 % verbatim
  78 % borrowed from manmac.tex
  79 \chardef\other=12
  80 \newbox\vspbox
  81 \setbox\vspbox=\hbox{\tt\char32}
  82 {\catcode`\ =\active\catcode`\_=\active%\catcode`\%=\active
  83 \gdef\ttverbatim{\begingroup\xkanjiskip=0pt
  84 \catcode`\ =\active\let =~\catcode`\%=\other
  85 \catcode`\\=\other\catcode`\{=\other\catcode`\}=\other
  86 \catcode`\$=\other\catcode`\&=\other\catcode`\#=\other\catcode`\~=\other
  87 \catcode`\_=\active\catcode`\^=\other\catcode"FFFFF=12%" <- needed
  88 \let_=\_%
  89 \obeyspaces\obeylines\tt}}
  90
  91 \abovedisplayskip=\medskipamount
  92 \abovedisplayshortskip=\medskipamount
  93 \belowdisplayskip=\medskipamount
  94 \belowdisplayshortskip=\medskipamount
  95 %
  96 \outer\def\begintt{$$\let\par=\endgraf\baselineskip=12pt
  97 \ttverbatim\parskip=0pt\catcode`\|=0 \rightskip-5pc\ttfinish}
  98 {\catcode`\|=0 |catcode`|\=\other% | is temporary escape character
  99 |obeylines% end of line is active
 100 |gdef|ttfinish#1^^M#2\endtt{#1|parindent3|zw|noindent|vbox{#2}|hss|endgroup$$}}
 101
 102 \catcode`\|=\active
 103 {\obeylines \gdef|{\ttverbatim \spaceskip.5em\let^^M=\  \let|=\endgroup}}
 104
 105 {\catcode`\_=\active \global\catcode`\<=\active
 106 \gdef<{\begingroup\catcode`\_=\active\let_=\_\it\@arg}
 107 \gdef\@arg#1>{$\langle$#1\/$\rangle$\endgroup}
 108 }
 109
 110 \def\lvert{\delimiter"426A30C }
 111 \def\rvert{\delimiter"526A30C }
 112
 113 % itemize
 114 \newcount\enumi\enumi=0
 115 \def\item{\par\medskip\leftskip=2\zw\noindent\hskip-1\zw\hbox to 1\zw{\hss$\bullet$\hss}}
 116 \def\itemitem{\par\leftskip=4\zw\noindent\hskip-1\zw\hbox to 1\zw{\hss$-$\hss}}
 117 \def\itemT{\par\leftskip=6\zw\noindent\hskip-1\zw\hbox to 1\zw{\hss$\bullet$\hss}}
 118 \def\enum{\par\medskip\advance\enumi1\leftskip=2\zw\noindent\hskip-1\zw\hbox to 1\zw{\hss\the\enumi.\kern0.5\zw}}
 119 \def\enditem{\medskip\par\enumi=0\leftskip=0pt\parskip=0pt\noindent}
 120
 121 \ltjsetparameter{jaxspmode={`★,0}}
 122
 123 \endinput