%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % 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; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%