phonetic

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

2 files changed, 175 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/phonetic/Uphon.fd b/Master/texmf-dist/tex/latex/phonetic/Uphon.fd
new file mode 100644
index 00000000000..da2da7579ec
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/phonetic/Uphon.fd
@@ -0,0 +1,18 @@
+%% This is the file Uphon.fd built by Emma Pease on 1993/8/31
+
+%% It is for use with nfsss2
+
+\DeclareFontFamily{U}{phon}{}
+\DeclareFontShape{U}{phon}{m}{n}{
+   <10> <10.95> <12> <14.4> <17.28> cmph10
+   }{}
+
+\DeclareFontShape{U}{phon}{m}{it}{
+   <10> <10.95> <12> <14.4> <17.28> cmphi10
+   }{}
+
+\DeclareFontShape{U}{phon}{m}{b}{
+   <10> <10.95> <12> <14.4> <17.28> cmphb10
+   }{}
+
+\endinput
diff --git a/Master/texmf-dist/tex/latex/phonetic/phonetic.sty b/Master/texmf-dist/tex/latex/phonetic/phonetic.sty
new file mode 100644
index 00000000000..f84de900a66
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/phonetic/phonetic.sty
@@ -0,0 +1,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}}
+
+