path: root/fonts/cyrillic/old_slavonic/izhitsa/izhitsa.sty

%
% The style file is intended to use Izhitsa font.

% The command \<size>Slav (<size>=twl,elv,ten,nin,egt..) loads izhitsa
%    at a definite size. It works both in Plain TeX and LaTeX.
% The command \Slav loads izhitsa font at size of the outer text.
%    It works with LaTeX only. The scheme applied supposes that 
%    the font \<size>rmsl is invoked when roman in the outer 
%    text is set by \<size>rm. 
% If the message "SLAV STYLE: font ... not found" appears,
%   the below list of fonts should be augmented.
%
% The usage of the commands looks like the following
%   ...{\Slav abc {\small abc} abc {\tenSlav abc} abc}...
%
% Both \<size>Slav and \Slav make a number of useful definition 
%   (\titlo, \title, \ttl, accents and special symbols), which are
%   local within the group containing \[size]Slav. 
%
% Oleg Motygin  mov@snark.ipme.ru
%

\catcode`\@=11

\ifx\slav@@loaded\relax\endinput\else\let\slav@@loaded=\relax\fi

\long\def\@ifundefined#1#2#3{\expandafter\ifx\csname
  #1\endcsname\relax#2\else#3\fi}

\newif\ifslav@sz@defd
\slav@sz@defdfalse

\font\svtnrmsl=izh1251 scaled \magstep2\relax
\font\svtnrmslind=izh1251 scaled 833\relax
\def\svtnSlav{\gdef\slav@sz{svtn}\slav@sz@defdtrue\slavmode}


\font\frtnrmsl=izh1251 scaled \magstep1\relax
\font\frtnrmslind=izh1251 scaled 760\relax
\def\frtnSlav{\gdef\slav@sz{frtn}\slav@sz@defdtrue\slavmode}

\font\twlrmsl=izh1251 scaled \magstephalf\relax
\font\twlrmslind=izh1251 scaled 694\relax
\def\twlSlav{\gdef\slav@sz{twl}\slav@sz@defdtrue\slavmode}

\font\elvrmsl=izh1251\relax
\font\elvrmslind=izh1251 scaled 634\relax
\def\elvSlav{\gdef\slav@sz{elv}\slav@sz@defdtrue\slavmode}

\font\tenrmsl=izh1251 scaled 913\relax
\font\tenrmslind=izh1251 scaled 579\relax
\def\tenSlav{\gdef\slav@sz{ten}\slav@sz@defdtrue\slavmode}

\font\ninrmsl=izh1251 scaled 833\relax
\font\ninrmslind=izh1251 scaled 528\relax
\def\ninSlav{\gdef\slav@sz{nin}\slav@sz@defdtrue\slavmode}

\font\egtrmsl=izh1251 scaled 760\relax
\font\egtrmslind=izh1251 scaled 482\relax
\def\egtSlav{\gdef\slav@sz{egt}\slav@sz@defdtrue\slavmode}

\font\sevrmsl=izh1251 scaled 694\relax
\font\sevrmslind=izh1251 scaled 420\relax
\def\sevSlav{\gdef\slav@sz{sev}\slav@sz@defdtrue\slavmode}


\def\parslav{\lineskiplimit=0pt\lineskip=0.2ex}

\newdimen\hat@@sq

\def\gobble#1{}

\let\v@@@v=\v%
\let\u@@@u=\"%


\def\slavmode{%
\def\v##1{\hbox{\bf\v@@@v{\Slav ##1}}}%
\def\u##1{\hbox{\bf\u@@@u{\Slav ##1}}}%
\def\rr{\mbox{$>$}}%
\def\ll{\mbox{$<$}}%
\def\"##1{{\accent17##1}}%
\def\`##1{{\accent18##1}}%
\def\'##1{{\accent19##1}}%
\def\ced##1{{\accent20##1}}%
\def\cedr##1{{\accent21##1}}%
\def\cedl##1{{\accent22##1}}%
\def\ddd##1{{\accent28##1}}%
%
\def\hatsq##1{\dimen\hat@@sq=##1%
\dimen\hat@@sq=0.9\dimen\hat@@sq%
\advance\dimen\hat@@sq by 0.135em%
\ifdim \dimen\hat@@sq>0.7em \dimen\hat@@sq=0.9em\fi%
\setbox0=\hbox{\vrule height0.5ex depth-0.25ex width0.07em%
\vrule height0.5ex depth-0.45ex width0.5\dimen\hat@@sq\kern-0.275em%
\vrule height0.45ex depth-0.4ex width0.5\dimen\hat@@sq%
\vrule height0.65ex depth-0.4ex width0.07em%
}\kern-0.05em\raise0.02ex\copy0}%
%
\def\slavstrut{\hbox{\vrule width0pt height2.2ex}}%
%
\def\titlo##1{\leavevmode\hbox{\setbox0\hbox{##1}%
\dimen0=\ht0\advance\dimen0 by -0.15ex%
\ifdim \dimen0<1.09ex \dimen0=1.09ex\fi%
\setbox1=\hbox{\make@@box[\wd0]{\raise@@box{\dimen0}{\hatsq{\wd0}}}\kern-\wd0##1}%
\ht1=1.8ex\copy1}}%
%
\def\titlet##1##2{\leavevmode\hbox{\setbox0\hbox{##2}\setbox2\hbox{\ind@slav ##1}%
\dimen0=\dp2\advance\dimen0 by \ht0\advance\dimen0 by 0.2ex%
%\ifdim \dimen0>1.45ex \dimen0=1.45ex\fi%
\setbox1=\hbox{\make@@box[\wd0]{\raise@@box{\dimen0}%
{\make@@box[0pt]{\ind@slav ##1}\raise@@box{.2ex}%
{\make@@box[0pt]{\char30}}}}\kern-\wd0##2}\ht1=2.2ex\copy1}}%
%
\def\ttl##1##2{\leavevmode\hbox{\setbox0\hbox{##2}\setbox2\hbox{\ind@slav ##1}%
\dimen0=\dp2\advance\dimen0 by \ht0\advance\dimen0 by 0.2ex%
%\ifdim \dimen0>1.65ex \dimen0=1.45ex\fi%
\setbox1=\hbox{\make@@box[\wd0]{\raise@@box{\dimen0}{\make@@box[0pt]%
{\ind@slav##1}}}\kern-\wd0##2}\ht1=2.2ex\copy1}}%
%
\chardef\å='003%
\chardef\Å='002%
\chardef\Ó='004%
\chardef\ó='005%
\chardef\i='154%
\chardef\I='114%
\chardef\ê='137%
\chardef\h='375%
\chardef\H='335%
\chardef\à='011%
\chardef\À='010%
\def\éà{\char'013}%
\def\ÉÀ{\char'012}%
\chardef\w='147%
\chardef\W='107%
\chardef\ÿ='357%
\chardef\ß='237%
\chardef\þ='015%
\chardef\Þ='014%
\chardef\j='001%
\chardef\J='000%
\def\ppmb##1{\setbox0=\hbox{##1}%
\hbox{\kern-.035em\copy0\kern-\wd0%
\kern.07em\copy0\kern-\wd0%
\kern-.035em\box0}}%
\edef\TTT{\ppmb{$\cdot\kern0.4em\cdot$}\llap{$\vcenter{\hbox{:\kern0.1em}}$\kern0.275em}}%
\def\jh{\j\kern-0.04em h}%
\def\N{\setbox0=\hbox{I}\hbox{\copy0\kern-0.5\wd0%
\vrule width0.36em height0.85ex depth-0.75ex\kern-0.5\wd0\copy0}}%
\ifslav@sz@defd%
\edef\t@@t{\def\noexpand\a@@a{\csname\slav@sz rmsl\endcsname}}\t@@t%
\edef\r@@r{\def\noexpand\ind@slav{\csname\slav@sz rmslind\endcsname}}\r@@r%
\else%
\def\ap@@pa##1{\edef\a@@a{\def\noexpand\a@@a{\csname%
\expandafter\gobble\string##1sl\endcsname}}\a@@a}%
\def\ap@@ind##1{\edef\ind@slav{\def\noexpand\ind@slav{\csname%
\expandafter\gobble\string##1slind\endcsname}}\ind@slav}%
\reset@font\rm%
\edef\t@@t{\the\font}%
\expandafter\ap@@pa\t@@t%
\expandafter\ap@@ind\t@@t%
\expandafter\ifx\a@@a \relax \typeout{SLAV STYLE: %
font `\a@@a' not found (tenrmsl at 10pt substituted).}%
\let\a@@a=\tenrmsl\global\let\ind@slav=\tenrmslind\fi%
\fi%
\a@@a}


\def\slav#1{{\Slav #1}}

\def\raise@@box#1#2{\hbox{\raise#1\hbox{#2}}}

\def\make@@box[#1]#2{\hbox to #1{\hss\hbox{#2}\hss}}

\def\Slav{\slav@sz@defdfalse\slavmode%
\let\tiny@@slav=\tiny%
\def\tiny{\tiny@@slav\slav@sz@defdfalse\slavmode}%
\let\scriptsize@@slav=\scriptsize%
\def\scriptsize{\scriptsize@@slav\slav@sz@defdfalse\slavmode}%
\let\footnotesize@@slav=\footnotesize%
\def\footnotesize{\footnotesize@@slav\slav@sz@defdfalse\slavmode}%
\let\small@@slav=\small%
\def\small{\small@@slav\slav@sz@defdfalse\slavmode}%
\let\normalsize@@slav=\normalsize%
\def\normalsize{\normalsize@@slav\slav@sz@defdfalse\slavmode}%
\let\large@@slav=\large%
\def\large{\large@@slav\slav@sz@defdfalse\slavmode}%
\let\Large@@slav=\Large%
\def\Large{\Large@@slav\slav@sz@defdfalse\slavmode}%
\let\LARGE@@slav=\LARGE%
\def\LARGE{\LARGE@@slav\slav@sz@defdfalse\slavmode}%
\let\huge@@slav=\huge%
\def\huge{\huge@@slav\slav@sz@defdfalse\slavmode}%
\let\Huge@@slav=\Huge%
\def\Huge{\Huge@@slav\slav@sz@defdfalse\slavmode}%
}