diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/montex/mbnums.mf')
| -rw-r--r-- | Master/texmf-dist/fonts/source/public/montex/mbnums.mf | 373 |
1 files changed, 373 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/montex/mbnums.mf b/Master/texmf-dist/fonts/source/public/montex/mbnums.mf new file mode 100644 index 00000000000..da8b4c2b983 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/montex/mbnums.mf @@ -0,0 +1,373 @@ +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% File: mbglyphs.mf +% Author: Oliver Corff and Dorjpalam Dorj +% Date: June 1st, 1999 +% Version: 0.2 +% Copyright: Ulaanbaatar, Beijing, Berlin +% +% Description: Local Mongolian Script (LMS) +% Mongol Bicig Modyn Bar Glyph Definition +% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +show param_base; +beginchar(MONG_ZERO,numberwidth#+bearing#,height#,depth#); + "The Number 0"; + pair dz[]; + numberpath; + z11r= point 0.20 of trial; + dz11= direction 0.20 of trial; + penpos11(2thin,angle dz11+90); + + z12r= point 0.75 of trial; + dz12= direction 0.75 of trial; + penpos12(thin,angle dz12+90); + + z13r= point 2.20 of trial; + dz13= direction 2.20 of trial; + penpos13(2thin,angle dz13+90); + + z14r= point 2.8 of trial; + dz14= direction 2.8 of trial; + penpos14(1thin, angle dz14+90); + + penstroke (z11e{dz11}..{dz12}z12e.. + z13e{dz13}..z14e{dz14}..cycle) ifrotated; + + penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_ONE,numberwidth#+bearing#,height#,depth#); + "The Number 1"; + pair dz[]; + numberpath; + + z11r= point 0.20 of trial; + dz11= direction 0.20 of trial; + penpos11(4thin,angle dz11+90); + + z12r= point 0.75 of trial; + penpos12(thin,0); + + z13r= point 2.00 of trial; + dz13= direction 2.00 of trial; + penpos13(2thin,angle dz13+90); + + z14r= point 2.8 of trial; + dz14= direction 2.8 of trial; + penpos14(2thin, angle dz14+90); + + z15r= point 4.00 of trial; + dz15= direction 4.00 of trial; + penpos15(1/2thin, angle dz15+90); + + pickup pencircle scaled 4 thin; + drawdot (z11) ifrotated; + + penstroke (z11e{dz11}..z12e{down}..{dz13}z13e + ..{dz14}z14e..{dz15}z15e) ifrotated; + + penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_TWO,numberwidth#+bearing#,height#,depth#); + "The Number 2"; + pair dz[]; + numberpath; + z11=(2bearing,gedesinner); + penpos11(3thin,+90); + + z12l= point 0.75 of trial; + dz12= direction 0.75 of trial; + penpos12(1thin,angle dz12+90); + + z13r= point 1.80 of trial; + dz13= direction 1.80 of trial; + penpos13(2thin,angle dz13+90); + + z14l= z16l; + % z14l= (bearing,Centerline); + dz14= direction 0.75 of trial; + penpos14(2thin, -90); + + z15r= (bearing,Centerline+4thin); + dz15= direction 0.75 of trial; + penpos15(1/2thin, -180); + + z16r= (bearing,Centerline+2thin); + dz16= direction 0.75 of trial; + penpos16(2thin, -180); + + z17r= (bearing,underinner+thin); + penpos17(2thin, 180); + + z18l= (bearing+1/12bawidth,underinner); + penpos18(1/2thin,180); + + pickup pencircle scaled 3thin; + drawdot (z11) ifrotated; + penstroke (z11e{right}..z12e{dz12}..z13e{dz13}.. + tension 1.2..z14e) ifrotated; + penstroke (z15e--z16e--z17e--z18e) ifrotated; + penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_THREE,numberwidth#+bearing#,height#,depth#); + "The Number 3"; + pair dz[]; + numberpath; + + z9 =(thin+bearing,gedesinner); + dz9= direction -0.10 of trial; + penpos9(0.75thin,angle dz9+90); + + z10r=(numberwidth-bearing,Centerline-thin); + dz10= direction 0.90 of trial; + penpos10(3thin,angle dz10+90); + + z11=(1/3numberwidth,nuruuleft+thin); + dz11= direction 2.40 of trial; + penpos11(1/2thin, angle dz11+90); + + z12r= (5/6numberwidth,nuruuright+thin); + %dz12= direction 0.75 of trial; + penpos12(2thin,30); + + z13r= point 1.60 of trial; + dz13= direction 1.60 of trial; + penpos13(3thin,angle dz13+90); + + z14r= (2thin+bearing,Centerline); + dz14= direction 0.75 of trial; + penpos14(2thin, -90); + + z15l= (bearing,Centerline+4thin); + dz15= direction 0.75 of trial; + penpos15(1/2thin, 0); + + z16l= (bearing,Centerline+2thin); + dz16= direction 0.75 of trial; + penpos16(2thin, 0); + + z17l= (bearing,underinner+thin); + penpos17(2thin, 0); + + z18l= (bearing+1/12numberwidth,underinner); + penpos18(1/2thin,0); + + penstroke (z9e{dz9}..tension 1.4..z10e..tension 1.2..{dz11}z11e) + ifrotated; + penstroke (z12e..z13e{dz13}..tension 1.2..z14e) ifrotated; + penstroke (z15e--z16e--z17e--z18e) ifrotated; + penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_FOUR,numberwidth#+bearing#,height#,depth#); + "The Number 4"; + pair dz[]; + numberpath; + z11=(bawidth,underinner); + penpos11(3thin,-90); + + z12r= point 2.80 of trial; + dz12= direction 2.80 of trial; + penpos12(2thin,angle dz12+90); + + z13r= point 0.10 of trial; + dz13= direction 0.10 of trial; + penpos13(1thin,angle dz13+90); + + z14r= point 0.75 of trial; + dz14= direction 0.75 of trial; + penpos14(1thin, angle dz14+90); + + pickup pencircle scaled 3thin; + drawdot (z11) ifrotated; + penstroke (z11e{left}..z12e{dz12}..z13e{dz13}..z14e{dz14}) ifrotated; + pickup pencircle scaled thin; + drawdot (z14) ifrotated; + penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_FIVE,numberwidth#+bearing#,height#,depth#); + "The Number 5"; + pair dz[]; + numberpath; + + z11= point -0.10 of trial; + dz11=direction -0.10 of trial; + penpos11(3thin,angle dz11+90); + pickup pencircle scaled 2.5thin; + drawdot (z11) ifrotated; + + z12r= point 2.9 of trial; + dz12=direction 2.8 of trial; + penpos12(2thin,angle dz12+90); + + z13= point 0.8 of trial; + penpos13(thin,-90); + + z14r= z13; + penpos14(3thin,90); + z15r= (thick,Centerline); + penpos15(3thin,90); + + z16r= (bearing,nuruuright); + penpos16(thin,90); + + penstroke (z11e..tension 1.5..z12e{down}.. + tension 3..z13e{dir -30}) ifrotated; + penstroke (z14e---z15e..z16e) ifrotated; + penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_SIX,numberwidth#+bearing#,height#,depth#); + "The Number 6"; + numberpath; + pair dz[]; + % pickup pencircle scaled .25thin; + % draw trial; + + z11r=point 2.40 of trial; + dz11=direction 2.40 of trial; + penpos11(2thin,angle dz11+90); + + z12r=point 2.90 of trial; + dz12=direction 2.90 of trial; + penpos12(2thin,angle dz12+90); + + z13 =point 0.23 of trial; + dz13=direction 0.23 of trial; + penpos13(2thin,angle dz13+90); + % pickup pencircle scaled 5thin; drawdot z13; + + z14r=point 0.85 of trial; + dz14=direction 0.85 of trial; + penpos14(3thin,angle dz14+90); + pickup pencircle scaled 3thin; drawdot (z14) ifrotated; + + z15=(z11..z13) intersectionpoint (z12..z14); + penpos15(thin,angle dz11-90); + + z16=(3/4[x12,x14],nuruuright); + penpos16(3thin,90); + z17= z15; + penpos17(thin,60); + + penstroke (z15e{dz13}..z11e{dz11}..z12e{dz12} + ..z13e{dz13}..z14e{dz14}) ifrotated; + penstroke (z16e{left}..z17e) ifrotated; + penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_SEVEN,numberwidth#+bearing#,height#,depth#); + "The Number 7"; + pair dz[]; + path findcenter; + numberpath; + % pickup pencircle scaled 0.25thin; + % draw trial; + + z11l=point -0.6 of trial; + dz11= direction -0.6 of trial; + penpos11(3thin,angle dz11-90); + + z12l= point 0.45 of trial; + dz12= direction 0.45 of trial; + penpos12(1.5thin,angle dz12-90); + + z13 = (w/2,.5[h,-d]); % "Centerpoint" + + z14r= point 2.5 of trial; + dz14=-direction 2.5 of trial; + penpos14(2thin,angle dz14-90); + + z15r= point 2.1 of trial; + dz15=-direction 2.1 of trial; + penpos15(2.25thin,angle dz15-90); + + z16r= point 0.8 of trial; + dz16=-direction 0.8 of trial; + penpos16(1.5thin,angle dz16-90); + + findcenter = z11{dz11}..z12{dz12}..tension 1.1..z13.. + {dz14}z14..{dz15}z15..{dz16}z16; + dz13=-direction 3 of findcenter; + penpos13(2thin,angle dz13-90); + + pickup pencircle scaled 3thin; drawdot (z11) ifrotated; + pickup pencircle scaled 1.5thin; drawdot (z16) ifrotated; + + penstroke (z11e{dz11}..z12e{dz12}..tension 1.1..z13e{dz13}.. + {dz14}z14e..{dz15}z15e..{dz16}z16e) ifrotated; + penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_EIGHT,numberwidth#+bearing#,height#,depth#); + "The Number 8"; + pair dz[]; + numberpath; + pickup pencircle scaled 1/2thin; + + z13 = point 0.8 of trial; + penpos13(3thin,90); + + z14 = (bearing,gedesinner-thin); + penpos14(thin,75); + + z15 = (bearing,gedesinner); + dz15= direction 0.75 of trial; + penpos15(1/2thin, -180); + + z16 = (bearing,gedesinner-2thin); + dz16= direction 0.75 of trial; + penpos16(2thin, -180); + + z17 = (bearing,underinner+thin); + penpos17(2thin, 180); + + z18 = (bearing+1/12bawidth,underinner); + penpos18(1/2thin,180); + + pickup pencircle scaled 3thin; + drawdot (z13) ifrotated; + penstroke (z13e{dir 165}..z14e) ifrotated; + penstroke (z15e--z16e--z17e--z18e) ifrotated; + penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginchar(MONG_NINE,numberwidth#+bearing#,height#,depth#); + "The Number 9"; + numberpath; + pair dz[]; + + z11r=point 2.40 of trial; + dz11=direction 2.40 of trial; + penpos11(1/2thin,angle dz11+90); + + z12r=point 2.85 of trial; + dz12=direction 2.85 of trial; + penpos12(2thin,angle dz12+90); + + z13 =point 0.23 of trial; + dz13=direction 0.23 of trial; + penpos13(2thin,angle dz13+90); + + z14r=point 0.9 of trial; + dz14=direction 0.9 of trial; + penpos14(3thin,angle dz14+90); + + z15=(z11..z13) intersectionpoint (z12..z14); + penpos15(1/2thin,angle dz12+90); + + z16=point 2.2 of trial; + dz16=direction 2.2 of trial; + penpos16(2thin,angle dz16); + z17= z15; + penpos17(epsilon,30); + + penstroke (z11e{dz11}..z12e{dz12} + ..z13e{dz13}..z14e{dz14}..tension 1.5..z15e) ifrotated; + penstroke (z16e{up}..z17e) ifrotated; + penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); +endchar; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |