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