%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % File: moglyphs.mf % Author: Oliver Corff % Date: June 1st, 2001 % Version: 0.2 % Copyright: Ulaanbaatar, Beijing, Berlin % % Description: Local Mongolian Script (LMS) % Mongol Bicig Glyph Definitions % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % writing:=Bicig; % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_TASLAL,tewidth#,height#,depth#); "Taslal temdeg"; dusal(2/4tewidth,Centerline,5thin,3thick); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_FULLSTOP,bawidth#,height#,depth#); "Mongolian Full Stop"; dusal(1/4bawidth,Centerline,5thin,3thick); dusal(3/4bawidth,Centerline,5thin,3thick); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_AVAR,shudwidth#,height#,depth#); "Mongol letter a, final behaviour different"; shud(0); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_AE,shudwidth#,height#,depth#); "Mongol letter ae, shape identical with shud"; shud(0); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_IVAR,shilbewidth#,height#,depth#); "Mongol letter i, final behaviour different"; shilbe(0); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_NVAR,shudwidth#,height#,depth#); "Mongol letter n, but with dusal behaviour flipped"; shud(0); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_ADAGN,shudwidth#,height#,depth#); "Mongol letter n, final form"; "The suul"; suul; endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_ADAGNVAR,shudwidth#,height#,depth#); "Mongol letter n, final form, but with dusal behaviour flipped"; "The suul"; suul; endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% "Mongol Secondary shud after B, etc."; if unknown MONG_SECONDARYSHUD: "skipped"; else: beginchar(MONG_SECONDARYSHUD,numtaigedeswidth#,height#,depth#); nuruu(secAwidth,0); shud_atom(secAwidth,bearing); z5r=(numtaigedeswidth,underouter); z6l=(secAwidth,nuruuright); penpos5(underinner-underouter,-90); penpos6(2thin,-180); penstroke (z5e{left}..{up}z6e) ifrotated; penlabels(5,6); endchar; fi; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% "Mongol Secondary Belly after B, etc."; if unknown MONG_SECONDARYGEDES: "skipped"; else: beginchar(MONG_SECONDARYGEDES,numtaigedeswidth#,height#,depth#); nuruu(numtaigedeswidth,0); z1r=(numtaigedeswidth,nuruuleft); z2r=(1/2[x1,x3],gedesouter); z3r=(1/2bearing,nuruuleft); penpos1(thin,0); penpos2(gedesouter-gedesinner,90); penpos3(thin,180); penstroke (z1e{up}..z2e..{down}z3e) ifrotated; z5r=(x1r,underouter); z6 =(x3,nuruuright); penpos5(underinner-underouter,-90); penpos6(thin,-180); penstroke (z5e{left}..{up}z6e) ifrotated; penlabels(1,2,3,5,6); endchar; fi; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% "Mongol Secondary dusaltai shud after B, etc."; if unknown MONG_SECONDARYCEGTEISHUD: "skipped"; else: beginchar(MONG_SECONDARYCEGTEISHUD,numtaigedeswidth#,height#,depth#); "Mongol Secondary dusaltai shud after B, etc."; nuruu(secAwidth,0); shud_atom(secAwidth,bearing); z5r=(numtaigedeswidth,underouter); z6l=(secAwidth,nuruuright); penpos5(underinner-underouter,-90); penpos6(2thin,-180); penstroke (z5e{left}..{up}z6e) ifrotated; dusal (1/2secAwidth+1/2bearing,yashilbeheight,3thin,2thick); penlabels(5,6); endchar; fi; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_NUM,gedeswidth#,height#,depth#); "Mongol Female g"; 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,Centerline); penpos4(2thin,0); penpos5(underinner-underouter,-90); penpos6(1/2thin,-180); penstroke (z1e..z2e...z4e{down}..z5e..{up}z6e) ifrotated; penlabels(1,2,3,4,5,6); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% "Mongol female g, before rounded vowels"; if unknown MONG_SECONDARYNUM: "skipped"; else: beginchar(MONG_SECONDARYNUM,shudwidth#,height#,depth#); nuruu(shudwidth,shudwidth-bearing); z1r=(+3thin,shudheight); z2r=(shudwidth-1/2bearing,nuruuleft); penpos1(4thin,60); penpos2(2thin,0); z4 =(x2,nuruuright); z5r=(0,underouter); z6r=(0,nuruuleft); penpos4(2thin,0); penpos5(underinner-underouter,-90); penpos6(epsilon,-180); penstroke (z1e..z2e...z4e{down}..{left}z5e) ifrotated; penlabels(1,2,3,4,5); endchar; fi; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_DAWXARCEGTXEWTEE,tewidth#,height#,depth#); "Mongol Letter initial g(amma)"; xewteeqix; dusal (x2,shilbeheight,3thin,2thick); dusal (bearing+2thin,shilbeheight,3thin,2thick); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_ADAGG,2shudwidth#,height#,depth#); "Final g"; shud(shudwidth); bagaodoisuul; endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_DVAR,eswidth#,height#,depth#); "d FVS1"; if style=steel: roundgedestshilbe; fi; if style=wood: modgedestshilbe; fi; endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_SECERWEELJIN,gedeswidth#,height#,depth#); "Mongol Letter 'r' in final position"; nuruu(gedeswidth,gedeswidth-bearing); z1=(gedeswidth-1/2bearing,nuruuleft); z2=(gedeswidth-3thin,gedesouter); z3=(bearing,shudheight); z4=(x2-1thin,gedesinner-thin); z5 =(x6l,nuruuleft); pickup pencircle scaled 1/4thin; z6r=(x1,nuruuright); z7r=(1/2[x6,x8],underouter); z8r=(0,Centerline); penpos6(2thin,0); penpos7(underinner-underouter,-90); penpos8(1/4thin,-180); fill (z1{up}..z2 & z2{dir 225}..{dir 105}z3 & z3{down}..{dir 45}z4 & z4{dir -60}..z5..z6l{down}..z7l..{up}z8 & z8{down}..z7r..{up}z6r..z1..cycle) ifrotated; penlabels(1,2,3,4,5,6,7,8); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_EXENSH,tewidth#,height#,depth#); "Mongol Letter `sh' in initial position"; exenzawj; dusal(bearing,underouter,3thin,2thick); dusal(1/3tewidth,underouter,3thin,2thick); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_DAWXARCEGTZAWJ,tewidth#,height#,depth#); "Mongol Letter `sh' in medial position"; zawj; dusal(bearing,underouter,3thin,2thick); dusal(1/3tewidth,underouter,3thin,2thick); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_ADAGSH,tewidth#,height#,depth#); "Mongol Letter 'sh' in final position "; nuruu(tewidth,tewidth-thick); z1=(tewidth-bearing,nuruuleft); z2=(1/2[x1,x3],shudheight); z3=(x1-shudwidth+2bearing,y1); y4=nuruuright-1thin; z4=whatever[z2,z3]; y5=shudheight; z4-z5=whatever * (z2-z1); % y6=nuruuleft; % z5-z6=whatever * (z2-z3); z6=(0,underouter); y7=sdepth; z4-z7=whatever * (z1-z2); y8=nuruuright; z7-z8=whatever * (z2-z3); y9=underouter; z7-z9=whatever * (z7-z8); y10=nuruuright; z10-z9=whatever* (z1-z2); z11=(x6,nuruuright); % pickup pencircle scaled 1/4thin; fill (z10--z9--z1--z2--z4--z5..z6{z3-z2}&z6{z2-z6}..z10--cycle) ifrotated; dusal(4/24tewidth,underouter-2thin,3thin,2thick); dusal(10/24tewidth,underouter-2thin,3thin,2thick); penlabels(1,2,3,4,5,6,7,8,9,10,11); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% "Mongol Letter Secondary B"; if unknown MONG_SECNUMTGEDES: "skipped"; else: beginchar(MONG_SECNUMTGEDES,numtaigedeswidth#,height#,depth#); nuruu(numtaigedeswidth,0); z1r=(numtaigedeswidth-1/2bearing,nuruuleft); z2r=(1/2[x1,x3],gedesouter); z3r=(0,nuruuleft); penpos1(thin,0); penpos2(gedesouter-gedesinner,90); penpos3(thin,180); penstroke (z1e{up}..z2e..{down}z3e) ifrotated; z4 =(x1,nuruuright); z5r=(x3r,underouter); z6r=(0,nuruuright); penpos4(thin,0); penpos5(underinner-underouter,-90); penpos6(epsilon,-180); penstroke (z4e{down}..{left}z5e) ifrotated; penlabels(1,2,3,4,5); endchar; fi; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% "Mongol Secondary Letter P"; if unknown MONG_SECNUMTDELBENQ: "skipped"; else: beginchar(MONG_SECNUMTDELBENQ,numtaigedeswidth#,height#,depth#); nuruu(numtaigedeswidth,0); z1r=(numtaigedeswidth-1/2bearing,gedesouter+thin); z2r=(1/3[x1,x4],gedesouter); z3r=(7/12[x1,x4],gedesouter); z4r=(0,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=(x4r,underouter); z7r=(0,nuruuright); penpos5(thin,0); penpos6(underinner-underouter,-90); penpos7(epsilon,-180); penstroke (z5e{down}..{left}z6e) ifrotated; penlabels(1,2,3,4,5,6,7); endchar; fi; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_SERTENQIXTNUM,eswidth#,height#,depth#); "Mongol Letter f"; 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; f_flag(eswidth,x2); penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% "Mongol Secondary Letter F"; if unknown MONG_SECSERTENQIXT: "skipped"; else: beginchar(MONG_SECSERTENQIXT,numtaigedeswidth#,height#,depth#); nuruu(numtaigedeswidth,0); z1r=(numtaigedeswidth-1/2bearing,nuruuleft); z2r=(1/2[x1,x3],gedesouter); z3r=(0,nuruuleft); penpos1(thin,0); penpos2(gedesouter-gedesinner,90); penpos3(thin,180); penstroke (z1e{up}..z2e..{down}z3e) ifrotated; z4 =(x1,nuruuright); z5r=(x3r,underouter); z6r=(0,nuruuright); penpos4(thin,0); penpos5(underinner-underouter,-90); penpos6(epsilon,-180); penstroke (z4e{down}..{left}z5e) ifrotated; f_flag(numtaigedeswidth,x2); penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14); endchar; fi; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_QAGT,gedeswidth#,height#,depth#); "Mongol Letter kh"; qagt; endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% "Mongol Secondary Letter K"; if unknown MONG_SECONDARYQAGT: "skipped"; else: beginchar(MONG_SECONDARYQAGT,shudwidth#,height#,depth#); nuruu(shudwidth,shudwidth-bearing); % if writing=Bithe: % z1 =(w+1/4shudwidth,shudheight-thin); % penpos1(2.5thin,-30); % fi; % if writing=Bicig: z1l=(1/3shudwidth,shudheight); penpos1(4thin,60); % fi; z2r=(shudwidth-1/2bearing,nuruuleft); penpos2(2thin,0); z4 =(x2,nuruuright); z5r=(0,underouter); penpos4(2thin,0); penpos5(underinner-underouter,-90); penstroke (z1e..z2e...z4e{down}..{left}z5e) ifrotated; penlabels(1,2,3,4,5); z11=(shudwidth,Centerline); z12=(shudwidth-3/4thick,Centerline); z13=(shudwidth-1.5thick,nuruuleft+thin); penpos11(nuruuwidth,90); penpos12(14/16nuruuwidth,80); penpos13(epsilon,45); penstroke (z11e---z12e..z13e) ifrotated; penlabels(1,2,3,4,5,6,7,8,9,11,12,13); endchar; fi; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_ZADGAIZARDIGT,cewidth#,height#,depth#); "Mongol Letter Z"; nuruu(cewidth,0); z1r=(5/6cewidth,gedesouter); z2r=(4/6cewidth,shudheight); z3r=(5/4bearing+1.5u,shudheight); z4 =(bearing+1.5u,Centerline); penpos1(gedesouter-gedesinner,85); penpos2(gedesouter-gedesinner,85); penpos3(gedesouter-gedesinner,100); penpos4(nuruuleft-nuruuright,100); penstroke (z1e..z2e---z3e--z4e) ifrotated; penlabels(1,2,3,4); z5l=z3r; penpos5(thin,0); z6=(-0.5thin,shilbeheight); penpos6(1.25thin,90); z7=(-1.5thin,shilbeheight-thin); penpos7(0.5thin,120); pickup pencircle scaled thin; penstroke (z5e{up}..z6e..z7e) ifrotated; penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_BITUUZARDIGT,cewidth#,height#,depth#); "Mongol Letter C"; nuruu(cewidth,0); z1r=(5/6cewidth,gedesouter); z2r=(4/6cewidth,shudheight); z3r=(5/4bearing+1.5u,shudheight); z4 =(bearing+1.5u,Centerline); penpos1(gedesouter-gedesinner,85); penpos2(gedesouter-gedesinner,85); penpos3(gedesouter-gedesinner,100); penpos4(nuruuleft-nuruuright,100); penstroke (z1e..z2e---z3e--z4e) ifrotated; penlabels(1,2,3,4); z5l=z3r; penpos5(thin,0); z6=(-0.5thin,shilbeheight); penpos6(1.25thin,90); pickup pencircle scaled thin; draw (z5..tension 1.3..z6..tension 1.3..cycle) ifrotated; z7=(-2thin,shilbeheight-thin); penpos7(0.5thin,120); % penstroke (z5e{up}..z6e..z7e); penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_BITUUSHILBE,eswidth#,height#,depth#); "Mongol Letter h"; nuruu(eswidth,eswidth-1/2bearing-2thin); nuruu(eswidth-1/2bearing-2u,0); z1r=(eswidth-1/2bearing,nuruuleft); z2 =(07/16eswidth,orxicouter); penpos1(2thin,0); penpos2(2thin,45); penstroke (z1e--z2e) ifrotated; z3r=z2; z4r=(bearing,5/12[y1,y2]); penpos3(2thin,115 ); penpos4(2thin,210); z5 =(6/16eswidth,3/12[y1,y2]); z6 =(x1-2u,nuruuleft); penpos5(1.5thin,235); penpos6(1.75thin,180); penstroke (z3e{dir 205}..tension 1.4..z4e..tension 1.4..z5e..z6e) ifrotated; penlabels(1,2,3,4,5,6); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_MALGAITAITITEM,tewidth#,height#,depth#); "Mongol Letter j"; if style=wood: nuruu(7/12tewidth,0); shud_atom(shudwidth-bearing,0+bearing); fi; if style=steel: titem; fi; z1l=(2/3shudwidth-thin,shilbeheight); z2l=(2/3shudwidth+thin,shilbeheight); z3r=(tewidth,Centerline); z4l=(1/2[x3,x5], if style=steel: underouter fi if style=wood: underinner fi); z5l=( if style=steel: 1/3 fi if style=wood: 2/3 fi shudwidth,nuruuright); penpos1(3thin,90); penpos2(2.25thin,90); penpos3(2.25thin, 0); penpos4(3thin,-90); penpos5(2thin,-180); penstroke (z1e{right}..z2e{right}..z3e..z4e..{up}z5e) ifrotated; penlabels(1,2,3,4,5); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_EWERTQAGT,gedeswidth#,height#,depth#); "Mongol g used in Gombo, primary version"; 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,Centerline); penpos4(2thin,0); penpos5(underinner-underouter,-90); penpos6(1/2thin,-180); z7r=(gedeswidth-bearing,gedesouter+thin); z8 =(x7-1thin,shudheight-thick); penpos7(1.5thin,0); penpos8(2thin,-45); penstroke (z7e..z8e) ifrotated; penstroke (z1e..z2e...z4e{down}..z5e..{up}z6e) ifrotated; penlabels(1,2,3,4,5,6,7,8); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% "Mongol g used in Gombo, secondary version"; if unknown MONG_SECONDARYEWERTQAGT: "skipped"; else: beginchar(MONG_SECONDARYEWERTQAGT,shudwidth#,height#,depth#); nuruu(shudwidth,shudwidth-bearing); z1l=(+1thin,shudheight); z2r=(shudwidth-1/2bearing,nuruuleft); penpos1(4thin,60); penpos2(2thin,0); z4 =(x2,nuruuright); z5r=(0,underouter); z6r=(0,nuruuleft); penpos4(2thin,0); penpos5(underinner-underouter,-90); penpos6(epsilon,-180); z7r=(shudwidth,gedesouter+thin); z8 =(x7-1thin,shudheight-thick); penpos7(1.5thin,0); penpos8(2thin,-45); penstroke (z7e..z8e) ifrotated; penstroke (z1e..z2e...z4e{down}..{left}z5e) ifrotated; penlabels(1,2,3,4,5); endchar; fi; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Some ligatures without added semantical value % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_LIGPN,bawidth#,height#,depth#); "Mongol Ligature PN"; ligmongpa; dusal (x8,yashilbeheight,3thin,2thick); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_LIGPL,bawidth#,height#,depth#); "Mongol Ligature PL"; ligmongpa; high_l_ewer(2.5thin); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_LIGFA,bawidth#,height#,depth#); "Mongol Ligature FA"; ligba; f_flag(w,3/4w); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_LIGFI,biwidth#,height#,depth#); "Mongol Ligature FI"; 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; z11l=(x2,gedesouter); penpos11(1/2thin,90); z12 =(1/6[x11,x14],shilbeheight); penpos12(2thin,90); z13 =(5/6[x11,x14],shilbeheight); penpos13(2thin,90); z14r=(biwidth,yashilbeheight); penpos14(1/2thin,90); penstroke (z11e{up}..z12e..z13e..{up}z14e) ifrotated; f_flag(w,3/4w); penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_LIGFU,2numtaigedeswidth#,height#,depth#); "Mongol Ligature FU"; f_flag(w,3/4w); ligbu(0); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_LIGFN,bawidth#,height#,depth#); "Mongol Ligature FN"; ligba; f_flag(w,3/4w); dusal (x7,yashilbeheight,3thin,2thick); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_LIGFL,bawidth#,height#,depth#); "Mongol Ligature FL"; ligba; f_flag(w,3/4w); high_l_ewer(2.5thin); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_LIGKN,bawidth#,height#,depth#); "Mongol Ligature KN"; ligka; dusal (x7,yashilbeheight,3thin,2thick); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_LIGKL,bawidth#,height#,depth#); "Mongol Ligature KL"; ligka; high_l_ewer(2.5thin); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_LIGKHA,bawidth#,height#,depth#); "Mongol Ligature KHA"; ligkha; endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_LIGKHI,biwidth#,height#,depth#); "Mongol Ligature KHI"; ligkhi; endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_LIGKHU,bawidth#,height#,depth#); "Mongol Ligature KHU"; ligkhu; endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_LIGKHN,bawidth#,height#,depth#); "Mongol Ligature KHN"; ligkha; dusal (x7,yashilbeheight,3thin,2thick); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_LIGKHL,bawidth#,height#,depth#); "Mongol Ligature KHL"; ligkha; high_l_ewer(2.5thin); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_LIGGHA,bawidth#,height#,depth#); "Mongol Ligature GHA"; liggha; endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_LIGGHI,biwidth#,height#,depth#); "Mongol Ligature GHI"; nuruu(shilbewidth-thin,0); nuruu(biwidth,biwidth-bearing); z1l=(biwidth-gedeswidth+5thin,shudheight-thin); z2r=(biwidth-1/2bearing,nuruuleft); penpos1(4thin,60); penpos2(2thin,0); z4 =(x2,nuruuright); z5r=(1/2[x4,x6],underouter); z6l=(shilbewidth,nuruuright); z7l=(3thin,shilbeheight); penpos4(2thin,0); penpos5(underinner-underouter,-90); penpos6(2thin,-180); penpos7(4thin,-120); penstroke (z1e..z2e...z4e{down}..z5e..{up}z6e..tension infinity..z7e) ifrotated; z10r=(biwidth,gedesouter+thin); z11 =(x10-2thin,shudheight-5thin); penpos10(1.5thin,0); penpos11(2thin,-45); penstroke (z10e..z11e) ifrotated; penlabels(1,2,3,4,5,6,7,8,9); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_LIGGHU,shudwidth#+numtaigedeswidth#,height#,depth#); "Mongol Ligature GHU"; nuruu(w,w-bearing); nuruu(numtaigedeswidth,0); z1l=(w-shudwidth+1thin,shudheight); z2r=(w-1/2bearing,nuruuleft); penpos1(4thin,60); penpos2(2thin,0); z3 =(x2,nuruuright); z4r=(numtaigedeswidth,underouter); z5r=(1/2bearing,nuruuright); penpos3(2thin,0); penpos4(underinner-underouter,-90); penpos5(thin,-180); z6 =(x5,nuruuleft); z7r=(1/2[x6,x8],gedesouter); z8r=(numtaigedeswidth,y6); penpos6(thin,-180); penpos7(gedesinner-gedesouter,-90); penpos8(thin,0); z9r=(w,gedesouter+thin); z10=(x9-1thin,shudheight-thick); penpos9(1.5thin,0); penpos10(2thin,-45); penstroke (z9e..z10e) ifrotated; penstroke (z1e..z2e...z3e{down}..z4e..{up}z5e) ifrotated; penstroke (z6e{up}..z7e..{down}z8e) ifrotated; penlabels(1,2,3,4,5,6,7,8,9,10); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_LIGGHN,bawidth#,height#,depth#); "Mongol Ligature GHN"; liggha; dusal (x7,yashilbeheight,3thin,2thick); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_LIGGHL,bawidth#,height#,depth#); "Mongol Ligature GHL"; liggha; high_l_ewer(2.5thin); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % vim: ts=8 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%