summaryrefslogtreecommitdiff
path: root/language/mongolian/montex/mfinput/bcgbase/mbnums.mf
diff options
context:
space:
mode:
Diffstat (limited to 'language/mongolian/montex/mfinput/bcgbase/mbnums.mf')
-rw-r--r--language/mongolian/montex/mfinput/bcgbase/mbnums.mf373
1 files changed, 373 insertions, 0 deletions
diff --git a/language/mongolian/montex/mfinput/bcgbase/mbnums.mf b/language/mongolian/montex/mfinput/bcgbase/mbnums.mf
new file mode 100644
index 0000000000..da8b4c2b98
--- /dev/null
+++ b/language/mongolian/montex/mfinput/bcgbase/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;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%