%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%        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;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.