EVOLUTION-MANAGER

Edit File: tipagerm.mf

% tipagerm.mf: TIPA symbols for germanic languages % Copyright 1996-2003 FUKUI Rei % % This program may be distributed and/or modified under the % conditions of the LaTeX Project Public License, either version 1.2 % of this license or (at your option) any later version. % The latest version of this license is in % http://www.latex-project.org/lppl.txt % and version 1.2 or later is part of all distributions of LaTeX % version 1999/12/01 or later. % % This program consists of all files listed in Manifest.txt. % % Version 1.2 2003/01/01 % % This font is based on: % Computer Modern font series by D. E. Knuth, % DC fonts by J"org Knappen and % TSIPA by KOBAYASHI Hajime, FUKUI Rei and SHIRAKAWA Shun. % % The next codes are from cmman. cmchar "Thorn"; beginchar(oct"376",10u#+serif_fit#,asc_height#,desc_depth#); italcorr .5x_height#*slant+min(.5curve#-.85u#,-.1u#); adjust_fit(serif_fit#,0); pickup tiny.nib; pos1(stem',0); pos2(stem,0); pos0'(stem',0); pos0(stem,0); z0l=z0'l; x0'=x1; x0=x2; lft x1l=hround(side_gap-.5stem'); top y1=h; numeric edge; edge=rt x2r; pickup fine.nib; pos3(if hefty:thin_join else: hair fi,180); pos4(vair',90); pos5(curve,0); pos6(vair,-90); rt x3l=1/3[rt x2,edge]; y3=1/8[bar_height,x_height]; x4l=w-.5(w-serif_fit)+.5u; top y4r=x_height+oo; rt x5r=hround min(w-1.35u+.5curve,w-.6u); y5=.5x_height; x6=x3; bot y6r=-oo; (x,y4r)=whatever[z3l,z4l]; x4r:=min(x,.5[x5r,x4]); filldraw stroke z3e{up}...{right}z4e&super_arc.e(4,5) &z5e{down}...{5(x6-x5),y6-y5}z6e; % bowl y0=ypart(((edge,h)--(edge,0))intersectionpoint(z3l{up}...{right}z4l)); pickup tiny.nib; bot y2=-d; filldraw stroke z1e--z0'e--z0e--z2e; % stem pickup crisp.nib; pos8(hair,0); pos7'(stem,0); z7'=z2; x8l=x7'l; bot y8=0; filldraw stroke z7'e--z8e; % point if serifs: sloped_serif.l(1,0',a,1/3,jut,serif_drop); % upper serif dish_serif(2,0,b,1/3,jut,c,1/3,jut); fi % lower serif penlabels(0,1,2,3,4,5,6,8); endchar; cmchar "Wynn"; beginchar(oct"337",9u#+serif_fit#,x_height#,desc_depth#); italcorr .5x_height#*slant+min(.5curve#-.75u#,.1u#); adjust_fit(serif_fit#,0); pickup tiny.nib; pos2(stem,if serifs:0 else: 15 fi); pos0'(stem',0); pos0(stem,0); pos1(stem',0); z0l=z0'l; x0'=x1; x0=x2; lft x1l=hround(side_gap-.5stem');top y1=h; pickup fine.nib; pos3(vair,90); pos4(vair,90); pos5(curve,0); pos6(vair,-90); pos7(vair,-90); x3=x7=x0; x4+.5u=x6=.6w; top y4r=x_height; y4-y3=y6-y7; rt x5r=hround min(w-1.35u+.5curve,w-.6u); y5=.6x_height; bot y6r=.1x_height-oo; bot y7r=-oo; y0=y3; pickup tiny.nib; bot y2=if serifs: -.7d; else: -d; fi filldraw stroke z1e--z0'e--z0e--z2e; % stem filldraw stroke z3e--z4e{z6-z7}...z5e{down}...{z7-z6}z6e--z7e; if serifs: pickup crisp.nib; pos10(stem,0); pos11(vair,-90); z10=z2; lft x11l=x22=.5u; y11l=-d-oo; varm(10,11,a,.8beak_darkness,-1.5beak_jut); pickup crisp.nib; pos21(stem',0); pos22(vair,90); z21=(x1,.6h); y22r=y4r; varm(21,22,b,.8beak_darkness,-1.3beak_jut); fi penlabels(0,0',1,2,3,4,5,6,7,8,9,10,11,21,22); endchar; cmchar "H-V ligature"; beginchar(oct"377",13.8u#,asc_height#,0); italcorr .5[bar_height#,x_height#]*slant-serif_fit#+.5stem#-u#; adjust_fit(serif_fit#+stem_shift#,serif_fit#-stem_shift#); pickup tiny.nib; pos1(stem,0); pos2(stem,0); pos1'(stem',0); pos2'(stem',0); pos3(stem,0); lft x1l=hround(side_gap-.5stem); x1l=x1'l=x2l=x2'l; x3=w-x1-3.8u; top y1=h; bot y2=0; y1=y1'; y2=y2'; filldraw stroke z1'e--z2'e; % left stem y3=1/3[bar_height,x_height]; penpos2''(x2r-x2l,0); x2''=x2; y2''=1/8[bar_height,x_height]; filldraw stroke z2''e--z2e; % thicken the lower left stem penpos a0(min(rt x2r-lft x2l,thin_join)-fine,180); pickup fine.nib; rt x a0l=tiny.rt x2r; y a0=y2''; pos a1(vair,90); pos3'(x3r-x3l+tiny,0); z3'=z3; x a1=.5[rt x a0l,rt x3'r]; top y a1r=x_height+oo; (x a,y a1l)=whatever[z a1r,z a0l]; x a1l:=x a; filldraw stroke z a0e{up}...{right}z a1e &{{interim superness:=hein_super; super_arc.e(a1,3')}}; % arch labels(a0); penlabels(a1); if serifs: sloped_serif.l(1',2',b,1/3,jut,serif_drop); % upper left serif numeric inner_jut; pickup tiny.nib; if rt x2r+jut+.5u+1<=lft x3l-jut: inner_jut=jut; else: rt x2r+jut+.5u+1=lft x3l-inner_jut; fi dish_serif(2,1,c,1/3,jut,d,1/3,jut); fi % lower left serif pickup tiny.nib; interim superness:=more_super; pos3''(stem,180);y3''=y3; pos4(stem,180); x4=x3''=x3; pos5(vair,-90); pos6(hair,0); x5=x4+2.8u; rt x6r=hround(w-.7u); y4=.4h; bot y5r=-oo; y6=.4h; filldraw stroke z3''e{down}--super_arc.e(4,5) % v stroke ..tension atleast 1.05..{up}z6e; % left stem and arc v_bulb(6,7); % closing bulb penlabels(1,2,3,4,5,6,7); endchar; cmchar "Comma-tail Z"; beginchar(oct"336",9u#,x_height#,desc_depth#); italcorr x_height#*slant-.5serif_fit#-1u#; adjust_fit(0,.5serif_fit#); numeric arm_thickness[],z_stem; arm_thickness1=vair; arm_thickness2=1.2vair; z_stem=.9[vair,stem]; pickup tiny.nib; rt x1r=rt x2r=hround(.89w-.8u); lft x3l=lft x4l=hround .5u; top y1=h; y2=min(y1,h-2/3arm_thickness1); bot y4=0; y3=max(y4,2/3arm_thickness2); numeric alpha; alpha=diag_ratio(1,z_stem-tiny,y2-y3,x2r-x3l-slant*(y2-y3)); penpos1(alpha*(z_stem-tiny),0); penpos2(alpha*(z_stem-tiny),0); penpos3(alpha*(z_stem-tiny),0); penpos4(alpha*(z_stem-tiny),0); pair delta; delta=penoffset z3-z2 of currentpen; fill top lft z1l--z2l+delta---z3l+delta..lft z3l---lft z4l..bot z4l ---bot rt z4r--z3r-delta---z2r-delta..rt z2r---rt z1r..top z1r ---cycle; % diagonal pickup tiny.nib; pos5(arm_thickness1,90); pos6(hair,180); top y5r=h; x5=x1; lft x6r=hround .75u; y6=good.y(y5l-beak/1.4)-eps; arm(5,6,a,beak_darkness,-.4beak_jut); % upper arm and beak pos7(arm_thickness2,90); pos8(arm_thickness2,90); x7=x4; bot y8l=bot y7l=y8'=0; x8=x5-1.5u; if serifs: pos9(hair,0); pos10(vair,-90); pos11(vair,-100); else: pos9(fudged.hair,0); pos10(vair,-90); pos11(vair,-100); fi y9=-.4d; rt x9r =hround(w-1.5u+.5hair); y10=-.8d; y11=-.7d; x11=.5[x3,x9]; x9-x10=x10-x11; filldraw stroke z7e--z8e{right}..z9e{down}..{left}z10e..z11e; penlabels(1,2,3,4,5,6,7,8,9,10,11); endchar; % end of tipagerm.mf