% % lgcvaci.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: % % Italic Cyrillic acuted vowels % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % List of letternames % % a_ac % e_ac % yo_ac % ukr_e_ac % i_ac % lat_i_ac % ukr_i_ac % o_ac % ery_ac % hrdsn_ac % erev_ac % yu_ac % ya_ac % yat_ac % izh_ac % b_yus_ac % l_yus_ac % il_yus_ac % ib_yus_ac % i_e_ac % uk_ac % y_ac % ae_ac % schwa_ac % otld_ac % dje_ac % LHver_check(3,5); % like |version_check| in ec lhchar "Italic Cyrillic letter a_ac - a acute"; cyrchar_twice(a_ac,9u#,x_height#,0); italcorr 1/3x_height#*slant+.5hair#+.5u#; adjust_fit(if monospace:0 else:-.35u#fi,0); %cyradj % ital_a; pickup fine.nib; pos0(hair,0); pos1(vair,90); pos2(curve,180); pos3(vair,270); pos4(stem,0); x4=x0; y4+.5stem=vround .98h; x1=x3=.5[x0,x2]; lft x2r=hround(1.5u-.5curve); rt x4r=hround(w-2.5u+.5stem); top y1r=h+oo; bot y3r=-oo; y0=y2=.5[y1,y3]; filldraw stroke super_arc.e(0,1) & pulled_arc.e(1,2) & pulled_arc.e(2,3) & super_arc.e(3,0); % bowl x5=x4; x7=w; hook_out(5,6,7); % closing hook filldraw circ_stroke z4e--z5e; % stem % the accent hpos_corr=-u; put_accent; repeat_once; penlabels(0,1,2,3,4,5,6,7); endchar; lhchar "Italic Cyrillic letter e_ac - e acute"; cyrchar_twice(e_ac,8u#,x_height#,0); italcorr max(1/3x_height#*slant,x_height#*slant+.5(.2[hair#,stem#])-u#); %e adjust_fit(if monospace:0 else:-.35u#fi,0); % ital_e; pickup fine.nib; %numeric heavy_hair; heavy_hair=hround .2[hair,stem];%defined in lxpseudo pos0(vair,-90); pos1(heavy_hair,0); pos2(vair,90); pos3(curve,180); pos4(vair,270); pos5(hair,320); x0=rt x3l; rt x1r=hround(w-1.5u+.5heavy_hair); x2=x4=.5(w+u); lft x3r=hround(1.5u-.5curve); x5r=good.x(w-eps); x6=x5; y0=y3=y6=bar_height; y1=.5[y0,y2]; top y2r=h+oo; bot y4r=-oo; top y5l=vround .5bar_height; path p; p=z4{right}..z5..z6; filldraw stroke z0e{right}...z1e{up}...pulled_arc.e(2,3) & pulled_arc.e(3,4)...{direction 1 of p}z5e; % arc % the accent hpos_corr=-u; put_accent; repeat_once; penlabels(0,1,2,3,4,5,6); endchar; lhchar "Italic Cyrillic letter yo_ac - yo acute"; cyrchar_twice(yo_ac,8u#,x_height#,0); italcorr max(1/3x_height#*slant,x_height#*slant+.5(.2[hair#,stem#])-u#); adjust_fit(if monospace:0 else:-.35u# fi,0); % ital_e; pickup fine.nib; %numeric heavy_hair; heavy_hair=hround .2[hair,stem];%defined in lxpseudo pos0(vair,-90); pos1(heavy_hair,0); pos2(vair,90); pos3(curve,180); pos4(vair,270); pos5(hair,320); x0=rt x3l; rt x1r=hround(w-1.5u+.5heavy_hair); x2=x4=.5(w+u); lft x3r=hround(1.5u-.5curve); x5r=good.x(w-eps); x6=x5; y0=y3=y6=bar_height; y1=.5[y0,y2]; top y2r=h+oo; bot y4r=-oo; top y5l=vround .5bar_height; path p; p=z4{right}..z5..z6; filldraw stroke z0e{right}...z1e{up}...pulled_arc.e(2,3) & pulled_arc.e(3,4)...{direction 1 of p}z5e; % arc % the accents lowercase_umlaut(0,0, 7,8,9,10); hpos_corr=-u; put_accent(cyrcaph); repeat_once; penlabels(0,1,2,3,4,5,6); endchar; lhchar "Italic Cyrillic letter ukr_e_ac - Ukrainian e acute"; cyrchar_twice(ukr_e_ac,8u#,x_height#,0); italcorr if math_fitting:1/3x_height#*slant else:x_height#*slant-.5u# fi; %c+.5u adjust_fit(if monospace:0 else:-.35u# fi,0); %c % ital_ukre; pickup fine.nib; pos0(flare,0); pos1(hair,0); pos2(vair,90); pos3(curve,180); pos4(vair,270); pos5(hair,320); x2=x4=.5(w+u); rt x1r=max(rt x2,hround(w-.5u))+eps; lft x3r=hround(1.5u-.5curve); x5r=good.x(w-eps); x6=x5; y1=.5[bar_height,h]; top y2r=h+oo; bulb(2,1,0); % bulb bot y4r=-oo; y3=.5[y2,y4]; top y5l=vround .5bar_height; y6=bar_height; path p; p=z4{right}..z5..z6; filldraw stroke pulled_arc.e(2,3) & pulled_arc.e(3,4)...{direction 1 of p}z5e; % arc pos7(vair,90); pos8(vair,90); y7=bar_height; rt x7=hround max(rt x2+1+eps,lft x0l-eps); x8=x3; y7=y8; filldraw stroke z7e--z8e; % bar % the accent hpos_corr=-u; put_accent; repeat_once; penlabels(1,2,3,4,5,6,7,8); endchar; lhchar "Italic Cyrillic letter i_ac - i acute"; cyrchar_twice(i_ac,10u#,x_height#,0); italcorr 1/3x_height#*slant+.5hair#+.5u#; adjust_fit(0,0); % ital_i; pickup fine.nib; interim superness:=more_super; x2=x3+.25u; pos3(stem,-180); lft x3r=hround(2.5u-.5stem); % left skewstem; if monospace: pos0(vair,90); x0=good.x .5[0,x2]; top y0l=h; y2=2/3h; pos2(stem,0); filldraw stroke z2e{u,x_height}...{left}z0e; % terminal else: x0=0; hook_in(0,1,2)(skewed); fi % opening hook pos2'(stem,-180); z2'=z2; pos4(vair,-90); pos5(hair,0); x4=.5[x3,x5]; pos6(stem,0); rt x6r=hround(w-2.5u+.5stem); x5=x6=x7; x9=w; hook_out(7,8,9); % closing hook y3=.7[y4,y5]; bot y4r=-oo; y5=.57h; y6+.5stem=h; filldraw stroke z2'e{-u,-x_height} ...super_arc.e(3,4)...{up}z5e; % left stem and arc filldraw circ_stroke z6e--z7e; % right stem % the accent hpos_corr=-u; put_accent; repeat_once; penlabels(0,1,2,3,4,5,6,7,8,9); endchar; lhchar "Italic Cyrillic letter lat_i_ac - Ukrainian i acute"; cyrchar_twice(lat_i_ac,5u#,x_height#,0); italcorr max(1/3x_height#*slant+.5hair#+.5u#,h#*slant+.5flare#-2u#); adjust_fit(if monospace:u#,u# else: 0,0 fi); pickup fine.nib; x0=0; x5=w; x2=.5w+.25u; x3=.5w-.25u; hook_in(0,1,2)(skewed); hook_out(3,4,5)(skewed); %hooks filldraw stroke z2e--z3e; % stem pos8(flare,0); pos9(flare,90); x8=.5w if not monospace:-.4(h-x_height)*slant fi; top y9r=h+1; if bot y9l-top y1cap_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 hpos_corr=-u; put_accent; repeat_once; penlabels(0,1,2,3,4,5,6,7,8,9,10); endchar; lhchar "Italic Cyrillic letter b_yus_ac - big yus acute"; cyrchar_twice(b_yus_ac,9u#,x_height#,0); italcorr 1/3x_height#*slant+.5hair#+.5u#; %h adjust_fit(w# -5u# if monospace:-1.5u# fi,if monospace:-1.5u# else:0 fi); % ital_yus; % itop_yus; pickup fine.nib; penpos1(fudged.stem,0); penpos2(fudged.hair,0); penpos3(fudged.stem,0); penpos4(fudged.hair,0); w-x2r=.24w; x2-x3=x3-x1; y1=h; y2=y1; y3=y4=bar_height; x3l=hround(2.5u-.5stem); x3r=x4r; z0=whatever[z4l,z2l]=whatever[z1r,z3r]; if hefty: y0:=bar_height+.5fine; fill z3l--diag_end(3l,1l,1,1,1r,3r){z3r-z1r} ...{down}(x0-.5,y0)..(x0+.5,y0){up}... {z2l-z4l}diag_end(4l,2l,1,1,2r,4r)--z4r--cycle; % diagonals else: fill z3l--diag_end(3l,1l,1,1,1r,3r)--z0-- diag_end(4l,2l,1,1,2r,4r)--z4r--cycle; fi % diagonals penpos5(fudged.stem,0); x5=x3; y5-.5stem=-oo; fill circ_stroke z5e--z3e; %middle stem z6=whatever[z4,z2]; z7=whatever[z1,z3]; y6=y7=good.y(y1-vair); fill z1--z7--z6--z2--cycle; % upper bar % bowls pos8(vair,90); pos9(stem,0); pos10(vair,90); pos11(hair,180); pos12(stem,180); pos13(vair,90); pos14(hair,0); z8=z3; x11=hround(w+.5hair-eps)-.5hair; x11-x3=x3-x14; y11=y14=1/3x_height; lft x9l=hround(w-2.75u-.5stem); x9-x3=x3-x12; y9=y12=1/2y8; x10=hround(w-1.2u); x10-x3=x3-x13; bot y10l=bot y13l=-oo; filldraw stroke if not monospace:z14e{down}... fi z13e{right}...z12e{up}...z8e{right}...z9e{down}...z10e{right} if not monospace:...{up}z11e fi; % left lower diagonal %%% % the accent hpos_corr=-u; put_accent; repeat_once; penlabels(1,2,3,4,5,6,7,8,9); endchar; let k_bowl = undefined; lhchar "Italic Cyrillic letter l_yus_ac - little yus acute"; cyrchar_twice(l_yus_ac,11u#,x_height#,0); italcorr 1/3x_height#*slant+.5hair#+.5u#; adjust_fit(if monospace:-.5u# else:.5u# fi, %wbulb_adj 0); % ital_amod; pickup fine.nib; pos1(vair,-90); pos2(hair,0); pos3(hair,0); pos4(vair,-90); pos5(hair,-180); pos6(flare,-180); pos1'(stem,180); pos10(stem,0); top y1l=h+oo; x1=.5[x3,x1']; x2=x3=3u; y3=.35h; y2=.75h; bot y4r=-oo; x4=lft x6r+flare; y6-.5flare=.1h; lft x6r=-.25u; z5r=z6r; y1'=.8h; x1'=x7; z10=z1'; rt x7r=hround(w-2.5u+.5stem); bulb(4,5,6); % bulb x9=w; hook_out(7,8,9); % closing hook filldraw stroke z10e--z7e; % tie filldraw stroke pulled_arc.e(4,3) & super_arc.e(3,1) & super_arc.e(1,1'); % right stem % stem&bar pos11(vair,90); pos12(vair,90); z11=((l,bar_height)..(w,bar_height)) intersectionpoint (pulled_arc.r(4,3) & super_arc.r(3,1)); z12=((0,bar_height)..(w,bar_height)) intersectionpoint (z10l..z7l); filldraw stroke z11e--z12e; % bar numeric stem[]; stem1=max(fine.breadth+eps,.7[thin_join,stem]); pos13(stem1,0); pos14(stem1,0); x13=x14=.5[x11,x12]; y13=y12; y14-.5stem1=0; filldraw circ_stroke z14e--z13e; % stem %%% % the accent hpos_corr=-u; put_accent; repeat_once; penlabels(1,1',2,3,4,5,6,7,8,9,11,12,13,14); endchar; lhchar "Italic Cyrillic letter il_yus_ac - iot little yus acute"; cyrchar_twice(il_yus_ac,11u#,x_height#,0); italcorr 1/3x_height#*slant+.5hair#+.5u#; adjust_fit(if monospace: 3.5u#+else: 4.5u#+fi.5u#, if monospace:-1.5u# else:0 fi); %rstem_adj % ital_amod;iot pickup fine.nib; pos1(vair,-90); pos2(hair,0); pos3(hair,0); pos4(vair,-90); pos5(hair,-180); pos6(flare,-180); pos1'(stem,180); pos10(stem,0); top y1l=h+oo; x1=.5[x3,x1']; x2=x3=3u-eps; y3=.35h; y2=.75h; bot y4r=-oo; lft x6r=-.25u; x4=min(lft x6r+flare,lft x3l-eps); y6-.5flare=.1h; z5r=z6r; y1'=min(.8h,bot y1l)-eps; z10=z1'; rt x7r=hround (w-2.5u+.5stem)+eps; x1'=x7; bulb(4,5,6); % bulb % right_stem; _one:=7; _two:=8; _three:=9; if monospace: pos[_three](vair,90); pos[_one](stem,0); x[_three]=good.x .5[x[_one],w]; bot y[_three]l=0; y[_one]=1/3h; filldraw stroke z[_one]e{down}...{right}z[_three]e; % terminal else: x[_three]=w; hook_out([_one],[_two],[_three]); fi % opening hook filldraw stroke z10e--z7e; % tie if lft x1'r1.2upper_side: upper_side:=lower_side; fi pos1(top_thickness,-90); pos6(bot_thickness,-90); x1=x6=.5w; top y1l=h+o; bot y6r=-o; pos0(cap_stem,theta); lft x2l=w-rt x8l=hround 1.25u; lft x7r=w-rt x5r=hround 1.75u; x2r-x2l=stem-fine; x5r-x5l=lower_side-fine;%%%%%%%%%%% ellipse_set(1l,2l,3l,0l); ellipse_set(1r,2r,3r,0r); ellipse_set(6l,5l,4l,0l); ellipse_set(6r,5r,4r,0r); numeric tau; tau=max(.8,.20710678/(superness-.5)); y2r:=vround(y2l+max(1,serif_drop)+eps); filldraw stroke z2e{down} ..z3e---z4e..z5e{down}..tension atleast tau..z6e{left}; % S stroke pos7(lower_side,180); pos8(upper_side,180); y7=.5[y5l,y5r]; y8=.5[y2l,y2r]; pos9(vair,90); z9=z0; filldraw stroke z8e{down} ..tension atleast tau and atleast 1..{-18u,-.618h}z9e; % upper right stroke filldraw stroke z6e{left}..tension atleast tau..z7e{up} ..tension atleast tau and atleast 1..{18u,.5h}z9e;% lower left stroke % italic bulb z8'=z8; pos8'(upper_side,0); y1'+.5curve=h+oo; x1'=x8-max(u,.5u+.5curve); %+.5curve%y8+(x_height-bar_height); %%%%%%%%%%% numeric theta; theta=angle(4(x8'-x1'),y8'-y1'); pos1'(curve,theta+90); filldraw z1'l{dir theta}..tension atleast 1 and 1..{down}z8'l --z8'r{up}...{-dir theta}z1'r..cycle; % bulb % from sloped serif if serif_drop>0: pos12(slab,90); lft x12=x2l-.5jut-eps; y12r=y2r-serif_drop; z14=z2l; filldraw z2r--z12r--z12l{right} ...1/3[(x14,y12l),.5[z12l,z14] ]{z14-z12l} ...{down}z14--(x2r,y14)--cycle; % sloped serif fi %%%%% % the accent hpos_corr=-u; put_accent(cyrcaph); repeat_once; penlabels(0,1,1',2,3,3',4,4',5,6,7,8,9,10,11,12); endchar; lhchar "Italic Cyrillic letter y_ac - straight u acute"; cyrchar_twice(y_ac,9.5u#,x_height#,desc_depth#); italcorr x_height#*slant+.25u#; adjust_fit(.25u#,max(u#,.5u#+.5flare#)); %izhy_adj % ital_y; numeric left_stem,right_stem,outer_jut,dy,alpha; left_stem=stem-stem_corr; right_stem=min(hair if hefty:-2stem_corr fi,left_stem); outer_jut=.75jut; x1l=l+letter_fit+outer_jut+.25u; x4r=w-x1l; x2l=x5l=hround(.5w-.5left_stem); x3r=x5r; y1=y4=h; y2=y3=y5=0; 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); penpos4'(alpha*right_stem,0); penpos5(left_stem,0); penpos6(left_stem,0); x5=x6; y6=-d; z0=whatever[z1r,z2r]=whatever[z3l,z4l]; penpos7(vair,90); penpos8(hair,0); penpos9(flare,0); x7=.5[x4',rt x8r]; y7r=h+oo; y4'=min(.9x_height,y7l-vair); z4'=whatever[z3,z4]; rt x8r=hround(r-.5u-.5); y8=max(vround(y7r-.5hair)-.5flare-1, min(bar_height+.5flare+2vair'+2,.9[bar_height,h]-.5flare)); cyrbulb(7,8,9); % bulb y1'=3/4x_height; z1'=whatever[z1,z2]; penpos1'(alpha*left_stem,0); x10=l+letter_fit; x10:=hround(x10-.5hair)+.5hair; y10=2/3x_height; penpos11(vair,90); top y11r=x_height+oo; x11=min(x1l-.5,x10+u); if y0>y2+notch_cut: y0:=y2+notch_cut; fill z0+.5right{up}...{z4-z3}z4'l...{right}z7r--z7l{left} ...{z5r-z4'r}z4'r--z5r--z6r--z6l--z5l-- z1'l{z1-z2}...{left}z11l--z11r{right} ..tension atleast .75 and 1..{z2-z1}z1'r ...{down}z0+.5left--cycle; % diagonals and stem else: fill z0--z4'l...{right}z7r--z7l{left} ...z4'r--z5r--z6r--z6l--z5l-- z1'l{z1-z2}...{left}z11l--z11r{right} ..tension atleast .75 and 1..{z2-z1}z1'r --cycle; fi % diagonals and stem pickup fine.nib; pos10(hair,180); pos11'(vair,90); z11'=z11; filldraw stroke z10e{up}...z11'e{right}; % hook pickup tiny.nib; prime_points_inside(6,5); dish_serif(6',5,e,1/3,jut,f,1/3,jut); % lower serif %%% % the accent hpos_corr=-u; put_accent; repeat_once; penlabels(0,1,2,3,4,5,6,7,8,9,10,11); endchar; iff knuthian_ae:% lhchar "Italic Cyrillic letter ae - ligature ae_ac"; cyrchar_twice(ae_ac,13u#,x_height#,0); italcorr max(1/3x_height#*slant,x_height#*slant+.5(.2[hair#,stem#])-u#); adjust_fit(if monospace:-u#,-u# else: 0,0 fi); pickup fine.nib; begingroup forsuffixes $=hair,stem: shaved$:=mfudged$; save $; $=shaved$; endfor %numeric heavy_hair; heavy_hair=hround .2[hair,stem];%defined in lxpseudo numeric light_stem; light_stem=hround .75[hair,stem]; pos0(vair,-90); pos1(heavy_hair,0); pos2(vair,90); pos3(light_stem,180); pos4(vair,270); pos5(hair,320); x0=rt x3l; rt x1r=hround(w-1.5u+.5heavy_hair); x2=x4=.5(w+6u); lft x3r=hround(.5w-.5light_stem); x5r=good.x(w-.5u); x6=x5; y0=y3=y6=bar_height; y1=.5[y0,y2]; top y2r=h+oo; bot y4r=-oo; top y5l=vround(.5bar_height+.5); path p; p=z4{right}..z5..z6; filldraw stroke z0e{right}...z1e{up}...pulled_arc.e(2,3) & pulled_arc.e(3,4)...{direction 1 of p}z5e; % arc of e pos7(light_stem,0); pos8(light_stem,0); x7=x8=x3; y7+.5light_stem=h+oo; y8-.5light_stem=-oo; pos7'(vair,-225); pos11(curve,-180); z7'=z7; pos12(vair,-90); pos3'(hair,0); z3'=z3; lft x11r=hround(1.5u-.5curve); x12=.5[x11,x3]; y11=.3[y12,y7]; bot y12r=-oo; filldraw stroke z7'e{3(x11-x7),y11-y7}...pulled_arc.e(11,12) & pulled_arc.e(12,3'); % bowl of a filldraw z7l---z8l..z8r---z7r..cycle; % stem endgroup; %%% % the accent hpos_corr=-u; put_accent; repeat_once; penlabels(0,1,2,3,4,5,6,7,8,11,12); endchar; iff not knuthian_ae: % borrowed from ec lhchar "Italic Cyrillic letter ae - ligature ae_ac"; cyrchar_twice(ae_ac,13u#,x_height#,0); italcorr max(1/3x_height#*slant,x_height#*slant+.5(.2[hair#,stem#])-u#); adjust_fit(if monospace:-u#,-u# else: 0,0 fi); pickup fine.nib; begingroup forsuffixes $=hair,stem: shaved$:=mfudged$; save $; $=shaved$; endfor numeric light_stem; light_stem=hround .75[hair,stem]; pos0(vair,-90); pos1(heavy_hair,0); pos2(vair,90); pos3(light_stem,180); pos4(vair,270); pos5(hair,320); x0=rt x3l; rt x1r=hround(w-1.5u+.5heavy_hair); x2=x4=.5(w+6u); lft x3r=hround(.5w-.5light_stem); x5r=good.x(w-.5u); x6=x5; y0=y3=y6=bar_height; y1=.5[y0,y2]; top y2r=h+oo; bot y4r=-oo; top y5l=vround(.5bar_height+.5); path p; p=z4{right}..z5..z6; filldraw stroke z0e{right}...z1e{up}...pulled_arc.e(2,3) & pulled_arc.e(3,4)...{direction 1 of p}z5e; % arc of e pos7(light_stem,0); x7=x3; y7+.5light_stem=h+oo; pos7'(vair,-225); pos10(vair,-270); pos11(curve,-180); z7'=z7; pos12(vair,-90); pos3'(hair,0); z3'=z3; lft x11r=hround(1.5u-.5curve); x10=x12=.5[x11,x3]; top y10r=h+oo; y11=.52h; bot y12r=-oo; filldraw stroke pulled_arc.e(3',10) & pulled_arc.e(10,11) & pulled_arc.e(11,12) & pulled_arc.e(12,3'); % bowl of a filldraw z7l---z3r..z3l---z7r..cycle; % stem endgroup; %%% % the accent hpos_corr=-u; put_accent; repeat_once; penlabels(0,1,2,3,4,5,6,7,10,11,12); endchar; lhchar "Italic Cyrillic letter schwa_ac - schwa acute"; cyrchar_twice(schwa_ac,8u#,x_height#,0); italcorr max(1/3x_height#*slant,x_height#*slant+.5(.2[hair#,stem#])-u#); adjust_fit(0,if monospace:0 else:-.35u#fi); % ital_schwa; pickup fine.nib; %numeric heavy_hair; heavy_hair=hround .2[hair,stem];%defined in lxpseudo pos0(vair,90); pos1(heavy_hair,180); pos2(vair,-90); pos3(curve,0); pos4(vair,90); pos5(hair,140); x0=lft x3l; lft x1r=hround(1u-.5heavy_hair); x2+.5u=x4=.5(w-u); rt x3r=hround(w-1.5u+.5curve); lft x5r=good.x (lft x1r+eps); x6=x5; y0=y3=y6=bar_height; y1=.5[y0,y2]; bot y2r=-oo; top y4r=h+oo; top y5r=vround .5[bar_height,x_height]; path p; p=z4{left}..z5..z6; filldraw stroke z0e{left}...z1e{down}...pulled_arc.e(2,3) & pulled_arc.e(3,4)...{direction 1 of p}z5e; % arc % the accent hpos_corr=-u; put_accent; repeat_once; penlabels(1,2,3,4,5,6); endchar; lhchar "Italic Cyrillic letter otld_ac - o tilded acute"; cyrchar_twice(otld_ac,9u#,x_height#,0); italcorr .7x_height#*slant+.5curve#-u# if math_fitting:-.5u# fi; adjust_fit(0,0); pickup fine.nib; % ital_o;tld pos1(vair,90); pos2(curve,180); pos3(vair,270); pos4(curve,360); x1=x3=.5w; lft x2r=hround(1.5u-.5curve); x4=w-x2; top y1r=h+oo; y2=y4=.5[y1,y3]; bot y3r=-oo; filldraw stroke pulled_arc.e(1,2) & pulled_arc.e(2,3) & pulled_arc.e(3,4) & pulled_arc.e(4,1); % bowl %%% % oltilde; if (serifs=true) and (bar#<=.5curve#): numeric bar[]; set_bar_axis; x5r=x2l; x6r=x4l; y5r=y6r=y2.bh; y5l=y6l=y1.bh; x5r=x5l; x6l=x6r; bar2=2/3[bar,fudged.stem]; penpos7(bar2,45); z7=.5[z5l,z6l]; fill stroke z6e{-2,-1}..{-2,1}z7e..{-2,-1}z5e; else: bar_stroke(x2l,x4l); fi %%%%% % the accent hpos_corr=-u; put_accent; repeat_once; penlabels(1,2,3,4,5,6,7); endchar; lhchar "Italic Cyrillic letter dje_ac - soft dj acute"; cyrchar_twice(dje_ac,8u#,asc_height#,desc_depth#); italcorr .7x_height#*slant; %o adjust_fit(1.5u#,0); pickup tiny.nib; pos1(stem,0); pos2(stem,0); x1=x2; lft x1l=hround(1.5u-.5stem); top y1=h; y2-.5stem=-oo; filldraw circ_stroke z2e--z1e; % left stem sloped_serif.l(1,2,a,1/3,jut,serif_drop); % serif pickup fine.nib; x4+.5stem=hround(w-.75u+.5stem); x5=x4; ital_arch(2,3,4); % arch x7=.45[x2,x4]; bot y7r=-d; pos7(hair,-90); filldraw stroke pulled_arc.e(4,7); x8=-u; x9=x4; y8=y9=.5x_height+.5h; pos8(bar,90); pos9(bar,90); filldraw stroke z8e--z9e; hpos_corr=-u; put_accent(cyrcaph); repeat_once; penlabels(1,2,3,4,5,6,7,8,9); endchar; endinput; %end of file