← Back to branch summary

~ubuntu-branches/ubuntu/edgy/tipa/edgy

« back to all changes in this revision

Viewing changes to mf/tipa.mf

  • Committer: Bazaar Package Importer
  • Author(s): Rafael Laboissiere
  • Date: 2003-12-11 10:50:58 UTC
  • Revision ID: james.westby@ubuntu.com-20031211105058-vq8ttydhah3hdzq1
Tags: upstream-1.2
Import upstream version 1.2

Show diffs side-by-side

added added

removed removed

Lines of Context:
mf/tipa.mf
 
1
% tipa.mf: TIPA driver file
 
2
% Copyright 1996-2003 FUKUI Rei
 
3
%
 
4
% This program may be distributed and/or modified under the
 
5
% conditions of the LaTeX Project Public License, either version 1.2
 
6
% of this license or (at your option) any later version.
 
7
% The latest version of this license is in
 
8
%   http://www.latex-project.org/lppl.txt
 
9
% and version 1.2 or later is part of all distributions of LaTeX 
 
10
% version 1999/12/01 or later.
 
11
%
 
12
% This program consists of all files listed in Manifest.txt.
 
13
%
 
14
% Version 1.2 2003/01/01
 
15
%
 
16
% This file is based on:
 
17
%   Computer Modern font series by D. E. Knuth and
 
18
%   TSIPA by KOBAYASHI Hajime, FUKUI Rei and SHIRAKAWA Shun.
 
19
%
 
20
 
 
21
font_coding_scheme:="TeX IPA";
 
22
 
 
23
mode_setup;
 
24
font_setup;
 
25
 
 
26
input tipanew   % new materials for testing
 
27
input tipadiac  % accents and diacritics
 
28
input tipapnct  % punctuation marks
 
29
input tiparoml  % lower case (minuscules)
 
30
input tipasym1  % ipa symbols (1)
 
31
input tipasym2  % ipa symbols (2)
 
32
input tipasym3  % ipa symbols (3)
 
33
input tipasym4  % ipa symbols (4)
 
34
input tipagerm  % symbols for germanic languages
 
35
input tipatone  % parts of tone letters
 
36
 
 
37
smallcap_setup;
 
38
input tipasc    % ipa small capitals
 
39
restore_normal_setup;
 
40
 
 
41
font_slant slant; font_x_height x_height#;
 
42
 
 
43
% Modified on 2001/12/24 for the Times Roman compatibility;
 
44
% The values for Times_Compat are calculated from the data
 
45
% from ptmr7t.tfm.
 
46
if monospace:
 
47
 font_normal_space 9u#; % no stretching or shrinking
 
48
 font_quad 18u#;
 
49
 font_extra_space 9u#;
 
50
else:
 
51
 if Times_Compat:
 
52
  font_normal_space 5u#+2letter_fit#;
 
53
  font_normal_stretch 2.2u#; font_normal_shrink 1.2u#;
 
54
  font_quad 20u#+4letter_fit#;
 
55
  font_extra_space 1.2u#;
 
56
 else:
 
57
  font_normal_space 6u#+2letter_fit#;
 
58
  font_normal_stretch 3u#; font_normal_shrink 2u#;
 
59
  font_quad 18u#+4letter_fit#;
 
60
  font_extra_space 2u#;
 
61
 fi
 
62
fi
 
63
 
 
64
% ligatures made by ligtables
 
65
 
 
66
ligtable oct"047": oct"047" kern -1.5u#; % ' + ' -> ''
 
67
ligtable oct"140": oct"140" kern -1.5u#; % ` + ` => ``
 
68
ligtable "|": "|" =: oct"173"; % Pipe + Pipe -> Double Pipe
 
69
ligtable oct"042": oct"042" =: oct"177"; % Prim. Stress + Prim. Stress -> Sec. Stress
 
70
 
 
71
% kernings (need to modify)
 
72
 
 
73
numeric itc#; % modified italic correction on `f'
 
74
itc#=if serifs: max(0,flare#-.25u#) else: 1.25u# fi;
 
75
 
 
76
k#:=-.5u#; kk#:=-1.5u#; kkk#:=-2u#; % three degrees of kerning
 
77
 
 
78
ligtable "f":
 
79
  "'" kern itc#, "?" kern itc#, "!" kern itc#, ")" kern itc#, "]" kern itc#;
 
80
 
 
81
ligtable "y":
 
82
  "o" kern k#, "e" kern k#, "a" kern k#, "." kern kk#, "," kern kk#,
 
83
  "2" kern -u#, "L" kern -u#, oct"300" kern -u#, oct"373" kern -u#;
 
84
 
 
85
ligtable "g":
 
86
 "j" kern -k#; % logjam
 
87
 
 
88
if serifs:
 
89
 
 
90
  ligtable "k":
 
91
    "a" kern -u#, "e" kern k#, "a" kern k#, "o" kern k#, "c" kern k#;
 
92
 
 
93
  ligtable "v":
 
94
    "a" kern -u#, "e" kern k#, "a" kern k#, "o" kern k#, "c" kern k#,
 
95
    "2" kern -u#, "L" kern -u#, oct"300" kern -u#, oct"373" kern -u#;
 
96
 
 
97
  ligtable "w":
 
98
    "e" kern k#, "a" kern k#, "o" kern k#, "c" kern k#,
 
99
    "2" kern -u#, "L" kern -u#, oct"300" kern -u#, oct"373" kern -u#;
 
100
 
 
101
  ligtable "h": "m": "n":
 
102
    "t" kern k#, "u" kern k#, "b" kern k#, "y" kern k#, "v" kern k#,
 
103
    "w" kern k#;
 
104
 
 
105
  ligtable "c":
 
106
    "h" kern k#, "k" kern k#;
 
107
 
 
108
  ligtable "o": "b": "p":
 
109
    "e" kern -k#, "o" kern -k#, "x" kern k#, "d" kern -k#, "c" kern -k#,
 
110
    "q" kern -k#, "v" kern k#, "j" kern u#, "y" kern k#, "w" kern k#;
 
111
 
 
112
  ligtable "a":
 
113
    "v" kern k#, "j" kern u#, "y" kern k#, "w" kern k#;
 
114
 
 
115
  ligtable "t":
 
116
    "y" kern k#, "w" kern k#;
 
117
 
 
118
  ligtable "u":
 
119
    "w" kern k#;
 
120
 
 
121
else:
 
122
 
 
123
  ligtable "k":
 
124
    "e" kern k#, "a" kern k#, "o" kern k#, "c" kern k#;
 
125
 
 
126
  ligtable "w":
 
127
    "e" kern k#, "a" kern k#, "o" kern k#, "c" kern k#,
 
128
    "2" kern -u#, "L" kern -u#, oct"300" kern -u#, oct"373" kern -u#;
 
129
 
 
130
  ligtable "v":
 
131
    "2" kern -u#, "L" kern -u#, oct"300" kern -u#, oct"373" kern -u#;
 
132
 
 
133
  ligtable "o": "b": "p":
 
134
    "e" kern -k#, "o" kern -k#, "x" kern k#, "d" kern -k#, "c" kern -k#,
 
135
    "q" kern -k#, "r" kern k#, "y" kern k#, "w" kern k#;
 
136
 
 
137
  ligtable "a":
 
138
    "r" kern k#, "y" kern k#, "w" kern k#;
 
139
 
 
140
  ligtable "t":
 
141
    "y" kern k#, "w" kern k#;
 
142
 
 
143
  ligtable "u":
 
144
    "w" kern k#;
 
145
 
 
146
fi
 
147
 
 
148
ligtable "2": "L": oct"300": oct"373": % Turned V, SC A, Turned y, Turned W
 
149
  "v" kern -u#, "w" kern -u#, "y" kern -u#;
 
150
 
 
151
ligtable "S": oct"342": oct"344": oct"352": oct"301": oct"311":
 
152
  oct"323": oct"264": oct"331": % symbols with hooktop
 
153
  "b" kern -kk#, "f" kern -k#, "h" kern -kk#, "i" kern -kk#,
 
154
  "j" kern -kk#, "k" kern -kk#, "P" kern -kk#, "Q" kern -kk#,
 
155
  "]" kern -kk#, ")" kern -kk#;
 
156
 
 
157
ligtable oct"343": oct"355": oct"357": oct"365": oct"374": % symbols with right-tail
 
158
  "g" kern -k#, "j" kern -kk#, "p" kern -kk#, "y" kern -kk#, "S" kern -kk#,
 
159
  "B" kern -kk#, "J" kern -kk#, oct"351" kern -kk#, oct"361" kern -kk#,
 
160
  "]" kern -kk#, ")" kern -kk#;
 
161
 
 
162
ligtable "[": "(":
 
163
  "S" kern -kk#, oct"361" kern -kk#, "j" kern -kk#, oct"351" kern -kk#,
 
164
  oct"352" kern -kk#, oct"315" kern -kk#;
 
165
 
 
166
bye.