← Back to branch summary

~ubuntu-branches/ubuntu/jaunty/texlive-bin/jaunty-updates

« back to all changes in this revision

Viewing changes to texmf-dist/fonts/source/public/mxd/mxdatoms.mf

  • Committer: Bazaar Package Importer
  • Author(s): Norbert Preining
  • Date: 2006-05-11 00:12:10 UTC
  • Revision ID: james.westby@ubuntu.com-20060511001210-gykenja59vrecpk2
Tags: upstream-2005
Import upstream version 2005

Show diffs side-by-side

added added

removed removed

Lines of Context:
texmf-dist/fonts/source/public/mxd/mxdatoms.mf
 
1
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
2
% File: mxdatoms.mf
 
3
% Date: November 5, 2001
 
4
% Author: Oliver Corff
 
5
% (c) 2001 Ulaanbaatar, Berlin
 
6
%
 
7
% A metafont for providing the Xewtee
 
8
% Dorboljin script to LaTeX-users.
 
9
%
 
10
% Usage: see package documentation mxd4tex
 
11
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
12
def vowelcarrier =
 
13
        squarepen;
 
14
        top lft z1=(scribble+margin,height+scribble);
 
15
        bot     z2=(scribble+x1,0+scribble);
 
16
                x3=scribble+1/3[x1,x8];
 
17
                z3=(x3,y2+scribble);
 
18
                z4=(scribble+x3,y1+scribble);
 
19
                x5=scribble+2/3[x1,x8];
 
20
                z5=(x5,y1+scribble);
 
21
                z6=(scribble+x5,y2+scribble);
 
22
                z7=(scribble+x8,y2+scribble);
 
23
            rt  z8=(scribble+margin+awidth,y1+scribble);
 
24
        draw z1--z2--z3--z4--z5--z6--z7--z8;    
 
25
enddef;
 
26
 
 
27
def empty_vowel =
 
28
        pickup pensquare scaled .5thick;
 
29
        undraw z1--z2--z3--z4--z5--z6--z7--z8;  
 
30
enddef;
 
31
 
 
32
def vowel_i (expr li, re) =     % Vowel i
 
33
        numeric x[]; numeric y[];
 
34
        x1=li;
 
35
        x2=x4=1/2[x1,x3];
 
36
        x3=re;
 
37
        y1=y3=height;
 
38
        y2=2/3[height,vheight];
 
39
        y4=vheight;
 
40
        fill z1..z2..z3 & z3..z4..z1 & cycle;
 
41
        numeric x[]; numeric y[];
 
42
enddef;
 
43
 
 
44
def vowel_e (expr li, re) =     % Vowel oe
 
45
        numeric x[]; numeric y[];
 
46
        squarepen;
 
47
        top lft z1=(li,vheight);
 
48
            rt  z2=(re,y1);
 
49
        draw z1--z2;
 
50
        pickup pensquare scaled 1/3thick;
 
51
        top rt  z3=(re,vheight);
 
52
        bot     z4=(x3,height);
 
53
        draw z3--z4;
 
54
        numeric x[]; numeric y[];
 
55
enddef;
 
56
 
 
57
def vowel_ue (expr li, re, v) = % Vowel oe
 
58
        numeric x[]; numeric y[];
 
59
        squarepen;
 
60
        bot lft z1=(li,-depth-v);
 
61
            rt  z2=(re,y1);
 
62
        draw z1--z2;
 
63
        pickup pensquare scaled 1/3thick;
 
64
        bot rt  z3=(re,-depth-v);
 
65
        top     z4=(x3,-v);
 
66
        draw z3--z4;
 
67
        numeric x[]; numeric y[];
 
68
enddef;
 
69
 
 
70
def vowel_u (expr li, re, v) =  % Vowel i
 
71
        numeric x[]; numeric y[];
 
72
        x1=li;
 
73
        x2=x4=1/2[x1,x3];
 
74
        x3=re;
 
75
        y1=y3=-v;
 
76
        y2=2/3[y1,y4];
 
77
        y4=-depth-v;
 
78
        fill z1..z2..z3 & z3..z4..z1 & cycle;
 
79
        numeric x[]; numeric y[];
 
80
enddef;
 
81
 
 
82
def vowel_o (expr li, re) =     % Vowel o
 
83
        numeric x[]; numeric y[];
 
84
        z1r=(li,vheight);
 
85
        z2r=(x3-.75thick,vheight);
 
86
        z3l=(1/2[x1,x5],height);
 
87
        z4r=(x3+.75thick,vheight);
 
88
        z5r=(re,vheight);
 
89
        penpos1(thick,100);
 
90
        penpos2(thick,90);
 
91
        penpos3(thin,90);
 
92
        penpos4(thick,90);
 
93
        penpos5(thick,80);
 
94
        penstroke z1e--z2e--z3e--z4e--z5e;
 
95
        numeric x[]; numeric y[];
 
96
enddef;
 
97
 
 
98
def vowel_oe (expr li, re) =    % Vowel oe
 
99
        numeric x[]; numeric y[];
 
100
        squarepen;
 
101
        top lft z1=(li,vheight);
 
102
            rt  z2=(re,y1);
 
103
                z3=(1/2[x1,x2],y1);
 
104
        bot     z4=(x3,height);
 
105
        draw z1--z2; draw z3--z4;
 
106
        numeric x[]; numeric y[];
 
107
enddef;
 
108
 
 
109
def kya =       % Similar to kra, we build u-, ue-ligatures!
 
110
        squarepen;
 
111
        bot lft z1=(scribble+margin,0+scribble);
 
112
        top     z2=(scribble+x1,height+scribble);
 
113
            rt  z3=(scribble+margin+cwidth,y2+scribble);
 
114
                z4=(scribble+x3,y1+scribble);
 
115
                z5=(scribble+1/2[x2,x3],y1+scribble);
 
116
                z6=(scribble+x5,y2+scribble);
 
117
        draw z1--z2--z3--z4--z5--z6;
 
118
                z7=(scribble+margin,-0/8depth+scribble);
 
119
                z8=(scribble+1/2[x7,x9],-3/4depth+scribble);
 
120
                z9=(scribble+1/2[x7,x11],-0/8depth+scribble);
 
121
                z10=(scribble+1/2[x9,x11],y8+scribble);
 
122
                z11=(scribble+margin+cwidth,y7+scribble);
 
123
                z12=(scribble+x10,-2/4depth+scribble);
 
124
                z13=(scribble+x8,y12+scribble);
 
125
        fill z7..z8..z9 & z9..z10..z11 & z11..z12..z9 & z9..z13..z7 & cycle;
 
126
enddef;
 
127
 
 
128
def kra =       % We define kra due to its enormous underlength
 
129
                % which requires special -u, -ue-ligatures
 
130
        squarepen;
 
131
        top lft z1=(scribble+margin,height+scribble);
 
132
        top rt  z2=(scribble+cwidth+margin,height+scribble);
 
133
        bot     z3=(scribble+x2,-depth+n+scribble);
 
134
                z4=(scribble+x1,1/2height+scribble);
 
135
        bot     z5=(scribble+x1,0+scribble);
 
136
                z6=(scribble+1/2[x1,x2],y5+scribble);
 
137
                z7=(scribble+x6,y1+scribble);
 
138
        draw z1--z2--z3;
 
139
        draw z4--z5--z6--z7;
 
140
                z8l=(scribble+cwidth+margin,-depth+scribble);
 
141
                penpos8(2/3thick,90); %
 
142
                z9r=(scribble+1/3[x1,x2],-1/3depth+scribble);
 
143
                penpos9(2/3thick,90); %
 
144
                z10=(scribble+margin,-2/3depth+scribble);
 
145
                penpos10(2/3thick,90); %
 
146
        penstroke z8e..z9e..z10e;
 
147
enddef;
 
148
 
 
149
def kla =       % Well, same reason as kya and kra!
 
150
        squarepen;
 
151
        top     z1=(scribble+1/2[x4,x5],height+scribble);
 
152
        bot     z2=(scribble+x1,0+scribble);
 
153
            lft z3=(scribble+margin,y2+scribble);
 
154
                z4=(scribble+x3,y1+scribble);
 
155
            rt  z5=(scribble+margin+cwidth,y1+scribble);
 
156
        bot     z6=(scribble+x5,0+scribble);
 
157
        draw z1--z2--z3--z4--z5--z6;
 
158
                z11r=(scribble+margin+cwidth,0+scribble);
 
159
        penpos11(thick,0); %
 
160
                z12r=(scribble+3/4[x3,x5],-3/4depth+scribble);
 
161
        penpos12(3/4thick,-90); %
 
162
                z13l=(scribble+1/4[x3,x5],-1/4depth+scribble);
 
163
        penpos13(3/4thick,-90); %
 
164
                z14l=(scribble+margin,-depth+scribble);
 
165
        penpos14(thick,0); %
 
166
        penstroke z11e..z12e..z13e..z14e;
 
167
enddef;
 
168
 
 
169
def b = % The character b
 
170
        squarepen;
 
171
        top lft z1=(scribble+margin,height+scribble);
 
172
        bot     z2=(scribble+x1,0+scribble);
 
173
            rt  z3=(scribble+margin+bwidth,y2+scribble);
 
174
                z4=(scribble+x3,y1+scribble);
 
175
        draw z1--z2--z3--z4;    
 
176
enddef;
 
177
 
 
178
def basic_r =   % The character r. We repeat in another letter.
 
179
        squarepen;
 
180
        top lft z1=(scribble+margin,height+scribble);
 
181
            rt  z2=(scribble+margin+cwidth,y1+scribble);
 
182
                z3=(scribble+1/2[x1,x2],y1+scribble);
 
183
                z4=(scribble+x3,1/2height+scribble);
 
184
        bot     z5=(scribble+x1,0+scribble);
 
185
                z6=(scribble+x1,y4+scribble);
 
186
                z7=(scribble+x2,y4+scribble);
 
187
                z8=(scribble+x2,y5);;
 
188
        draw z1--z2; draw z3--z4; draw z5--z6--z7--z8; 
 
189
enddef;
 
190
 
 
191
def basic_w =   % The character w
 
192
        squarepen;
 
193
        top lft z1=(scribble+margin,height+scribble);
 
194
        bot     z2=(scribble+x1,0+scribble);
 
195
            rt  z3=(scribble+margin+bwidth,y2+scribble);
 
196
                z4=(scribble+x3,y1+scribble);
 
197
        draw z1--z2--z3--z4--cycle; 
 
198
enddef;
 
199
 
 
200
def basic_l =   % The character l, needed for a few things.
 
201
        squarepen;
 
202
        bot lft z1=(scribble+margin,0+scribble);
 
203
        top     z2=(scribble+x1,height+scribble);
 
204
                z3=(scribble+1/2[x2,x6],y2+scribble);
 
205
                z4=(scribble+x3,y1+scribble);
 
206
            rt  z5=(scribble+margin+cwidth,y1+scribble);
 
207
                z6=(scribble+x5,y2+scribble);
 
208
        draw z1--z2--z3--z4--z5--z6; 
 
209
enddef;
 
210