path: root/language/turkish/mf/tkdtil.mf

% Computer Modern italic lower case with dotted diacriticals for Turkish etc.
% 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.

% Dotted diacriticals added by P. A. MacKay, January, 1987.

if unknown accsub: input accsub fi

% Character codes \020 through \032 are generated.

cmchar "Italic letter dad";
dot_sharp_values;
beginchar(oct"020",9u#,asc_height#,desc_depth#);
italcorr max(1/3x_height#*slant+.5hair#+.5u#,
  h#*slant+.5stem#-2u#) if math_fitting:-.5u# fi;
adjust_fit(0,0); pickup fine.nib;
pos0(hair,0); pos1(vair,90); pos2(curve,180); pos3(vair,270);
x0=x4; x1=x3=.5[x0,x2]; lft x2r=hround(1.5u-.5curve);
x4+.5stem=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=x0; x7=w; hook_out(5,6,7);  % closing hook
pickup tiny.nib; pos5'(stem,0); pos4(stem,0);
z5'=z5; top y4=h; filldraw stroke z4e--z5'e;  % stem
sloped_serif.l(4,5',a,1/3,jut,serif_drop);  % serif
math_fit(-.3x_height#*slant+.5curve#-u#,ic#);
numeric dot_shift, dot_top;
define_whole_blacker_pixels(dot_top);
dot_shift=-dot_top-desc_depth;
x8=.5w; dot_accent(8,g,dot_shift);
penlabels(0,1,2,3,4,5,6,7); endchar;

cmchar "Italic letter ghayn";
numeric dot_diam#; dot_diam#=max(dot_size#,cap_curve#);
beginchar(oct "021",8u#,min(asc_height#,10/7x_height#+.5dot_diam#),desc_depth#);
define_whole_blacker_pixels(dot_diam);
italcorr x_height#*slant+.5stem#-u#;
adjust_fit(0,0); pickup fine.nib;
pos0(hair,0); pos1(vair,90); pos2(curve,180); pos3(vair,270);
x0=x4; x1=x3=.5[x0,x2]; lft x2r=hround(1.5u-.5curve);
x4+.5stem=hround(w-1.5u+.5stem);
top y1r=x_height+oo; bot y3r=0; 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
pos4(stem,0); y4+.5stem=vround .98x_height;
pos5(stem,0); x5=x4; y5=-1/3d;
pos6(vair,-90); pos7(hair,-180); pos8(flare,-180);
bot y6r=-d-oo; y8-.5flare=vround -.9d;
lft x8r=hround(2u-.5flare); x6=x1; bulb(6,7,8);  % bulb
filldraw circ_stroke z4e---z5e...{left}z6e;  % stem and arc
math_fit(-min(.3x_height#*slant+.5curve#-u#,1.5u#-desc_depth#*slant),
 ic#-1/3x_height#*slant); 
pickup tiny.nib;
pos9(dot_diam,0); pos10(dot_diam,90);
x9=.55[x2r,x4r]; % 
top y10r=h+1;
if bot y10l-top y1<slab: y10l:=min(y10r-eps,y1+tiny+slab); fi
x9=x10; y9=.5[y10l,y10r]; dot(9,10);  % dot
penlabels(0,1,2,3,4,5,6,7,8,9,10); endchar;

cmchar "Italic letter hha";
dot_sharp_values;
beginchar(oct "022",9u#,asc_height#,desc_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#);
numeric dot_shift, dot_top;
define_whole_blacker_pixels(dot_top);
dot_shift=-dot_top-desc_depth;
x8=.5w; dot_accent(8,g,dot_shift);
penlabels(1,2,3,4,5,6,7,8,9); endchar;

cmchar "Italic letter dotted i";
beginchar(oct "023",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<slab: y9l:=min(y9r-eps,y1+fine+slab); fi
x8=x9; y8=.5[y9l,y9r]; dot(8,9);  % dot
math_fit(-2/3x_height#*slant+.5hair#+.5u#,ic#);
penlabels(0,1,2,3,4,5,8,9); endchar;

cmchar "Italic letter qaf";
dot_sharp_values;
beginchar(oct "024",8u#,asc_height#,desc_depth#);
italcorr x_height#*slant;
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; pos3(vair,90); x3=x1; y3=bar_height;
pos4(vair,90); x4=w-2u; top y4r=x_height+oo;
filldraw stroke z3e{right}..{right}z4e;  % upper diagonal
pos5(hair,0); pos6(flare,0);
rt x5r=hround(w-.5u); y5+.5flare=vround(bot y4l-.03x_height);
bulb(4,5,6);  % bulb
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
math_fit(0,1/3x_height#*slant+.5hair#+.5u#);
numeric dot_shift, dot_top;
define_whole_blacker_pixels(dot_top);
dot_shift=-dot_top-desc_depth;
x10=.5w; dot_accent(10,g,dot_shift);
penlabels(0,1,2,3,4,5,6,8,9); endchar;

cmchar "Italic letter dotted o";
numeric dot_diam#; dot_diam#=max(dot_size#,cap_curve#);
beginchar(oct "025",9u#,min(asc_height#,10/7x_height#+.5dot_diam#),0);
define_whole_blacker_pixels(dot_diam);
italcorr 1/3[x_height#,asc_height#]*slant+.5curve#-u# 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#);
pickup tiny.nib; 
pos7(dot_diam,0); pos8(dot_diam,90);
pos9(dot_diam,0); pos10(dot_diam,90);
x7=x1-.8dot_diam; % 
top y8r=h+1;
if bot y8l-top y1<slab: y8l:=y10l:=min(y8r-eps,y1+tiny+slab); fi
x7=x8; y7=y9=.5[y8l,y8r]; dot(7,8);  % dot
x9=x10=x7+1.6dot_diam;  y9=y10; dot(9,10);
penlabels(1,2,3,4,7,8,9,10); endchar;

cmchar "Italic letter sad";
dot_sharp_values;
beginchar(oct "026",5.25u#+max(1.75u#,flare#),x_height#,desc_depth#);
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#);
numeric dot_shift, dot_top;
define_whole_blacker_pixels(dot_top);
dot_shift=-dot_top-desc_depth;
x11=.5[x3l,x6r]; % Centered on outside edges of curves
dot_accent(11,g,dot_shift);
penlabels(0,1,2,3,4,5,6,7,8,9,10); endchar;

cmchar "Italic letter tta";
dot_sharp_values;
beginchar(oct "027",5.5u#,min(asc_height#,10/7x_height#),desc_depth#);
italcorr max(1/3x_height#*slant+.5hair#+.5u#,x_height#*slant-.25u#);
adjust_fit(if monospace:u#,u# else:0,0 fi); pickup fine.nib;
pos1(stem,0); lft x1l=hround(2u-.5stem); y1+.5stem=h+oo;
x2=x1; x4=w; hook_out(2,3,4);  % closing hook
filldraw circ_stroke z1e--z2e;  % stem
pickup crisp.nib; pos5(bar,90); pos6(bar,90);
lft x5=hround-.75u; rt x6=hround(w-.75u); top y5r=top y6r=x_height;
filldraw stroke z5e--z6e;  % crossbar
math_fit(1.25u#-x_height#*slant,ic#);
numeric dot_shift, dot_top;
define_whole_blacker_pixels(dot_top);
dot_shift=-dot_top-desc_depth;
x7=.65[x2,x3]; % A little left of the low point of hook
dot_accent(7,g,dot_shift);
penlabels(1,2,3,4,5,6); endchar;

cmchar "Italic letter dotted u";
numeric dot_diam#; dot_diam#=max(dot_size#,cap_curve#);
beginchar(oct "030",9.5u#,min(asc_height#,10/7x_height#+.5dot_diam#),0);
define_whole_blacker_pixels(dot_diam);
italcorr 1/3[x_height#,asc_height#]*slant;
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=.57x_height; y6+.5stem=x_height;
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
math_fit(-2/3x_height#*slant+.5hair#+.5u#,ic#);
pickup tiny.nib; 
pos11(dot_diam,0); pos12(dot_diam,90);
pos13(dot_diam,0); pos14(dot_diam,90);
x11=x2; % 
top y12r=h+1;
if bot y12l-top y1<slab: y12l:=y14l:=min(y12r-eps,y1+tiny+slab); fi
x11=x12; y11=y13=.5[y12l,y12r]; dot(11,12);  % dot
x13r=max(x11+1.9dot_diam,x6); 
x13=x14; y13=y14; dot(13,14);
penlabels(1,2,3,4,5,6,7,8,9,11,12,13,14); endchar;

cmchar "Italic letter zad";
numeric dot_diam#; dot_diam#=max(dot_size#,cap_curve#);
beginchar(oct "031",5.5u#+max(1.5u#,stem#),min(asc_height#,10/7x_height#+.5dot_diam#),0);
define_whole_blacker_pixels(dot_diam);
italcorr x_height#*slant+.5hair#;
adjust_fit(if monospace:.5u#,.5u# else: 0,0 fi); pickup fine.nib;
pos1(hair,0); pos2(stem,-90); pos3(vair,-90); pos4(hair,0);
lft x1l=hround(u-.5hair); x2=2.5u; x3=w-2u; rt x4r=hround(w-.5u);
top y1=.78x_height; top y2l=top y4=x_height+oo; y3=.825x_height;
pos5(hair,0); pos6(vair,-90); pos7(stem,-90); pos8(hair,0);
x5=x1; x6=2.5u; x7=w-2u; x8+.5hair=hround(w+.5hair-eps);
bot y5=bot y7r=-oo; y6=.175x_height; bot y8=.31x_height;
pair p; p=(z4-z5) yscaled 2;
filldraw stroke z1e{up}...z2e{right}..z3e{right}...{p}z4e;  % upper bar
filldraw stroke z5e{p}...z6e{right}..{right}z7e...{up}z8e;  % lower bar
filldraw stroke z5e{p}..{p}z4e;  % diagonal
math_fit(0,1/3x_height#*slant+.5hair#+.5u#);
pickup tiny.nib;
pos9(dot_diam,0); pos10(dot_diam,90);
x9=.55[x3,x1]; % Pull the dot over just a bit to the right.
top y10r=h+1;
if bot y10l-top y1<slab: y10l:=min(y10r-eps,y1+tiny+slab); fi
x9=x10; y9=.5[y10l,y10r]; dot(9,10);  % dot
penlabels(1,2,3,4,5,6,7,8,9,10); endchar;

cmchar "Italic letter zza";
dot_sharp_values;
beginchar(oct "032",5.5u#+max(1.5u#,stem#),x_height#,desc_depth#);
italcorr x_height#*slant+.5hair#;
adjust_fit(if monospace:.5u#,.5u# else: 0,0 fi); pickup fine.nib;
pos1(hair,0); pos2(stem,-90); pos3(vair,-90); pos4(hair,0);
lft x1l=hround(u-.5hair); x2=2.5u; x3=w-2u; rt x4r=hround(w-.5u);
top y1=.78h; top y2l=top y4=h+oo; y3=.825h;
pos5(hair,0); pos6(vair,-90); pos7(stem,-90); pos8(hair,0);
x5=x1; x6=2.5u; x7=w-2u; x8+.5hair=hround(w+.5hair-eps);
bot y5=bot y7r=-oo; y6=.175h; bot y8=.31h;
pair p; p=(z4-z5) yscaled 2;
filldraw stroke z1e{up}...z2e{right}..z3e{right}...{p}z4e;  % upper bar
filldraw stroke z5e{p}...z6e{right}..{right}z7e...{up}z8e;  % lower bar
filldraw stroke z5e{p}..{p}z4e;  % diagonal
math_fit(0,1/3x_height#*slant+.5hair#+.5u#);
numeric dot_shift, dot_top;
define_whole_blacker_pixels(dot_top);
dot_shift=-dot_top-desc_depth;
x9=.8[x5,x7]; dot_accent(9,g,dot_shift);
penlabels(1,2,3,4,5,6,7,8); endchar;