1%%%%%%%%%%%%%%%%%%%%%%%%%%% xnshlig.mf %%%%%%%%%%%%%%%%%%%%%%%%
2% Extended NASH Font
3% ligatures
4% 14.07.98
5%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6% (c) Klaus Lagally
7%     Institut fuer Informatik
8%     Universitaet Stuttgart
9%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10
11if unknown xnshbase: input xnshbase fi;
12
13%%%%%%%%%%%%%% alif after mim %%%%%%%%%%%%%%%%%
14
15arabchar(alif_spec_mim, f_end, 3, 15, 0); % mim-alif
16x1 + dx = x2 + .5dx = x.r; y1 = 13dy; y2 = y.r + .5dy;
17bow(z1, z2, z.r); serif(1);
18endchar;
19
20%%%%%%%%%%%%%% bah_high %%%%%%%%%%%%%%%%%
21
22arabchar(bah_high, f_beg, 5, 10, 0);
23x.m := x.m + 0.5dx;
24x1 - dx = x2 = x.m; y1 = y.l; y2 = y.l + 6dy;
25bow(z2, z1, z.l);
26endchar;
27
28arabchar(bah_high, f_mid, 6, 10, 0);
29x5 - dx = x6 = x.m;
30y6 = good.y (y.l + 6dy); y5 = y.l;
31z4 = .5[z6, z5];
32l_att(4); bow(z6, z5, z.r);
33endchar;
34
35%%%%%%%%%%%%%% bah before nun %%%%%%%%%%%%%%%%%
36
37arabchar(bah_spec, f_beg, 5, 10, 0);
38x4 - 2dx = x.ll; y4 - 2dy = y.ll;
39draw z4{(dx,-2dy)}..z.ll{left};
40r_con(ll); % measure for raising final nun, rah
41endchar;
42
43arabchar(bah_spec, f_mid, 5, 10, 0);
44x6 = x.l + 2dx; y6 = good.y (y.ll + 2dy);
45draw z6..z.ll{left}; draw z6{down}..z.r{right};
46%r_con(ll);
47endchar;
48
49%%%%%%%%%%%%%% bah over yah maqsoura %%%%%%%%%%%%%%%%%
50
51%arabchar(bah_spec_yah, f_beg, 5, 10, 7);
52arabchar(bah_spec_yah, f_beg, 5, 10, 2);
53x1 - 2dx = x2 - 3dx = x.l; y1 - 6dy = y2 - dy = y.l;
54draw z1{(4dx,-7dy)}..z2..z.l{(-6dx,-dy)};
55endchar;
56
57arabchar(bah_spec_yah, f_mid, 4, 8, 2);
58z1 = 0.5[z.ll, z.rr]; x2 = x.l; x4 = x.r;
59y2 = y4 = y.r + dy;
60draw z.ll..controls z1 and z2..z4;
61r_con(4);
62endchar;
63
64%%%%%%%%%%%%%% bah over middle mim %%%%%%%%%%%%%%%%%
65
66arabchar(bah_mid_mim, f_beg, 6, 10, 0);
67x1 = x.rr - dx; y1 = y.rr + dy;
68draw z.l{(-dx,dy)}..z1{(dx,-dy)};
69endchar;
70
71arabchar(bah_mid_mim, f_mid, 6, 10, 0);
72x1 = x.rr - 3dx; y1 = y.rr + 2dy;
73draw z.l{(-dx,dy)}..z1..z.rr{right};
74r_con(rr);
75endchar;
76
77%%%%%%%%%%%%%% bah over end mim %%%%%%%%%%%%%%%%%
78
79arabchar(bah_beg_mim, f_mid, 5, 8, 0);
80x1 = x.l + 7dx; y1 = y.r + dy;
81draw z.l{(dx,dy)}..z1{(dx,-6dy)};
82endchar;
83
84arabchar(bah_end_mim, f_mid, 8, 8, 4);
85x1 = x.r - 2dx; y1 = y.r + 2dy;
86draw z.l{(dx,dy)}..z1{(dx,-6dy)}..z.r{right};
87endchar;
88
89%%%%%%%%%%%%%% bah over gim %%%%%%%%%%%%%%%%%
90
91%arabchar(bah_spec_gim, f_mid, 12, 8, 7);
92arabchar(bah_spec_gim, f_mid, 12, 8, 0);
93x5 = x4 = x.r - 4dx; y4 - 4dy = y5 = y.r;
94z3 = 0.2[z5,z4]; z1 = 0.9[z1,z3]; z2 = 0.8[z.ll,z4];
95z6 = 0.5[z4, z.rr]; x7 = x5; x8 = x.r; y7 = y8 = y.r + dy;
96draw z.l..controls z1 and z2..z4..controls z6 and z7..z8;
97r_con(8);
98endchar;
99
100arabchar(bah_beg_gim, f_mid, 8, 8, 6);
101x4 - dx = x5 = x.r; y4 - 3dy = y5 - 5dy = y.r;
102z3 = 0.2[z.r,z5]; z1 = 0.9[z.l,z3]; z2 = 0.8[z.ll,z5];
103draw z.l..controls z1 and z2..z5..z4{(dx,-6dy)};
104endchar;
105
106%%%%%%%%%%%%%% bah over hah %%%%%%%%%%%%%%%%%
107
108arabchar(bah_end_hah, f_mid, 6, 8, 5);
109x1 = x.r - 2dx; y1 = y.r + 2dy;
110draw z.l{(dx,dy)}..z1..z.r{right};
111endchar;
112
113arabchar(bah_end_hah, f_beg, 6, 8, 0);
114x1 + 2dx = x.r; y1 = y.r;
115draw z.l{(4dx,7dy)}..z1;
116endchar;
117
118%%%%%%%%%%%%%% hhah-spec-macros %%%%%%%%%%%%%%%%%
119
120def hhah_spec_bar =
121x1 = x2 - 9dx = x.rr;
122y1 = y.rr; y2 = 0.5[y.r, y.rr];
123draw z1{right}..z2{right};
124r_con(rr);
125enddef;
126
127def hhah_spec_beg =
128hhah_spec_bar; draw z2{left}..z.l{left};
129enddef;
130
131def hhah_spec_iso =
132hhah_spec_bar; hhah_bow;
133enddef;
134
135if false:
136%%%%%%%%%%%%%% gim ligature %%%%%%%%%%%%%%%%%
137
138arabchar(gim_spec, f_end, 4, 10, 10);
139hhah_spec_iso;
140x.m := x.r + 2dx;
141one_dot(-3);
142endchar;
143
144arabchar(gim_spec, f_mid, 2, 10, 5);
145hhah_spec_beg;
146x.m := x.r + 4dx;
147one_dot(-4);
148endchar;
149fi
150
151%%%%%%%%%%%%%% hhah ligature %%%%%%%%%%%%%%%%%
152
153arabchar(hhah_spec, f_end, 4, 10, 10);
154hhah_spec_iso;
155endchar;
156
157%arabchar(hhah_spec, f_mid, 2, 10, 5);
158arabchar(hhah_spec, f_mid, 2, 10, 0);
159hhah_spec_beg;
160endchar;
161
162%%%%%%%%%%%%%% khah ligature %%%%%%%%%%%%%%%%%
163
164arabchar(khah_spec, f_end, 4, 15, 10);
165hhah_spec_iso;
166x.m := x.r;
167one_dot(10);
168endchar;
169
170%arabchar(khah_spec, f_mid, 2, 15, 5);
171arabchar(khah_spec, f_mid, 2, 15, 0);
172hhah_spec_beg;
173x.m := x.r;
174one_dot(10);
175endchar;
176
177if false:
178%%%%%%%%%%%%%% tsah ligature %%%%%%%%%%%%%%%%%
179
180arabchar(tsah_spec, f_end, 4, 10, 10);
181hhah_spec_iso;
182x.m := x.r + 3dx;
183three_dots_low(-3);
184endchar;
185
186arabchar(tsah_spec, f_mid, 2, 10, 8);
187hhah_spec_beg;
188x.m := x.r + 4dx;
189three_dots_low(-4);
190endchar;
191fi
192
193%%%%%%%%%%%%%% closed hhah %%%%%%%%%%%%%%%%%
194
195arabchar(gim_close, f_beg, 12, 9, 0); % closed hhah
196%arabchar(gim_close, f_beg, 12, 8, 0); % closed hhah
197x1 = x2 - 9dx = x.l + 2dx; y1 - 4dy = y2 - 2dy = y.r;
198x3 = x7 = x1 + 7dx; y3 - 2dy = y7 = y.r;
199x4 = x1 - 2dx; y4 = y.l + 2dy;
200draw z4..z1{(8dx,3dy)}..z2{right}; draw z2{left}..z.l{left};
201endchar;
202
203%arabchar(gim_close, f_mid, 13, 8, 1); % closed hhah
204%hhah_mid; draw z3{down}..z.r{right};
205%endchar;
206
207%%%%%%%%%%%%%% sin_spec-macros %%%%%%%%%%%%%%%%%
208
209def sin_spec_wave =
210z5 - z.l = z3 - z2;
211x3 - x2 = 2(x3 - x5) = 2dx; x.m := x2;
212y5 = y2 - 2dy = y.l;
213draw z3..z5..z2; draw z2{down}..z.l{left};
214enddef;
215
216def sin_spec_beg =
217sin_spec_wave;
218enddef;
219
220def sin_spec_mid =
221sin_spec_wave; r_att(3);
222enddef;
223
224def sin_spec_mid =
225sin_spec_wave; draw z3{down}..z.r{right};
226enddef;
227
228%%%%%%%%%%%%%% short sin %%%%%%%%%%%%%%%%%
229
230arabchar(sin_spec, f_mid, 6, 6, 0);
231sin_spec_mid;
232endchar;
233
234arabchar(sin_spec, f_beg, 4, 6, 0);
235sin_spec_beg;
236endchar;
237
238if false:
239%%%%%%%%%%%%%% short shin %%%%%%%%%%%%%%%%%
240
241arabchar(shin_spec, f_mid, 6, 15, 0);
242sin_spec_mid; three_dots(8);
243endchar;
244
245arabchar(shin_spec, f_beg, 4, 15, 0);
246sin_spec_beg; three_dots(8);
247endchar;
248fi
249
250%%%%%%%%%%%%%% sad_spec-macros %%%%%%%%%%%%%%%%%
251
252def sad_spec_beg =
253x.m := x.m - dx;
254x1 = x2 - dx = x3 - 9dx = x.l;
255y1 + dy = y2 = y3 - 3dy = y.l;
256x8 = x2 + 3.5dx; y8 = y2 + 0.5dy;
257draw z1{(5dx,6dy)}..z3{(4dx,-7dy)}..tension 2..z.l{left};
258enddef;
259
260%%%%%%%%%%%%%% short sad %%%%%%%%%%%%%%%%%
261
262%arabchar(sad_spec, f_mid, 10, 10, 0);
263arabchar(sad_spec, f_mid, 10, 8, 0);
264sad_spec_beg; draw z.r{left}..z8;
265endchar;
266
267%arabchar(sad_spec, f_beg, 10, 10, 0);
268arabchar(sad_spec, f_beg, 10, 8, 0);
269sad_spec_beg;
270endchar;
271
272if false:
273%%%%%%%%%%%%%% short dad %%%%%%%%%%%%%%%%%
274
275arabchar(dad_spec, f_mid, 10, 10, 0);
276sad_spec_beg; draw z.r{left}..z8;
277one_dot(8);
278endchar;
279
280arabchar(dad_spec, f_beg, 10, 10, 0);
281sad_spec_beg; one_dot(8);
282endchar;
283fi
284
285%%%%%%%%%%%%%% kaf_spec-macros %%%%%%%%%%%%%%%%%
286
287def kaf_spec_beg =
288x1 = x.l + 9dx; x2 = x.l - 3.5dx; x4 = x.l + 8dx;
289%x1 = x.r - dx; x2 = x.l - 3.5dx; x4 = x.r - 2dx;
290%y4 = y.r; y1 = 14dy; y2 = 9dy; z3 = .4[z2, z4];
291y4 = y.l = y1 - 13dy = y2 - 8dy; z3 = .4[z2, z4];
292bow (z1, z2, z3);
293draw z3{z3 - z2}..z.l{left};
294enddef;
295
296%%%%%%%%%%%%%% short kaf %%%%%%%%%%%%%%%%%
297
298arabchar(kaf_spec, f_mid, 10, 15, 0);
299kaf_spec_beg; draw z3{z.r-z3}..z.r{right};
300endchar;
301
302arabchar(kaf_spec, f_beg, 7, 15, 0);
303%arabchar(kaf_spec, f_beg, 10, 15, 0);
304kaf_spec_beg;
305endchar;
306
307%%%%%%%%%%%%%% short gaf %%%%%%%%%%%%%%%%%
308
309%arabchar(gaf_spec, f_mid, 10, 16, 0);
310arabchar(gaf_spec, f_mid, 10, 17, 0);
311kaf_spec_beg; draw z3{z.r-z3}..z.r{right};
312gaf_serif;
313endchar;
314
315%arabchar(gaf_spec, f_beg, 7, 16, 0);
316arabchar(gaf_spec, f_beg, 7, 17, 0);
317kaf_spec_beg;
318gaf_serif;
319endchar;
320
321%%%%%%%%%%%%%% short kaf with loop %%%%%%%%%%%%%%%%%
322
323arabchar(kaf_p_spec, f_mid, 10, 15, 0);
324kaf_spec_beg; draw z3{z.r-z3}..z.r{right};
325z8 = .3[z1,z2]; x9 = x8; y9 = bot y8; p_loop(9);
326endchar;
327
328arabchar(kaf_p_spec, f_beg, 7, 15, 0);
329kaf_spec_beg;
330z8 = .3[z1,z2]; x9 = x8; y9 = bot y8; p_loop(9);
331endchar;
332
333%%%%%%%%%%%%%% short gaf with loop %%%%%%%%%%%%%%%%%
334
335%arabchar(gaf_p_spec, f_mid, 10, 15, 0);
336arabchar(gaf_p_spec, f_mid, 10, 16, 0);
337kaf_spec_beg; draw z3{z.r-z3}..z.r{right};
338z8 = .3[z1,z2]; x9 = x8; y9 = bot y8; p_loop(9);
339gaf_serif;
340endchar;
341
342%arabchar(gaf_p_spec, f_beg, 7, 15, 0);
343arabchar(gaf_p_spec, f_beg, 7, 16, 0);
344kaf_spec_beg;
345z8 = .3[z1,z2]; x9 = x8; y9 = bot y8; p_loop(9);
346gaf_serif;
347endchar;
348
349%%%%%%%%%%%%%% lam_alif %%%%%%%%%%%%%%%%%
350
351def lam_alif_serif(suffix $) =
352x.$sa = x.$sb - 2dx = x.$;
353y.$sa + dy = y.$sb + 3dy = y.$;
354draw z.$--z.$sa--z.$sb;
355enddef;
356
357arabchar(lam_alif_end, 0, 12, 15, 0);
358x1 + 3dx = x2 + 2dx = x.r;
359x3 + 8dx = x4 = x5 + 8dx = x6 + 2dx = x1;
360y1 = 12dy; y2 = y3 + 2dy = y.r; y4 = y6 + dy = 4dy; y5 = 11dy;
361z7 = 0.7[z1,z2]; draw z1---z7..z.r{right};
362bow(z1, z4, z3);
363draw z5{z4 - z5}..z6; lam_alif_serif(5);
364endchar;
365
366arabchar(lam_alif_iso, 0, 11, 15, 0);
367x1 + 2dx = x4 + 2dx = x3 + 6dx = x2 = x5 + 10dx = x.r;
368y1 = 13dy; y4 = 3dy; y3 = y2 = y.r; y5 = 12dy;
369bow(z1, z4, z3);
370bow(z5, z2, z3);
371serif(1); lam_alif_serif(5);
372endchar;
373
374%%%%%%%%%%%%%% lam in 'allah' %%%%%%%%%%%%%%%%%
375
376arabchar(lam_spec_low, f_mid, 5, 11, 0);
377x1 + .5dx = x2 - .5dx = x.m; y1 = 9dy; y2 = y.r;
378bow (z1, z2, z.r); bow (z1, z2, z.l);
379endchar;
380
381%%%%%%%%%%%%%% lam over yah %%%%%%%%%%%%%%%%%
382
383%arabchar(lam_spec_yah, f_mid, 7, 15, 7);
384arabchar(lam_spec_yah, f_mid, 7, 15, 0);
385x4 = x.r; x1 = x2 - dx = x.r - 3dx;
386y1 - 11dy = y2 = y4 = y.r + 2dy;
387z3 = .2[z2, z1];
388bow (z1, z3, z.l); draw z1---z3..z4{right};
389r_con (4);
390endchar;
391
392%arabchar(lam_on_gim, f_mid, 6, 10, 5);
393arabchar(lam_on_gim, f_mid, 6, 12, 0);
394x1 = x2 - dx = x.l + 4dx;
395y1 = 9dy; y2 = y.l; z3 = 0.7[z1, z2];
396draw z1..z3{z2 - z3}..z.l{left}; serif(1);
397endchar;
398
399%arabchar(lam_long, f_beg, 6, 15, 3);
400arabchar(lam_long, f_beg, 6, 15, 0);
401x1 = x2 - dx = x.l + 4dx;
402y1 = 12dy; y2 = y.l; z3 = 0.8[z1, z2];
403draw z1..z3{z2 - z3}..z.l{left}; serif(1);
404endchar;
405
406%%%%%%%%%%%%%% lam over mim and hah %%%%%%%%%%%%%%%%%
407
408arabchar(lam_spec_mim, f_beg, 3, 15, 0);
409x1 + dx = x2 + .5dx = x.l; y1 = 13dy; y2 = y.l + .5dy;
410bow(z1, z2, z.l); serif(1);
411endchar;
412
413arabchar(lam_spec_hah, f_beg, 3, 10, 0);
414x1 + dx = x2 + .5dx = x.l; y1 - 8dy = y2 - .5dy = y.l;
415bow(z1, z2, z.l); serif(1);
416endchar;
417
418%%%%%%%%%%%%%% mim ligatures %%%%%%%%%%%%%%%%%
419
420%arabchar(mim_spec, f_end, 5, 5, 13); % final mim connected from above
421arabchar(mim_spec, f_end, 5, 5, 8); % final mim connected from above
422x2 + 6dx = x4 + 4dx = x5 + 3.5dx = x6 + 4.5dx = x1;
423y2 + dy = y4 + 11dy = y5 - 2.5dy = y6 - 1.5dy = y1;
424z5 = z.r; bow(z4,z2,z1); draw z5--z1;
425endchar;
426
427arabchar(mim_spec, f_mid, 4, 10, 0); % medial mim after lam
428%x2 = x.r = x1 - 2dx; y1 = y.r = y2 - dy;
429x2 = x.r - dx = x1 - 2dx; y1 = y.r = y2 - dy;
430draw z.l{right}..z2..z1;
431r_con(2);
432endchar;
433
434arabchar(mim_spec, f_beg, 8, 10, 5); % mim over gim
435x2 = x1 = x3 + 2dx = x.l + 7dx;
436y2 = y1 - 2dy = y3 - dy = y.l + 2dy;
437draw z3..z1..z2{left}..z.l;
438endchar;
439
440arabchar(mim_spec_mim, f_beg, 6, 10, 0); % mim over mim
441x2 = x1 = x3 + 2dx = x.l + 3dx;
442y2 = y1 - 2dy = y3 - dy = y.l + 5dy;
443draw z3..z1..z2{left}..z.l{(dx,-dy)};
444endchar;
445
446arabchar(mim_spec_high, f_mid, 5, 10, 0); % mim after gim etc
447x1 = x2 - dx = x3 + dx = x.rr;
448y1 = y.rr; y2 = y3 - 3dy = y.l;
449%x1 = x2 - dx = x3 + 2dx = x.rr;
450%y1 = y.rr; y2 = y3 - 2dy = y.l;
451draw z3..tension 2..z2..tension 2..z1..z3..z.l{left};
452%draw z3..tension 2..z2..tension 1.5..z1..z3..z.l{left};
453r_con(1);
454endchar;
455
456%arabchar(mim_spec_long, f_mid, 9, 10, 0); % long mim after lam
457arabchar(mim_spec_long, f_mid, 9, 5, 0); % long mim after lam
458%x2 = x.r = x1 - 2dx; y1 = y.r = y2 - dy;
459x2 = x.r - dx = x1 - 2dx; y1 = y.r = y2 - dy;
460draw z.l{right}..z2..z1;
461r_con(2);
462endchar;
463
464arabchar(mim_spec_alif, f_mid, 8, 8, 3); % mim before alif
465x1 = x2 = x.l + 5dx; y1 + 3dy = y2 - 3dy = y.r;
466z3 = .5[z2, z.r];
467draw z.l{(4dx,-7dy)}..z1{(7dx,-4dy)};
468draw z1{(-7dx,4dy)}..z2{right}..z3{(dx,-6dy)}..z.r{right};
469endchar;
470
471arabchar(mim_lam_gim, f_mid, 6, 10, 2); % lam_mim over gim
472x1 - 2dx = x2 = x.r; y1 + dy = y2 = y.r + 2dy;
473draw z.l{(dx,dy)}..z2..z1;
474r_con(2);
475endchar;
476
477%%%%%%%%%%%%%% hah ligature %%%%%%%%%%%%%%%%%
478
479arabchar(hah_spec, f_end, 5, 8, 0);
480x1 + 2dx = x.r; y1 - 2dy = y.r;
481draw z.r{left}..z1..z.l{(-dx,-dy)};
482endchar;
483
484%arabchar(hah_spec, f_mid, 6, 5, 6); % sharp medial hah
485arabchar(hah_spec, f_mid, 6, 8, 6); % sharp medial hah
486x1 = x2 = x3 + 1.5dx = x.r - 2dx;
487y1 + 6dy = y2 - 2dy = y.r; y3 = y1 + 2dy;
488draw z1{up}..z.r{(dx,dy)};
489bow (z1, z3, z2); l_att(2);
490endchar;
491
492arabchar(hah_spec, f_beg, 5, 8, 2);
493x1 = x.r; x2 - 2dx = x.l;
494y1 = y2 = y.r + 2dy;
495draw z1..z2{up}; draw z2{down}..z.l{left};
496endchar;
497
498arabchar(hah_spec_lam, f_mid, 5, 15, 0); % hah after lam
499x2 = x3 + 1.5dx = x4 - 1.5dx = x.l + 3dx;
500x6 + dx = x5 - 3dx = x.l + 8dx;
501y2 = 2dy; y3 = y4 = 4dy; y6 = dy;
502draw z.rr{curl 0}..tension 1.5..z6..tension 2..z2..z3..z4..z2..z.l{left};
503r_con(rr);
504endchar;
505
506%%%%%%%%%%%%%% yah after sin %%%%%%%%%%%%%%%%%
507
508arabchar(yah_spec, f_end, 9, 5, 7); % final yah connected from above
509x.m := x.m + dx; x2 = x.r + 4dx;
510x3 = x.m; lft x4 = lft x5 + 1.5dx - pl = x.l;
511y2 - dy = y4 = y5 - 3dy = y3 + 3dy = -3dy;
512draw z.r{(8dx,-3dy)}..tension 1.5
513..z2{down}..tension 1.5..z3{left}..z4{up}..z5;
514endchar;
515
516arabchar(yah_h_spec, f_end, 11, 5, 7); % final yah with hook
517x.m := x.m + 2dx; x2 = x.r + 4dx;
518x3 = x.m; lft x4 = x5 - dx = x.r - 9dx;
519y2 - dy = y4 = y5 - 3dy = y3 + 3dy = -3dy;
520draw z.r{(8dx,-3dy)}..tension 1.5
521..z2{down}..tension 1.5..z3{left}..z4{up}..z5;
522x7 = x5 - 3dx; y7 = y5 - 5dy; draw z5--z7;
523endchar;
524
525%%%%%%%%%%%%%% ties %%%%%%%%%%%%%%%%%
526
527%arabchar(mm_to_b, f_mid, 6, 5, 6);
528%x1 = x.rr - 3dx; y1 = y.r + 2dy;
529%x2 = x.l; y.l - y2 = y.rr - y.r;
530%draw z2{(-dx,dy)}..z1..z.r{right};
531%r_con(rr);
532%endchar;
533
534arabchar(er_to_s, f_mid, 5, 5, 0);
535x1 + dx = x.l; x5 = x.r - 2dx;
536y1 - .5dy = y5 - 2dy = y.r;
537draw z1--z5; draw z5..z.r{right};
538endchar;
539
540arabchar(g_to_mb, f_mid, 8, 8, 6);
541z3 = 0.2[z.r,z.rr]; z1 = 0.9[z1,z3]; z2 = 0.8[z.ll,z.rr];
542draw z.l..controls z1 and z2..z.rr;
543endchar;
544
545endinput;
546%%%%%%%%%%%%%% EOF %%%%%%%%%%%%%%%%%%%%%%
547
548