% s.w. sirlin  11/24/94
% definitions for tibetan fonts

% from tfilt.c
% modified to allow multiple scales

\font\tibetanzero=gtib scaled\magstep0
\font\tibspzero=gtibsp scaled\magstep0
\font\tenrmzero=cmr10 scaled\magstep0

\font\tibetanone=gtib scaled\magstep1
\font\tibspone=gtibsp scaled\magstep1
\font\tenrmone=cmr10 scaled\magstep1

\def\tsize{%
\def\tibetan{\tibetanzero}%
\def\tibsp{\tibspzero}%
\def\tenrm{\tenrmzero}}

\def\tsizei{%
\def\tibetan{\tibetanone}%
\def\tibsp{\tibspone}%
\def\tenrm{\tenrmone}}


% from tparse.c


%\def\u#1{\vtop{\baselineskip0pt\hbox{#1}\hbox{\tibsp\char123}}}
%%\def\u#1{\vbox{\vtop{\baselineskip0pt\hbox{#1}\hbox{\tibsp\char123}}}}
%%\def\u#1{\hbox{\vtop{\baselineskip0pt\hbox{#1}\hbox{\tibsp\char123}}}}
%%\def\u#1{ \hbox{\vbox{\vphantom t}}
%%\vtop{\baselineskip0pt\hbox{#1}\hbox{\tibsp\char123}}
%%}
%%\def\u#1{ 
%%\vtop{\baselineskip0pt
%%\hbox to 0.2truein{#1}
%%\hbox to 0.2truein{\tibsp\char123}
%%}}
\def\u#1{\strut\vtop{\baselineskip0pt\hbox{#1}\hbox{\tibsp\char123}}}

\hyphenpenalty=10000\parindent=0pt

% stuff for end of sentences
%\setbox\fillerbox\hbox{\vrule height0.4cm  depth0.4cm width0pt} 
%\setbox\fillerbox\hbox{\vrule height0.4cm  depth0.4cm width4pt} 
%\setbox\fillerbox\hbox{\hskip4pt \vrule height0.4cm  depth0.4cm width0pt} 
\newbox\fillerbox
\setbox\fillerbox\hbox{\vrule height0.4cm  depth0.4cm width0pt} 
\def\filler{\copy\fillerbox}

% space at sentence end
\def\tspace{{\hskip1cm plus1cm minus.5cm}}

% space between letter and tsheg
%\def\twspace{\hskip1pt}
\def\twspace{\hskip0pt}


% special characters
\def \swasti{\tibsp\char116\tibetan}

% some new special characters

%\def \ai {\tibsp\accent126\tibetan\char22}
%\def \ai {\vbox{\tibsp\char126 \tibetan\char22}}
\def \ai {
\vbox{\ialign{\hfil##\cr
{\tibsp\char126\hskip3pt}\cr
\noalign{\nointerlineskip}
\tibetan\char22\cr}}
}

%\noalign{\kern-1pt\nointerlineskip}

\def \om {
\vbox{\ialign{##\cr
{\hskip4pt\tibsp\accent0}\cr 
\noalign{\kern-3pt\nointerlineskip}
\hfil\tibsp\accent125\tibetan\char29\hfil\cr }}
}

\def \dme {
\vtop{\ialign{##\cr
{\tibsp\accent127\tibetan\char10}\cr 
{\tibetan\char15}\cr }} 
}

\def \hung {
\vtop{\ialign{##\cr
{\tibsp\accent0\tibetan\char28}\cr 
\noalign{\kern-2pt\nointerlineskip}
{\tibsp\char117}\cr 
\noalign{\kern0pt\nointerlineskip}
{{\hskip2pt}\tibsp\char123}\cr }}
}

\def \hrih{
\vtop{\ialign{##\cr
{\tibsp\accent126\tibetan\char100}\cr 
\noalign{\kern0pt\nointerlineskip}
{\tibsp\char117}\cr }} 
}

% end symbol
\def \endsym{
\vtop{\ialign{##\cr
{\tibsp\char0}\cr
\noalign{\kern -2pt\nointerlineskip}
{\hskip1pt\bf-}\cr
\noalign{\nointerlineskip}
{\tibsp\char0}\cr }} 
}


% operators - new vowels

% m as o above next letter
%\def \altm{{\tibsp\accent0}}
%\def \altm{ \tibsp\accent0\tibetan}
% expect that tfilt will add junk which we need to junk
\def \altm#1{ \tibsp\accent0\tibetan #1}

% m as o above, u below
\def\altmu#1{\vtop{\baselineskip0pt\hbox
{\tibsp\accent0\tibetan #1}\hbox{\tibsp\char123}}}

% m as o below - emphasis
% \def\subm#1{\vtop{\baselineskip0pt\hbox{#1}\hbox{\tibsp\char0}}}
\def\subm#1{
\vtop{\ialign{\hfil##\hfil\cr
\hbox{#1}\cr
\noalign{\kern1pt\nointerlineskip}
\hbox{\tibsp\char0}\cr}}
}

% below
\def\achung#1{\vtop{\baselineskip0pt\hbox{#1}\hbox{\tibsp\char117}}}



%ready to start, default size is 0

\tsize

% end of tibdef.tex