summaryrefslogtreecommitdiff
path: root/language/mongolian/montex/mfinput/bcgbase/mbglyphs.mf
diff options
context:
space:
mode:
Diffstat (limited to 'language/mongolian/montex/mfinput/bcgbase/mbglyphs.mf')
-rw-r--r--language/mongolian/montex/mfinput/bcgbase/mbglyphs.mf660
1 files changed, 660 insertions, 0 deletions
diff --git a/language/mongolian/montex/mfinput/bcgbase/mbglyphs.mf b/language/mongolian/montex/mfinput/bcgbase/mbglyphs.mf
new file mode 100644
index 0000000000..7b9280daf6
--- /dev/null
+++ b/language/mongolian/montex/mfinput/bcgbase/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;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%