blob: 3ba730c1eeddc64ceb50e399125743f009f4eb83 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
%
% File: otibet-mule.tex
% Date: Fri Dec 19 08:30:56 1997
% Author: (norbert)
%
\def\setbelow#1#2\relax{%
\leavevmode\vtop{\baselineskip0pt \lineskip0pt %
\ialign{##\crcr#2\relax\crcr\hidewidth#1\hidewidth\crcr}}}
\def\setabove#1#2\relax{%
\leavevmode\vbox{\baselineskip0pt \lineskip0pt %
\ialign{##\crcr\hidewidth#1\hidewidth\crcr#2\relax\crcr}}}
\def\turn#1#2\stop{%
#2\stop #1}
\def\stop{\relax}
\ocp\tibin=tibetan-mule2uni
\ocp\tibout=tibout
\ocp\tibspecial=tibspecial
\ocp\tibvowel=tibvowel
\ocplist\tibetantrans=
\addbeforeocplist 1 \tibin
\addbeforeocplist 4 \tibspecial
\addbeforeocplist 5 \tibvowel
\addbeforeocplist 6 \tibout
\nullocplist
\let\latintrans=\nullocplist
\let\TibetanInputOcpList=\tibetantrans
\font\tibetan=otibetan
\let\TibetanActualFont=\tibetan
\def\tbfamily{\pushocplist\TibetanInputOcpList\TibetanActualFont }
% internals
\newskip\doubleshadskipamount
\doubleshadskipamount=\bigskipamount
\newskip\shadskipamount
\shadskipamount=\bigskipamount
\def\makeendsym{{\tbfamily
\leavevmode\vtop{\ialign{##\cr
\char"1030 \cr
\noalign{\kern -2pt\nointerlineskip}
{\hskip1pt\rm-}\cr
\noalign{\nointerlineskip}
\char"1030 \cr }}
}}
\def\prot@ctor{\char"FF }
\def\subjoin#1{\prot@ctor#1}
\def\protectvowel#1{\prot@ctor#1}
\def\ai{'i}
\def\hrih{{\tbfamily hr'i }}
\def\dme{{\tbfamily d\subjoin{m}e}}
\def\hung{{\tbfamily h\vowelaa u\anusvara}}
\def\altm#1{#1\anusvara}
\def\altmu#1{#1u\anusvara}
\def\achung#1{#1\vowelaa}
\def\subm#1{#1\subjoin{0}}
|
