%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % File: mbgpunc.mf % Author: Oliver Corff and Dorjpalam Dorj % Date: April 1st, 2001 % Version: 0.8 % Copyright: Ulaanbaatar, Beijing, Berlin % % Description: Local Mongolian Script (LMS) % Mongol Bicig Modyn Bar Punctuation Definition % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_BNDRY,0,0,0); "Mongolian Boundary"; endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_MSP,2gedeswidth#,height#,depth#); "Mongolian Space Symbol"; M (shilbeheight+0.5thin,gedesinner-thin); S (nuruuleft+2thin,nuruuright-2thin); P (underinner+0.5thin,underouter-2thin); SpezRahmen; endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_EXCLAMATION,2tewidth#,height#,depth#); "Exclamation Mark"; Exclam(Centerline); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_QUESTEXCLAM,2tewidth#,height#,depth#); "Question - Exclamation Mark"; Quest (nuruuleft+1/2thick); Exclam (nuruuright-1.25thick); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_EXCLAMQUEST,2tewidth#,height#,depth#); "Exclamation - Question Ligature"; Exclam (nuruuleft+1.0thick); Quest (nuruuright-0.75thick); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_FVS1,2gedeswidth#,height#,depth#); "Form Variant Selector 1"; F(shilbeheight,gedesinner+thin); V(nuruuleft+4thin,nuruuright+2thin); S(nuruuright+0thin,underinner-thin); eins(underinner-2thin,underouter-3thin); SpezRahmen; endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_FVS2,2gedeswidth#,height#,depth#); "Form Variant Selector 2"; F(shilbeheight,gedesinner+thin); V(nuruuleft+4.5thin,nuruuright+3thin); S(nuruuright+1thin,underinner+thin); zwei(underinner-1thin,underouter-3thin); SpezRahmen; endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_OPAREN,gedeswidth#,height#,depth#); "Mongolian Opening Parenthesis"; z1l=(bearing,orxicouter); z2r=(gedeswidth-bearing,Centerline); z3 =(x1,suulouter); penpos1(thin,0); penpos2(2.5thin,0); penpos3(thin,0); penstroke (z1e..z2e..z3e) ifrotated; penlabels(1,2,3); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_CPAREN,gedeswidth#,height#,depth#); "Mongolian Closing Parenthesis"; z1r=(gedeswidth-bearing,orxicouter); z2l=(bearing,Centerline); z3 =(x1,suulouter); penpos1(thin,0); penpos2(2.5thin,0); penpos3(thin,0); penstroke (z1e..z2e..z3e) ifrotated; penlabels(1,2,3); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_ENV,2gedeswidth#,height#,depth#); "Mongolian Environment Marker"; z1 =(1.5thick,Centerline); z2 =(w/2,.5[h,-d]); % "Centerpoint" z3 =(2gedeswidth-1.5thick,y1); penpos1(3.0thin,90); penpos2(0.5thin,90); penpos3(3.0thin,90); pickup pencircle scaled 3.0 thin; roffset:=0; % roffset:=30; % for r = 0,45,90,135: % This list for 8-pointed stars for r = 0,60,120: % This list for 6-pointed stars penstroke (z1e--z2e--z3e) rotatedabout (z2,r+roffset); drawdot (z1) rotatedabout (z2,r+roffset); drawdot (z3) rotatedabout (z2,r+roffset); endfor; penlabels(1,2,3); SpezRahmen; endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_MVS,2gedeswidth#,height#,depth#); "Mongolian Vowel Separator"; M (shilbeheight,gedesinner-thin); V (nuruuleft+2thin,nuruuright-2thin); S (underinner+1thin,underouter-2thin); SpezRahmen; endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 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_ELLIPSIS,2gedeswidth#,height#,depth#); "Ellipsis"; dusal(1/5*2gedeswidth,Centerline,3thin,2thick); dusal(2/5*2gedeswidth,Centerline,3thin,2thick); dusal(3/5*2gedeswidth,Centerline,3thin,2thick); dusal(4/5*2gedeswidth,Centerline,3thin,2thick); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_COLON,tewidth#,height#,depth#); "Mongolian Colon"; pickup pencircle scaled 3.5 thin; drawdot (1/2tewidth,nuruuleft+thick) ifrotated; drawdot (1/2tewidth,nuruuright-thick) ifrotated; endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_DORWOLJIN,bawidth#,height#,depth#); "Dorwoljin"; dusal(1/2bawidth,gedesinner,5thin,3thick); dusal(1/4bawidth,Centerline,5thin,3thick); dusal(3/4bawidth,Centerline,5thin,3thick); dusal(1/2bawidth,underinner,5thin,3thick); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_LT,gedeswidth#,height#,depth#); "Mongolian Less Than"; pair dz[]; z1l=(bearing,gedesouter); z2r=(gedeswidth-bearing,Centerline); z3 =(x1,underouter); penpos1(thin,0); penpos2(3.0thin,0); penpos3(thin,0); z4 =(x2,y3); dz1=(z4-z1); z5 =(x2,y1); dz3=(z3-z5); penstroke (z1e{dz1}..z2e&z2e..{dz3}z3e) ifrotated; penlabels(1,2,3,4,5); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_GT,gedeswidth#,height#,depth#); "Mongolian Greater Than"; pair dz[]; z1r=(gedeswidth-bearing,gedesouter); z2l=(bearing,Centerline); z3 =(x1,underouter); penpos1(thin,0); penpos2(3.0thin,0); penpos3(thin,0); z4 =(x2,y3); dz1=(z4-z1); z5 =(x2,y1); dz3=(z3-z5); penstroke (z1e{dz1}..z2e&z2e..{dz3}z3e) ifrotated; penlabels(1,2,3,4,5); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_QUESTION,2tewidth#,height#,depth#); "Question Mark"; Quest(Centerline); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_NIRUGU,shudwidth#,height#,depth#); "Mongolian NIRUGU"; nuruu(shudwidth,0); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_LGU,tewidth#,height#,depth#); pair dz[]; z1l=(tewidth-gedeswidth+bearing,gedesouter); penpos1(thin,30); z2r=(tewidth-bearing,Centerline); penpos2(3.0thin,0); z3 =(x1,underouter); penpos3(thin,-30); z4 =(x2,y3); dz1=(z4-z1); z5 =(x2,y1); dz3=(z3-z5); z6l=(bearing,y1-thin); penpos6(thin,+30); z7r=(x6+5/8gedeswidth,y2); penpos7(3.0thin,0); z8 =(x6,y3+thin); penpos8(thin,-30); penstroke (z1e{dz1}..tension 1.2..z2e& z2e..tension 1.2..{dz3}z3e) ifrotated; penstroke (z6e{dz1}..tension 1.2..z7e& z7e..tension 1.2..{dz3}z8e) ifrotated; penlabels(1,2,3,4,5,6,7,8,9,10); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(MONG_RGU,tewidth#,height#,depth#); pair dz[]; z1r=(gedeswidth-bearing,gedesouter); penpos1(thin,-30); z2l=(bearing,Centerline); penpos2(3.0thin,0); z3 =(x1,underouter); penpos3(thin,30); z4 =(x2,y3); dz1=(z4-z1); z5 =(x2,y1); dz3=(z3-z5); z6r=(tewidth-bearing,y1-thin); penpos6(thin,-30); z7l=(x6-5/8gedeswidth,y2); penpos7(3.0thin,0); z8 =(x6,y3+thin); penpos8(thin,30); penstroke (z1e{dz1}..tension 1.2..z2e& z2e..tension 1.2..{dz3}z3e) ifrotated; penstroke (z6e{dz1}..tension 1.2..z7e& z7e..tension 1.2..{dz3}z8e) ifrotated; penlabels(1,2,3,4,5,6,7,8,9,10); endchar; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%