% Accented Turkish based on Computer Modern Italic lower case: % These letters were originally coded by D. E. Knuth in November, 1979, % inspired by the Monotype faces used in {\sl The Art of Computer Programming}. % Sans serif designs by Richard Southall were added in April, 1982. % The programs were revised for the new \MF\ conventions in 1985. % Accents added by P. A. MacKay in December, 1986. % Accents are intended to be exact copies of the accents in the % Computer Modern file accent.mf, with the following exceptions: % 1. Bar accents are adjusted to the width of the associated letter. % 2. The hat accent is pinched in to fit the letter i. % 3. Acute and grave accents are rotated to whatever angle % best suits the letter associated letter. % 4. The under_h accent is based on an inverted tie accent. % No attempt is made to put the accent in the same position % that it would occupy if \TeX\ put it in with the \accent primitive. % Each accent has been adjusted for vertical and horizontal position % position to best fit the associated letter. % Character codes \0033--\0037, \0053, \0074--\0076 and \0176--0177 % are generated. % Character code \0043 (hatted Persian o) is generated |iff not monospace|. % This code position is used for the upright single quote in monospace fonts. if unknown accsub: input accsub fi cmchar "Italic letter hatted a"; beginchar(oct "074",9u#,if .5(asc_height#-x_height#)>1.5stem#: .8[x_height#,asc_height#] else:asc_height# fi,0); italcorr 2/3[x_height#,asc_height#]*slant+.5stem#-serif_fit#-2u#; adjust_fit(0,0); pickup fine.nib; pos0(hair,0); pos1(vair,90); pos2(curve,180); pos3(vair,270); pos4(stem,0); x4=x0; y4+.5stem=vround .98x_height; x1=x3=.5[x0,x2]; lft x2r=hround(1.5u-.5curve); rt x4r=hround(w-2.5u+.5stem); top y1r=x_height+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 math_fit(-.3x_height#*slant+.5curve#-u#,ic#); numeric hat_shift; if h0:cup_shift:=0; fi cup_accent(1,c,cup_shift); penlabels(0,1,2,3,4,5,6,7,8); endchar; cmchar "Italic letter kha"; beginchar(oct "036",9u#,asc_height#,.6desc_depth#); italcorr 1/3x_height#*slant+.5hair#+.5u#; adjust_fit(0,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-2.5u+.5stem); x5=x4-.25u; ital_arch(2,3,4); % arch x7=w; hook_out(5,6,7)(skewed); % closing hook filldraw stroke z4e{down}..{-u,-x_height}z5e; % right stem math_fit(0,ic#); bar_accent(2,6,k,-8/9desc_depth); penlabels(1,2,3,4,5,6,7); endchar; cmchar "Italic letter hatted i"; beginchar(oct "075",5u#,min(asc_height#,10/7x_height#+.5flare#),0); italcorr max(1/3x_height#*slant+.5hair#+.5u#,h#*slant+.5flare#-2.5u#); 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 math_fit(-2/3x_height#*slant+.5hair#+.5u#,ic#); numeric hat_shift; if h1.5stem#: .8[x_height#,asc_height#] else:asc_height# fi,0); italcorr .8[x_height#,asc_height#]*slant-serif_fit#+.5stem#-2u#; adjust_fit(0,0); pickup fine.nib; 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-.25u; ital_arch(2,3,4); % arch x7=w; hook_out(5,6,7)(skewed); % closing hook filldraw stroke z4e{down}..{-u,-x_height}z5e; % right stem math_fit(-2/3x_height#*slant+.5hair#+.5u#,ic#); numeric tilde_shift; if h1.5stem#: .8[x_height#,asc_height#] else:asc_height# fi,0); italcorr 1/3[x_height#,asc_height#]*slant+.5curve#-1.75u# if math_fitting:-.5u# fi; adjust_fit(0,0); pickup fine.nib; 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=x_height+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 math_fit(-.3x_height#*slant+.5curve#-u#,ic#); numeric hat_shift; if h