%% filename: cyrti.mf %% version: 2.2 %% date: 1995/01/04 %% %% American Mathematical Society %% Technical Support %% Publications Technical Group %% 201 Charles Street %% Providence, RI 02904 %% USA %% tel: (401) 455-4080 %% (800) 321-4267 (USA and Canada only) %% fax: (401) 331-3842 %% email: tech-support@ams.org %% %% Copyright 1995 Humanities and Arts Computing Center, University of %% Washington. %% %% Unlimited copying and redistribution of this file are permitted as %% long as this file is not modified. Modifications, and distribution %% of modified versions, are permitted, but only if the resulting file %% is renamed. %% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %cyrti.mf cmchar "Italic Serbian letter Soft n (looks like hb)"; beginchar(oct"010",6u#,x_height#,0); italcorr .7x_height#*slant+.5curve#-u# if math_fitting:-.5u# fi; adjust_fit(5u#,0); pickup tiny.nib; w:=6u; pos1(stem,0); pos2(stem,0); x1=x2; lft x1l=hround(u-.5stem); top y1=h; y2=.6bar_height; filldraw stroke z1e--z2e; % stem sloped_serif.l(1,2,a,1/3,jut,serif_drop); % serif pickup fine.nib; pos2'(stem,-180); pos3(vair,-90); pos4(curve,0); pos5(vair,90); pos0(hair,180); z0=z2=z2'; x3=x5=.5[x2,x4]; rt x4r=hround(w-u+.5curve); bot y3r=-oo; top y5r=1.2bar_height+oo; y4=y2; filldraw stroke pulled_arc.e(2',3) & pulled_arc.e(3,4) & pulled_arc.e(4,5) & super_arc.e(5,0); % bowl x80=-5u; x82-.5stem=hround(-2u-.5stem); hook_in(80,81,82); z83=z82; x84=x83; y84-.5stem=-oo; pos83(stem,0); pos84(stem,0); filldraw circ_stroke z84e--z83e; x85=x83; y85=y86=bar_height; x86=x0; pos85(hair,90); pos86(hair,90); filldraw stroke z85e--z86e; %y11=y1; x11=x1-4.5u; x12=x11; pos11(stem,0); x14=-.5u; %hook_out(12,13,14); %sloped_serif.l(11,12,b,1/3,jut,serif_drop); % serif %filldraw stroke z11e--z12e; %x89=x11; y89=.75[y2,y3]; x90=x0; y90=y89; pos89(hair,90); pos90(hair,90); %filldraw stroke z89e--z90e; endchar; cmchar "Italic Serbian letter soft l"; beginchar(oct"011",12u#,x_height#,0); adjust_fit(.5u#,.5u#); pickup fine.nib; w:=9u; y1+.375stem=h; x1=.5[x3,x1']; x2=x3=3u; y3=.35h; y2=.75h; bot y4r=-oo; y1'=.8h; x1'l=w-2u; x4=.5[x6,x3]; y6-.5flare=.1h; pos6(flare,-180); pos5(hair,-180); lft x6r=-.25u; z5r=z6r; pos4(vair,-90); pos2(hair,0); pos3(hair,0); pos1(.75stem,-90); x7=x1'; pos1'(stem,180); pos7(stem,0); z11=z1'; pos11(stem,0); y7=.6bar_height; bulb(4,5,6); filldraw stroke pulled_arc.e(4,3) & super_arc.e(3,1) & super_arc.e(1,1'); filldraw stroke z11e..z7e; w:=12u; x23=x25=.5[x7,x24]; rt x24r=hround(w-u+.5curve); bot y23r=-oo; top y25r=1.2bar_height+oo; y24=y7; z7'=z7; pos7'(stem,-180); z20=z7; pos20(hair,180); pos23(vair,-90); pos24(curve,0); pos25(vair,90); filldraw stroke pulled_arc.e(7',23) & pulled_arc.e(23,24) & pulled_arc.e(24,25) & super_arc.e(25,20); % bowl endchar; cmchar "Italic Serbian letter hard dj"; beginchar(oct"012",9.5u#,x_height#,desc_depth#); italcorr 1/3x_height#*slant+.5hair#+.5u#; adjust_fit(0,0); pickup fine.nib; interim superness:=more_super; x0=0; x2=x3+.25u; pos3(stem,-180); lft x3r=hround(2.5u-.5stem); hook_in(0,1,2)(skewed); % 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 % %x31=x7; y31=-.25d; x32=x3; y32=-.8d; x33=.25[x32,x31]; y33=-d; %pos31(vair,180); pos32(slab,270); pos33(hair,360); %filldraw stroke z4e{2,-1}...{down}z31e{down}...{down}z32e...{right}z33e; x31=x7; y31=-.25d; x32=x3; y32=-.8d; x33=x32-1.5u; y33=y32+u; pos31(vair,-180); pos32(.7stem,-270); pos33(hair,-360); filldraw stroke z4e{2,-1}...z31e...{left}z32e...z33e; % math_fit(-2/3x_height#*slant+.5hair#+.5u#,ic#); penlabels(0,1,2,3,4,5,6,7,8,9); endchar; cmchar "Italic Russian letter reverse e (looks like backwards c)"; beginchar(oct"013",8u#,x_height#,0); italcorr if math_fitting:1/3x_height#*slant else:x_height#*slant-u# fi; adjust_fit(0,0); 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-.25u))+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 x77=x4; y77=.5h; x78=2x77-x3; y78=2y77-y3; flip(77); y79=y78; x79=x78-(x1-x3); pos78(hair,90); pos79(hair,90); filldraw stroke z78e--z79e; endchar; cmchar "Italic Ukrainian letter i"; beginchar(oct"014",5u#,min(asc_height#,10/7x_height#+.5flare#),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 y1notch_cut: y0:=notch_cut; fill z0+.5right{up}...{z4-z3}z4l...{right}z5r--z5l{left} ...z4r{z3-z4}...z3r...z3l--diag_end(2l,1l,1,1,1r,2r){z2-z1} ...{down}z0+.5left--cycle; % left and right diagonals else: fill z0--z4l{z4-z3}...{right}z5r--z5l{left}...{z3-z4}z4r--z3r{-10,-1}...{-10,1}z3l --diag_end(2l,1l,1,1,1r,0)--cycle; fi % left and right diagonals if serifs: 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=jut; else: rt x1'r+inner_jut+.5u+1=lft x4'l-inner_jut; fi dish_serif(1',2,a,1/3,.3outer_jut,b,1/2,.3inner_jut); % left serif fi % dish_serif(4',3,c,.6,inner_jut,d,1/2,outer_jut)(dark); fi % right serif math_fit(.75u#-height#*slant,ic#-4u#); penlabels(0,1,2,3,4); endchar; cmchar "Italic Old Russian letter fita (looks like theta)"; beginchar(oct"035",10u#,x_height#,0); italcorr .7x_height#*slant+.5curve#-u# if math_fitting:-.5u# fi; adjust_fit(u#,0); pickup fine.nib; w:=9u; pos1(vair,90); pos2(curve,180); pos3(vair,270); pos4(curve,360); x1=x3=.5w; lft x2r=hround(2.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 w:=10u; x31=0; x32=w-hround u; y31=y32=y2; pos31(bar,90); pos32(bar,90); filldraw circ_stroke z31e--z32e; math_fit(-.3x_height#*slant+.5curve#-u#,ic#); penlabels(1,2,3,4); endchar; cmchar "Italic Macedonian letter zelo (looks like s)"; beginchar(oct"036",5.25u#+max(1.75u#,flare#),x_height#,0); italcorr x_height#*slant-.5u#; adjust_fit(0,0); pickup fine.nib; numeric theta; theta=90-angle(40u,h); slope:=-h/40u; % angle at middle pos2(vair,-90); pos0(max(fine.breadth,ess),theta); pos7(vair,-90); x2l=x0=x7=.5w; top y2l=h+oo; bot y7r=-oo; y0-.5ess=y7l+.55(y2r-y7l-ess); lft x3l=hround u-eps; rt x6r=hround(w-.5u)+eps; x3r-x3l=x6r-x6l=hround .5[vair,ess]-fine; ellipse_set(2l,3l,4l,0l); ellipse_set(2r,3r,4r,0r); y3=y3r; ellipse_set(7l,6l,5l,0l); ellipse_set(7r,6r,5r,0r); y6=y6r; interim superness:=more_super; filldraw stroke super_arc.e(2,3) & z3e{down} ..z4e---z5e..z6e{down} & super_arc.e(6,7); % main stroke pos1(hair,0); pos10(hround .75[hair,flare],0); pos2'(vair,90); z2'=z2; pos8(hair,-180); pos9(flare,-180); rt x10r=hround(w-u)+2eps; lft x9r=hround .5u-2eps; y10=.78h; y9=.25h; bulb(2',1,10); bulb(7,8,9); % bulbs math_fit(0,ic#); penlabels(0,1,2,3,4,5,6,7,8,9,10); endchar; cmchar "Italic Russian letter ya (looks like small backward R)"; beginchar(oct"037",9u#,x_height#,0); italcorr x_height#*slant; adjust_fit(0,0); pickup fine.nib; slantswitch; x0=.25u; top y0r=h; x2-.5stem=hround(2.5u-.5stem); %hook_in(0,1,2); y2=y0; pos2(stem,0); x11=x2; pos0(vair,90); y11-.5stem=-oo; pos11(stem,0); filldraw circ_stroke z11e--z2e; % left stem pos3(vair,90); x3=x11; y3=bar_height; x4=x2; rt x16r=hround(w-1.5u+.4curve); x17=.5[x4,x16]; z15=z3; %x15=x17; bot y15r=bar_height; top y17r=h; y4=y16=.5[y15,y17]; pos4(hair,-180); pos15(vair,-90); pos16(curve,0); pos17(vair,90); filldraw circ_stroke z0e--z17e; %filldraw stroke super_arc.e(4,15) & pulled_arc.e(15,16) filldraw stroke pulled_arc.e(15,16) & pulled_arc.e(16,17) & super_arc.e(17,4); pos7(stem,0); pos8(vair,90); pos9(hair,180); x9+.5hair=hround(w+.5hair-eps); y9=1/3x_height; lft x7l=hround(w-2.75u-.5stem); y7=1/2y3; x8=w-1.2u; bot y8l=-oo; filldraw stroke z3e{right}...z7e{down} ...z8e{right}...{up}z9e; % lower diagonal mirror(.5w); math_fit(0,1/3x_height#*slant+.5hair#+.5u#); penlabels(1,2,3,4,5,6,7,8,9); endchar; % this one /w hook-in is pretty ugly %cmchar "Italic letter ya"; %beginchar(oct"037",9u#,x_height#,0); %italcorr x_height#*slant; %adjust_fit(0,0); pickup fine.nib; slantswitch; %x0=.25u; top y0r=h; x2-.5stem=hround(2.5u-.5stem); %hook_in(0,1,2); %y2=y0; pos2(stem,0); x11=x2; %y11-.5stem=-oo; pos11(stem,0); %filldraw circ_stroke z11e--z2e; % left stem %filldraw circ_stroke z0e--z17e; %pos3(vair,90); x3=x11; y3=bar_height; %x4=x2; rt x16r=hround(w-1.5u+.4curve); x17=.5[x4,x16]; z15=z3; %%x15=x17; bot y15r=bar_height; %top y17r=h; y4=y16=.5[y15,y17]; %pos4(hair,-180); pos15(vair,-90); pos16(curve,0); pos17(vair,90); %%filldraw stroke super_arc.e(4,15) & pulled_arc.e(15,16) %filldraw stroke pulled_arc.e(15,16) & pulled_arc.e(16,17) & super_arc.e(17,4); %pos7(stem,0); pos8(vair,90); pos9(hair,180); %x9+.5hair=hround(w+.5hair-eps); y9=1/3x_height; %lft x7l=hround(w-2.75u-.5stem); y7=1/2y3; x8=w-1.2u; bot y8l=-oo; %filldraw stroke z3e{right}...z7e{down} % ...z8e{right}...{up}z9e; % lower diagonal %mirror(.5w); %math_fit(0,1/3x_height#*slant+.5hair#+.5u#); %penlabels(1,2,3,4,5,6,7,8,9); endchar; boolean modernyat; modernyat=false; % the modern yat is a modified slanted version of yat in upright font % the real italic yat is completely different % I wouldn't even know the real one existed were it not for Dimitri Vulis iff modernyat: cmchar "Italic Old Russian letter yat"; beginchar(oct"053",8u#,asc_height#,0); italcorr .7x_height#*slant+.5curve#-u# if math_fitting:-.5u# fi; adjust_fit(1.75u#,0); pickup tiny.nib; pos1(stem,0); pos2(stem,0); x1=x2; lft x1l=hround(1.5u-.5stem); top y1=h; y2=.5x_height; filldraw stroke z1e--z2e; % stem sloped_serif.l(1,2,a,1/3,jut,serif_drop); % serif pickup fine.nib; pos2'(stem,-180); pos3(vair,-90); pos4(curve,0); pos5(vair,90); pos0(hair,180); z0=z2=z2'; x3=x5=.5[x2,x4]; rt x4r=hround(w-1.5u+.5curve); bot y3r=-oo; top y5r=x_height+oo; y4=y2; filldraw stroke pulled_arc.e(2',3) & pulled_arc.e(3,4) & pulled_arc.e(4,5) & super_arc.e(5,0); % bowl x31=-1.25u; x32=2x1-x31; y31=y32=.5[y5,y1]; pos31(bar,90); pos32(bar,90); filldraw stroke z31e--z32e; penlabels(0,1,2,3,4,5,31,32); endchar; iff not modernyat: cmchar "Italic Old Russian letter yat"; beginchar(oct"053",12u#,x_height#,0); italcorr 1/3x_height#*slant+.5hair#+.5u#; adjust_fit(0,0); pickup fine.nib; w:=10u; x0=0; x1=x2; pos2(stem,0); lft x2l=hround(2.5u-.5stem); y2-.5stem=-oo; hook_in(0,a,1); % opening hook filldraw circ_stroke z2e--z1e; % left stem x4+.5stem=hround(w-2.5u+.5stem); x5=x4; ital_arch(2,3,4); % arch y5=.5bar_height; pos5(stem,0); filldraw stroke z4e{down}..z5e; % right stem w:=12u; x23=x25=.5[x5,x24]; rt x24r=hround(w-u+.5curve); bot y23r=-oo; top y25r=1.2bar_height+oo; y24=y5; z7'=z5; pos7'(stem,-180); z20=z5; pos20(hair,180); pos23(vair,-90); pos24(curve,0); pos25(vair,90); filldraw stroke pulled_arc.e(7',23) & pulled_arc.e(23,24) & pulled_arc.e(24,25) & super_arc.e(25,20); % bowl math_fit(-2/3x_height#*slant+.5hair#+.5u#,ic#); endchar; cmchar "Italic letter dotless i"; beginchar("=",5u#,min(asc_height#,10/7x_height#+.5flare#),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 y1