sanskrit

git-svn-id: svn://tug.org/texlive/trunk@1290 c570f23f-e606-0410-a88d-b1316a301751

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