summaryrefslogtreecommitdiff
path: root/fonts/wsuipa/macros/ipamacs.tex
diff options
context:
space:
mode:
Diffstat (limited to 'fonts/wsuipa/macros/ipamacs.tex')
-rw-r--r--fonts/wsuipa/macros/ipamacs.tex237
1 files changed, 237 insertions, 0 deletions
diff --git a/fonts/wsuipa/macros/ipamacs.tex b/fonts/wsuipa/macros/ipamacs.tex
new file mode 100644
index 0000000000..ab16eea686
--- /dev/null
+++ b/fonts/wsuipa/macros/ipamacs.tex
@@ -0,0 +1,237 @@
+%% Please see the file LICENCE-wsuipa.txt for licensing information.
+%%
+%% The following macro is necessary to place an accent over the
+%% character definitions below. For example, you should say:
+%% \diatop[\^|\openo]
+%%
+
+\def\diatop[#1|#2]{{\setbox1=\hbox{{#1{}}}\setbox2=\hbox{{#2{}}}%
+ \dimen0=\ifdim\wd1>\wd2\wd1\else\wd2\fi%
+ \dimen1=\ht2\advance\dimen1by-1ex%
+ \setbox1=\hbox to1\dimen0{\hss#1\hss}%
+ \rlap{\raise1\dimen1\box1}%
+ \hbox to1\dimen0{\hss#2\hss}}}%
+
+%% As an alternative, you could uncomment the following two lines:
+%%
+%% \catcode`"=\active
+%% \def"#1#2{\diatop[#1|#2]}
+%%
+%% And then you could place an accent over the ipa character by
+%% calling the macro " which itself calls \diatop. For example, you
+%% would say:
+%%
+%% "\^\openo
+
+%% THE FOLLOWING macros access the IPA chars from the WSU IPA font
+
+\font\ipatwelverm=wsuipa12
+\def\ipa{\ipatwelverm}
+
+%% A-type shapes:
+\def\inva{\edef\next{\the\font}\ipa\char'000\next}%
+\def\scripta{\edef\next{\the\font}\ipa\char'001\next}%
+\def\nialpha{\edef\next{\the\font}\ipa\char'002\next}%
+\def\invscripta{\edef\next{\the\font}\ipa\char'003\next}%
+\def\invv{\edef\next{\the\font}\ipa\char'004\next}%
+
+%% B-type shapes:
+\def\crossb{\edef\next{\the\font}\ipa\char'005\next}%
+\def\barb{\edef\next{\the\font}\ipa\char'006\next}%
+\def\slashb{\edef\next{\the\font}\ipa\char'007\next}%
+\def\hookb{\edef\next{\the\font}\ipa\char'010\next}%
+\def\nibeta{\edef\next{\the\font}\ipa\char'011\next}%
+
+%% C-type shapes:
+\def\slashc{\edef\next{\the\font}\ipa\char'012\next}%
+\def\curlyc{\edef\next{\the\font}\ipa\char'013\next}%
+\def\clickc{\edef\next{\the\font}\ipa\char'014\next}%
+
+%% D-type shapes:
+\def\crossd{\edef\next{\the\font}\ipa\char'015\next}%
+\def\bard{\edef\next{\the\font}\ipa\char'016\next}%
+\def\slashd{\edef\next{\the\font}\ipa\char'017\next}%
+\def\hookd{\edef\next{\the\font}\ipa\char'020\next}%
+\def\taild{\edef\next{\the\font}\ipa\char'021\next}%
+\def\dz{\edef\next{\the\font}\ipa\char'022\next}%
+\def\eth{\edef\next{\the\font}\ipa\char'023\next}%
+\def\scd{\edef\next{\the\font}\ipa\char'024\next}%
+
+%% E-type shapes:
+\def\schwa{\edef\next{\the\font}\ipa\char'025\next}%
+\def\er{\edef\next{\the\font}\ipa\char'026\next}%
+\def\reve{\edef\next{\the\font}\ipa\char'027\next}%
+\def\niepsilon{\edef\next{\the\font}\ipa\char'030\next}%
+\def\revepsilon{\edef\next{\the\font}\ipa\char'031\next}%
+\def\hookrevepsilon{\edef\next{\the\font}\ipa\char'032\next}%
+\def\closedrevepsilon{\edef\next{\the\font}\ipa\char'033\next}%
+
+%% G-type shapes:
+\def\scriptg{\edef\next{\the\font}\ipa\char'034\next}%
+\def\hookg{\edef\next{\the\font}\ipa\char'035\next}%
+\def\scg{\edef\next{\the\font}\ipa\char'036\next}%
+\def\nigamma{\edef\next{\the\font}\ipa\char'037\next}
+\def\ipagamma{\edef\next{\the\font}\ipa\char'040\next}%
+\def\babygamma{\edef\next{\the\font}\ipa\char'041\next}%
+
+%% H-type shapes:
+\def\hv{\edef\next{\the\font}\ipa\char'042\next}%
+\def\crossh{\edef\next{\the\font}\ipa\char'043\next}%
+\def\hookh{\edef\next{\the\font}\ipa\char'044\next}%
+\def\hookheng{\edef\next{\the\font}\ipa\char'045\next}%
+\def\invh{\edef\next{\the\font}\ipa\char'046\next}%
+
+%% I-type shapes:
+\def\bari{\edef\next{\the\font}\ipa\char'047\next}%
+\def\dlbari{\edef\next{\the\font}\ipa\char'050\next}% ``dotless bar i''
+\def\niiota{\edef\next{\the\font}\ipa\char'051\next}%
+\def\sci{\edef\next{\the\font}\ipa\char'052\next}%
+\def\barsci{\edef\next{\the\font}\ipa\char'053\next}% ``barred small cap i''
+
+%% J-type shape:
+\def\invf{\edef\next{\the\font}\ipa\char'054\next}%
+
+%% L-type shapes:
+\def\tildel{\edef\next{\the\font}\ipa\char'055\next}%
+\def\barl{\edef\next{\the\font}\ipa\char'056\next}%
+\def\latfric{\edef\next{\the\font}\ipa\char'057\next}%
+\def\taill{\edef\next{\the\font}\ipa\char'060\next}%
+\def\lz{\edef\next{\the\font}\ipa\char'061\next}%
+\def\nilambda{\edef\next{\the\font}\ipa\char'062\next}%
+\def\crossnilambda{\edef\next{\the\font}\ipa\char'063\next}%
+
+%% M-type shapes:
+\def\labdentalnas{\edef\next{\the\font}\ipa\char'064\next}%
+\def\invm{\edef\next{\the\font}\ipa\char'065\next}%
+\def\legm{\edef\next{\the\font}\ipa\char'066\next}%
+
+%% N-type shapes:
+\def\nj{\edef\next{\the\font}\ipa\char'067\next}%
+\def\eng{\edef\next{\the\font}\ipa\char'070\next}%
+\def\tailn{\edef\next{\the\font}\ipa\char'071\next}%
+\def\scn{\edef\next{\the\font}\ipa\char'072\next}%
+
+%% O-type shapes:
+\def\clickb{\edef\next{\the\font}\ipa\char'073\next}%
+\def\baro{\edef\next{\the\font}\ipa\char'074\next}%
+\def\openo{\edef\next{\the\font}\ipa\char'075\next}%
+\def\niomega{\edef\next{\the\font}\ipa\char'076\next}%
+\def\closedniomega{\edef\next{\the\font}\ipa\char'077\next}%
+\def\oo{\edef\next{\the\font}\ipa\char'100\next}%
+
+%% P-type shapes:
+\def\barp{\edef\next{\the\font}\ipa\char'101\next}%
+\def\thorn{\edef\next{\the\font}\ipa\char'102\next}%
+\def\niphi{\edef\next{\the\font}\ipa\char'103\next}%
+
+%% R-type shapes:
+\def\flapr{\edef\next{\the\font}\ipa\char'104\next}%
+\def\legr{\edef\next{\the\font}\ipa\char'105\next}%
+\def\tailr{\edef\next{\the\font}\ipa\char'106\next}%
+\def\invr{\edef\next{\the\font}\ipa\char'107\next}%
+\def\tailinvr{\edef\next{\the\font}\ipa\char'110\next}%
+\def\invlegr{\edef\next{\the\font}\ipa\char'111\next}%
+\def\scr{\edef\next{\the\font}\ipa\char'112\next}%
+\def\invscr{\edef\next{\the\font}\ipa\char'113\next}%
+
+%% S-type shapes:
+\def\tails{\edef\next{\the\font}\ipa\char'114\next}%
+\def\esh{\edef\next{\the\font}\ipa\char'115\next}%
+\def\curlyesh{\edef\next{\the\font}\ipa\char'116\next}%
+\def\nisigma{\edef\next{\the\font}\ipa\char'117\next}%
+
+%% T-type shapes:
+\def\tailt{\edef\next{\the\font}\ipa\char'120\next}%
+\def\tesh{\edef\next{\the\font}\ipa\char'121\next}%
+\def\clickt{\edef\next{\the\font}\ipa\char'122\next}%
+\def\nitheta{\edef\next{\the\font}\ipa\char'123\next}%
+
+%% U-type shapes:
+\def\baru{\edef\next{\the\font}\ipa\char'124\next}%
+\def\slashu{\edef\next{\the\font}\ipa\char'125\next}%
+\def\niupsilon{\edef\next{\the\font}\ipa\char'126\next}%
+\def\scu{\edef\next{\the\font}\ipa\char'127\next}%
+\def\barscu{\edef\next{\the\font}\ipa\char'130\next}%
+
+%% V-type shape:
+\def\scriptv{\edef\next{\the\font}\ipa\char'131\next}%
+
+%% W-type shape:
+\def\invw{\edef\next{\the\font}\ipa\char'132\next}%
+
+%% X-type shape:
+\def\nichi{\edef\next{\the\font}\ipa\char'133\next}%
+
+%% Y-type shapes:
+\def\invy{\edef\next{\the\font}\ipa\char'134\next}%
+\def\scy{\edef\next{\the\font}\ipa\char'135\next}%
+
+%% Z-type shapes:
+\def\curlyz{\edef\next{\the\font}\ipa\char'136\next}%
+\def\tailz{\edef\next{\the\font}\ipa\char'137\next}%
+\def\yogh{\edef\next{\the\font}\ipa\char'140\next}%
+\def\curlyyogh{\edef\next{\the\font}\ipa\char'141\next}%
+
+%% ?-type shapes:
+\def\glotstop{\edef\next{\the\font}\ipa\char'142\next}%
+\def\revglotstop{\edef\next{\the\font}\ipa\char'143\next}%
+\def\invglotstop{\edef\next{\the\font}\ipa\char'144\next}%
+\def\ejective{\edef\next{\the\font}\ipa\char'145\next}%
+\def\reveject{\edef\next{\the\font}\ipa\char'146\next}%
+
+%% AND that should be it, as far as actual characters go.
+%%
+%% THE following is the set of diacritics. Please try to get
+%% the 4 t-bars lined up above the 4 pointers, so you may
+%% have to reshuffle things a bit. Not to worry too much. I
+%% think the diacritics can be grouped more according to
+%% shape, so comma-like things are together, etc.
+%%
+
+\def\dental#1{\oalign{#1\crcr
+ \hidewidth{\ipa\char'147}\hidewidth}}
+
+\def\upt{\edef\next{\the\font}\ipa\char'154\next}% These are IPA pointers
+\def\downt{\edef\next{\the\font}\ipa\char'155\next}%
+\def\leftt{\edef\next{\the\font}\ipa\char'156\next}%
+\def\rightt{\edef\next{\the\font}\ipa\char'157\next}%
+
+ % These are American versions of t-bars
+\def\upp{\edef\next{\the\font}\ipa\char'164\next}
+\def\downp{\edef\next{\the\font}\ipa\char'165\next}%
+\def\leftp{\edef\next{\the\font}\ipa\char'166\next}%
+\def\rightp{\edef\next{\the\font}\ipa\char'167\next}%
+
+\def\stress{\edef\next{\the\font}\ipa\char'150\next}% primary stress
+\def\secstress{\edef\next{\the\font}\ipa\char'151\next}% secondary stress
+
+\def\syllabic{\edef\next{\the\font}\ipa\char'152\next}% syllabic marker
+
+\def\corner{\edef\next{\the\font}\ipa\char'153\next}%
+
+ % American equivalent: raised dot
+\def\halflength{\edef\next{\the\font}\ipa\char'160\next}
+ % American equivalent: colon
+\def\length{\edef\next{\the\font}\ipa\char'161\next}
+
+\def\underdots{\edef\next{\the\font}\ipa\char'162\next}%
+
+ % ``reversed apostrophe'', p. 216
+\def\ain{\edef\next{\the\font}\ipa\char'163\next}
+
+\def\overring{\edef\next{\the\font}\ipa\char'170\next}%
+\def\underring{\edef\next{\the\font}\ipa\char'171\next}%
+
+\def\open{\edef\next{\the\font}\ipa\char'172\next}%
+
+\def\midtilde{\edef\next{\the\font}\ipa\char'173\next}%
+\def\undertilde{\edef\next{\the\font}\ipa\char'174\next}%
+
+\def\underwedge{\edef\next{\the\font}\ipa\char'175\next}%
+
+\def\polishhook{\edef\next{\the\font}\ipa\char'176\next}%
+
+\def\underarch#1{\oalign{#1\crcr
+ \hidewidth{\ipa\char'177}\hidewidth}}
+
+%% AND that's it for the diacritics.