% This file defines characters that go into the Turkish font when |ligs=0|. % Adapted from romsub.mf by P. A. MacKay, January, 1987. % Character codes \0042--\0043, \0055, \0134, and \0173--\0175 are generated % when |ligs=0|; straight_quotes=oct"042"; minus=ASCII"-"; backslash=ASCII"\"; left_brace=ASCII"{"; vertical=ASCII"|"; right_brace=ASCII"}"; input sym; cmchar "Straight single quote"; beginchar(oct"043",5u#,asc_height#,0); italcorr asc_height#*slant+.5 if serifs: flare# else: stem# fi -2u#; adjust_fit(0,0); x1=x2=.5w; y2=max(.5[bar_height,x_height]+.5vair,h-x_height); if serifs: pickup crisp.nib; pos1(flare,0); pos2(vair,0); y1+.5stem=h; filldraw circ_stroke z1e--z2e; % stem and bulb else: pickup fine.nib; pos1(stem,0); pos2(vair,0); top y1=h; filldraw stroke z1e--z2e; fi % stem penlabels(1,2); endchar;