diff options
Diffstat (limited to 'Master')
| -rw-r--r-- | Master/texmf-dist/tex/latex/sanskrit/ot1skt.fd | 44 | ||||
| -rw-r--r-- | Master/texmf-dist/tex/latex/sanskrit/skt.sty | 554 |
2 files changed, 598 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/sanskrit/ot1skt.fd b/Master/texmf-dist/tex/latex/sanskrit/ot1skt.fd new file mode 100644 index 00000000000..0fb66941666 --- /dev/null +++ b/Master/texmf-dist/tex/latex/sanskrit/ot1skt.fd @@ -0,0 +1,44 @@ +% +% OT1SKT.FD +% +% LaTeX2e font description file for SKT range of fonts +% ==================================================== +% +% Revision 1.0 1996/02/13 Charles Wikner wikner@nacdh4.nac.ac.za +% Copyright 1996 & 2002 Charles Wikner +% This program can be redistributed and/or modified under the terms +% of the LaTeX Project Public License Distributed from CTAN +% archives in directory macros/latex/base/lppl.txt; either +% version 1 of the License, or any later version. +% +\ProvidesFile{ot1skt.fd}[1995/10/26] +% +\DeclareFontFamily{OT1}{dn}{\hyphenchar\font=-} +% +\DeclareFontShape{OT1}{skt}{m}{n}{ + <5><6><7>skt8% + <8> <9> gen * skt + <10->skt10% +}{} +\DeclareFontShape{OT1}{skt}{m}{sl}{ + <5-10> sub * skt/m/n + <10><10.95><12><14.4><17.28><20.74><24.88> skts10% +}{} +\DeclareFontShape{OT1}{skt}{f}{n}{ + <5-10> sub * skt/m/n + <10><10.95><12><14.4><17.28><20.74><24.88> sktf10% +}{} +\DeclareFontShape{OT1}{skt}{f}{sl}{ + <5-10> sub * skt/m/n + <10><10.95><12><14.4><17.28><20.74><24.88> sktfs10% +}{} +\DeclareFontShape{OT1}{skt}{b}{n}{ + <5-10> sub * skt/m/n + <10><10.95><12><14.4><17.28><20.74><24.88> sktb10% +}{} +\DeclareFontShape{OT1}{skt}{b}{sl}{ + <5-10> sub * skt/m/n + <10><10.95><12><14.4><17.28><20.74><24.88> sktbs10% +}{} +% +\endinput diff --git a/Master/texmf-dist/tex/latex/sanskrit/skt.sty b/Master/texmf-dist/tex/latex/sanskrit/skt.sty new file mode 100644 index 00000000000..70158c88694 --- /dev/null +++ b/Master/texmf-dist/tex/latex/sanskrit/skt.sty @@ -0,0 +1,554 @@ +% +% SKT.STY +% +% Revision 2.0 1996/11/27 Charles Wikner wikner@nacdh4.nac.ac.za +% Revision 2.2 2002/01/02 Charles Wikner wikner@nac.ac.za +% +% Copyright 1996 & 2002 Charles Wikner +% This program can be redistributed and/or modified under the terms +% of the LaTeX Project Public License Distributed from CTAN +% archives in directory macros/latex/base/lppl.txt; either +% version 1 of the License, or any later version. +% +\ProvidesFile{skt.sty}[1995/10/27 skt-series sanskrit fonts] +\RequirePackage{relsize} +\RequirePackage{ifthen} +% +\DeclareOption{xitalic}{% +\def\sktx{\usefont{OT1}{cmr}{m}{it}}% +\def\sktX{\usefont{OT1}{cmr}{bx}{it}}% +} +% +\DeclareOption{iitalic}{% +\def\skti{\usefont{OT1}{cmr}{m}{it}}% +\def\sktI{\usefont{OT1}{cmr}{bx}{it}}% +} +% +\DeclareOption{titalic}{% +\def\sktt{\usefont{OT1}{cmr}{m}{it}}% +\def\sktT{\usefont{OT1}{cmr}{bx}{it}}% +} +% +\DeclareOption{uitalic}{% +\def\sktu{\usefont{OT1}{cmr}{m}{it}}% +\def\sktU{\usefont{OT1}{cmr}{bx}{it}}% +} +% +\DeclareOption{larger}{% +\def\skt{\usefont{OT1}{skt}{m}{n}\larger\sktcommon}% +\def\skts{\usefont{OT1}{skt}{m}{sl}\larger\sktcommon}% +\def\sktb{\usefont{OT1}{skt}{b}{n}\larger\sktcommon}% +\def\sktbs{\usefont{OT1}{skt}{b}{sl}\larger\sktcommon}% +\def\sktf{\usefont{OT1}{skt}{f}{n}\larger\sktcommon}% +\def\sktfs{\usefont{OT1}{skt}{f}{sl}\larger\sktcommon}% +} +\def\sktcommon{\tolerance=10000% + \pretolerance=10000% + \emergencystretch=.2\hsize% + \baselineskip 1.333\baselineskip} +% +\ProcessOptions +% +% if the "xitalic" option is not exercised, then ... +\providecommand{\sktx}{\usefont{OT1}{cmr}{m}{n}}% +\providecommand{\sktX}{\usefont{OT1}{cmr}{bx}{n}} +% +% if the "iitalic" option is not exercised, then ... +\providecommand{\skti}{\usefont{OT1}{cmr}{m}{n}}% +\providecommand{\sktI}{\usefont{OT1}{cmr}{bx}{n}} +% +% if the "titalic" option is not exercised, then ... +\providecommand{\sktt}{\usefont{OT1}{cmr}{m}{n}}% +\providecommand{\sktT}{\usefont{OT1}{cmr}{bx}{n}} +% +% if the "uitalic" option is not exercised, then ... +\providecommand{\sktu}{\usefont{OT1}{cmr}{m}{n}}% +\providecommand{\sktU}{\usefont{OT1}{cmr}{bx}{n}} +% +% if the "larger" option is not exercised, then ... +\providecommand{\skt}{\usefont{OT1}{skt}{m}{n}\sktcommon}% +\providecommand{\skts}{\usefont{OT1}{skt}{m}{sl}\sktcommon}% +\providecommand{\sktb}{\usefont{OT1}{skt}{b}{n}\sktcommon}% +\providecommand{\sktbs}{\usefont{OT1}{skt}{b}{sl}\sktcommon}% +\providecommand{\sktf}{\usefont{OT1}{skt}{f}{n}\sktcommon}% +\providecommand{\sktfs}{\usefont{OT1}{skt}{f}{sl}\sktcommon}% +% +\def\@skt#1{{\skt\number #1}} +% This allows the printing of page numbers in Sanskrit +% using LaTeX command "\pagenumbering{skt}". +% +% The SKT preprocessor makes use of the following commands: +% + +\protect\newcounter{SKTCNTS} +\protect\newcounter{SKTCNTX} +\protect\newcounter{SKTCNTY} +\protect\newcounter{SKTCNTZ} +\newsavebox{\SKTBOXA} +\newsavebox{\SKTBOXB} +\protect\newlength{\SKTDIMV} % vertical dimensions +\protect\newlength{\SKTDIMH} % horizontal dimensions +\protect\newlength{\SKTDIMS} % scratch dimensions +% +\newcommand{\ZB}[1]% +% Imbedded Roman punctuation (#1) printed boldface for sktb. +{\textrm{\textbf{{#1}}}% +} +% +\newcommand{\ZN}[1]% +% Imbedded Roman punctuation (#1) printed boldface for skt. +{\textrm{\textbf{{#1}}}% +} +% +\newcommand{\ZF}[1]% +% Imbedded Roman punctuation (#1) printed normal weight for sktf. +{\textmd{\textrm{{#1}}}% +} +% +\newcommand{\ZX}[1]% +% Print full height sktt capital letter string #1 +{{\relsize{-1}#1}% +} +% +\newcommand{\ZY}[1]% +% Print half height sktt capital letter string #1 +{{\relsize{-3}#1}}% +% +\newcommand{\ZS}[1]% +% Horizontal space `cursor' #1 times 1/24 of 1em. +{\setlength{\SKTDIMS}{.041667em}% + \kern#1\SKTDIMS% +} +% +\newcommand{\ZH}[2]% +% Horizontal space `cursor' #1 times 1/24 of 1em, +% print #2, and return `cursor' to original position. +{\setlength{\SKTDIMS}{.041667em}% + \protect\makebox[0pt][l]{\kern#1\SKTDIMS{{#2}}}% +} +% +\newcommand{\ZV}[2]% +% Vertical space `cursor' #1 times 1/24 of 1ex, +% print #2, and return `cursor' to original position. +% Note: if font is slanted, then increase horizontal +% space by (font slope) * (vertical space). +{\setlength{\SKTDIMS}{.041667ex}% + \setlength{\SKTDIMH}{0ex}% + \setlength{\SKTDIMV}{#1\SKTDIMS}% + \ifthenelse{\lengthtest{\the\fontdimen1\the\font > 0pt}}% + {\setlength{\SKTDIMS}{\the\fontdimen1\the\font}% + \setlength{\SKTDIMS}{.0039062\SKTDIMS}% + \protect\setcounter{SKTCNTS}{\SKTDIMS}% + \setlength{\SKTDIMS}{\theSKTCNTS\SKTDIMV}% + \setlength{\SKTDIMS}{.0039062\SKTDIMS}% + \addtolength{\SKTDIMH}{\SKTDIMS}% + }{}% + \protect\makebox[0pt][l]{\kern\SKTDIMH\protect\raisebox{\SKTDIMV}{{#2}}}% +} +% +\newcommand{\ZW}[1]% +% In sktt mode underline and print string #1 +{\settodepth{\SKTDIMV}{#1}% get character depth + \addtolength{\SKTDIMV}{.45ex}% additional depth before underline + \settowidth{\SKTDIMH}{#1}% get character width + \protect\savebox{\SKTBOXA}{\rule{\SKTDIMH}{.15ex}}% define underline rule +% The next five lines of code determine how much to offset the line +% horizontally so as to line up with the slope of the characters, +% for example when they are italic, the line should shift left slightly. +% The fontdimen1 specificies the amount of horizontal shift per 1pt +% height of the character; this dimension is then loaded into an +% integer counter! The result is a dimensionless slope, which needs +% to be divided by 65536 (2^16) to convert it to a fraction. This +% division is done in two stages to prevent overflows. +% The depth of the rule below the baseline is multiplied by this +% ratio to determine the horizontal shift needed for the underline. + \setlength{\SKTDIMS}{\the\fontdimen1\the\font}% + \setlength{\SKTDIMS}{.0039062\SKTDIMS}% divide by 256 + \protect\setcounter{SKTCNTS}{\SKTDIMS}% see TeX book bottom page 118 + \setlength{\SKTDIMH}{\theSKTCNTS\SKTDIMV}% + \setlength{\SKTDIMH}{.0039062\SKTDIMH}% divide by 256 +% Now print the rule with its horizontal and vertical offsets, as a +% zero-width box, i.e. return 'cursor' to point before printing. + \protect\makebox[0pt][l]{\kern-\SKTDIMH\protect\raisebox{-\SKTDIMV}{\usebox{\SKTBOXA}}}% + {#1}% and finally print the basic character(s). +} +% +\newcommand{\ZZ}[1]% +% Print character #1 with '..' diacritic beneath it +% See \ZW command above for detail; the principle is the same. +{\settodepth{\SKTDIMV}{#1}% + \addtolength{\SKTDIMV}{.5ex}% + \protect\savebox{\SKTBOXA}{{\kern.02em.\kern-.07em.}}% define diacritic +% Diacritic horizontal displacement = ( width(char) - width(accent) ) / 2. + \settowidth{\SKTDIMH}{#1}% + \settowidth{\SKTDIMS}{\usebox{\SKTBOXA}}% + \addtolength{\SKTDIMH}{-\SKTDIMS}% + \setlength{\SKTDIMH}{.5\SKTDIMH}% +% Determine extra horizontal displacement according to font slope. + \setlength{\SKTDIMS}{\the\fontdimen1\the\font}% + \setlength{\SKTDIMS}{.0039062\SKTDIMS}% + \protect\setcounter{SKTCNTS}{\SKTDIMS}% + \setlength{\SKTDIMS}{\theSKTCNTS\SKTDIMV}% + \setlength{\SKTDIMS}{.0039062\SKTDIMS}% + \addtolength{\SKTDIMH}{-\SKTDIMS}% combine the two horizontal displacements +% Now print the diacritic with its horizontal and vertical offsets, +% as a zero-width box, i.e. return 'cursor' to point before printing. + \protect\makebox[0pt][l]{\kern\SKTDIMH{\protect\raisebox{-\SKTDIMV}{\usebox{\SKTBOXA}}}}% + {#1}% and finally print the basic character(s) +} + +\newcommand{\ZA}[2]% +% Print character #2 with additional diacritics +% Range of diacritic code #1 is 0--89, where 0--29 is the accent code +% and 30 is added to this if the vowel is nasalised (\~) as well; and +% a further 30 is added to replace the tilde (\~) by breve(\u). Thus +% 0--29 produces the accent only; 30--59 produces a tilde with accent +% accent above; and 60--89 produces breve with accent above. +% The accent codes are: +% 1 Rigveda svarita (!), 2 Rigveda anudaatta (_), +% 3 Rigveda kampa-3 (__3!), 4 Rigveda kampa-1 (_1!), +% 5 General udaatta (^u), 6 Taittiriiya diirgha svarita (!!), +% 7 Western svarita (\`), 8 Western udaatta (\'), +% 9 Saamaveda udaatta (^1), 10 Saamaveda svarita (^2), +% 11 Saamaveda anudaatta (^3), 12 Saamaveda (^2r), +% 13 Saamaveda (^2u), 14 Saamaveda (^3k), +% 15 Saamaveda (1_), 16 Rig(?)veda (_3!), +% 17 Maitraaya.nii Jaatya Svarita (u), 18 Yajurveda Jaatya Svarita (w), +% 19 Yajurveda Jaatya Svarita (|___), 20 Maitrayaniya Svarita (.), +% 21 Sentence end udaatta (..), 22 Kaa.thaka Anudaatta (!), +% 23 Atharvaveda Jaatya Svarita (s), 24 Kaa.thaka Jaatya (^), +% 25 Maitraaya.nii dependent svarita (!!!). +% +% See \ZW command above for detail; the principle is the similar. +{% + \settoheight{\SKTDIMV}{#2}% + \protect\setcounter{SKTCNTY}{#1}% + \protect\savebox{\SKTBOXA}{#2}% + \setlength{\SKTDIMS}{\the\fontdimen1\the\font}% + \setlength{\SKTDIMS}{.0039062\SKTDIMS}% + \protect\setcounter{SKTCNTX}{\SKTDIMS}% this value will be used in +% horizontally positioning accents for italic fonts; if non-zero, it also +% changes the sans serif font used for some accents, to slanted sans serif. + \ifthenelse{\value{SKTCNTY}>29}% add nasal or breve accent + {\ifthenelse{\value{SKTCNTY}>59}% + {\protect\savebox{\SKTBOXB}{\u{}}\addtocounter{SKTCNTY}{-60}}% + {\protect\savebox{\SKTBOXB}{\~{}}\addtocounter{SKTCNTY}{-30}}% + \addtolength{\SKTDIMV}{-1ex}% +% the next eight lines of code are repeated three more times in this command + \settowidth{\SKTDIMH}{\usebox\SKTBOXA}% + \settowidth{\SKTDIMS}{\usebox\SKTBOXB}% + \addtolength{\SKTDIMH}{-\SKTDIMS}% + \setlength{\SKTDIMH}{.5\SKTDIMH}% + \setlength{\SKTDIMS}{\theSKTCNTX\SKTDIMV}% + \setlength{\SKTDIMS}{.0039062\SKTDIMS}% + \addtolength{\SKTDIMH}{\SKTDIMS}% + \protect\makebox[0pt][l]{\kern\SKTDIMH{\protect\raisebox{\SKTDIMV}{\usebox{\SKTBOXB}}}}% + \protect\setcounter{SKTCNTZ}{#1}% + \ifthenelse{\value{SKTCNTZ}>59} + {\addtolength{\SKTDIMV}{1.6ex}}% raise accents above breve a little more + {\addtolength{\SKTDIMV}{1.5ex}}% + }{}% + \addtolength{\SKTDIMV}{.2ex}% + \ifthenelse{\value{SKTCNTY}>8 \and \value{SKTCNTY}<15}% raise SV accents only + {\ifthenelse{\lengthtest{\SKTDIMV<1.7ex}}% + {\setlength{\SKTDIMV}{1.7ex}}% + {}}% + {}% + \protect\savebox{\SKTBOXB}{{}}% default empty accent box +% Now for the accents themselves: + \ifthenelse{\value{SKTCNTY}=1}% + {\ifthenelse{\value{SKTCNTX}=0}% + {\protect\savebox{\SKTBOXB}{{\relsize{-3}\mdseries\textsf{\i}}}}% + {\protect\savebox{\SKTBOXB}{{\relsize{-3}\mdseries\slshape\textsf{\i}}}}}% + {}% + \ifthenelse{\value{SKTCNTY}=2}% + {\settodepth{\SKTDIMV}{\usebox\SKTBOXA}% + \addtolength{\SKTDIMV}{.4ex}% + \setlength{\SKTDIMV}{-\SKTDIMV}% + \protect\savebox{\SKTBOXB}{\rule{.3em}{.1ex}}}% + {}% + \ifthenelse{\value{SKTCNTY}=3}% + {\settodepth{\SKTDIMV}{\usebox\SKTBOXA}% + \addtolength{\SKTDIMV}{.4ex}% + \setlength{\SKTDIMV}{-\SKTDIMV}% + \protect\savebox{\SKTBOXB}{\rule{.3em}{.1ex}}}% + {}% +% accent code 4 will use the empty accent box + \ifthenelse{\value{SKTCNTY}=5}% + {\protect\savebox{\SKTBOXB}{\protect\raisebox{.1ex}{\relsize{-3}u}}}% + {}% +% \ifthenelse{\value{SKTCNTY}=6}{\protect\savebox{\SKTBOXB}% +% {\rule[.1ex]{.05em}{.6ex}\kern.1em\rule[.1ex]{.05em}{.6ex}}}{}% + \ifthenelse{\value{SKTCNTY}=6}% + {\ifthenelse{\value{SKTCNTX}=0}% + {\protect\savebox{\SKTBOXB}{{\relsize{-3}\mdseries\textsf{\i\i}}}}% + {\protect\savebox{\SKTBOXB}{{\relsize{-3}\mdseries\slshape\textsf{\i\i}}}}}% + {}% + \ifthenelse{\value{SKTCNTY}=7}% + {\protect\savebox{\SKTBOXB}{\`{}}\addtolength{\SKTDIMV}{-1.2ex}}% + {}% + \ifthenelse{\value{SKTCNTY}=8}% + {\protect\savebox{\SKTBOXB}{\'{}}\addtolength{\SKTDIMV}{-1.2ex}}% + {}% + \ifthenelse{\value{SKTCNTY}=9}% + {\ifthenelse{\value{SKTCNTX}=0}% + {\protect\savebox{\SKTBOXB}{{\relsize{-4}\mdseries\textsf{1}}}}% + {\protect\savebox{\SKTBOXB}{{\relsize{-4}\mdseries\slshape\textsf{1}}}}}% + {}% + \ifthenelse{\value{SKTCNTY}=10}% + {\ifthenelse{\value{SKTCNTX}=0}% + {\protect\savebox{\SKTBOXB}{{\relsize{-4}\mdseries\textsf{2}}}}% + {\protect\savebox{\SKTBOXB}{{\relsize{-4}\mdseries\slshape\textsf{2}}}}}% + {}% + \ifthenelse{\value{SKTCNTY}=11}% + {\ifthenelse{\value{SKTCNTX}=0}% + {\protect\savebox{\SKTBOXB}{{\relsize{-4}\mdseries\textsf{3}}}}% + {\protect\savebox{\SKTBOXB}{{\relsize{-4}\mdseries\slshape\textsf{3}}}}}% + {}% + \ifthenelse{\value{SKTCNTY}=12}% + {\ifthenelse{\value{SKTCNTX}=0}% + {\protect\savebox{\SKTBOXB}{{\relsize{-4}\mdseries\textsf{2r}}}}% + {\protect\savebox{\SKTBOXB}{{\relsize{-4}\mdseries\slshape\textsf{2r}}}}}% + {}% + \ifthenelse{\value{SKTCNTY}=13}% + {\ifthenelse{\value{SKTCNTX}=0}% + {\protect\savebox{\SKTBOXB}{{\relsize{-4}\mdseries\textsf{2u}}}}% + {\protect\savebox{\SKTBOXB}{{\relsize{-4}\mdseries\slshape\textsf{2u}}}}}% + {}% + \ifthenelse{\value{SKTCNTY}=14}% + {\ifthenelse{\value{SKTCNTX}=0}% + {\protect\savebox{\SKTBOXB}{{\relsize{-4}\mdseries\textsf{3k}}}}% + {\protect\savebox{\SKTBOXB}{{\relsize{-4}\mdseries\slshape\textsf{3k}}}}}% + {}% +% accent codes 15 and 16 will use the empty accent box + \ifthenelse{\value{SKTCNTY}=17}% + {\settodepth{\SKTDIMV}{\usebox\SKTBOXA}% + \addtolength{\SKTDIMV}{.8ex}% + \setlength{\SKTDIMV}{-\SKTDIMV}% + \ifthenelse{\value{SKTCNTX}=0}% + {\protect\savebox{\SKTBOXB}{{\protect\raisebox{-1ex}[0ex][.4ex]{\mdseries\textsf{\u{}}}}}}% + {\protect\savebox{\SKTBOXB}{{\protect\raisebox{-1ex}[0ex][.4ex]{\mdseries\slshape\textsf{\u{}}}}}}}% + {}% + \ifthenelse{\value{SKTCNTY}=18}% + {\settodepth{\SKTDIMV}{\usebox\SKTBOXA}% + \addtolength{\SKTDIMV}{.3ex}% + \setlength{\SKTDIMV}{-\SKTDIMV}% + \ifthenelse{\value{SKTCNTX}=0}% + {\protect\savebox{\SKTBOXB}{{\protect\raisebox{-1ex}[0ex][.4ex]{\relsize{-3}\mdseries\textsf% + {\u{}\kern-.26em\u{}}}}}}% + {\protect\savebox{\SKTBOXB}{{\protect\raisebox{-1ex}[0ex][.4ex]{\relsize{-3}\mdseries\slshape\textsf% + {\u{}\kern-.26em\u{}}}}}}}% + {}% + \ifthenelse{\value{SKTCNTY}=19}% + {\settodepth{\SKTDIMV}{\usebox\SKTBOXA}% + \addtolength{\SKTDIMV}{.5ex}% + \setlength{\SKTDIMV}{-\SKTDIMV}% + \protect\savebox{\SKTBOXB}{\kern0.05em\rule{.05em}{.3ex}\kern-.05em\rule{.3em}{.10ex}}}% + {}% + \ifthenelse{\value{SKTCNTY}=20}% + {\settodepth{\SKTDIMV}{\usebox\SKTBOXA}% + \addtolength{\SKTDIMV}{.7ex}% + \setlength{\SKTDIMV}{-\SKTDIMV}% + \ifthenelse{\value{SKTCNTX}=0}% + {\protect\savebox{\SKTBOXB}{{\protect\raisebox{-1ex}[0ex][.4ex]{\relsize{-2}\mdseries\textsf{\symbol{"17}}}}}}% + {\protect\savebox{\SKTBOXB}{{\kern-.02em\protect\raisebox{-1ex}[0ex][.4ex]{\relsize{-2}\mdseries\slshape\textsf{\symbol{"17}}}}}}}% + {}% + \ifthenelse{\value{SKTCNTY}=21}% + {\settodepth{\SKTDIMV}{\usebox\SKTBOXA}% + \addtolength{\SKTDIMV}{.7ex}% + \setlength{\SKTDIMV}{-\SKTDIMV}% + \ifthenelse{\value{SKTCNTX}=0}% + {\protect\savebox{\SKTBOXB}{{\kern0.035em\protect\raisebox{-1ex}[0ex][.4ex]{\relsize{-2}\mdseries\textsf% + {\symbol{"17}\kern-.42em\symbol{"17}}}}}}% + {\protect\savebox{\SKTBOXB}{{\kern0.035em\protect\raisebox{-1ex}[0ex][.4ex]{\relsize{-2}\mdseries\slshape\textsf% + {\symbol{"17}\kern-.42em\symbol{"17}}}}}}}% + {}% + \ifthenelse{\value{SKTCNTY}=22}% + {\settodepth{\SKTDIMV}{\usebox\SKTBOXA}% + \addtolength{\SKTDIMV}{0.9ex}% + \setlength{\SKTDIMV}{-\SKTDIMV}% + \ifthenelse{\value{SKTCNTX}=0}% + {\protect\savebox{\SKTBOXB}{{\relsize{-3}\mdseries\textsf\i}}}% + {\protect\savebox{\SKTBOXB}{{\kern.02em\relsize{-3}\mdseries\slshape\textsf\i}}}}% + {}% +% accent code 23 will use the empty accent box + \ifthenelse{\value{SKTCNTY}=24}% + {\settodepth{\SKTDIMV}{\usebox\SKTBOXA}% + \addtolength{\SKTDIMV}{.8ex}% + \setlength{\SKTDIMV}{-\SKTDIMV}% + \ifthenelse{\value{SKTCNTX}=0}% + {\protect\savebox{\SKTBOXB}{{\protect\raisebox{-1ex}{\mdseries\textsf{\^{}}}}}}% + {\protect\savebox{\SKTBOXB}{{\kern-.02em\protect\raisebox{-1ex}[0ex][.4ex]{\mdseries\slshape\textsf{\^{}}}}}}}% + {}% + \ifthenelse{\value{SKTCNTY}=25}% + {\ifthenelse{\value{SKTCNTX}=0}% + {\protect\savebox{\SKTBOXB}{{\relsize{-3}\mdseries\textsf{\i\i\i}}}}% + {\protect\savebox{\SKTBOXB}{{\relsize{-3}\mdseries\slshape\textsf{\i\i\i}}}}}% + {}% +% this space reserved for more accent codes + \settowidth{\SKTDIMH}{\usebox\SKTBOXA}% calculate hor. and vert. offsets + \settowidth{\SKTDIMS}{\usebox\SKTBOXB}% + \addtolength{\SKTDIMH}{-\SKTDIMS}% + \setlength{\SKTDIMH}{.5\SKTDIMH}% + \setlength{\SKTDIMS}{\theSKTCNTX\SKTDIMV}% + \setlength{\SKTDIMS}{.0039062\SKTDIMS}% + \addtolength{\SKTDIMH}{\SKTDIMS}% and then print the accent + \protect\makebox[0pt][l]{\kern\SKTDIMH{\protect\raisebox{\SKTDIMV}{\usebox{\SKTBOXB}}}}% + \usebox{\SKTBOXA}% print the basic character now so that font is restored +% Now for those accents that add a following numeral: + \ifthenelse{\value{SKTCNTY}=3 \or \value{SKTCNTY}=4% + \or \value{SKTCNTY}=15 \or \value{SKTCNTY}=16}% + {\ifthenelse{\value{SKTCNTY}=3 \or \value{SKTCNTY}=16}% + {\protect\savebox{\SKTBOXA}{{\relsize{-2}3}}}% save the numeral + {\protect\savebox{\SKTBOXA}{{\relsize{-2}1}}}% + \protect\savebox{\SKTBOXB}{\rule{.3em}{.1ex}}% calculate hor. line below numeral + \settodepth{\SKTDIMV}{\usebox\SKTBOXA}% + \addtolength{\SKTDIMV}{.4ex}% + \setlength{\SKTDIMV}{-\SKTDIMV}% + \settowidth{\SKTDIMH}{\usebox\SKTBOXA}% + \settowidth{\SKTDIMS}{\usebox\SKTBOXB}% + \addtolength{\SKTDIMH}{-\SKTDIMS}% + \setlength{\SKTDIMH}{.5\SKTDIMH}% + \setlength{\SKTDIMS}{\theSKTCNTX\SKTDIMV}% + \setlength{\SKTDIMS}{.0039062\SKTDIMS}% + \addtolength{\SKTDIMH}{\SKTDIMS}% and then print under-bar + \protect\makebox[0pt][l]{\kern\SKTDIMH{\protect\raisebox{\SKTDIMV}{\usebox{\SKTBOXB}}}}% +% If the accent numeral is to have a vertical line above it, then calculate it: + \ifthenelse{\value{SKTCNTY}=3 \or \value{SKTCNTY}=4 \or \value{SKTCNTY}=16}% + {\ifthenelse{\value{SKTCNTX}=0}% + {\protect\savebox{\SKTBOXB}{{\relsize{-3}\mdseries\textsf{\i}}}}% + {\protect\savebox{\SKTBOXB}{{\relsize{-3}\mdseries\slshape\textsf{\i}}}}% + \settoheight{\SKTDIMV}{\usebox\SKTBOXA}% + \addtolength{\SKTDIMV}{.3ex}% + \settowidth{\SKTDIMH}{\usebox\SKTBOXA}% + \settowidth{\SKTDIMS}{\usebox\SKTBOXB}% + \addtolength{\SKTDIMH}{-\SKTDIMS}% + \setlength{\SKTDIMH}{.5\SKTDIMH}% + \setlength{\SKTDIMS}{\theSKTCNTX\SKTDIMV}% + \setlength{\SKTDIMS}{.0039062\SKTDIMS}% + \addtolength{\SKTDIMH}{\SKTDIMS}% and then print the over-line + \protect\makebox[0pt][l]{\kern\SKTDIMH{\protect\raisebox{\SKTDIMV}{\usebox{\SKTBOXB}}}}} + {}% + \usebox{\SKTBOXA}}% and print the accent numeral itself + {}% +% Now for the <s> accent + \ifthenelse{\value{SKTCNTY}=23}% + {\ifthenelse{\value{SKTCNTX}=0}% + {\protect\savebox{\SKTBOXB}{{\kern.075em{\relsize{-3}\mdseries\textsf% + {\protect\raisebox{.35ex}{\j}\kern-.365em\protect\raisebox{.15ex}{\'{}}}}}}}% + {\protect\savebox{\SKTBOXB}{{\kern.075em{\relsize{-3}\mdseries\slshape\textsf% + {\protect\raisebox{.30ex}{\j}\kern-.385em\protect\raisebox{.10ex}{\'{}}}}}}}% + \usebox{\SKTBOXB}}% print the accent itself + {}% +% Finally, add strut to ensure at least .2ex separation from previous text line. + \settoheight{\SKTDIMS}{\usebox{\SKTBOXB}}% + \addtolength{\SKTDIMV}{\SKTDIMS}% + \addtolength{\SKTDIMV}{.2ex}% + \rule{0pt}{\SKTDIMV}% +} +% +%--------------------------------------------------------------------------- +% + +% +% Print string at relative position x,y: \ZP{x}{y}{string} +% +\newcommand{\ZP}[3]% +% Horizontal space `cursor' #1 times 1/24 of 1em, +% vertical space `cursor' #2 times 1/24 of 1em, +% print #3, and return `cursor' to original position. +% Note: if font is slanted, then increase horizontal +% space by (font slope) * (vertical space). +{\setlength{\SKTDIMS}{.041667em}% +%\typeout{ZP:x=#1,y=#2,z=#3 }% + \setlength{\SKTDIMH}{#1\SKTDIMS}% + \setlength{\SKTDIMS}{.041667ex}% + \setlength{\SKTDIMV}{#2\SKTDIMS}% + \ifthenelse{\lengthtest{\the\fontdimen1\the\font > 0pt}}% + {\setlength{\SKTDIMS}{\the\fontdimen1\the\font}% + \setlength{\SKTDIMS}{.0039062\SKTDIMS}% + \protect\setcounter{SKTCNTS}{\SKTDIMS}% + \setlength{\SKTDIMS}{\theSKTCNTS\SKTDIMV}% + \setlength{\SKTDIMS}{.0039062\SKTDIMS}% + \addtolength{\SKTDIMH}{\SKTDIMS}% + }{}% + \protect\makebox[0pt][l]{\kern\SKTDIMH\protect\raisebox{\SKTDIMV}{{#3}}}% +} + +% +% Print \ZL{xxx} string of encoded mini-chars: +% +\newcommand{\ZL}[1]{\ZT #1{}{}{}\endZT} + +% +% Decode mini-char value and print it, then loop: only used by \ZL. +% +\def\ZT #1#2#3\endZT{\ZC{#1}\symbol{\value{SKTCNTS}}% + \loop% + \ifnum\catcode`#2 > 10% + \ZT #2#3{}\endZT% + \repeat% +} + +% +% Decode a mini-char value in \ZL or \ZM commands. +% +\newcommand{\ZC}[1]{% + \protect\setcounter{SKTCNTS}{`#1}% set value = ASCII code + 128 + \addtocounter{SKTCNTS}{128}% + \ifthenelse{\catcode`#1 = 12}% check for category codes 11 or 12 + {}% + {\ifthenelse{\catcode`#1 = 11}% + {}% + {\errmessage{SKT macro ZC: invalid parameter "#1"}% + \protect\setcounter{SKTCNTS}{0}% set error value to zero. + }% + }%$ +} + +% +% Print encoded mini-char position string \ZM{xycxyc...} +% +\newcommand{\ZM}[1]{\protect\ZR #1!} + +% +% Extract X-position, Y-position, decode mini-char, print it, and loop: +% only used by ZQ command. +% +\def\ZR #1#2#3#4!{% + \ZD{#1}\protect\setcounter{SKTCNTX}{\value{SKTCNTS}}% + \ZD{#2}\protect\setcounter{SKTCNTY}{\value{SKTCNTS}}% + \ZC{#3}\protect\setcounter{SKTCNTZ}{\value{SKTCNTS}}% + \ZP{\theSKTCNTX}{\theSKTCNTY}{\symbol{\theSKTCNTZ}}% + \ifthenelse{\equal{#4}{}}{}{\ZR #4!}% +} + +% +% Decode a position value: only used by \ZM command. +% +\newcommand{\ZD}[1]{% + \protect\setcounter{SKTCNTS}{0}% set default value = 0 + \ifthenelse{\equal{#1}{0}}% if char. not "0", then ... + {}% + {\ifthenelse{\catcode`#1 = 11}% if A-Z or a-z, then ... + {\protect\setcounter{SKTCNTS}{`#1}% convert A-Z to 1-26, + \addtocounter{SKTCNTS}{-64}% and a-z to -(1-26). + \ifthenelse{\value{SKTCNTS} > 32}% + {\protect\setcounter{SKTCNTS}{-\value{SKTCNTS}}% + \addtocounter{SKTCNTS}{32}% + }% + {}% + }% + {\errmessage{SKT macro ZD: invalid parameter "#1"}}% + }% +} + +% +% All naagarii accent characters are in the form \ZK{x} where `x' is the +% accent character. To colour the accents separately, this command may be +% redefined anywhere in the .skt file as \renewcommand{\ZK}[1]{{\red #1}}. +% It actually makes the text easier to read when the accents are coloured. +% +\newcommand{\ZK}[1]{{#1}} + +\endinput |