% % lgrlig.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: % % roman dotless i,j % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Special letters % % i_dotl "19 i dotless % j_dotl "1a j dotless % ff-ligs % LHver_check(3,5); % like |version_check| in ec lhchar "Lowercase Cyrillic letter dotless i"; cyrchar(i_dotl,5u#,x_height#,0); italcorr x_height#*slant-serif_fit#+.5stem#-2u#; adjust_fit(serif_fit#+stem_shift# if monospace:+.25u#fi,serif_fit#-stem_shift#); pickup tiny.nib; pos1(stem',0); pos2(stem',0); if odd(w-stem'): change_width; fi lft x1l=hround(.5w-.5stem'); x1=x2; top y1=x_height if serifs: +min(oo,serif_drop) fi; bot y2=0; filldraw stroke z1e--z2e; % stem if serifs: sloped_serif.l(1,2,a,1/3,.95jut,serif_drop); % upper serif save slab; slab:=vair';%serif.lower.slab dish_serif(2,1,b,1/3,jut,c,1/3,.9jut); fi % lower serif penlabels(1,2); endchar; lhchar "Lowercase Cyrillic letter dotless j"; cyrchar(j_dotl,5.5u#,x_height#,desc_depth#); italcorr x_height#*slant-serif_fit#+.5stem#-2u#; adjust_fit(serif_fit#+2stem_shift# if monospace:+.5u# fi, serif_fit#-2stem_shift# if monospace:-.5u# fi); pickup tiny.nib; pos1(stem',0); pos2(stem',0); rt x1r=hround(.5w+.25u+.5stem'); x1=x2; top y1=x_height if serifs: +min(oo,serif_drop) fi; bot y2=-1/3d; filldraw stroke z1e--z2e; % stem if serifs: sloped_serif.l(1,2,a,1/3,1.1jut,serif_drop); % upper serif pickup tiny.nib; pos5(vair,-90); pos6(hair,-180); pos7(flare,-180); x5=.5[x2,x6r]; bot y5r=-d-oo; y6-.5flare=-.88d; if monospace: lft x6r=0 else: z6r=z7r; rt x7l=floor .75u fi; (x,y5r)=whatever[z5l,z2l]; x5r:=max(x,.5[x6r,x5]); filldraw stroke z2e{down}...z5e{left}; bulb(5,6,7); % arc and bulb else: pickup fine.nib; pos2'(stem',0); z2'=z2; pos6(.2[vair,stem'],-90); pos7(vair,-90); lft x7r=hround -.75u; bot y7r=vround 5/6(-d-oo); x3r=x1r; top y4r=min(2x_height,h+1); (x,y7l)=whatever[z7r,(x1,min(h,asc_height))]; x7l:=x; z5r=z2'r; (x2'l,y5l)=whatever[z7l,z5r]; x5l=x2'l; y5=y5r; x6r=.5[x7r,x5r]; x6l:=.5[x7l,x5l]; bot y6r=-d-oo; filldraw stroke z2'e..{down}z5e & super_arc.e(5,6) & term.e(6,7,left,1,4); fi % arc and terminal penlabels(1,2,5,6,7); endchar; if (roman_ec=true) and (old_cyr=false): %relax else: endinput \\; fi numeric itc#; % modified italic correction on `f' and `ff' itc#=if serifs: max(0,flare#-.25u#) else: 1.25u# fi; lhchar "The ligature fi"; beginchar(oct"034",10u#+2letter_fit#,asc_height#,0); italcorr asc_height#*slant-serif_fit#+.5if serifs:stem# else:dot_size# fi-2u#; normal_adjust_fit(0,serif_fit#); pickup tiny.nib; pos1(stem',0); lft x1l=hround(2.5u-.5stem'); pos11(stem',0); rt x11r=hround(w-2.5u+.5stem'); pos12(stem',0); x11=x12; bot y12=0; pickup fine.nib; numeric bulb_diam, inner_jut; if serifs: bulb_diam=hround 1/4[.8[stem,flare],dot_size]; pos2(bulb_diam,0); x2r=x12r; y2+.5bulb_diam=.8[x_height,h+oo]; top y11=x_height+min(oo,serif_drop); if rt x1r+jut+.5u+2<=lft x11l-jut: inner_jut=jut; else: rt x1r+inner_jut+.5u+2=lft x11l-inner_jut; fi else: bulb_diam=max(stem,dot_size); pos2(6/7[vair,flare],90); top y2r=h; rt x2=hround 5.3u; pickup tiny.nib; pos13(bulb_diam,0); pos14(bulb_diam,90); x13=x11-.5; top y14r=min(2x_height,h+1); top y11=x_height; if bot y14l-x_height