diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/lh/base/lgt2slxi.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/lh/base/lgt2slxi.mf | 189 |
1 files changed, 189 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/lh/base/lgt2slxi.mf b/Master/texmf-dist/fonts/source/lh/base/lgt2slxi.mf new file mode 100644 index 00000000000..63940e75808 --- /dev/null +++ b/Master/texmf-dist/fonts/source/lh/base/lgt2slxi.mf @@ -0,0 +1,189 @@ +% +% lgt2slxi.mf +% +%% Cyrillic font container with T2 encoding beta-support +% +% This file is future part of lxfonts package +% Version 3.4 // Patchlevel=1 +% (c) O.Lapko +% +% This package belongs to the public domain 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 to save it under the same name. +% +% Content: +% +% Italic Old Slav letters +% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +% List of letternames +% +% vnarrow_e +% zelo +% vuk +% vi_a +% izh_dgr +% Vl_yus +% izh_uml +% olg +% oery +% ohrdsgn +% oo_cdot +% oo_cddot +% Vizh +% t_peter +% zelo_m +% + +LHver_check(3,4); % like |version_check| in ec + +lhchar "Italic Cyrillic letter vnarrow_e"; +cyrcharmoving(vnarrow_e); + +lhchar "Italic Cyrillic letter zelo"; +cyrcharmoving(zelo); + +lhchar "Italic Cyrillic letter vuk - variant uk"; +cyrcharmoving(vuk); + +lhchar "Italic Cyrillic letter vi_a - variant iot a"; +cyrcharmoving(vi_a); + +lhchar "Italic Cyrillic letter izh_dgr - izhitsa double grave"; +cyrchar_twice(izh_dgr,9.5u#,x_height#+acc_height#,0); +italcorr x_height#*slant+.25u#; +adjust_fit(.25u#,max(u#,.5u#+.5flare#)); %izhy_adj +full_h:=h; h:=x_height; +% ital_izh; +numeric left_stem,right_stem,outer_jut,alpha,bulb_diam; +left_stem=stem-stem_corr; bulb_diam=7/8[hair,flare]; +right_stem=min(hair if hefty:-2stem_corr fi,left_stem); +outer_jut=.75jut; x1l=l+letter_fit+outer_jut+.25u; x4r=w-x1l; y1=y4=h; +x2-x1=x4-x3; x2l+apex_corr=x3l; y2=y3=-apex_o; +alpha=diag_ratio(2,right_stem,y1-y2,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]; +penpos4''(alpha*right_stem,0); +penpos5(vair,90); penpos6(hair,0); penpos7(flare,0); +x5=if serifs:.5[x4'',rt x6r] else: rt x6r fi; top y5r=h+oo; +y4''=min(.9x_height,y5l-vair); z4''=whatever[z3,z4]; +rt x6r=hround(r-.5u-.5); +y6=max(vround(top y5r-.5hair)-1-.5flare, + min(bar_height+.5flare+2vair'+2,.9[bar_height,h]-.5flare)); +cyrbulb(5,6,7); % bulb +penpos1'(alpha*left_stem,0); y1'=3/4x_height; z1'=whatever[z1,z2]; +x10=l+letter_fit; x10:=hround(x10-.5hair)+.5hair; y10=2/3x_height; +penpos9(vair,90); y9r=x_height+oo; x9=min(x1l-.5,x10+u); +if y0>cap_notch_cut: + y0:=cap_notch_cut; + fill z0+.5right{up}...{z4-z3}z4''l...{right}z5r--z5l{left} + ...z4''r{z3-z4}--diag_end(4r,3r,1,1,2l,1l)-- + z1'l{z1-z2}...{left}z9l--z9r{right} + ..tension atleast .75 and 1..{z2-z1}z1'r + ...{down}z0+.5left--cycle; % left and right diagonals +else: + pickup pencircle scaled1; + fill z0--z4''l{z4-z3}...{right}z5r--z5l{left}...{z3-z4}z4''r + --diag_end(4r,3r,1,1,2l,1l)-- + z1'l{z1-z2}...{left}z9l--z9r{right} + ..tension atleast .75 and 1..{z2-z1}z1'r + --cycle; fi % left and right diagonals +pickup fine.nib; +pos9'(vair,90); z9'=z9; pos10(hair,180); +filldraw stroke z10e{up}...z9'e{right}; +%%% +% the accent +if monospace: hpos_corr=-2u; put_gravis; hpos_corr=2u; put_gravis; +else: hpos_corr=-1.5u; put_gravis; hpos_corr=1.5u; put_gravis; fi +repeat_once; +penlabels(0,1,2,3,4); endchar; + +lhchar "Italic Cyrillic letter Vl_yus - like crossed Delta"; +cyrcharmoving(Vl_yus); + +lhchar "Italic Cyrillic letter izh_uml - izhitsa umlaut"; +cyrchar(izh_uml,9.5u#,lc_trema_height#,0); +italcorr x_height#*slant+.25u#; +adjust_fit(.25u#,max(u#,.5u#+.5flare#)); %izhy_adj +h:=x_height; +% ital_izh; +numeric left_stem,right_stem,outer_jut,alpha,bulb_diam; +left_stem=stem-stem_corr; bulb_diam=7/8[hair,flare]; +right_stem=min(hair if hefty:-2stem_corr fi,left_stem); +outer_jut=.75jut; x1l=l+letter_fit+outer_jut+.25u; x4r=w-x1l; y1=y4=h; +x2-x1=x4-x3; x2l+apex_corr=x3l; y2=y3=-apex_o; +alpha=diag_ratio(2,right_stem,y1-y2,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]; +penpos4''(alpha*right_stem,0); +penpos5(vair,90); penpos6(hair,0); penpos7(flare,0); +x5=if serifs:.5[x4'',rt x6r] else: rt x6r fi; top y5r=h+oo; +y4''=min(.9x_height,y5l-vair); z4''=whatever[z3,z4]; +rt x6r=hround(r-.5u-.5); +y6=max(vround(top y5r-.5hair)-1-.5flare, + min(bar_height+.5flare+2vair'+2,.9[bar_height,h]-.5flare)); +cyrbulb(5,6,7); % bulb +penpos1'(alpha*left_stem,0); y1'=3/4x_height; z1'=whatever[z1,z2]; +x10=l+letter_fit; x10:=hround(x10-.5hair)+.5hair; y10=2/3x_height; +penpos9(vair,90); y9r=x_height+oo; x9=min(x1l-.5,x10+u); +if y0>cap_notch_cut: + y0:=cap_notch_cut; + fill z0+.5right{up}...{z4-z3}z4''l...{right}z5r--z5l{left} + ...z4''r{z3-z4}--diag_end(4r,3r,1,1,2l,1l)-- + z1'l{z1-z2}...{left}z9l--z9r{right} + ..tension atleast .75 and 1..{z2-z1}z1'r + ...{down}z0+.5left--cycle; % left and right diagonals +else: + pickup pencircle scaled1; + fill z0--z4''l{z4-z3}...{right}z5r--z5l{left}...{z3-z4}z4''r + --diag_end(4r,3r,1,1,2l,1l)-- + z1'l{z1-z2}...{left}z9l--z9r{right} + ..tension atleast .75 and 1..{z2-z1}z1'r + --cycle; fi % left and right diagonals +pickup fine.nib; +pos9'(vair,90); z9'=z9; pos10(hair,180); +filldraw stroke z10e{up}...z9'e{right}; +%%% +% the accent +lowercase_umlaut(.5[x1,x4]-.5w,0, 11,12,13,14); +penlabels(0,1,2,3,4,5,6,7,8,9,10, 11,12,13,14); endchar; + +lhchar "Italic Cyrillic letter olg - old soft el (elghe)"; +cyrcharmoving(olg); + +lhchar "Italic Cyrillic letter oery - old ery"; +cyrcharmoving(oery); + +lhchar "Italic Cyrillic letter ohrdsn - old hard sign"; +cyrcharmoving(ohrdsn); + +lhchar "Italic Cyrillic letter oo_cdot - old o cdot"; +cyrcharmoving(oo_cdot); + +lhchar "Italic Cyrillic letter oo_cddot - old o double cdot"; +cyrcharmoving(oo_cddot); + +lhchar "Italic Cyrillic letter vizh - Variant izhitsa"; +cyrcharmoving(vizh); + +lhchar "Italic Cyrillic letter t_peter -- looks like m"; +cyrcharmoving(t_peter); + +lhchar "Italic Cyrillic letter zelo_m -- variant zelo mirror"; +cyrcharmoving(zelo_m); + +lhchar "Italic Cyrillic letter izhei"; +cyrcharmoving(izhei); + +lhchar "Italic Cyrillic letter lo"; +cyrcharmoving(lo); + +lhchar "Italic Cyrillic letter mo"; +cyrcharmoving(mo); + +endinput; +%end of file |