diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/montex/mbglyphs.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/montex/mbglyphs.mf | 660 |
1 files changed, 660 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/montex/mbglyphs.mf b/Master/texmf-dist/fonts/source/public/montex/mbglyphs.mf new file mode 100644 index 00000000000..7b9280daf61 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/montex/mbglyphs.mf @@ -0,0 +1,660 @@ +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% File: mbglyphs.mf +% Author: Oliver Corff and Dorjpalam Dorj +% Date: October 1st, 2001 +% Version: 0.2 +% Copyright: Ulaanbaatar, Beijing, Berlin +% +% Description: Local Mongolian Script (LM[AOX]) +% Mongol Bicig Modyn Bar Glyph Definition +% +% Common Glyphs for Mongol and Manju +% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_TITEMSTROKE,numtaigedeswidth#,height#,depth#); + "The titem"; + titem_stroke(0); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +if style=wood: titemwidth#:=shudwidth#+numtaigedeswidth# fi; +if style=steel: titemwidth#:=shudwidth# fi; + +beginchar(MONG_TITEM,titemwidth#,height#,depth#); + "The titem"; + if style=steel: + titem; + fi; + if style=wood: + titem_stroke(shudwidth); + shud(0) + fi; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_SHUD,shudwidth#,height#,depth#); + "The shud"; + shud(0); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_SHILBE,shilbewidth#,height#,depth#); + "Shilbe"; + shilbe(0); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_GEDES,gedeswidth#,height#,depth#); + "gedes"; + gedes(0); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_ADAGU,eswidth#,height#,depth#); + "Letter final o, u"; + adagu; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_CEGTEISHUD,shudwidth#,height#,depth#); + "dusaltai shud"; + shud(0); + dusal (1/2shudwidth,yashilbeheight,3thin,2thick); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +if style=wood: exennwidth#:=numtaigedeswidth#+shudwidth# fi; +if style=steel: exennwidth#:=shudwidth# fi; + +beginchar(MONG_EXENN,exennwidth#,height#,depth#); + "Initial titemtei, cegtei shud"; + if style=wood: + titem_stroke(shudwidth); + cegteishud(0) + fi; + if style=steel: + cegteititem; + fi; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_LEWER,shudwidth#,height#,depth#); + "The glyph l in non-final position"; + shud(0); + l_ewer(1/2shudwidth); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +if style=wood: exenlwidth#:=numtaigedeswidth#+shudwidth# fi; +if style=steel: exenlwidth#:=shudwidth# fi; + +beginchar(MONG_EXENL,exenlwidth#,height#,depth#); + "Initial l"; + if style=wood: + titem_stroke(shudwidth); + shud(0); + l_ewer(1/2shudwidth); + fi; + if style=steel: + titem; + l_ewer(1/2shudwidth); + fi; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_SUULIINLEWER,eswidth#,height#,depth#); + "The glyph L in final position"; + z1=(shudwidth+6.00thin,nuruuleft); + z2=(shudwidth-bearing,y1); + z3=(1/2shudwidth,gedesouter); + z4=(bearing,nuruuleft); + %z5=(,underinner); + z5=(7/16shudwidth-2.25thin,underinner+thin); + z6=(7/16shudwidth+thin,underouter); + z7=(shudwidth+1/2gedeswidth,underinner); + z8=(7/16shudwidth+thin,underinner); + z9=(7/16shudwidth,underinner+thin); + x10=(9/16shudwidth); + z10-z11=whatever*(z2-z3); + z11=(3/4shudwidth,nuruuright); + z12=(x1,nuruuright); + % pickup pencircle scaled .25 thin; + fill (z1--z2--z3--z5{down}..{right}z6---z7& + z7---z8{left}..{up}z9---z10--z11--z12--cycle) ifrotated; + penlabels(1,2,3,4,5,6,7,8,9,10,11,12); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_TERTIARYLEWER,numtaigedeswidth#,height#,depth#); + "The glyph L in blam-a"; + nuruu(secAwidth,0); + shud_atom(secAwidth,bearing); + %penstroke (z1e{up}..z2e..{down}z3e) ifrotated; + + z5r=(numtaigedeswidth,underouter); + z6l=(secAwidth,nuruuright); + penpos4(thin,0); + penpos5(underinner-underouter,-90); + penpos6(2thin,-180); + penstroke (z5e{left}..{up}z6e) ifrotated; + + z7=(1/2[secAwidth,bearing],shudheight); + z8=(secAwidth,nuruuleft); + z9=(x8,nuruuright); + unfill (z7--z8--z9--cycle) ifrotated; + + z11r=(1/3shudwidth,nuruuright); + z12r=(1/3shudwidth,-0.8thick+underouter+1.5thin); + z13r=(x11+1.5thin,-0.8thick+underouter); + z14r=(2/3shudwidth+gedeswidth,-0.8thick+underouter); + penpos11(thin,0); + penpos12(2.25thin,0); + penpos13(underinner-underouter,+90); + penpos14(epsilon,+90); + penstroke (z11e---z12e{down}..{right}z13e---z14e) ifrotated; + penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_HIGHLEWER,shudwidth#,height#,depth#); + "The glyph l in non-final position, raised for 'b's friends"; + shud(0); + z1r=(1/2shudwidth,nuruuright); + z2r=(1/2shudwidth,underouter+0.5thin); + z3r=(x1+1.5thin,underouter-thin); + z4r=(shudwidth+shudwidth,underouter-thin); +% z4r=(shudwidth+gedeswidth,underouter-thin); + penpos1(1.75thin,0); + penpos2(2.25thin,0); + penpos3(underinner-underouter,+90); + penpos4(epsilon,+90); + penstroke (z1e---z2e{down}..{right}z3e---z4e) ifrotated; + penlabels(1,2,3,4); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_MEWER,shudwidth#,height#,depth#); + "The glyph m in non-final position"; + shud(0); + m_ewer(1/2shudwidth); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +if style=wood: exenmwidth#:=numtaigedeswidth#+shudwidth# fi; +if style=steel: exenmwidth#:=shudwidth# fi; + +beginchar(MONG_EXENM,exenmwidth#,height#,depth#); + "Initial m"; + if style=wood: + titem_stroke(shudwidth); + shud(0); + m_ewer(2/12shudwidth); + fi; + if style=steel: + titem; + m_ewer(2/12shudwidth); + fi; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_SUULIINMEWER,eswidth#,height#,depth#); + "The glyph m in final position"; + nuruu(eswidth,23/24gedeswidth); + z1r=(gedeswidth-5thin,gedesouter); + z2 =(x1-thin,Centerline); + z3 =(0,underouter); + penpos1(thick,15); + penpos2(2/3thick,0); + penpos3(1/2thin,0); + penstroke (z1e..z2e..z3e) ifrotated; + penlabels(1,2,3); + + z4r=(x1r,gedesouter); + z5 =(eswidth-2thin,Centerline); + z6r=(14/16shudwidth,underouter); + z7 =(7/16shudwidth,underinner+thin); + penpos4(1/2thin,30); + penpos5(1.25thin,0); + penpos6(underouter-underinner, 90); + penpos7(epsilon, 135); + penstroke (z4e{dir -45}..tension 1.25..z5e + ..tension 1.25..z6e..tension 1.25..z7e) ifrotated; + penlabels(4,5,6,7); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_LIGLL,2shudwidth#,height#,depth#); + "A Ligature: ll"; + shud(0); + shud(shudwidth); + + z1r=(3/2shudwidth,nuruuright); + z2r=(3/2shudwidth,underinner+1.5thin); + z3r=(x1+1.5thin,underinner); + z4r=(2shudwidth+gedeswidth,underinner); + penpos1(1.75thin,0); + penpos2(2.25thin,0); + penpos3(underinner-underouter,+90); + penpos4(epsilon,+90); + penstroke (z1e---z2e{down}..{right}z3e---z4e) ifrotated; + penlabels(1,2,3,4); + + z11r=(1/2shudwidth,nuruuright); + z12r=(1/2shudwidth,underouter+0.5thin); + z13r=(x11+1.5thin,underouter-thin); + z14r=(shudwidth+gedeswidth,underouter-thin); + penpos11(1.75thin,0); + penpos12(2.25thin,0); + penpos13(underinner-underouter,+90); + penpos14(epsilon,+90); + penstroke (z11e---z12e{down}..{right}z13e---z14e) ifrotated; + penlabels(11,12,13,14); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_LIGML,2shudwidth#,height#,depth#); + "A Ligature: ml"; + shud(0); + shud(shudwidth); + + z1=(10/16shudwidth+shudwidth,Centerline); + z2r=(6/16shudwidth+shudwidth,underinner+1.5thin); + z3 =(6/16shudwidth,y2); + + penpos1(0.8thick,+95); + penpos2(0.8thick,+95); + penpos3(0.8thick,+75); + + penstroke (z1e--z2e--z3e) ifrotated; + penlabels(1,2,3); + + z11l=(x3l,y3l); + z12r=(x11r,underouter+0.5thin); + z13r=(x11+1.5thin,underouter-1.5thin); + z14r=(shudwidth+gedeswidth,y13r); + penpos11(1.75thin,0); + penpos12(2.25thin,0); + penpos13(underinner-underouter,+90); + penpos14(epsilon,+90); + penstroke (z11e---z12e{down}..{right}z13e---z14e) ifrotated; + penlabels(11,12,13,14); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_XEWTEEQIX,tewidth#,height#,depth#); + "The letter initial x"; + xewteeqix; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_DUNDG,2shudwidth#,height#,depth#); + "Medial g"; + cegteishud(0); + cegteishud(shudwidth); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_DUNDX,2shudwidth#,height#,depth#); + "Medial x"; + shud(0); + shud(shudwidth); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_ADAGX,2shudwidth#,height#,depth#); + "Final x"; + shud(shudwidth); + bagaodoisuul; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_DUNDNG,shudwidth#+numtaigedeswidth#,height#,depth#); + "Medial ng"; + shud(numtaigedeswidth); + baganum; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_ADAGNG,shudwidth#+shilbewidth#+orxicwidth#,height#,depth#); + "Final ng"; + shud(orxicwidth+shilbewidth); + shilbe(orxicwidth); + orxic(0); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_LIGKA,tewidth#,height#,depth#); + "A Ligature: KA"; + ligka; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_LIGKI,eswidth#+secAwidth#,height#,depth#); + "A Ligature: KI"; + ligki; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_LIGKU,bawidth#,height#,depth#); + "A Ligature: KU"; + ligku; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_ADAGI,gedeswidth#,height#,depth#); + "Vowel I in final position"; + nuruu(gedeswidth,gedeswidth-bearing); + z1l=(1/3gedeswidth,shudheight); + z2r=(gedeswidth-1/2bearing,nuruuleft); + penpos1(4thin,60); + penpos2(2thin,0); + + z4 =(x2,nuruuright); + z5r=(1/2[x4,x6],underouter); + z6r=(0,nuruuright); % nuruuright was Centerline + penpos4(2thin,0); + penpos5(underinner-underouter,-90); + penpos6(epsilon,-180); + + penstroke (z1e..tension 1.2..z2e...z4e{down}..z5e..{up}z6e) ifrotated; + penlabels(1,2,3,4,5,6); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_NUMTDELBENQIX,eswidth#,height#,depth#); + "Letter p"; + nuruu(eswidth,eswidth-numtaigedeswidth); + + z1r=(eswidth-1/2bearing,gedesouter+thin); + z2r=(1/3[x1,x4],gedesouter); + z3r=(7/12[x1,x4],gedesouter); + z4r=(eswidth-numtaigedeswidth,nuruuleft); + penpos1(thin,180); + penpos2(gedesouter-gedesinner,90); + penpos3(gedesouter-gedesinner,90); + penpos4(thin,180); + penstroke (z1e..z2e..z3e..{down}z4e) ifrotated; + + z5r=(x1,nuruuright); + z6r=(1/2[x5,x7],underouter); + z7r=(0,Centerline); + penpos5(thin,0); + penpos6(underinner-underouter,-90); + penpos7(1/4thin,-180); + penstroke (z5e{down}..z6e..{up}z7e) ifrotated; + penlabels(1,2,3,4,5,6,7); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_BAGANUM,numtaigedeswidth#,height#,depth#); + "Smaller version of female g"; + baganum; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_ADAGK,shilbewidth#+orxicwidth#,height#,depth#); + "Final k"; + shilbe(orxicwidth); + orxic(0); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_NUMTAIGEDES,eswidth#,height#,depth#); + "Letter b, or final u"; + nuruu(eswidth,eswidth-numtaigedeswidth); + + z1r=(eswidth-1/2bearing,nuruuleft); + z2r=(1/2[x1,x3],gedesouter); + z3r=(eswidth-numtaigedeswidth,nuruuleft); + penpos1(thin,0); + penpos2(gedesouter-gedesinner,90); + penpos3(thin,180); + penstroke (z1e{up}..z2e..{down}z3e) ifrotated; + + z4 =(x1,nuruuright); + z5r=(1/2[x4,x6],underouter); + z6r=(0,Centerline); + penpos4(thin,0); + penpos5(underinner-underouter,-90); + penpos6(1/4thin,-180); + penstroke (z4e{down}..z5e..{up}z6e) ifrotated; + penlabels(1,2,3,4,5,6); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_ADAGB,gedeswidth#+orxicwidth#,height#,depth#); + "Final b"; + if style=wood: + gedes(orxicwidth); + orxic(0); + fi; + if style=steel: + nuruu(numtaigedeswidth+numtaigedeswidth,numtaigedeswidth); + z1r=(2numtaigedeswidth-1/2bearing,nuruuleft); + z2r=(1/2[x1,x3],gedesouter); + z3r=(numtaigedeswidth,nuruuleft); + penpos1(thin,0); + penpos2(gedesouter-gedesinner,90); + penpos3(thin,180); + penstroke (z1e{up}..z2e..{down}z3e) ifrotated; + + z4 =(x1,nuruuright); + z5r=(x3r+thin,underouter); + z6r=(0,nuruuright); + z7r=(5/24gedeswidth,orxicouter); + penpos4(thin,0); + penpos5(underinner-underouter,-90); + penpos6(epsilon,-180); + penpos7(3/3thick,105); + penstroke + (z4e{down}..{left}z5e{left}..tension 2.5..{right}z7e) + ifrotated; + penlabels(1,2,3,4,5); + fi; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +if style=steel: buruuxarsangedeswidth#:=cewidth# fi; +if style=wood: buruuxarsangedeswidth#:=tewidth# fi; + +beginchar(MONG_BURUUXARSANGEDES,buruuxarsangedeswidth#,height#,depth#); + "Letter t"; + if style=steel: + deribun_ta; + fi; + if style=wood: + nuruu(tewidth,0); + shud_atom(1/2gedeswidth,bearing); + z1r=(tewidth,nuruuright); + z2r=(1/3tewidth,underouter); + z3r=(bearing,nuruuright); + penpos1(thin,0); + penpos2(underinner-underouter,-90); + penpos3(2thin,-180); + penstroke (z1e..tension 2..z2e..{up}z3e) ifrotated; + penlabels(1,2,3); + fi; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_GEDESTEISHILBE,eswidth#,height#,depth#); + "Letter d"; + if style=steel: + roundgedestshilbe; + fi; + if style=wood: + modgedestshilbe; + fi; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_DUNDD,gedeswidth#+shudwidth#,height#,depth#); + "Medial d before consonants"; + shud(0); + gedes(shudwidth); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_ADAGD,gedeswidth#+shudwidth#,height#,depth#); + "Final d"; + suul; + gedes(shudwidth); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_ERWEELJINSHILBE,gedeswidth#,height#,depth#); + "Letter 'r' in first and medial position"; + nuruu(gedeswidth,0); + z1=(gedeswidth-1/2bearing,nuruuleft); + z2=(gedeswidth-5thin,shilbeheight); + z3=(0,shilbeheight-thin); + z4=(x2-0.5thin,shilbeheight-5thin); + z5=(gedeswidth-3thin,nuruuleft); + fill (z1{dir 100}..z2 & z2{dir 225}..{dir 105}z3 & + z3{down}..{dir 45}z4 & z4..{dir -80}z5&z5--cycle) ifrotated; + penlabels(1,2,3,4,5); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_BOSOOSHILBE,eswidth#,height#,depth#); + "Letter z"; + bosoo_shilbe; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_EXENS,tewidth#,height#,depth#); + "Letter `s' in initial position"; + exenzawj; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_ZAWJ,tewidth#,height#,depth#); + "Letter `s' in medial position"; + zawj; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_ADAGS,tewidth#,height#,depth#); + "Letter `s' in final position "; + suulzawj; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_SEREEEWER,eswidth#,height#,depth#); + "Letter c"; + seree_ewer; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_ETGERSHILBE,shudwidth#+thin#,height#,depth#); + "Letter ya"; + nuruu(shudwidth+thin,0); + z1r=(shudwidth+thin-1/4bearing,nuruuleft); + z2 =(1/8shudwidth+thin,gedesouter); + z3 =(5/8shudwidth+thin,yashilbeheight); + penpos1(thin,0); + penpos2(3.5thin,+15); + penpos3(epsilon,15); + penstroke (z1e..tension 2.5..z2e..tension 1.25..z3e) ifrotated; + penlabels(1,2,3); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_MATGARSHILBE,gedeswidth#,height#,depth#); + "Letter va"; + nuruu(gedeswidth,0); + z1r=(gedeswidth-1/4bearing,nuruuleft); + z2r=(3/8gedeswidth,yashilbeheight); + z3 =(1/8gedeswidth,gedesinner); + penpos1(thin,0); + penpos2(3.75thin,+90); + penpos3(epsilon,+135); + penstroke (z1e{dir 105}..tension 3.5..z2e..tension 2.50..z3e) ifrotated; + penlabels(1,2,3); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_SUUL,shudwidth#,height#,depth#); + "The suul"; + suul; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_ORXIC,orxicwidth#,height#,depth#); + "The orxic"; + orxic(0); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_BAGODOISUUL,shudwidth#,height#,depth#); + "The gamma suul"; + bagaodoisuul; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_BIODOISUUL,shudwidth#,height#,depth#); + "Little tail following certain letters"; + z1=(shudwidth,Centerline); + z2=(1/2shudwidth,Centerline); + z3=(0,nuruuleft+thin); + penpos1(nuruuwidth,90); + penpos2(14/16nuruuwidth,80); + penpos3(epsilon,45); + penstroke (z1e---z2e..z3e) ifrotated; + penlabels(1,2,3); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_NCEG,secAwidth#,height#,depth#); + "The n= dot"; + dusal(1/2secAwidth,gedesouter,3thin,2thick); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_GCEG,shudwidth#,height#,depth#); + "The g= dots"; + dusal(9/12shudwidth,gedesouter,3thin,2thick); + dusal(3/12shudwidth,gedesouter,3thin,2thick); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% +% Some commonly used graphical ligatures without added semantic value +% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_LIGBA,bawidth#,height#,depth#); + "A Ligature: BA"; + ligba; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_LIGBI,biwidth#,height#,depth#); + "A Ligature: BI"; + nuruu(shilbewidth-thin,0); + nuruu(biwidth,biwidth-numtaigedeswidth); + + z1r=(biwidth-1/2bearing,nuruuleft); + z2r=(1/2[x1,x3],gedesouter); + z3r=(biwidth-numtaigedeswidth,nuruuleft); + penpos1(thin,0); + penpos2(gedesouter-gedesinner,90); + penpos3(thin,180); + penstroke (z1e{up}..z2e..{down}z3e) ifrotated; + + z4 =(x1,nuruuright); + z5r=(1/2[x4,x6],underouter); + z6l=(shilbewidth,nuruuright); + z7l=(3thin,shilbeheight); + penpos4(thin,0); + penpos5(underinner-underouter,-90); + penpos6(2thin,-180); + penpos7(4thin,-120); + penstroke (z4e{down}..z5e..{up}z6e..tension infinity..z7e) ifrotated; + + penlabels(1,2,3,4,5,6,7,8,9); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_LIGBU,2numtaigedeswidth#,height#,depth#); + "A Ligature: BU"; + ligbu(0); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_LIGBN,bawidth#,height#,depth#); + "A Ligature: BN"; + ligba; + dusal (x7,yashilbeheight,3thin,2thick); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_LIGBL,bawidth#,height#,depth#); + "A Ligature: BL"; + ligba; + high_l_ewer(2.5thin); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_LIGPA,bawidth#,height#,depth#); + "A Ligature, PA"; + ligmongpa; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_LIGPI,biwidth#,height#,depth#); + "A Ligature: PI"; + nuruu(shilbewidth-thin,0); + nuruu(biwidth,biwidth-numtaigedeswidth); + +% z1r=(biwidth-1/2bearing,nuruuleft); + z1r=(biwidth-1/2bearing,gedesouter+thin); + z2r=(1/3[x1,x4],gedesouter); + z3r=(7/12[x1,x4],gedesouter); + z4r=(biwidth-numtaigedeswidth,nuruuleft); + penpos1(thin,180); + penpos2(gedesouter-gedesinner,90); + penpos3(gedesouter-gedesinner,90); + penpos4(thin,180); + penstroke (z1e..z2e..z3e..{down}z4e) ifrotated; + + z5r=(x1,nuruuright); + z6r=(1/2[x5,x7],underouter); + z7l=(shilbewidth,nuruuright); + z8l=(3thin,shilbeheight); + penpos5(thin,0); + penpos6(underinner-underouter,-90); + penpos7(2thin,-180); + penpos8(4thin,-120); + penstroke (z5e{down}..z6e..{up}z7e..tension infinity..z8e) ifrotated; + + penlabels(1,2,3,4,5,6,7,8,9,10); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_LIGPU,2numtaigedeswidth#,height#,depth#); + "A Ligature: PU"; + ligmongpu; +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |