~ubuntu-branches/debian/wheezy/texlive-extra/wheezy

« back to all changes in this revision

Viewing changes to texmf-dist/fonts/source/public/yi4latex/yirdefs.mf

  • Committer: Bazaar Package Importer
  • Author(s): Norbert Preining
  • Date: 2008-12-06 10:27:26 UTC
  • mfrom: (1.2.6 upstream)
  • Revision ID: james.westby@ubuntu.com-20081206102726-x8bamyc8dpgy0w5s
Tags: 2007.dfsg.11-1
This releases fixes 3 RC bugs, thus urgency medium
* blacklist yi4latex, no-sell license (Closes: #507009)
* blacklist colortab, no-sell/no-modify license (Closes: #507768)
* add license statement for the wsuipa fonts (Closes: #491354)

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2
 
%%%%% The Yi Syllable Font.
3
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4
 
%%%%% (c) Oliver Corff, Berlin/Beijing/Ulaanbaatar 1997.
5
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6
 
%%%%% Common definitions.
7
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8
 
def getpen      =
9
 
        pickup pencircle scaled thick;
10
 
enddef;
11
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12
 
def eyebrow =           % nnnX syllables are covered by this!
13
 
        x97=5/16width;
14
 
        x98=4/8width;
15
 
        x99=11/16width;
16
 
        y97=y99=11/12height;
17
 
        y98=23/24height;
18
 
        getpen;
19
 
        draw z97..z98..z99;
20
 
enddef;
21
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22
 
def gong(expr lx, uy, rx, ly) = % The gong-shape appearing so often.
23
 
        numeric x[];
24
 
        numeric y[];
25
 
        x1:=lx; y1:=uy;
26
 
        x2:=rx; y2:=uy;
27
 
        x3:=lx; y3:=ly;
28
 
        x4:=rx; y4:=ly;
29
 
        z5=1/2[z1,z2];
30
 
        z6=1/2[z3,z4];
31
 
        getpen;
32
 
        draw z1--z2; draw z3--z4; draw z5--z6;
33
 
        numeric x[];
34
 
        numeric y[];
35
 
enddef;
36
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
37
 
def Ddash(expr lx, uy, rx, ly) =        % The Double Dash-shape appearing so often.
38
 
        numeric x[];
39
 
        numeric y[];
40
 
        z1=(lx,uy);
41
 
        z2=1/3[z1,z4];
42
 
        z3=2/3[z1,z4];
43
 
        z4=(rx,ly);
44
 
        getpen;
45
 
        draw z1--z2;
46
 
        draw z3--z4;
47
 
        numeric x[];
48
 
        numeric y[];
49
 
enddef;
50
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
51
 
def Er(expr lx, uy, rx, ly) =% The er-shape appearing so often.
52
 
        numeric x[];
53
 
        numeric y[];
54
 
        x1=lx; y1=uy;
55
 
        x2=rx; y2=uy;
56
 
        x3=lx; y3=ly;
57
 
        x4=rx; y4=ly;
58
 
        getpen;
59
 
        draw z1--z2; draw z3--z4;
60
 
        numeric x[];
61
 
        numeric y[];
62
 
enddef;
63
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
64
 
def san(expr lx, uy, rx, ly) =% The san-shape appearing so often.
65
 
        numeric x[];
66
 
        numeric y[];
67
 
        x1=lx; y1=uy;
68
 
        x2=rx; y2=uy;
69
 
        x3=lx; y3=ly;
70
 
        x4=rx; y4=ly;
71
 
        x5=lx; y5=1/2[ly,uy];
72
 
        x6=rx; y6=1/2[ly,uy];
73
 
        getpen;
74
 
        draw z1--z2; draw z3--z4; draw z5--z6;
75
 
        numeric x[];
76
 
        numeric y[];
77
 
enddef;
78
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
79
 
def H(expr lx, uy, rx, ly) =    % The H-shape appearing so often.
80
 
        numeric x[];
81
 
        numeric y[];
82
 
        x1:=lx; y1:=uy;
83
 
        x2:=lx; y2:=ly;
84
 
        x3:=rx; y3:=uy;
85
 
        x4:=rx; y4:=ly;
86
 
        z5=1/2[z1,z2];
87
 
        z6=1/2[z3,z4];
88
 
        getpen;
89
 
        draw z1--z2; draw z3--z4; draw z5--z6;
90
 
        numeric x[];
91
 
        numeric y[];
92
 
enddef;
93
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
94
 
def Ih(expr lx, uy, rx, ly) =   % The Single Dash-shape appearing so often.
95
 
        numeric x[];
96
 
        numeric y[];
97
 
        z1=(lx,uy);
98
 
        z2=(rx,ly);
99
 
        getpen;
100
 
        draw z1--z2;
101
 
        numeric x[];
102
 
        numeric y[];
103
 
enddef;
104
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
105
 
def II(expr lx, uy, rx, ly) =% The II-shape appearing so often.
106
 
        numeric x[];
107
 
        numeric y[];
108
 
        x1:=lx; y1:=uy;
109
 
        x2:=lx; y2:=ly;
110
 
        x3:=rx; y3:=uy;
111
 
        x4:=rx; y4:=ly;
112
 
        getpen;
113
 
        draw z1--z2; draw z3--z4;
114
 
        numeric x[];
115
 
        numeric y[];
116
 
enddef;
117
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
118
 
def III(expr lx, uy, rx, ly) =% The III-shape appearing so often.
119
 
        numeric x[];
120
 
        numeric y[];
121
 
        x1=lx; y1=uy;
122
 
        x2=lx; y2=ly;
123
 
        x3=rx; y3=uy;
124
 
        x4=rx; y4=ly;
125
 
        x5=1/2[lx,rx]; y5=uy;
126
 
        x6=1/2[lx,rx]; y6=ly;
127
 
        getpen;
128
 
        draw z1--z2; draw z3--z4; draw z5--z6;
129
 
        numeric x[];
130
 
        numeric y[];
131
 
enddef;
132
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
133
 
def N(expr lx, uy, rx, ly) =    % The N-shape appearing so often.
134
 
        numeric x[];
135
 
        numeric y[];
136
 
        x1:=lx; y1:=ly;
137
 
        x2:=lx; y2:=uy;
138
 
        x3:=rx; y3:=ly;
139
 
        x4:=rx; y4:=uy;
140
 
        getpen;
141
 
        draw z1--z2--z3--z4;
142
 
        numeric x[];
143
 
        numeric y[];
144
 
enddef;
145
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
146
 
def Oh(expr lx, uy, rx, ly) =   % The O-shape appearing so often.
147
 
        numeric x[];
148
 
        numeric y[];
149
 
        x51:=x53:=1/2[lx,rx];
150
 
        y51:=uy;
151
 
        x52:=rx;
152
 
        y52:=y54:=1/2[uy,ly];
153
 
        y53:=ly;
154
 
        x54:=lx;
155
 
        getpen;
156
 
        draw z51..z52..z53..z54..cycle;
157
 
        numeric x[];
158
 
        numeric y[];
159
 
enddef;
160
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
161
 
def Otense(expr lx, uy, rx, ly, t) = % The O-shape appearing so often.
162
 
        numeric x[];
163
 
        numeric y[];
164
 
        x1=x3=1/2[lx,rx];
165
 
        y1=uy;
166
 
        x2=rx;
167
 
        y2=y4=1/2[uy,ly];
168
 
        y3=ly;
169
 
        x4=lx;
170
 
        getpen;
171
 
        draw z1..tension t..z2..tension t..z3..tension t..z4..tension t..cycle;
172
 
        numeric x[];
173
 
        numeric y[];
174
 
enddef;
175
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
176
 
def S(expr lx, uy, rx, ly) =    % The S-shape appearing so often.
177
 
        numeric x[];
178
 
        numeric y[];
179
 
        z1=(rx,5/6[ly,uy]);
180
 
        z2=(1/2[lx,rx],uy);
181
 
        z3=(lx,1/4[uy,ly]);
182
 
        z4=(x2,1/2[uy,ly]);
183
 
        z5=(rx,1/4[ly,uy]);
184
 
        z6=(x2,ly);
185
 
        z7=(lx,1/6[ly,uy]);
186
 
        getpen;
187
 
        draw z1..{left}z2{left}..z3..z4..z5..{left}z6{left}..z7;
188
 
        numeric x[];
189
 
        numeric y[];
190
 
enddef;
191
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
192
 
def T(expr lx, uy, rx, ly) =    % The Single Dash-shape appearing so often.
193
 
        Ih(lx,uy,rx,uy);
194
 
        Ih(1/2[lx,rx],uy,1/2[lx,rx],ly);
195
 
enddef;
196
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
197
 
def Tdash(expr px, uy, ly) =    % The Triple Dash-shape appearing so often.
198
 
        numeric x[];
199
 
        numeric y[];
200
 
        z1=(px,uy);
201
 
        z2=(x1,1/5[uy,ly]);
202
 
        z3=(x1,2/5[uy,ly]);
203
 
        z4=(x1,3/5[uy,ly]);
204
 
        z5=(x1,4/5[uy,ly]);
205
 
        z6=(x1,ly);
206
 
        getpen;
207
 
        draw z1--z2;
208
 
        draw z3--z4;
209
 
        draw z5--z6;
210
 
        numeric x[];
211
 
        numeric y[];
212
 
enddef;
213
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
214
 
def U(expr lx, uy, rx, ly) =    % The U-shape appearing so often.
215
 
        numeric x[];
216
 
        numeric y[];
217
 
        z1=(lx,uy);
218
 
        z2=(lx,2/3[uy,ly]);
219
 
        z3=(1/2[lx,rx],ly);
220
 
        z4=(rx,y2);
221
 
        z5=(rx,uy);
222
 
 
223
 
        getpen;
224
 
        draw z1---z2..z3..z4---z5;
225
 
        numeric x[];
226
 
        numeric y[];
227
 
enddef;
228
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
229
 
def X(expr lx, uy, rx, ly) =    % The X-shape appearing so often.
230
 
        numeric x[];
231
 
        numeric y[];
232
 
        x1:=lx; y1:=uy;
233
 
        x2:=rx; y2:=uy;
234
 
        x3:=lx; y3:=ly;
235
 
        x4:=rx; y4:=ly;
236
 
        getpen;
237
 
        draw z1--z4; draw z2--z3;
238
 
        numeric x[];
239
 
        numeric y[];
240
 
enddef;
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.
248
 
        x4:=rx; y4:=ly;
249
 
        getpen;
250
 
        draw z1--z4--z2--z3;
251
 
        numeric x[];
252
 
        numeric y[];
253
 
enddef;
254
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
255
 
def IXI(expr lx, uy, rx, ly) = % The IXI-shape appearing so often.
256
 
        numeric x[];
257
 
        numeric y[];
258
 
        x1:=lx; y1:=uy;
259
 
        x2:=rx; y2:=uy;
260
 
        x3:=lx; y3:=ly;
261
 
        x4:=rx; y4:=ly;
262
 
        getpen;
263
 
        draw z1--z4--z2--z3--cycle;
264
 
        numeric x[];
265
 
        numeric y[];
266
 
enddef;
267
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
268
 
def Z(expr lx, uy, rx, ly) = % the inverted Z-shape
269
 
        numeric x[];
270
 
        numeric y[];
271
 
        x1:=lx;
272
 
        x4:=rx;
273
 
        x2:=x3:=1/2[x1,x4];
274
 
        y2:=ly;
275
 
        y3:=uy;
276
 
        y1:=1/6[y2,y3];
277
 
        y4:=5/6[y2,y3];
278
 
        getpen;
279
 
        draw z1--z2--z3--z4;
280
 
        numeric x[];
281
 
        numeric y[];
282
 
enddef;
283
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
284
 
def Zdash(expr lx, uy, rx, ly) = % the inverted Z-shape with dash
285
 
        numeric x[];
286
 
        numeric y[];
287
 
        x1:=lx;
288
 
        x4:=rx;
289
 
        x2:=x3:=1/2[x1,x4];
290
 
        y2:=ly;
291
 
        y3:=uy;
292
 
        y1:=1/6[y2,y3];
293
 
        y4:=5/6[y2,y3];
294
 
        z5=(lx,1/2[uy,ly]); z6=(rx,y5);
295
 
        getpen;
296
 
        draw z1--z2--z3--z4;
297
 
        draw z5--z6;
298
 
        numeric x[];
299
 
        numeric y[];
300
 
enddef;
301
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
302
 
def ZPimmel(expr lx, uy, rx, ly) = % the inverted Z-shape with Pimmel
303
 
        numeric x[];
304
 
        numeric y[];
305
 
        x1:=lx;
306
 
        x4:=rx;
307
 
        x2:=x3:=1/2[x1,x4];
308
 
        y2:=ly;
309
 
        y3:=uy;
310
 
        y1:=1/6[y2,y3];
311
 
        y4:=5/6[y2,y3];
312
 
        z5=(1/2[lx,rx],2/5[uy,ly]); z6=(7/8[lx,rx],1/4[ly,uy]);
313
 
        getpen;
314
 
        draw z1--z2--z3--z4;
315
 
        draw z5{z2-z1}..{down}z6;
316
 
        numeric x[];
317
 
        numeric y[];
318
 
enddef;
319
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
320
 
def Arsch(expr lx, uy, rx, ly) = % the Arsch-shape
321
 
        numeric x[];
322
 
        numeric y[];
323
 
        z1=(1/2[lx,rx],uy);
324
 
        z2=(rx,6/24[ly,uy]);
325
 
        z3=(1/2[x2,x4],ly);
326
 
        z4=(x1,y2);
327
 
        z5=(1/2[x4,x6],ly);
328
 
        z6=(lx,y2);
329
 
        getpen;
330
 
        draw z1{right}..tension 1.5..z2{down}..z3..{up}z4 &
331
 
        z4{down}..z5..{up}z6..tension 1.5..{right}z1..cycle;
332
 
        numeric x[];
333
 
        numeric y[];
334
 
enddef;
335
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
336
 
def Blitz(expr lx, uy, rx, ly) = % the Blitz-shape
337
 
        numeric x[];
338
 
        numeric y[];
339
 
        z1=(1/2[lx,rx],uy);
340
 
        z2=(lx,1/3[ly,uy]);
341
 
        z3=(rx,1/3[uy,ly]);
342
 
        z4=(x1,ly);
343
 
        getpen;
344
 
        draw z1--z2--z3--z4;
345
 
        numeric x[];
346
 
        numeric y[];
347
 
enddef;
348
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
349
 
def Brunnen(expr lx, uy, rx, ly) = % the Brunnen (jing)-shape
350
 
        numeric x[];
351
 
        numeric y[];
352
 
        z1=(1/4[lx,rx],uy);
353
 
        z2=(x1,ly);
354
 
        z3=(3/4[lx,rx],uy);
355
 
        z4=(x3,ly);
356
 
        z5=(lx,1/4[uy,ly]);
357
 
        z6=(rx,y5);
358
 
        z7=(lx,3/4[uy,ly]);
359
 
        z8=(rx,y7);
360
 
        getpen;
361
 
        draw z1--z2;
362
 
        draw z3--z4;
363
 
        draw z5--z6;
364
 
        draw z7--z8;
365
 
        numeric x[];
366
 
        numeric y[];
367
 
enddef;
368
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
369
 
def Busen(expr lx, uy, rx, ly) = % the Busen-shape
370
 
        numeric x[];
371
 
        numeric y[];
372
 
        x11:=lx;
373
 
        x15:=rx;
374
 
        x13:=1/2[x11,x15];
375
 
        x12:=1/2[x11,x13];
376
 
        x14:=1/2[x13,x15];
377
 
        y11:=y13:=y15:=uy;
378
 
        y12:=y14:=ly;
379
 
        
380
 
        getpen;
381
 
        draw z11{down}..z12..{up}z13 & z13{down}..z14..{up}z15;
382
 
        numeric x[];
383
 
        numeric y[];
384
 
enddef;
385
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
386
 
def Gasmaske(expr lx, uy, rx, ly) = % the Gasmaske-shape
387
 
        numeric x[];
388
 
        numeric y[];
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);
392
 
        numeric x[];
393
 
        numeric y[];
394
 
enddef;
395
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
396
 
def Huegel(expr lx, uy, rx, ly) = % the Huegel-shape
397
 
        numeric x[];
398
 
        numeric y[];
399
 
        z1=(lx,ly);
400
 
        z2=(1/2[lx,rx],uy);
401
 
        z3=(rx,ly);
402
 
        getpen;
403
 
        draw z1{up}..tension 1.2..z2..tension 1.2..{down}z3;
404
 
        numeric x[];
405
 
        numeric y[];
406
 
enddef;
407
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
408
 
def Jalousie(expr lx, uy, rx, ly) =     % The Jalousie-shape appearing so often.
409
 
        numeric x[];
410
 
        numeric y[];
411
 
        z1=(lx,uy);
412
 
        z2=(rx,1/5[uy,ly]);
413
 
        z3=(x1,2/5[uy,ly]);
414
 
        z4=(x2,3/5[uy,ly]);
415
 
        z5=(x1,4/5[uy,ly]);
416
 
        z6=(x2,ly);
417
 
        getpen;
418
 
        draw z1--z2;
419
 
        draw z3--z4;
420
 
        draw z5--z6;
421
 
        numeric x[];
422
 
        numeric y[];
423
 
enddef;
424
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
425
 
def Liane(expr lx, uy, rx, ly) = % the Liane-shape
426
 
        numeric x[];
427
 
        numeric y[];
428
 
        z1=(lx,uy);
429
 
        z2=(1/2[lx,rx],ly);
430
 
        z3=(rx,uy);
431
 
        getpen;
432
 
        draw z1{down}..tension 1.2..z2..tension 1.2..{up}z3;
433
 
        numeric x[];
434
 
        numeric y[];
435
 
enddef;
436
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
437
 
def Plus(expr lx, uy, rx, ly) = % The Plus-shape appearing so often.
438
 
        numeric x[];
439
 
        numeric y[];
440
 
        x1=1/2[lx,rx]; y1=uy;
441
 
        x2=rx; y2=1/2[uy,ly];
442
 
        x3=lx; y3=y2;
443
 
        x4=x1; y4=ly;
444
 
        getpen;
445
 
        draw z1--z4; draw z2--z3;
446
 
        numeric x[];
447
 
        numeric y[];
448
 
enddef;
449
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
450
 
def Quad(expr lx, uy, rx, ly) = % the Four Strokes-shape
451
 
        numeric x[];
452
 
        numeric y[];
453
 
        z1=(lx,uy);
454
 
        z2=(lx,1/3[uy,ly]);
455
 
        z3=(lx,2/3[uy,ly]);
456
 
        z4=(lx,ly);
457
 
        z5=(rx,y1);
458
 
        z6=(rx,y2);
459
 
        z7=(rx,y3);
460
 
        z8=(rx,y4);
461
 
        getpen;
462
 
        draw z1--z2;
463
 
        draw z3--z4;
464
 
        draw z5--z6;
465
 
        draw z7--z8;
466
 
        numeric x[];
467
 
        numeric y[];
468
 
enddef;
469
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
470
 
def Sanduhr(expr lx, uy, rx, ly) = % the Sanduhr-shape
471
 
        numeric x[];
472
 
        numeric y[];
473
 
        z1=(lx,uy);
474
 
        z2=(rx,uy);
475
 
        z3=(lx,ly);
476
 
        z4=(rx,ly);
477
 
        getpen;
478
 
        draw z1--z2--z3--z4--cycle;
479
 
        numeric x[];
480
 
        numeric y[];
481
 
enddef;
482
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
483
 
def Sichel(expr lx, uy, rx, ly) = % the Sichel-shape
484
 
        numeric x[];
485
 
        numeric y[];
486
 
        x1:=x5:=x6:=lx;
487
 
        x3:=x4:=rx;
488
 
        x2:=1/2[x1,x3];
489
 
        
490
 
        y2:=uy;
491
 
        y6:=ly;
492
 
        y1:=y3:=1/6[y2,y6];
493
 
        y4:=y5:=11/16[y2,y6];
494
 
        x7:=rx; y7:=ly; % Ein Hilfspunkt!
495
 
        getpen;
496
 
        draw z1..z2..z3---z4{z4-z3}..{z5-z7}z5&z5--z6;
497
 
        numeric x[];
498
 
        numeric y[];
499
 
enddef;
500
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
501
 
def Smiley(expr lx, uy, rx, ly) = % the Smiley-shape
502
 
        numeric x[];
503
 
        numeric y[];
504
 
        z1=(lx,uy);
505
 
        z2=(lx,1/3[uy,ly]);
506
 
        z3=(rx,y1);
507
 
        z4=(rx,y2);
508
 
        z5=(1/2[lx,rx],2/3[uy,ly]);
509
 
        z6=(x5,ly);
510
 
        getpen;
511
 
        draw z1--z2;
512
 
        draw z3--z4;
513
 
        draw z5--z6;
514
 
        numeric x[];
515
 
        numeric y[];
516
 
enddef;
517
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
518
 
%%%%% The Yi Syllable Font, Common Definitions, ends here. %%%%%
519
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%