diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/montex/mbpunc.mf')
| -rw-r--r-- | Master/texmf-dist/fonts/source/public/montex/mbpunc.mf | 244 |
1 files changed, 244 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/montex/mbpunc.mf b/Master/texmf-dist/fonts/source/public/montex/mbpunc.mf new file mode 100644 index 00000000000..5d504170bce --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/montex/mbpunc.mf @@ -0,0 +1,244 @@ +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% File: mbgpunc.mf +% Author: Oliver Corff and Dorjpalam Dorj +% Date: October 1st, 2001 +% Version: 0.2 +% 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,numberwidth#,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,numberwidth#,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,numberwidth#,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,numberwidth#,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,numberwidth#,height#,depth#); + "Mongolian Vowel Separator"; + M (shilbeheight,gedesinner-thin); + V (nuruuleft+2thin,nuruuright-2thin); + S (underinner+1thin,underouter-2thin); + SpezRahmen; +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_OM,2gedeswidth#,height#,depth#); + z1r=(gedeswidth-bearing,gedesouter+thin); + z2l=(bearing,Centerline); + z3 =(x1,underouter-thin); + penpos1(thin,0); + penpos2(2.5thin,0); + penpos3(thin,0); + penstroke (z1e..z2e..z3e) ifrotated; + penlabels(1,2,3); + + z4r=(w-bearing,Centerline); + z5l=(x4l,Centerline+thin); + z6r=(08/12[x4l,x7l],gedesinner-1.25thin); + z7l=(9thin,Centerline); + z8l=(x4l,Centerline-thin); + z9r=(08/12[x4l,x7l],underinner+1.25thin); + penpos4(2.5thin,0); + penpos5(2.1thin,30); + penpos6(2.5thin,90); + penpos7(2.9thin,180); + penpos8(2.1thin,-30); + penpos9(2.5thin,-90); + penstroke(z4e..z5e..tension 1.4..z6e{left}..tension 1.2..{down}z7e) ifrotated; + penstroke(z4e..z8e..tension 1.4..z9e{left}..tension 1.2..{up}z7e) ifrotated; + penlabels(4,5,6,7,8,9); +endchar; +% pausing:=1; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +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; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |