1
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2
%%%%% The Yi Syllable Font.
3
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4
%%%%% (c) Oliver Corff, Berlin/Beijing/Ulaanbaatar 1997.
5
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6
%%%%% Common definitions.
7
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9
pickup pencircle scaled thick;
11
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12
def eyebrow = % nnnX syllables are covered by this!
21
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22
def gong(expr lx, uy, rx, ly) = % The gong-shape appearing so often.
32
draw z1--z2; draw z3--z4; draw z5--z6;
36
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
37
def Ddash(expr lx, uy, rx, ly) = % The Double Dash-shape appearing so often.
50
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
51
def Er(expr lx, uy, rx, ly) =% The er-shape appearing so often.
59
draw z1--z2; draw z3--z4;
63
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
64
def san(expr lx, uy, rx, ly) =% The san-shape appearing so often.
74
draw z1--z2; draw z3--z4; draw z5--z6;
78
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
79
def H(expr lx, uy, rx, ly) = % The H-shape appearing so often.
89
draw z1--z2; draw z3--z4; draw z5--z6;
93
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
94
def Ih(expr lx, uy, rx, ly) = % The Single Dash-shape appearing so often.
104
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
105
def II(expr lx, uy, rx, ly) =% The II-shape appearing so often.
113
draw z1--z2; draw z3--z4;
117
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
118
def III(expr lx, uy, rx, ly) =% The III-shape appearing so often.
125
x5=1/2[lx,rx]; y5=uy;
126
x6=1/2[lx,rx]; y6=ly;
128
draw z1--z2; draw z3--z4; draw z5--z6;
132
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
133
def N(expr lx, uy, rx, ly) = % The N-shape appearing so often.
145
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
146
def Oh(expr lx, uy, rx, ly) = % The O-shape appearing so often.
149
x51:=x53:=1/2[lx,rx];
152
y52:=y54:=1/2[uy,ly];
156
draw z51..z52..z53..z54..cycle;
160
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
161
def Otense(expr lx, uy, rx, ly, t) = % The O-shape appearing so often.
171
draw z1..tension t..z2..tension t..z3..tension t..z4..tension t..cycle;
175
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
176
def S(expr lx, uy, rx, ly) = % The S-shape appearing so often.
187
draw z1..{left}z2{left}..z3..z4..z5..{left}z6{left}..z7;
191
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
192
def T(expr lx, uy, rx, ly) = % The Single Dash-shape appearing so often.
194
Ih(1/2[lx,rx],uy,1/2[lx,rx],ly);
196
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
197
def Tdash(expr px, uy, ly) = % The Triple Dash-shape appearing so often.
213
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
214
def U(expr lx, uy, rx, ly) = % The U-shape appearing so often.
224
draw z1---z2..z3..z4---z5;
228
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
229
def X(expr lx, uy, rx, ly) = % The X-shape appearing so often.
237
draw z1--z4; draw z2--z3;
241
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
242
def Xi(expr lx, uy, rx, ly) = % The XI-shape appearing so often.
243
numeric x[]; % Since there is a syllable
244
numeric y[]; % "XI" in the corpus this one
245
x1:=lx; y1:=uy; % is given as 'Xi'; see also
246
x2:=rx; y2:=uy; % "O" and 'Oh'. This helps us
247
x3:=lx; y3:=ly; % to avoid confusion.
254
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
255
def IXI(expr lx, uy, rx, ly) = % The IXI-shape appearing so often.
263
draw z1--z4--z2--z3--cycle;
267
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
268
def Z(expr lx, uy, rx, ly) = % the inverted Z-shape
283
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
284
def Zdash(expr lx, uy, rx, ly) = % the inverted Z-shape with dash
294
z5=(lx,1/2[uy,ly]); z6=(rx,y5);
301
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
302
def ZPimmel(expr lx, uy, rx, ly) = % the inverted Z-shape with Pimmel
312
z5=(1/2[lx,rx],2/5[uy,ly]); z6=(7/8[lx,rx],1/4[ly,uy]);
315
draw z5{z2-z1}..{down}z6;
319
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
320
def Arsch(expr lx, uy, rx, ly) = % the Arsch-shape
330
draw z1{right}..tension 1.5..z2{down}..z3..{up}z4 &
331
z4{down}..z5..{up}z6..tension 1.5..{right}z1..cycle;
335
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
336
def Blitz(expr lx, uy, rx, ly) = % the Blitz-shape
348
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
349
def Brunnen(expr lx, uy, rx, ly) = % the Brunnen (jing)-shape
368
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
369
def Busen(expr lx, uy, rx, ly) = % the Busen-shape
381
draw z11{down}..z12..{up}z13 & z13{down}..z14..{up}z15;
385
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
386
def Gasmaske(expr lx, uy, rx, ly) = % the Gasmaske-shape
389
Oh(lx,uy,1/3[lx,rx],5/12[uy,ly]);
390
Oh(2/3[lx,rx],uy,rx,5/12[uy,ly]);
391
Oh(1/3[lx,rx],7/12[uy,ly],2/3[lx,rx],ly);
395
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
396
def Huegel(expr lx, uy, rx, ly) = % the Huegel-shape
403
draw z1{up}..tension 1.2..z2..tension 1.2..{down}z3;
407
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
408
def Jalousie(expr lx, uy, rx, ly) = % The Jalousie-shape appearing so often.
424
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
425
def Liane(expr lx, uy, rx, ly) = % the Liane-shape
432
draw z1{down}..tension 1.2..z2..tension 1.2..{up}z3;
436
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
437
def Plus(expr lx, uy, rx, ly) = % The Plus-shape appearing so often.
440
x1=1/2[lx,rx]; y1=uy;
441
x2=rx; y2=1/2[uy,ly];
445
draw z1--z4; draw z2--z3;
449
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
450
def Quad(expr lx, uy, rx, ly) = % the Four Strokes-shape
469
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
470
def Sanduhr(expr lx, uy, rx, ly) = % the Sanduhr-shape
478
draw z1--z2--z3--z4--cycle;
482
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
483
def Sichel(expr lx, uy, rx, ly) = % the Sichel-shape
493
y4:=y5:=11/16[y2,y6];
494
x7:=rx; y7:=ly; % Ein Hilfspunkt!
496
draw z1..z2..z3---z4{z4-z3}..{z5-z7}z5&z5--z6;
500
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
501
def Smiley(expr lx, uy, rx, ly) = % the Smiley-shape
508
z5=(1/2[lx,rx],2/3[uy,ly]);
517
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
518
%%%%% The Yi Syllable Font, Common Definitions, ends here. %%%%%
519
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%