summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/phonetic/phonetic.sty
blob: f84de900a66696a74db5a1468899bf79c65d80e5 (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
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
%\def\pc{\usefont{U}{phon}{m}{n}}

\def\pc{\usefont{U}{phon}{\f@series}{\f@shape}}

\def\textpc#1{{\pc #1}}

\let\pcchar=\textpc

%the following may need to be modified.
\def\vara{\pcchar{\char"61}}
\def\varg{\pcchar{\char"47}}


\def\rotvara{\pcchar{\char"41}}
\def\hookb{\pcchar{\char"62}}
    \let\hausab=\hookb
\def\openo{\pcchar{\char"63}}
    \let\rotc=\openo
\def\hookd{\pcchar{\char"44}}
    \let\hausad=\hookd
\def\eth{\pcchar{\char"64}}
\def\schwa{\pcchar{\char"65}}
\def\flap{\pcchar{\char"66}}
\def\hookh{\pcchar{\char"68}}
	\let\voicedh=\hookh
\def\taild{\pcchar{\char"4A}}
\def\hookk{\pcchar{\char"6B}}
    \let\hausak=\hookk
\def\emgma{\pcchar{\char"4D}}
\def\engma{\pcchar{\char"6E}}
\def\thorn{\pcchar{\char"70}}
\def\rotr{\pcchar{\char"72}}
\def\esh{\pcchar{\char"73}}
\def\pwedge{\pcchar{\char"55}}
\def\roth{\pcchar{\char"75}}
    \let\udesc=\roth
\def\yogh{\pcchar{\char"78}}
\def\hookK{\pcchar{\char"4B}}
   \let\hausaK=\hookK
\def\hookD{\pcchar{\char"54}}
   \let\hausaD=\hookD
\def\hookB{\pcchar{\char"42}}
   \let\hausaB=\hookB
\def\glottal{\pcchar{\char"3F}}

\def\barj{\pcchar{\char"6A}}

\def\palpha{\pcchar{\char"0B}}
\def\pbeta{\pcchar{\char"0C}}
\def\pgamma{\pcchar{\char"0D}}
\def\pdelta{\pcchar{\char"0E}}
\def\pepsilon{\pcchar{\char"0F}}
\def\epsi{\pcchar{\char"22}}
\def\pzeta{\pcchar{\char"10}}
\def\peta{\pcchar{\char"11}}
\def\ptheta{\pcchar{\char"12}}
\def\piota{\pcchar{\char"13}}
\def\riota{\pcchar{\char"00}}
\def\pkappa{\pcchar{\char"14}}
\def\plambda{\pcchar{\char"15}}
\def\barlambda{\pcchar{\char"01}}
\def\pmu{\pcchar{\char"16}}
\def\pnu{\pcchar{\char"17}}
\def\pxi{\pcchar{\char"18}}
\def\ppi{\pcchar{\char"19}}
\def\prho{\pcchar{\char"1A}}
\def\psigma{\pcchar{\char"1B}}
\def\ptau{\pcchar{\char"1C}}
\def\pupsilon{\pcchar{\char"1D}}
\def\pphi{\pcchar{\char"1E}}
\def\pchi{\pcchar{\char"1F}}
\def\ppsi{\pcchar{\char"20}}
\def\pomega{\pcchar{\char"21}}

\def\omicron{o}
\def\pomicron{\pcchar{o}}

\def\rotOmega{\pcchar{\char"0A}}
\def\varomega{\pcchar{\char"08}}
\let\varU=\rotOmega
\let\varu=\varomega

\def\roty{\pcchar{\char"79}}
\def\rotm{\pcchar{\char"6D}}
\def\revD{\pcchar{\char"02}}
\def\enya{\pcchar{\char"4E}}
\def\fj{\pcchar{\char"46}}
\def\varopeno{\pcchar{\char"43}}
\def\vari{\pcchar{\char"69}}
\def\rotw{\pcchar{\char"77}}

% characters not covered
\def\m@th{\mathsurround=\z@}

% puts a reverse cedilla under a letter
\def\rc#1{{\ooalign{\hidewidth\pcchar{\char"09}\hidewidth\crcr #1}}}

% \hill puts a half circle under a letter  (NEW)
\def\hill#1{\oalign{#1\crcr\hidewidth\pcchar{\char"7B}\hidewidth}}

\def\overchar#1#2#3{\leavevmode\setbox0=\hbox{#2}%
	\rlap{\raise#3\ht0\hbox to\wd0{\hss#1\hss}}\box0}
% places a half circle over a letter
\def\ohill#1{\overchar{\pcchar{\char"7B}}{#1}{.67}}
%\acbar{accent}{character}{raised} places an accent over a barred character
\def\acbar#1#2{\overchar{\overchar{#1}{\char'026}{.35}}{#2}{.25}}
%\acarc{accent}{character}{raised} places an accent over a character
% with a half circle in between
\def\acarc#1#2{\overchar{\overchar{#1}{\pcchar{\char"7B}\kern1pt}{0}}{#2}{.75}}

% vertical equivalent of \hidewidth
\def\hideheight{\vskip-1000pt plus 1fill}

% \od puts a small o under a letter (needs some revision)
\def\od#1{\oalign{#1\crcr\hidewidth\vbox to.2ex{\hbox{\char'27}\hideheight}\hidewidth}}

% \ut puts a tilde under a letter
\def\ut#1{\oalign{#1\crcr\hidewidth\vbox to.2ex{\hbox{$\mathchar"707E$}\hideheight}\hidewidth}}
% \td puts two dots under a letter
\def\td#1{\oalign{#1\crcr\hidewidth..\hidewidth}}
% puts a small block under a letter
%\def\syl#1{\oalign{#1\crcr\hidewidth\hbox{\vrule height.4ex width.2ex}\hidewidth}}
\def\syl#1{\oalign{#1\crcr\hidewidth\vbox to.33ex{\hbox{\vrule
height.35ex width.2ex}\hideheight}\hidewidth}}

% \uplett raises a letter and sets it in tiny size
\def\uplett#1{$^{\hbox{\tiny\rm #1}}$}
% \labvel puts an arc over the argument (usually two letters)
\newdimen\temp
\def\labvel#1{\setbox0=\hbox{#1}%
\temp=\ht0 \advance\temp by 1ex%
\ht0=\temp%
$\m@th\mathaccent"015F{\box0}$}
% planck's constant (not italicized)
\def\planck{${\mathchar'26\mskip-7mu{\rm h}}$}
% small small caps
\def\ssc#1{{\tiny\rm #1}}

% i with a bar through it
\def\onalign#1{\leavevmode\vtop{\baselineskip=0pt\lineskip=-.5ex
\ialign{##\crcr#1\crcr}}}
\def\ibar{\onalign{\hidewidth i\hidewidth\cr\cr$\mathchar'26$}}

% r with a bar through it
\def\rbar{\onalign{\hidewidth r\hidewidth\cr\cr$\mskip-1mu\mathchar'26$}}

% o smashed into the bottom of the v
\def\vod{\oalign{v\crcr\noalign{\vskip-.4ex}\hidewidth\vbox to.4ex{\hbox{\char'27}\hideheight}\hidewidth}}
% u with a bar through it
\def\ubar{\ifmmode {\raise.5ex\hbox{\vrule width.5em %
height.1ex}\mskip-9mu{\rm u}}\else${\raise.5ex\hbox{\vrule width.5em %
height.1ex}\mskip-9mu{\rm u}}$\fi}  
% a raised vertical line
\def\upbar{\leavevmode\raise.6ex\hbox spread.2em{\hfil\vrule height1ex
width.1ex \hfil}}