blob: 06b8bcd118076990fd7d18dc9e677643c9f93fd8 (
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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% File: ctib.tex
% Author: Sam Sirlin
% Modified by: Oliver Corff
% Date: October 10th, 1999
% Version: \CtibVersionRelease
%
% Description: The ctib.tex file provides access to all
% commands necessary for writing Tibetan
% in TeX documents, making use of a modified
% version of Sirlin's Tibetan fonts.
%
% Many definitions were actually taken from
% Sirlin's tibdef.tex (and occasionally modified).
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% ------------------- main code -------------------
%
% \TibTeX creates the TibTeX logo
%
\def\TibTeX{{cTib\TeX}}
%
%
% s.w. sirlin 11/24/94, modified by o. corff, 1999-10-10
% definitions for tibetan fonts
\font\tibetanzero=ctib scaled\magstep0
\font\tenrmzero=cmr10 scaled\magstep0
\font\tibetanone=ctib scaled\magstep1
\font\tenrmone=cmr10 scaled\magstep1
\def\tsize{%
\def\tibetan{\tibetanzero}%
\def\tenrm{\tenrmzero}}
\def\tsizei{%
\def\tibetan{\tibetanone}%
\def\tenrm{\tenrmone}}
%
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% Now Tibetan paragraph properties
%
%\hyphenpenalty=10000\parindent=0pt
\def\tspace{{\hskip\fontdimen7\font}} % inter-sentence space
\def\notsheg{\noboundary} % elimininates tsheg
\def\K{\noboundary\tspace} % Space after k, g
%
% Helps build additional stacks
%
\def\V#1#2{\noboundary%
\ooalign{\noboundary#1\noboundary\cr
\lower1.15\fontdimen5\font\hbox{#2\noboundary}}%
x} % `x' which has no value in ctib generates automatic tsheg
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% Now typical Tibetan identities
%
% Bad: would not cooperate with MonTeX!
\ifx\om\undefined
\def\om{{\tib\char254}} % `<'
\fi
\def\visarga{{\tib\char58}} % `:'
\def\swasti{{\tib\char64}} % `@'
%
% special characters
%
\def\dme{\V{de}{ma}x}
%%
\def\ai{\V{a}{\raise0.85\fontdimen5\font\hbox{\hskip0.25em`}}x}
%%
\def\hung{\ooalign{{\raise0.7\fontdimen5\font\hbox{\hskip0.15em0}}
\cr\V{h}{'u}}x}
%%
\def\hrih{\V{hri}{\raise0.50\fontdimen5\font\hbox{`}}x}
%%
\def\achung#1{\vtop{%
\baselineskip0pt\hbox{#1\noboundary}%
\hbox{\lower0.15\fontdimen5\font\hbox{`}}}
}
%%
%%
%% % 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
%%
%ready to start, default size is 0
\tsize
% end of ctib.tex
|
