diff options
author | Karl Berry <karl@freefriends.org> | 2006-07-01 22:18:57 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-07-01 22:18:57 +0000 |
commit | 12e838406005e7d86054c1b4a605be7eb2f49080 (patch) | |
tree | 5f2ca548c1fb8a1e28eb34b3ad57396471ff7902 /Master/texmf-dist/fonts/source/lh/nont2/lgunicu.mf | |
parent | a8fc2d59858b6da806b0b23d7b41e2c8ea801c2a (diff) |
lh fonts 3.5d update
git-svn-id: svn://tug.org/texlive/trunk@1738 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/fonts/source/lh/nont2/lgunicu.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/lh/nont2/lgunicu.mf | 232 |
1 files changed, 228 insertions, 4 deletions
diff --git a/Master/texmf-dist/fonts/source/lh/nont2/lgunicu.mf b/Master/texmf-dist/fonts/source/lh/nont2/lgunicu.mf index b0348bb9d25..a75c5888f17 100644 --- a/Master/texmf-dist/fonts/source/lh/nont2/lgunicu.mf +++ b/Master/texmf-dist/fonts/source/lh/nont2/lgunicu.mf @@ -4,13 +4,13 @@ %% Cyrillic font container with T2 encoding beta-support % % This file is future part of lxfonts package -% Version 3.4 // Patchlevel=0 +% Version 3.5 // Patchlevel=1 % (c) O.Lapko % -% This package belongs to the public domain under conditions similar to +% 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 to save it under the same name. +% (and all this package as well) and to save it under the same name. % % Content: % @@ -20,6 +20,8 @@ % List of letternames and their codes in Unicode % +% E_grv "00 E with grave +% I_grv "0d I with grave % GJE "03 Ghe with acute % KJE "0c Ka with acute % ZH_brv "c1 Zhe with breve @@ -33,6 +35,8 @@ % I_uml "e4 I with umlaut % O_uml "e6 O with umlaut % OTLD_uml "e8 O tilded with umlaut +% UKRE_uml -- Ukrainian E width umlaut +% EREV_uml "ec Reverse E width umlaut % U_bar "ee U with macron (bar) % U_uml "f0 U with umlaut % U_dac "f2 U with double acute @@ -40,7 +44,92 @@ % ERY_uml "f8 Ery with umlaut % -LHver_check(3,4); % like |version_check| in ec +LHver_check(3,5); % like |version_check| in ec + +if concrete: input lgnoncu; fi % Cyrillic concrete letters + +lhchar "Uppercase Cyrillic letter E_grv - E grave"; +cyrchar_twice(E_grv,12u#-width_adj#,cap_height#,0); +if is_small_cap: getcharcode(e_grv); fi +italcorr cap_height#*slant-beak_jut#-.5u#; +adjust_fit(cap_serif_fit#,0); +% upper_e; +pickup tiny.nib; pos1(cap_stem,0); pos2(cap_stem,0); +lft x1l=lft x2l=hround max(2u,3u-.5cap_stem); top y1=h; bot y2=0; +filldraw stroke z1e--z2e; % stem +pickup crisp.nib; pos3(slab,90); pos4(hair,0); +top y3r=h; x3=x1; rt x4r=hround(w-u); y4=good.y(y3l-beak)-eps; +arm(3,4,e,beak_darkness,beak_jut); % upper arm and beak +pos5(cap_bar,-90); pos6(hair,0); +top y5l=vround(.52[y2,y1]+.5cap_bar); x5=x1; +pos0(cap_bar,90); pos7(hair,0); +z0=z5; x6=x7; y6-y5l=y0l-y7; +if serifs: rt x6r=hround(w-4.4u+.5hair); y6=good.y(y5l+.6beak)+eps; + rt x9r=hround(w-.5u); +else: rt x6r=hround(w-1.5u); y6=y5l+eps; rt x9r=hround(w-.75u); fi +arm(5,6,f,beak_darkness,0); arm(0,7,g,beak_darkness,0); % middle arm and serif +pos8(slab if not serifs:+2stem_corr fi,-90); pos9(hair,0); +bot y8r=0; x8=x2; y9=good.y(y8l+7/6beak)+eps; +arm(8,9,h,beak_darkness,1.5beak_jut); % lower arm and beak +if serifs: nodish_serif(1,2,a,1/3,cap_jut,b,1/3,.5cap_jut); % upper serif + nodish_serif(2,1,c,1/3,cap_jut,d,1/3,.5cap_jut); fi % lower serif +%%%%% +% the accent +hpos_corr= .75u; +put_gravis(cyrcaph); repeat_once; +penlabels(0,1,2,3,4,5,6,7,8,9); endchar; + +lhchar "Uppercase Cyrillic letter I_grv - I grave"; +cyrchar_twice(I_grv,13.5u#,cap_height#,0); % N_width +if is_small_cap: getcharcode(i_grv); fi +italcorr cap_height#*slant-cap_serif_fit#+cap_jut#-2.5u#+min(.5cap_stem#,u#); +adjust_fit(cap_serif_fit#,cap_serif_fit#); +% upper_i; +pickup tiny.nib; pos1(fudged.cap_stem,0); pos2(fudged.cap_stem,0); +pos3(fudged.cap_stem,0); pos4(fudged.cap_stem,0); +lft x1l=lft x2l=hround max(2u,3u-.5cap_stem); x3=x4=w-x1; +top y1=top y3=h; bot y2=bot y4=0; +filldraw stroke z1e--z2e; % left stem +filldraw stroke z3e--z4e; % right stem +numeric stem[],alpha[]; +if hefty: numeric upper_notch,lower_notch; + stem1=fudged.hair-stem_corr; + upper_notch=y6-cap_notch_cut-eps; lower_notch=y5+cap_notch_cut+eps; + if monospace: + x5r =rt x1r; x6l =lft x3l; y5=vround(slab+eps); y6=vround(h-slab-eps); + alpha1=diag_ratio(1,stem1,y5-y6,x5r-x6l); + penpos5(min(2fudged.cap_stem,alpha1*stem1),0); + penpos6(min(2fudged.cap_stem,alpha1*stem1),0); + x5'=lft x1l; z5'=whatever[z5l,z6l]; x6'=rt x4r; z6'=whatever[z5r,z6r]; + x5l:=x5'; x6r:=x6'; y5l:=y5'; y6r:=y6'; + else: + y5l=0; y6r=h; x5=x1r; x6=x3l; penpos5(stem1,0); penpos6(stem1,0); + fi + x2'=rt x1r; z2'=whatever[z5l,z6l]; x3'=lft x4l; z3'=whatever[z5r,z6r]; + fill z5l.. + if y2'>lower_notch: {right}(x2'+1,lower_notch){up}... fi + {z6-z5}diag_in(5l,6l,1,6r)--z6r.. + if y3'<upper_notch: {left}(x3'-1,upper_notch){down}... fi + {z5-z6}diag_in(6r,5r,1,5l)--cycle; % diagonal +else: y5l=y2+bracket+eps; y6r=y3-bracket-eps; + x5=hround (rt x1r-.5)-eps; x6=hround (lft x3l+.5)+eps; + stem1=max(tiny.breadth,fudged.hair); + alpha1=diag_ratio(1,stem1,x6-x5,top y6r-bot y5l); + penpos5(alpha1*stem1,90); penpos6(alpha1*stem1,90); + fill stroke z5e--z6e; fi % diagonal +%%% +if serifs: numeric inner_jut; + if rt x1r+cap_jut+.5u+1<=lft x3l-cap_jut: inner_jut=cap_jut; + else: rt x1r+inner_jut+.5u+1=lft x3l-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(3,4,e,1/3,inner_jut,f,1/3,cap_jut); % upper right serif + dish_serif(4,3,g,1/3,inner_jut,h,1/3,cap_jut); fi % lower right serif +%%%%% +% the accent +hpos_corr= .75u; +put_gravis(cyrcaph); repeat_once; +penlabels(1,2,3,4,5,6); endchar; lhchar "Uppercase Cyrillic letter GJE (G acute)"; cyrchar_twice(GJE,if monospace: 9u# else: 11u# fi-width_adj#, %G_width @@ -62,6 +151,7 @@ if serifs: nodish_serif(1,2,a,1/3,cap_jut,b,1/3,.5cap_jut); % upper serif put_accent(cyrcaph); repeat_once; penlabels(1,2,3,4); endchar; +iff not concrete:% iff not specific:% lhchar "Uppercase Cyrillic letter KJE (K acute) (`roman')"; cyrchar_twice(KJE,13.5u#,cap_height#,0); % N_width %+acc_height# @@ -322,6 +412,7 @@ fill stroke z0e--z1'e; % crossbar h:=full_h; uppercase_umlaut(0,0, 7,8,9,10); penlabels(0,1,2,3,4,5,6, 7,8,9,10); endchar; +iff not concrete:% iff not specific:% lhchar "Uppercase Cyrillic letter ZH_uml - ZHE umlaut (`roman')"; cyrchar(ZH_uml,13.5u#,cap_height#+acc_height#,0); % N_width @@ -597,6 +688,139 @@ else: fill stroke z5e--z6e; fi h:=full_h; uppercase_umlaut(0,0, 8,9,10,11); penlabels(1,2,3,4,5,6,7, 8,9,10,11); endchar; +iff serifs:% +lhchar "Uppercase Cyrillic letter UKRE_uml - Ukrainian E (C with mid-line)"; +cyrchar(UKRE_uml,13u#,cap_height#+acc_height#,0); +if is_small_cap: getcharcode(ukre_uml); fi +italcorr cap_height#*slant-.5u#; +adjust_fit(0,0); full_h:=h; h:=cap_height; +% upper_ukre; +pickup fine.nib; pos1(cap_hair,0); pos2(cap_band,90); +pos3(cap_curve,180); pos4(cap_band,270); pos5(hair,360); +rt x1r=rt x5r=hround(w-u); lft x3r=hround u; x2=x4=.55[x3,x1]; +top y2r=h+o; bot y4r=-o; y3=.5h-vair_corr; y3l:=.52h; +bot y1=min(vround.675h,bot y2l-eps); +y5=max(good.y .95(h-y1),y4l+eps); +(x2l',y2l)=whatever[z2r,z1l]; x2l:=min(x2l',x2l+.5u); +(x4l',y4l)=whatever[z4r,z5l]; x4l:=min(x4l',x4l+.5u); +filldraw stroke z1e{x2-x1,10(y2-y1)}...pulled_super_arc.e(2,3)(.5superpull) + & pulled_super_arc.e(3,4)(.5superpull)...{up}z5e; % arc +pos6(.3[fine.breadth,cap_hair],0); x6r=x1r; top y6=h+o; +x1r-x1'=2cap_curve-fine; y1'=y1; +path upper_arc; upper_arc=z1{x2-x1,10(y2-y1)}..z2{left}; +numeric t; t=xpart(upper_arc intersectiontimes (z6l--z1')); +filldraw z1r--z6r--z6l--subpath(t,0) of upper_arc--cycle; % barb +% upukre_bar; +numeric bar[]; y7=y8=y3; +x7=x3l; x8=(min(lft x1l-.5hair,0.85[x3l,x1l])); +if (serifs=true) and (bar#<=.5curve#): + penpos7(cap_bar,90); penpos8(cap_bar,90); + bar2=7/8[cap_bar,fudged.cap_stem-3stem_corr]; + penpos9(bar2,45); z9=.575[z7l,z8l]; + fill circ_stroke z8e{-2,-1}..{-2,1}z9e..{-2,-1}z7e; % curve ~ +else: + pickup fine.nib; pos7(cap_bar,90); pos8(cap_bar,90); + filldraw stroke z7e--z8e; fi % bar -- +%%%%% +% the accent +h:=full_h; uppercase_umlaut(x2-.5w,0, 11,12,13,14); +penlabels(1,1',2,3,4,5,6); endchar; + +iff not serifs:% +lhchar "Uppercase Cyrillic letter UKRE_uml - Ukrainian E (C with mid-line)"; +cyrchar(UKRE_uml,11.5u#,cap_height#+acc_height#,0); +if is_small_cap: getcharcode(ukre_uml); fi +italcorr cap_height#*slant-.5u#; +adjust_fit(0,0); full_h:=h; h:=cap_height; +% uppers_ukre; +pickup fine.nib; pos1(1.2flare,80); pos2(slab,90); +pos3(cap_curve,180); pos4(slab,270); pos5(flare,275); +rt x1r=hround(w-1.1u); x2=x4=.5w+1.25u; +lft x3r=hround max(u,2u-.5cap_curve); rt x5r=hround(w-.9u); +top y1r=vround.95h+o; top y2r=h+o; y3=.5h; +bot y4r=-o; bot y5r=vround .08h-o; y5l:=good.y y5l; x5l:=good.x x5l; +filldraw stroke rterm.e(2,1,right,.9,4) & super_arc.e(2,3) + & super_arc.e(3,4) & term.e(4,5,right,.8,4); +% uukres_bar; +numeric bar[]; y6=y7=y3; x6=x3l; x7=(min(lft x1l-.5hair,0.85[x3l,x1l])); +pickup fine.nib; +bar1=if is_small_cap:max(fine.breadth+eps,.6[thin_join,vair]) else: cap_bar fi; +pos6(bar1,90); pos7(bar1,90); +filldraw stroke z6e--z7e; % bar -- +%%%%% +% the accent +h:=full_h; uppercase_umlaut(x2-.5w,0, 11,12,13,14); +penlabels(1,1',2,3,4,5,6); endchar; + +iff serifs:% +lhchar "Uppercase Cyrillic letter EREV_uml - Reverse E umlaut"; +cyrchar(EREV_uml,13u#,cap_height#+acc_height#,0); +if is_small_cap: getcharcode(erev_uml); fi +italcorr cap_height#*slant-.5u#; +adjust_fit(0,0); full_h:=h; h:=cap_height; +% upper_erev; + pickup fine.nib; pos1(cap_hair,180); pos2(cap_band,90); + pos3(cap_curve,0); pos4(cap_band,-90); pos5(hair,-180); + lft x1r=lft x5r=hround u; + rt x3r=hround(w-u); x2=x4=.55[x3,x1]; + top y2r=h+o; bot y4r=-o; y3=.5h-vair_corr; y3l:=.52h; + bot y1=min(vround.675h,bot y2l-eps); y5=max(good.y .95(h-y1),y4l+eps); + (x2l',y2l)=whatever[z2r,z1l]; x2l:=max(x2l',x2l-.5u); + (x4l',y4l)=whatever[z4r,z5l]; x4l:=max(x4l',x4l-.5u); + filldraw stroke z1e{x2-x1,10(y2-y1)}...pulled_super_arc.e(2,3)(.5superpull) + & pulled_super_arc.e(3,4)(.5superpull)...{up}z5e; % arc + pos6(.3[fine.breadth,cap_hair],180); x6r=x1r; top y6=h+o; + x1'-x1r=2cap_curve-fine; y1'=y1; + path upper_arc; upper_arc=z1{x2-x1,10(y2-y1)}..z2{right}; + numeric t; t=xpart(upper_arc intersectiontimes (z6l--z1')); + filldraw z1r--z6r--z6l--subpath(t,0) of upper_arc--cycle; % barb +%%% +%%% uerev_bar; +numeric bar[]; y8=y7=y3; +x8=x3l; x7=max(rt x1l+.5hair,0.85[x3l,x1l]); +if (bar#<=.5curve#): + penpos7(cap_bar,90); penpos8(cap_bar,90); + bar2=7/8[cap_bar,fudged.cap_stem-3stem_corr]; + penpos9(bar2,45); z9=.475[z7l,z8l]; + fill circ_stroke z7e{2,1}..{2,-1}z9e..{2,1}z8e; % curve /\/ +else: + pickup fine.nib; pos7(cap_bar,90); pos8(cap_bar,90); + filldraw stroke z7e--z8e; % bar -- +fi +%%% +% the accent +h:=full_h; uppercase_umlaut(x2-.5w,0, 10,11,12,13); +penlabels(1,1',2,3,4,5,6,7,8,9, 10,11,12,13); endchar; + +iff not serifs:% +lhchar "Uppercase Cyrillic letter EREV_uml - Reverse E umlaut"; +cyrchar(EREV_uml,11.5u#,cap_height#+acc_height#,0); +if is_small_cap: getcharcode(erev_uml); fi +italcorr cap_height#*slant-.5u#; +adjust_fit(0,0); full_h:=h; h:=cap_height; +% uppers_erev; + pickup fine.nib; pos1(1.2flare,100); pos2(slab,90); + pos3(cap_curve,0); pos4(slab,-90); pos5(flare,-95); + lft x1r=hround1.1u; x2=x4=w-(.5w+1.25u); + rt x3r=w-hround max(u,2u-.5cap_curve); + lft x5r=hround.9u; + top y1r=vround .95h+o; top y2r=h+o; y3=.5h; + bot y4r=-o; bot y5r=vround .08h-o; y5l:=good.y y5l; x5l:=good.x x5l; + filldraw stroke rterm.e(2,1,left,.9,4) & super_arc.e(2,3) + & super_arc.e(3,4) & term.e(4,5,left,.8,4); +%%% +% urevs_bar; +pickup fine.nib; numeric bar[]; +bar1=if is_small_cap: max(fine.breadth+eps,.6[thin_join,vair]) + else: cap_bar fi; +pos6(bar1,90); pos7(bar1,90); +y7=y6=y3; x7=x3l; x6=max(rt x1l+.5hair,0.85[x3l,x1l]); +filldraw stroke z6e--z7e; % bar -- +%%%%% +% the accent +h:=full_h; uppercase_umlaut(x2-.5w,0, 8,9,10,11); +penlabels(1,1',2,3,4,5,6,7, 8,9,10,11); endchar; + lhchar "Uppercase Cyrillic letter U_bar - U bar (macron)"; cyrchar(U_bar,13u#,cap_height#+acc_height#,0); if is_small_cap: getcharcode(u_bar); fi |