% % lgcrusl.mf % %% Cyrillic font container with T2 encoding beta-support % % This file is future part of lxfonts package % Version 3.5 // Patchlevel=0 % (c) O.Lapko % % This package is freeware product under conditions similar to % those of D. E. Knuth specified for the Computer Modern family of fonts. % In particular, only the authors are entitled to modify this file % (and all this package as well) and to save it under the same name. % % Content: % % 6 Small Cap Russian letters - rather miscelaneous font % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % List of letternames % % a % b % e % r % u % f % LHver_check(3,5); % like |version_check| in ec lhchar "Lowercase Russian letter a - Small Caps A"; cyrchar(a,if serifs: 9.5u# else:9u# fi,x_height#,0); adjust_fit(cap_serif_fit#,cap_serif_fit#); numeric left_stem,right_stem,outer_jut,alpha; outer_jut=.75jut; x1l=w-x4r=l+letter_fit+outer_jut+.25u; right_stem=fudged.stem-stem_corr; left_stem=min(fudged.hair if hefty:-2stem_corr fi,right_stem); y1=y4=0; x2-x1=x4-x3; x3r=x2r+apex_corr; y2=y3=h+.5[apex_oo,apex_o]; alpha=diag_ratio(2,left_stem,y2-y1,x4r-x1l-apex_corr); penpos1(alpha*left_stem,0); penpos2(alpha*left_stem,0); penpos3(alpha*right_stem,0); penpos4(alpha*right_stem,0); z0=whatever[z1r,z2r]=whatever[z3l,z4l]; if y0notch_cut+y2: y0l:=notch_cut+y2; % +y2 added for sanserif face fill z0l+.5right{up}..tension3..{z4r-z3r}diag_end(0,4l,1,1,4r,3r) --subpath(0,u_point) of u_path--z2l--diag_end(2l,1l,1,1,1r,2r){z2-z1} ..tension3..{down}z0l+.5left--cycle; % left and right diagonals else: fill z0l--diag_end(0,4l,1,1,4r,3r)--subpath(0,u_point) of u_path --z2l--diag_end(2l,1l,1,1,1r,0)--cycle; fi % left and right diagonals fill z0r{z3r-z4r}....{left}z6r--z6l{right}....{z4r-z3r}z0l--cycle; if serifs: penpos7(hair,-180); penpos8(bulb_diam,-180); y8-.5bulb_diam=.15desc_depth-eps; z7r=z8r; lft x8r=max(.5[x1l,x1],l+hround(.5u-.5)); lft z0'l=z0l; rt z0'r=z0r; cyrbulb(6,7,8); % arc and bulb numeric inner_jut; pickup tiny.nib; prime_points_inside(1,2); prime_points_inside(4,3); if rt x1'r+jut+.5u+1<=lft x4'l-jut: inner_jut=cap_jut; else: rt x1'r+inner_jut+.5u+1=lft x4'l-inner_jut; fi save slab; slab:=Vround(vair-vair_corr); % lower.slab 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 else: pickup fine.nib; pos7(vair,-90); lft x7l=max(2.25u,rt x6r-t); bot y7r=bot y6'r; top z6'l=z6l; bot z6'r=z6r; filldraw stroke z6'e--z7e; fi % arc penlabels(0,0',1,2,3,4,5,6,6',7,8,9); endchar; lhchar "Lowercase Russian letter f - Small Caps F"; cyrchar(f,10u#,x_height#,0); italcorr .7cap_height#*slant-.5u#; %O adjust_fit(0,0) numeric shaved_stem,light_curve; shaved_stem=stem-hround 2stem_corr; light_curve=curve-hround stem_corr; if odd(shaved_stem-w): change_width; fi % symmetric & all three equal pickup tiny.nib; pos1(shaved_stem,0); pos2(shaved_stem,0); x1=x2=.5w; top y1=h; bot y2=0; filldraw stroke z1e--z2e; % stem penpos3(vair,90); penpos5(vair,-90); penpos4(light_curve,180); penpos6(light_curve,0); x4r=hround max(.5u,1.25u-.5curve); x6r=w-x4r; x3=x5=.5w; y3r=vround(.89h if serifs:-.5slab fi); y4=y6=.5[y3,y5]; y5r=vround(.15h if serifs:+.5slab fi); clearpen; interim superness:=more_super; % make |"CYR_.F"|, not |"fita"| penstroke pulled_super_arc.e(3,4)(.5superpull) & pulled_super_arc.e(4,5)(.5superpull) & pulled_super_arc.e(5,6)(.5superpull) & pulled_super_arc.e(6,3)(.5superpull) & cycle; % bowl if serifs: save slab; slab:=Vround(vair-vair_corr); % lower.slab dish_serif(1,2,a,1/3,1.2jut,b,1/3,1.2jut); % upper serif slab:=vair; % lower.slab dish_serif(2,1,c,1/3,1.2jut,d,1/3,1.2jut); fi % lower serif penlabels(1,2,3,4,5,6); endchar; endinput; %end of file