diff options
Diffstat (limited to 'language/mongolian/montex/mfinput/km/cyrmoreu.mf')
-rw-r--r-- | language/mongolian/montex/mfinput/km/cyrmoreu.mf | 83 |
1 files changed, 83 insertions, 0 deletions
diff --git a/language/mongolian/montex/mfinput/km/cyrmoreu.mf b/language/mongolian/montex/mfinput/km/cyrmoreu.mf new file mode 100644 index 0000000000..1eb338706c --- /dev/null +++ b/language/mongolian/montex/mfinput/km/cyrmoreu.mf @@ -0,0 +1,83 @@ +% File: cyrmoreu.mf +% Based on: jkbashu.mf +% Modified by: Oliver Corff +% Date: October 1997, Ulaanbaatar +% + % jkbashu.mf by Joerg Knappen, bitnet knappen@dmznat21 + % Version 10 June 1990 + % Bashkirian special uppercase letters + +cmchar "The Bashkirian letter O-Umlaut (looks like Theta)"; +beginchar(CYROTLD,14u#-width_adj#,cap_height#,0); +italcorr .7cap_height#*slant-.5u#; +adjust_fit(0,0); +penpos1(vair',90); penpos3(vround(vair+1.5vair_corr),-90); +penpos2(cap_curve,180); penpos4(cap_curve,0); +if monospace: x2r=hround 1.5u; + interim superness:=sqrt superness; % make |"O"|, not |"0"| +else: x2r=hround u; fi +x4r=w-x2r; x1=x3=.5w; y1r=h+o; y3r=-o; +y2=y4=.5h-vair_corr; y2l:=y4l:=.52h; +penstroke pulled_super_arc.e(1,2)(.5superpull) + & pulled_super_arc.e(2,3)(.5superpull) + & pulled_super_arc.e(3,4)(.5superpull) + & pulled_super_arc.e(4,1)(.5superpull) & cycle; % bowl +if serifs: z90=z2l; x91=x4; y91=y90; pos90(bar,90); pos91(bar,90); + z92=.5[z90,z91]; pos92(if serifs: 2.5 fi bar,90); + filldraw stroke z90e{1,1}..{1,-1}z92e..{1,1}z91e; +else: z90=z2l; x91=x4; y91=y90; penpos90(bar,90); penpos91(bar,90); + fill stroke z90e--z91e; fi +math_fit(-.3cap_height#*slant-.5u#,ic#-.5u#); penlabels(1,2,3,4); endchar; + +cmchar "The Bashkirian letter U-Umlaut (looks like Y)"; +beginchar(CYRY,13u#,cap_height#,0); +italcorr cap_height#*slant+.45u#; +adjust_fit(cap_serif_fit#,cap_serif_fit#); +numeric left_stem,right_stem,outer_jut,dy,alpha; +left_stem=cap_stem-stem_corr; +right_stem=min(cap_hair if hefty:-2stem_corr fi,left_stem); +outer_jut=.75cap_jut; x1l=w-x4r=l+letter_fit+outer_jut+.05u; +x2l=x5l=hround(.5w-.5left_stem); x3r=x5r; y1=y4=h; y2=y3=y5=.4h; +dy=y1-y2; alpha=((x2l-x1l)++dy)/dy; +penpos1(alpha*left_stem,0); penpos2(alpha*left_stem,0); +penpos3(alpha*right_stem,0); penpos4(alpha*right_stem,0); +penpos5(left_stem,0); penpos6(left_stem,0); x5=x6; y6=0; +z0=whatever[z1r,z2r]=whatever[z3l,z4l]; +if y0>y2+cap_notch_cut: y0:=y2+cap_notch_cut; + fill z0+.5right{up}...{z4-z3}diag_end(3l,4l,1,1,4r,3r)--z5r + --diag_end(5r,6r,1,1,6l,5l)--z5l--diag_end(2l,1l,1,1,1r,2r){z2-z1} + ...{down}z0+.5left--cycle; % diagonals and stem +else: fill z0--diag_end(0,4l,1,1,4r,3r)--z5r + --diag_end(5r,6r,1,1,6l,5l)--z5l + --diag_end(2l,1l,1,1,1r,0)--cycle; fi % diagonals and stem +if serifs: numeric inner_jut; pickup tiny.nib; + prime_points_inside(1,2); prime_points_inside(4,3); prime_points_inside(6,5); + if rt x1'r+cap_jut+.5u+1<=lft x4'l-cap_jut: inner_jut=cap_jut; + else: rt x1'r+inner_jut+.5u+1=lft x4'l-inner_jut; fi + dish_serif(1',2,a,1/3,outer_jut,b,1/2,inner_jut); % upper left serif + dish_serif(4',3,c,.6,inner_jut,d,1/2,outer_jut)(dark); % upper right serif + dish_serif(6',5,e,1/3,cap_jut,f,1/3,cap_jut); fi % lower serif +math_fit(.5u#-cap_height#*slant,ic#-4u#); +penlabels(0,1,2,3,4,5,6); endchar; + +cmchar "The Bashkirian letter HA (looks like h)"; +beginchar(CYRSHHA,14u#+width_adj#,cap_height#,0); +italcorr cap_height#*slant-cap_serif_fit#+cap_jut#-2.5u#+min(.5cap_stem#,u#); +adjust_fit(cap_serif_fit#,cap_serif_fit#); +pickup tiny.nib; pos1(cap_stem,0); pos2(cap_stem,0); +pos3(cap_stem,0); pos4(cap_stem,0); +lft x1l=lft x2l=hround max(2u,3u-.5cap_stem); x3=x4=w-x1; +top y1=h; +bot y4=bot y2=0; +x22=x1; y22=.35h; +pos22(cap_bar,95); y3=y22; +filldraw stroke z4e--z3e{up}...{down}z22e; % right stem and bowl +filldraw stroke z1e--z2e; % left stem +if serifs: numeric inner_jut; + if rt x2r+cap_jut+.5u+1<=lft x4l-cap_jut: inner_jut=cap_jut; + else: rt x2r+inner_jut+.5u+1=lft x4l-inner_jut; fi + dish_serif(1,2,a,1/3,cap_jut,b,1/3,inner_jut); % upper left serif + dish_serif(2,1,c,1/3,cap_jut,d,1/3,inner_jut); % lower left serif + dish_serif(4,3,g,1/3,inner_jut,h,1/3,cap_jut); fi % lower right serif +math_fit(0,.5ic#); penlabels(1,2,3,4,22); endchar; +\endinput |