summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/tipa/tipadiac.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/tipa/tipadiac.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/tipa/tipadiac.mf806
1 files changed, 806 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/tipa/tipadiac.mf b/Master/texmf-dist/fonts/source/public/tipa/tipadiac.mf
new file mode 100644
index 00000000000..aa0343d3099
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/tipa/tipadiac.mf
@@ -0,0 +1,806 @@
+% tipadiac.mf: TIPA accents and diacritics
+% 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 and
+% TSIPA by KOBAYASHI Hajime, FUKUI Rei and SHIRAKAWA Shun.
+%
+
+numeric ipacode;
+ipacode := -1;
+
+cmchar "Grave accent";
+beginchar(incr ipacode,9u#,min(asc_height#,2x_height#),0);
+adjust_fit(0,0);
+if serifs: pickup crisp.nib; x1-.5stem=hround 2u; x2=2/3[x1,w-x1];
+ y1+.5stem=h+eps; y2=max(2/3[h,x_height],x_height+o+hair);
+ numeric theta; theta=angle(z2-z1)+90;
+ pos1(stem,theta); pos2(hair,theta);
+ filldraw circ_stroke z1e--z2e; % diagonal
+else: pickup fine.nib; pos1(stem,0); pos2(vair,0);
+ lft x1l=hround 1.5u; rt x2r=hround(.5w+.25u+.5vair);
+ top y1=h; bot y2=vround 2/3[h,x_height];
+ filldraw stroke z1e--z2e; fi % diagonal
+penlabels(1,2); endchar;
+
+cmchar "Acute accent";
+beginchar(incr ipacode,9u#,min(asc_height#,2x_height#),0);
+italcorr h#*slant-if serifs: 1.5 fi u#;
+adjust_fit(0,0);
+if serifs: pickup crisp.nib; x1+.5stem=hround(w-2u); x2=2/3[x1,w-x1];
+ y1+.5stem=h+eps; y2=max(2/3[h,x_height],x_height+o+hair);
+ numeric theta; theta=angle(z2-z1)+90;
+ pos1(stem,theta); pos2(hair,theta);
+ filldraw circ_stroke z1e--z2e; % diagonal
+else: pickup fine.nib; pos1(stem,0); pos2(vair,0);
+ rt x1r=hround(w-1.5u); lft x2l=hround(.5w-.25u-.5vair);
+ top y1=h; bot y2=vround 2/3[h,x_height];
+ filldraw stroke z1e--z2e; fi % diagonal
+penlabels(1,2); endchar;
+
+cmchar "Circumflex (hat) accent";
+beginchar(incr ipacode,9u#,min(asc_height#,2x_height#),0);
+if serifs: italcorr .5[x_height#,h#]*slant+.5hair#-1.75u#;
+ adjust_fit(0,0);
+ pickup crisp.nib; pos2(CT(.5,.6)[vair,curve],90); top y2r=h; x2=.5w;
+ x1=w-x3=good.x 2.25u; y1=y3=.5[x_height,y2];
+ pos1(hair,angle(z2-z1)+90); pos3(hair,angle(z3-z2)+90);
+ filldraw stroke z1e--z2e--z3e; % diagonals
+else: italcorr 2/3[x_height#,h#]*slant-.5stem#+.5vair#-.75u#;
+ adjust_fit(0,0);
+ pickup fine.nib; pos1(vair,0); pos3(vair,0); x1=w-x3;
+ pos2(stem,0); top y2=h; x2=.5w; bot y1=bot y3=vround 2/3[h,x_height]-eps;
+ lft x1l=hround(rt x2r-3.25u-.5vair); % same slope as in the acute accent
+ z0=whatever[z1r,z2r]=whatever[z2l,z3l];
+ y4l=y4r=y2; x4l=good.x .2[x2l,x2]; x4r=w-x4l;
+ filldraw z4l--z1l--z1r--z0--z3l--z3r--z4r--cycle; fi % diagonals
+penlabels(0,1,2,3,4); endchar;
+
+cmchar "Tilde (squiggle) accent";
+beginchar(incr ipacode,9u#,min(asc_height#,10/7x_height#+.5dot_size#),0);
+italcorr h#*slant-u#;
+adjust_fit(0,0);
+if serifs: numeric theta; theta=angle(1/6(6u-vair),1/4(h-x_height));
+ pickup crisp.nib; numeric mid_width; mid_width=.4[vair,stem];
+ pos1(vair,theta+90); pos2(vair,theta+90);
+ pos3(vair,theta+90); pos4(vair,theta+90);
+ z2-z1=z4-z3=(mid_width-crisp)*dir theta;
+ lft x1r=w-rt x4l=hround 1.5u; top y4r=h;
+ bot y1l=vround(bot y1l+min(2/3[x_height,h],y3l-.25vair)-top y1r);
+ pair delta; ypart delta=3(y3l-y1l); delta=whatever*dir theta;
+ filldraw z1l..controls(z1l+delta)and(z3l-delta)..z3l..z4l
+ --z4r..controls(z4r-delta)and(z2r+delta)..z2r..z1r--cycle; % stroke
+else: pickup fine.nib; pos1(vair,180); pos2(vair,90);
+ pos3(.5[vair,slab],90); pos4(vair,90); pos5(vair,180);
+ lft x1r=w-rt x5l=hround 1.5u; x2-x1=x3-x2=x4-x3=x5-x4;
+ bot y1=bot y4l=vround(.75[x_height,h]-vair);
+ top y2r=top y5=h; y3=.5[y2,y4];
+ filldraw stroke z1e{up}...z2e{right}..z3e..{right}z4e...{up}z5e; fi % stroke
+penlabels(1,2,3,4,5); endchar;
+
+cmchar "Umlaut (double dot) accent";
+numeric dot_diam#,dot_diam;
+dot_diam#=max(dot_size#,cap_curve#);
+beginchar(incr ipacode,9u#,min(asc_height#,10/7x_height#+.5dot_diam#),0);
+dot_diam=max(tiny.breadth,hround(max(dot_size,cap_curve)-2stem_corr));
+italcorr h#*slant+.5dot_diam#-2.25u#;
+adjust_fit(0,0);
+pickup tiny.nib; pos1(dot_diam,0); pos2(dot_diam,90);
+x1=x2=2.75u; top y2r=h+1;
+if bot y2l<x_height+o+slab: y2l:=min(y2r-eps,x_height+o+slab+.5tiny); fi
+y1=.5[y2l,y2r]; dot(1,2); % left dot
+pos3(dot_diam,0); penpos4(y2r-y2l,90); y3=y4=y1; x3=x4=w-x1;
+dot(3,4); % right dot
+penlabels(1,2,3,4); endchar;
+
+cmchar "Double acute (Long Hungarian umlaut) accent";
+beginchar(incr ipacode,9u#,min(asc_height#,2x_height#),0);
+italcorr h#*slant-u#;
+adjust_fit(0,0);
+x3-x1=x4-x2=hround 3u; y3=y1; y4=y2;
+if serifs: pickup crisp.nib; x3+.5stem=hround(w-1.5u); x2=2.5u;
+ y1+.5stem=h; y2=max(2/3[h,x_height],x_height+o+hair);
+ numeric theta; theta=angle(z2-z1)+90;
+ pos1(stem,theta); pos2(hair,theta);
+ pos3(stem,theta); pos4(hair,theta);
+ filldraw circ_stroke z1e--z2e; % left diagonal
+ filldraw circ_stroke z3e--z4e; % right diagonal
+else: pickup fine.nib; pos1(stem,0); pos2(vair,0);
+ pos3(stem,0); pos4(vair,0);
+ rt x3r=hround(w-1.5u); lft x4l=hround(.5w+u-.5vair);
+ top y1=h; bot y2=vround 2/3[h,x_height];
+ filldraw stroke z1e--z2e; % left diagonal
+ filldraw stroke z3e--z4e; fi % right diagonal
+penlabels(1,2,3,4); endchar;
+
+cmchar "Scandinavian circle accent";
+beginchar(incr ipacode,13u#+4/3(asc_height#-x_height#)*slant,asc_height#,0);
+adjust_fit(cap_serif_fit#,cap_serif_fit#);
+numeric circ_hair,circ_vair;
+circ_hair=hround min(hair,u+.5); circ_vair=vround min(vair,(h-x_height)/6+.5);
+penpos1(circ_vair,90); penpos3(circ_vair,-90);
+penpos2(circ_hair,180); penpos4(circ_hair,0);
+x2r=hround(.5w-1.5u-.5circ_hair);
+x4r=w-x2r; x1=x3=.5w; y1r=h+apex_o; y2=y4=.5[y1,y3];
+y3r=vround(1/3[x_height,h]+apex_o);
+penstroke pulled_arc.e(1,2) & pulled_arc.e(2,3)
+ & pulled_arc.e(3,4) & pulled_arc.e(4,1) & cycle; % bowl
+penlabels(1,2,3,4); endchar;
+
+cmchar "Hachek (check) accent";
+beginchar(incr ipacode,9u#,CT(.75,.9)[x_height#,min(asc_height#,2x_height#)],0);
+h':=vround min(asc_height,2x_height); % height of circumflex being inverted
+if serifs: italcorr h#*slant+.5hair#-1.75u#;
+ adjust_fit(0,0);
+ pickup crisp.nib; pos2'(CT(.5,.6)[vair,curve],90); top y2'r=h;
+ pos2(.5[vair,curve],90); x2=.5w;
+ x1=w-x3=good.x 2.25u; top y1=top y3=h; y1-y2=.5(y2'-x_height);
+ pos1(hair,angle(z2-z1)+90); pos3(hair,angle(z3-z2)+90);
+ filldraw stroke z1e--z2e--z3e; % diagonals
+else: italcorr h#*slant-.5stem#+.5vair#-.75u#;
+ adjust_fit(0,0);
+ pickup fine.nib; pos1(vair,0); pos3(vair,0); x1=w-x3;
+ pos2(stem,0); bot y2=vround(1/12[x_height,h']+o); x2=.5w;
+ top y1=top y3=h+o; lft x1l=hround(rt x2r-3.25u-.5vair);
+ z0=whatever[z1r,z2r]=whatever[z2l,z3l];
+ y4l=y4r=y2; x4l=good.x .2[x2l,x2]; x4r=w-x4l;
+ filldraw z4l--z1l--z1r--z0--z3l--z3r--z4r--cycle; fi % diagonals
+penlabels(0,1,2,3,4); endchar;
+
+cmchar "Breve accent";
+beginchar(incr ipacode,9u#,min(asc_height#,2x_height#),0);
+italcorr h#*slant+.5vair#-1.5u#;
+adjust_fit(0,0);
+pickup crisp.nib; pos1(vair,-180); pos3(vair,0);
+top y1=top y3=h; lft x1r=w-rt x3r=hround(2u-.5vair);
+numeric mid_thickness; mid_thickness=vround 1/3[vair,stem];
+pos2(mid_thickness,-90); x2=.5w;
+bot y2r=vround max(x_height+o+tiny,1/3[x_height,h]+o-.5mid_thickness);
+filldraw stroke z1e{down}...z2e{right}...{up}z3e; % stroke
+penlabels(1,2,3); endchar;
+
+cmchar "Macron (bar) accent";
+numeric macron_breadth#; macron_breadth#=.2[vair#,stem#];
+beginchar(incr ipacode,9u#,.4[x_height#,asc_height#]+macron_breadth#,0);
+italcorr h#*slant-.75u#;
+adjust_fit(0,0);
+numeric macron_breadth; macron_breadth:=Vround .2[vair,stem];
+pickup if serifs: crisp.nib else: fine.nib fi;
+pos1(macron_breadth,90); pos2(macron_breadth,90);
+top y1r=top y2r=h+o; lft x1=w-rt x2=hround 1.25u;
+filldraw stroke z1e--z2e; % bar
+penlabels(1,2); endchar;
+
+cmchar "Dot accent";
+numeric dot_diam#; dot_diam#=max(dot_size#,cap_curve#);
+beginchar(incr ipacode,5u#,min(asc_height#,10/7x_height#+.5dot_diam#),0);
+define_whole_blacker_pixels(dot_diam);
+italcorr h#*slant+.5dot_diam#-2u#;
+adjust_fit(0,0);
+pickup tiny.nib; pos1(dot_diam,0); pos2(dot_diam,90);
+x1=x2=.5w; top y2r=h+1;
+if bot y2l<x_height+o+slab: y2l:=min(y2r-eps,x_height+o+slab+.5tiny); fi
+y1=.5[y2l,y2r]; dot(1,2); % dot
+penlabels(1,2); endchar;
+
+cmchar "Cedilla accent";
+beginchar(incr ipacode,8u#,0,.875desc_depth#);
+adjust_fit(0,0);
+x1=.5w+.5u;
+if serifs: pickup crisp.nib; pos1(stem,0); pos2(stem,0);
+ pos3(vair,90); pos4(stem,0); pos5(vair,-90);
+ x1=x2; z3l=z2l; x4=x2+1.5u; x5=x3-1.5u;
+ bot y1=-o; bot y2=-vround 2/7d-o; y4=.5[y3,y5]; bot y5=-d-o;
+ filldraw stroke z1e--z2e; % stem
+ filldraw stroke z3e{right}...z4e{down}...{left}z5e; % hook
+else: pickup fine.nib; pos1(vair,0); top y1=-o-2;
+ pos2(.5[vair,stem],0); bot y2=-d-o; x2=x1-1.25u;
+ filldraw stroke z1e--z2e; fi % diagonal
+penlabels(1,2,3,4,5); endchar;
+
+cmchar "Polish Hook";
+beginchar(incr ipacode,6u#,0,desc_depth#);
+adjust_fit(if monospace: 1u#,1u# else: 0,0 fi);
+pickup if serifs: crisp.nib; else: fine.nib; fi
+pos1(vair,-60); pos4(vair,135);
+if serifs: pos2(stem,10);pos3(max(.7stem,hair),80);
+else: pos2(vair,10);pos3(vair,80); fi
+x1-u=x4-2u=.5w; y1=0; y2l=y4r=-3/5d; bot y3l=-d-oo;
+x3r=.7[x4r,x2r]; x2l=u;
+if serifs: filldraw circ_stroke z1e{(-3,-1)}...{down}z2e...
+ {right}z3e...{(1,1)}z4e;
+else: filldraw stroke z1e{(-3,-1)}...{down}z2e...{right}z3e...{(1,1)}z4e; fi
+penlabels(1,2,3,4); endchar;
+
+cmchar "Double Grave Accent";
+beginchar(incr ipacode,9u#,min(asc_height#,2x_height#),0);
+italcorr h#*slant-u#;
+adjust_fit(0,0);
+x3-x1=x4-x2=hround 3u; y3=y1; y4=y2;
+if serifs: pickup crisp.nib; x1-.5stem=hround(1.5u); x4=w-2.5u;
+ y1+.5stem=h; y2=max(2/3[h,x_height],x_height+o+hair);
+ numeric theta; theta=angle(z2-z1)+90;
+ pos1(stem,theta); pos2(hair,theta);
+ pos3(stem,theta); pos4(hair,theta);
+ filldraw circ_stroke z1e--z2e; % left diagonal
+ filldraw circ_stroke z3e--z4e; % right diagonal
+else: pickup fine.nib; pos1(stem,0); pos2(vair,0);
+ pos3(stem,0); pos4(vair,0);
+ lft x1l=hround(1.5u); rt x2r=hround(.5w-u+.5vair);
+ top y1=h; bot y2=vround 2/3[h,x_height];
+ filldraw stroke z1e--z2e; % left diagonal
+ filldraw stroke z3e--z4e; fi % right diagonal
+penlabels(1,2,3,4); endchar;
+
+cmchar "Grave Accent (under)";
+beginchar(incr ipacode,9u#,asc_height#,0);
+adjust_fit(0,0);
+if serifs: pickup crisp.nib; x1+.5stem=hround(w-2u); x2=2/3[x1,w-x1];
+ y2+.5stem=h+eps; y1=max(2/3[h,x_height],x_height+o+hair);
+ numeric theta; theta=angle(z2-z1)+90;
+ pos1(stem,theta); pos2(hair,theta);
+ filldraw circ_stroke z1e--z2e; % diagonal
+else: pickup fine.nib; pos1(stem,0); pos2(vair,0);
+ rt x1r=hround(w-1.5u); lft x2l=hround(.5w-.25u-.5vair);
+ top y2=h; bot y1=vround 2/3[h,x_height];
+ filldraw stroke z1e--z2e; fi % diagonal
+penlabels(1,2); endchar;
+
+cmchar "Acute Accent (under)";
+beginchar(incr ipacode,9u#,asc_height#,0);
+adjust_fit(0,0);
+if serifs: pickup crisp.nib; x1-.5stem=hround 2u; x2=2/3[x1,w-x1];
+ y2+.5stem=h+eps; y1=max(2/3[h,x_height],x_height+o+hair);
+ numeric theta; theta=angle(z2-z1)+90;
+ pos1(stem,theta); pos2(hair,theta);
+ filldraw circ_stroke z1e--z2e; % diagonal
+else: pickup fine.nib; pos1(stem,0); pos2(vair,0);
+ lft x1l=hround 1.5u; rt x2r=hround(.5w+.25u+.5vair);
+ top y2=h; bot y1=vround 2/3[h,x_height];
+ filldraw stroke z1e--z2e; fi % diagonal
+penlabels(1,2); endchar;
+
+cmchar "Subscript Arch";
+beginchar(incr ipacode,9u#,min(asc_height#,2x_height#),0);
+italcorr h#*slant+.5vair#-1.5u#;
+adjust_fit(0,0);
+pickup crisp.nib; pos1(vair,-180); pos3(vair,0);
+numeric mid_thickness; mid_thickness=vround 1/3[vair,stem];
+pos2(mid_thickness,90); x2=.5w;
+bot y1=bot y3=vround max(x_height+tiny,1/3[x_height,h]-.5mid_thickness);
+top y2r=h-o; lft x1r=w-rt x3r=hround(2u-.5vair);
+filldraw stroke z1e{up}...z2e{right}...{down}z3e; % stroke
+penlabels(1,2,3); endchar;
+
+def subtop = -hround(4/7desc_depth) enddef;
+
+cmchar "Subscript Bridge";
+beginchar(incr ipacode,9u#,0,1.36desc_depth#+.5vair#);
+adjust_fit(0,0);
+if serifs: pickup diacritic.nib;
+ lft x1=lft x2=hround(.5w-2.5u); x3=x4=w-x1;
+ top y1=top y3=subtop; bot y2=-d; y2=y4;
+ draw z2--z1--z3--z4;
+else: pickup crisp.nib;
+ pos1(vair,0); pos2(vair,0); pos2'(vair,90);
+ pos3(vair,0); pos3'(vair,90); pos4(vair,0);
+ lft x1l=lft x2l=hround(.5w-2.5u-.5vair); x3=x4=w-x1; x2l=x2'; x3r=x3';
+ top y2'r=subtop; bot y1=bot y4=-d; y2=y3=y2'r=y3'r;
+ filldraw stroke z1e--z2e;
+ filldraw stroke z3e--z4e;
+ filldraw stroke z2'e--z3'e; fi
+penlabels(1,2,3,4); endchar;
+
+cmchar "Inverted Subscript Bridge";
+beginchar(incr ipacode,9u#,0,1.36desc_depth#+.5vair#);
+adjust_fit(0,0);
+if serifs: pickup diacritic.nib;
+ lft x1=lft x2=hround(.5w-2.5u); x3=x4=w-x1;
+ top y1=top y3=subtop; bot y2=-d; y2=y4;
+ draw z1--z2--z4--z3;
+else: pickup crisp.nib;
+ pos1(vair,0); pos2(vair,0); pos2'(vair,90);
+ pos3(vair,0); pos3'(vair,90); pos4(vair,0);
+ lft x1l=lft x2l=hround(.5w-2.5u-.5vair); x3=x4=w-x1; x2l=x2'; x3r=x3';
+ top y1=top y4=subtop; bot y2'l=-d; y2=y3=y2'l=y3'l;
+ filldraw stroke z1e--z2e;
+ filldraw stroke z3e--z4e;
+ filldraw stroke z2'e--z3'e; fi
+penlabels(1,2,3,4); endchar;
+
+cmchar "Subscript Square";
+beginchar(incr ipacode,9u#,0,1.36desc_depth#+vair#);
+adjust_fit(0,0);
+if serifs: pickup diacritic.nib;
+ lft x1=lft x2=hround(.5w-2.5u); x3=x4=w-x1;
+ top y1=top y3=subtop; bot y2=-d; y2=y4;
+ draw z1--z2--z4--z3--z1;
+else: pickup crisp.nib;
+ pos1(vair,0); pos1'(vair,90); pos2(vair,0); pos2'(vair,90);
+ pos3(vair,0); pos3'(vair,90); pos4(vair,0); pos4'(vair,90);
+ lft x1l=lft x2l=hround(.5w-2.5u-.5vair); x3=x4=w-x1;
+ x2l=x1'=x2'; x3r=x3'=x4';
+ top y1'r=subtop; bot y2'l=-d; y2=y3=y2'l=y3'l; y1=y1'r=y4=y4'r;
+ filldraw stroke z1e--z2e;
+ filldraw stroke z3e--z4e;
+ filldraw stroke z1'e--z4'e;
+ filldraw stroke z2'e--z3'e; fi
+penlabels(1,2,3,4); endchar;
+
+cmchar "Subscript Right Half-ring";
+beginchar(incr ipacode,6u#,.5x_height#+vair#,0);
+adjust_fit(if monospace: .5u#,.5u# else: 0,0 fi);
+autorounded;
+if serifs: pickup diacritic.nib;
+ rt x2=hround(w-1.75u)+eps; x1=x3=w-x2;
+ bot y3=-d; y2=.5[y1,y3]; top y1=h;
+ draw z1{right}...z2{down}...z3{left};
+else: pickup crisp.nib;
+ pos1(vair,90); pos2(vair,0); pos3(vair,-90);
+ rt x2r=hround(w-2u+.5vair)+eps; lft x1=lft x3=hround(w-rt x2r+.3vair);
+ bot y3r=-d; y2=.5[y1,y3]; top y1r=h;
+ filldraw stroke z1e{right}...z2e{down}...z3e{left}; fi
+penlabels(1,2,3); endchar;
+
+cmchar "Subscript Left Half-ring";
+beginchar(incr ipacode,6u#,.5x_height#+vair#,0);
+adjust_fit(if monospace: .5u#,.5u# else: 0,0 fi);
+autorounded;
+if serifs: pickup diacritic.nib;
+ lft x2=hround 1.75u-eps; x1=x3=w-x2;
+ bot y3=-d; y2=.5[y1,y3]; top y1=h;
+ draw z1{left}...z2{down}...z3{right};
+else: pickup crisp.nib;
+ pos1(vair,-90); pos2(vair,0); pos3(vair,90);
+ lft x2l=hround(2u-.5vair)-eps; rt x1=rt x3=hround(w-lft x2l-.3vair);
+ bot y3l=-d; y2=.5[y1,y3]; top y1l=h;
+ filldraw stroke z1e{left}...z2e{down}...z3e{right}; fi
+penlabels(1,2,3); endchar;
+
+cmchar "Subscript W";
+beginchar(incr ipacode,9u#,0,1.4desc_depth#+.5vair#);
+adjust_fit(0,0);
+if serifs: pickup fine.nib;
+ numeric hbreadth; hbreadth=max(diacritic,hair);
+ pos2(vair,-210); pos3(hbreadth,-90); pos4(vair,10);
+ pos6(vair,170); pos7(hbreadth,270); pos8(vair,30);
+ lft x2r=hround 1.5u; top y2=top y8=subtop; y4=y6=y2-vair;
+ bot y3r=bot y7r=-d;
+ x3=.4[x2,x4]; x7=w-x3; x8=w-x2; x4=x6=good.x .5w;
+ filldraw circ_stroke z2e{(-1,-2)}...z3e{right}...{(-1,5)}z4e;
+ filldraw circ_stroke z8e{(1,-2)}...z7e{left}...{(1,5)}z6e;
+else: pickup crisp.nib;
+ pos2(vair,-210); pos3(vair,-90); pos4(vair,0);
+ pos6(vair,180); pos7(vair,270); pos8(vair,30);
+ lft x2r=hround(1.5u-.25vair); top y2=top y8=subtop; y4=y6=y2-vair;
+ bot y3r=bot y7r=-d;
+ x3=.4[x2,x4]; x7=w-x3; x8=w-x2; x4=x6=good.x .5w;
+ filldraw circ_stroke z4e{down}...z3e{left}...{(1,2)}z2e;
+ filldraw circ_stroke z6e{down}...z7e{right}...{(-1,2)}z8e; fi
+penlabels(2,3,4,6,7,8); endchar;
+
+cmchar "Seagull";
+beginchar(incr ipacode,9u#,0,1.2desc_depth#+.5vair#);
+adjust_fit(0,0);
+if serifs: pickup fine.nib;
+ numeric hbreadth; hbreadth=max(diacritic,hair);
+ pos1(vair,160); pos2(hbreadth,90); pos3(vair,0);
+ pos4(hbreadth,-90); pos5(vair,-160);
+ x1=w-x5=1.2u; x3=.5w; x2=w-x4=.5[x1,x3];
+ top y2r=top y4l=subtop+oo; bot y3=-d; bot y1=bot y5=.1[y3,y2];
+ filldraw stroke z1e{(1,4)}...{right}z2e...{down}z3e;
+ filldraw stroke z3e{up}...{right}z4e...{(1,-4)}z5e;
+else: pickup crisp.nib;
+ pos1(vair,150); pos2(vair,90); pos3(vair,0);
+ pos4(vair,-90); pos5(vair,-150);
+ x1=w-x5=1.2u; x3=.5w; x2=w-x4=.5[x1,x3];
+ top y2r=top y4l=subtop+oo; bot y3=-d+.5vair;
+ bot y1l=bot y5r=0[y3,y2]-.5vair;
+ filldraw circ_stroke z3e{up}...{left}z2e...{(-1,-5)}z1e;
+ filldraw circ_stroke z3e{up}...{right}z4e...{(1,-5)}z5e; fi
+penlabels(1,2,3,4,5); endchar;
+
+cmchar "Over-cross";
+beginchar(incr ipacode,9u#,asc_height#,0);
+adjust_fit(0,0);
+if serifs: pickup diacritic.nib;
+ lft x1=lft x2=hround(.5w-2.5u); x3=x4=w-x1;
+ top y1=top y3=h-o; bot y2=bot y4=.2[x_height,h];
+ draw z1--z4; draw z2--z3;
+else: pickup crisp.nib;
+ pos1(vair,65); pos2(vair,115); pos3(vair,115); pos4(vair,65);
+ lft x1l=lft x2r=hround(.5w-2.5u-.25vair); x3=x4=w-x1;
+ top y1r=top y3r=h-o; bot y2l=bot y4l=.2[x_height,h]-.6vair;
+ filldraw stroke z1e--z4e; filldraw stroke z2e--z3e; fi
+penlabels(1,2,3,4); endchar;
+
+ipacode:=ipacode+2; % dotless i and j come here;
+
+cmchar "Subscript Plus";
+beginchar(incr ipacode,8u#,4vu#+vair#,0);
+adjust_fit(0,0);
+if serifs: pickup diacritic.nib;
+ top y3=h; bot y4=0; x3=x4=good.x .5w;
+ lft x1=hround(.5(w-(top y3-bot y4))); x2=w-x1; y1=y2=good.y .5[y3,y4];
+ draw z1--z2; draw z3--z4;
+else: pickup crisp.nib;
+ pos1(vair,90); pos2(vair,90); pos3(vair,0); pos4(vair,0);
+ top y3=h; bot y4=0;
+ lft x3l=lft x4l=hround(.5w-.5vair);
+ lft x1=hround(.5(w-(top y3-bot y4))); x2=w-x1;
+ top y1r=top y2r=vround(.5[y3,y4]+.5vair);
+ filldraw stroke z1e--z2e; filldraw stroke z3e--z4e; fi
+penlabels(1,2,3,4); endchar;
+
+cmchar "Raising Sign";
+beginchar(incr ipacode,8u#,4vu#+vair#,0);
+adjust_fit(0,0);
+if serifs: pickup diacritic.nib;
+ x1=w-x2; x3=x4=good.x(.5[x1,x2]); x2-x1=4u;
+ y1=y2=y4; top y3=h; y4=good.y(y3-3vu);
+ draw z1--z2; draw z3--z4;
+else: pickup crisp.nib;
+ pos1(vair,90); pos2(vair,90); pos3(vair,0); pos4(vair,0);
+ x1=w-x2; lft x1=hround(2u-.25vair); lft x3l=lft x4l=hround(.5w-.5vair);
+ y1l=y2l=y4; top y3=h; bot y4=vround(y3-3vu-.5vair);
+ filldraw stroke z1e--z2e; filldraw stroke z3e--z4e; fi
+penlabels(1,2,3,4); endchar;
+
+cmchar "Lowering Sign";
+beginchar(incr ipacode,8u#,4vu#+vair#,0);
+adjust_fit(0,0);
+if serifs: pickup diacritic.nib;
+ x1=w-x2; x3=x4=good.x(.5[x1,x2]); x2-x1=4u;
+ top y1=h; y1=y2=y3; y4=vround(y3-3vu);
+ draw z1--z2; draw z3--z4;
+else: pickup crisp.nib;
+ pos1(vair,90); pos2(vair,90); pos3(vair,0); pos4(vair,0);
+ x1=w-x2; lft x1=hround(2u-.25vair); lft x3l=lft x4l=hround(.5w-.5vair);
+ y1r=y2r=y3; top y3=h; bot y4=vround(y3-3vu-.5vair);
+ filldraw stroke z1e--z2e; filldraw stroke z3e--z4e; fi
+penlabels(1,2,3,4); endchar;
+
+cmchar "Advancing Sign";
+beginchar(incr ipacode,8u#,4vu#+vair#,0);
+adjust_fit(0,0);
+if serifs: pickup diacritic.nib;
+ x2=x3=x4=good.x(.5w+u); x1=good.x(x2-3u);
+ top y3=h; bot y4=0; y1=y2=good.y(.5[y3,y4]);
+ draw z1--z2; draw z3--z4;
+else: pickup crisp.nib;
+ pos1(vair,90); pos2(vair,90); pos3(vair,0); pos4(vair,0);
+ lft x1=hround 2u; rt x2=rt x3r=rt x4r=hround(w-3u+.5vair);
+ top y3=h; bot y4=vround(y3-4vu-.5vair);
+ top y1r=top y2r=vround(.5[y3,y4]+.5vair);
+ filldraw stroke z1e--z2e; filldraw stroke z3e--z4e; fi
+penlabels(1,2,3,4); endchar;
+
+cmchar "Retracting Sign";
+beginchar(incr ipacode,8u#,4vu#+vair#,0);
+adjust_fit(0,0);
+if serifs: pickup diacritic.nib;
+ x1=x3=x4=good.x(.5w-u); x2=good.x(x1+3u);
+ top y3=h; bot y4=0; y1=y2=good.y(.5[y3,y4]);
+ draw z1--z2; draw z3--z4;
+else: pickup crisp.nib;
+ pos1(vair,90); pos2(vair,90); pos3(vair,0); pos4(vair,0);
+ rt x1=hround(w-2u); lft x2=lft x3l=lft x4l=hround(3u-.5vair);
+ top y3=h; bot y4=vround(y3-4vu-.5vair);
+ top y1r=top y2r=vround(.5[y3,y4]+.5vair);
+ filldraw stroke z1e--z2e; filldraw stroke z3e--z4e; fi
+penlabels(1,2,3,4); endchar;
+
+cmchar "Vertical Stroke (Superior)";
+beginchar(oct"042",4u#,asc_height#,0);
+adjust_fit(0,0);
+if serifs: pickup tiny.nib;
+ pos1(diacr,0); pos2(diacr,0);
+ lft x1l=lft x2l=hround(.5w-.5diacr);
+ top y1=h; bot y2=vround(top y1-4vu);
+ filldraw stroke z1e--z2e;
+else: pickup crisp.nib;
+ pos1(vair,0); pos2(vair,0);
+ lft x1l=lft x2l=hround(.5w-.5vair);
+ top y1=h; bot y2=vround(top y1-4vu);
+ filldraw stroke z1e--z2e; fi
+penlabels(1,2); endchar;
+
+cmchar "Length Mark";
+beginchar(oct"072",5u#,x_height#,0);
+adjust_fit(if monospace: 1u#,1u# else: 0,0 fi);
+pickup if serifs: tiny.nib; else: crisp.nib; fi
+x1=w-x2; x3=.5[x1,x2]; rt x2-lft x1=3u;
+top y1=top y2=h if serifs: +oo fi; top y1-bot y3=.387x_height;
+filldraw z1--z2--z3--cycle;
+x5=w-x6; x4=.5[x5,x6]; rt x6-lft x5=3u;
+bot y5=bot y6=if serifs: -oo else: 0 fi; top y4-bot y5=.387x_height;
+filldraw z4--z5--z6--cycle;
+penlabels(1,2,3,4,5,6); endchar;
+
+cmchar "Half-length Mark";
+beginchar(oct"073",5u#,x_height#,0);
+adjust_fit(if monospace: 1u#,1u# else: 0,0 fi);
+pickup if serifs: tiny.nib; else: crisp.nib; fi
+x1=w-x2; x3=.5[x1,x2]; rt x2-lft x1=3u;
+top y1=top y2=h if serifs: +oo fi; top y1-bot y3=.387x_height;
+filldraw z1--z2--z3--cycle;
+penlabels(1,2,3); endchar;
+
+cmchar "Bottom Tie Bar";
+beginchar(oct"074",14u#,v_center(.35x_height#));
+adjust_fit(0,0);
+pickup fine.nib;
+numeric light_stem; light_stem=Vround .5[vair,stem];
+x1-.5hair=hround u; y1+.5hair=vround(h+.5hair); x3=w-x1; y3=y1;
+pos2(light_stem,90); x2=.5w; y2l=good.y -d;
+numeric theta; theta=angle((z2-z1)yscaled 3);
+pos1(hair,90+theta); pos3(hair,90-theta);
+filldraw z1l{dir theta}...z2l...{dir-theta}z3l
+ ..z3r{-dir-theta}...z2r...{-dir theta}z1r..cycle; % arc
+penlabels(1,2,3); endchar;
+
+cmchar "Top Tie Bar";
+beginchar(oct"076",14u#,v_center(.35x_height#));
+adjust_fit(0,0);
+pickup fine.nib;
+numeric light_stem; light_stem=Vround .5[vair,stem];
+x1-.5hair=hround u; y1-.5hair=vround(-d-.5hair); x3=w-x1; y3=y1;
+pos2(light_stem,90); x2=.5w; y2=good.y h;
+numeric theta; theta=angle((z2-z1)yscaled 3);
+pos1(hair,90+theta); pos3(hair,90-theta);
+filldraw z1l{dir theta}...z2l...{dir-theta}z3l
+ ..z3r{-dir-theta}...z2r...{-dir theta}z1r..cycle; % arc
+penlabels(1,2,3); endchar;
+
+cmchar "Reversed Apostrophe";
+beginchar(oct"134",5u#,asc_height#,0);
+italcorr asc_height#*slant+.5dot_size#-2u#;
+adjust_fit(0,0);
+x1-.5dot_size=hround(.5w-.5dot_size); y1+.5dot_size=h;
+if monospace: comMA(1,a,dot_size,.28u,vround 1.5comma_depth); % large comma
+else: comMA(1,a,dot_size,.25u,comma_depth); fi % comma with increased jut
+penlabels(1); endchar;
+
+cmchar "Corner";
+beginchar(oct"136",5.2u#,asc_height#,0);
+adjust_fit(0,0);
+if serifs: pickup diacritic.nib;
+ lft x1=hround .2u; rt x2=rt x3=hround(w-1u); top y1=top y2=h-o;
+ top y2-bot y3=vround 4vu;
+ draw z1--z2--z3;
+else: pickup crisp.nib;
+ pos1(vair,90); pos2(vair,90); pos3(vair,0); pos4(vair,0);
+ lft x1=hround .2u; rt x2=rt x3r=rt x4r=hround(w-1u);
+ top y1r=top y2r=top y3=h-o; top y3-bot y4=vround 4vu;
+ filldraw stroke z1e--z2e; filldraw stroke z3e--z4e; fi
+penlabels(1,2,3,4); endchar;
+
+cmchar "Open corner";
+beginchar(oct"137",5.2u#,asc_height#,0);
+adjust_fit(0,0);
+if serifs: pickup diacritic.nib;
+ rt x1=hround(w-.2u); lft x2=lft x3=hround 1u; top y1=top y2=h-o;
+ top y2-bot y3=vround 4vu;
+ draw z1--z2--z3;
+else: pickup crisp.nib;
+ pos1(vair,90); pos2(vair,90); pos3(vair,0); pos4(vair,0);
+ rt x1=hround(w-.2u); lft x2=lft x3l=lft x4l=hround 1u;
+ top y1r=top y2r=top y3=h-o; top y3-bot y4=vround 4vu;
+ filldraw stroke z1e--z2e; filldraw stroke z3e--z4e; fi
+penlabels(1,2,3,4); endchar;
+
+cmchar "Right-hook (rhoticity)";
+beginchar(oct"176",6u#,x_height#,0);
+adjust_fit(0,if monospace: 2u# else: 0 fi);
+if serifs: pickup tiny.nib;
+ numeric hook_hair; hook_hair=max(vround .6stem, hair);
+ pos3(hook_hair,0); pos4(hook_hair,0); pos5(vair,90); pos6(hair,180);
+ x1=0; top y2=h; rt x6l=vround(w-.75u+.5hair);
+ y1=min(.95x_height,y2-2hook_hair);
+ x2=x4=.36[x1,x6]; x5=.5[x2,x6]; y4=.8[y5,y2]; z3=z2;
+ y5l=bar_height; y6=.5[bar_height,h];
+ pos1(hook_hair,angle(z2-z1)+90); pos2(hook_hair,angle(z2-z1)+90);
+ filldraw circ_stroke z2e--z1e;
+ filldraw circ_stroke z3e--z4e{down}..z5e{right}..{up}z6e;
+else: pickup crisp.nib;
+ pos3(thin_hair,0); pos4(thin_hair,0); pos5(vair,90); pos6(thin_hair,180);
+ x1=0; top y2=h; rt x6l=vround(w-.75u+.5hair);
+ y1=min(.95x_height,y2-2vair);
+ x2=x4=.36[x1,x6]; x5=.5[x2,x6]; y4=.8[y5,y2]; z3=z2;
+ y5l=bar_height; y6=.5[bar_height,h];
+ pos1(vair,angle(z2-z1)+90); pos2(vair,angle(z2-z1)+90);
+ filldraw circ_stroke z2e--z1e;
+ filldraw circ_stroke z3e--z4e{down}..z5e{right}..{up}z6e; fi
+penlabels(1,2,3,4,5,6); endchar;
+
+cmchar "Vertical Stroke (Inferior)";
+beginchar(oct"177",4u#,4vu#-desc_depth#,desc_depth#);
+adjust_fit(if monospace: 2u#,2u# else: 0,0 fi);
+if serifs: pickup tiny.nib;
+ pos1(diacr,0); pos2(diacr,0);
+ lft x1l=lft x2l=hround(.5w-.5diacr);
+ bot y2=-d; top y1=h;
+ filldraw stroke z1e--z2e;
+else: pickup crisp.nib;
+ pos1(vair,0); pos2(vair,0);
+ lft x1l=lft x2l=hround(.5w-.5vair);
+ bot y2=-d; top y1=h;
+ filldraw stroke z1e--z2e; fi
+penlabels(1,2); endchar;
+
+cmchar "Hooktop";
+beginchar(oct"043",4u#,.9asc_height#,0);
+italcorr h#*slant+1.5u#;
+adjust_fit(if monospace: 2u#,2u# else: 0,0 fi);
+if serifs: pickup tiny.nib;
+ pos1(diacr,0); pos2(diacr,0);
+ lft x1l=lft x2l=hround(.5w-.5diacr); y1+.5flare=y2=x_height;
+ filldraw stroke z1e--z2e;
+ hooktop(2,3,4,5,diacr,hround(x1+3.25u),h+.5vair,.88,.5,1/3);
+else: pickup fine.nib;
+ pos1(vair,0); pos2(vair,0);
+ lft x1l=lft x2l=hround(.5w-.5vair); y1+.5flare=y2=x_height;
+ filldraw stroke z1e--z2e;
+ hooktop(2,3,4,5,vair,hround(x1+3.25u),h+.5vair,5/6,.5,1/3); fi
+penlabels(1,2,3,4,5); endchar;
+
+cmchar "Right-tail";
+beginchar(oct"044",4u#,0,desc_depth#);
+adjust_fit(if monospace: 2u#,2u# else: 0,0 fi);
+if serifs: pickup tiny.nib;
+ pos1(diacr,0); lft x1l=hround(.5w-.5diacr); y1=oo;
+ right_tail(1,2,3,4,diacr,hround(x1+3.25u),.9,.5,.6);
+else: pickup fine.nib;
+ pos1(vair,0); lft x1l=hround(.5w-.5vair); y1=oo;
+ right_tail(1,2,3,4,vair,hround(x1+3.25u),.85,.5,.5); fi
+penlabels(1,2,3,4,5); endchar;
+
+cmchar "Palatalization Hook";
+beginchar(oct"045",4u#,0,desc_depth#);
+adjust_fit(if monospace: 2u#,2u# else: 0,0 fi);
+if serifs: pickup tiny.nib;
+ pos1(diacr,0); lft x1l=hround(.5w-.5diacr); y1=oo;
+ left_tail(1,2,3,4,diacr,hround(x1-3.25u));
+else: pickup fine.nib;
+ pos1(vair,0); lft x1l=hround(.5w-.5vair); y1=oo;
+ left_tail(1,2,3,4,vair,hround(x1-3.25u)); fi
+penlabels(1,2,3,4,5); endchar;
+
+cmchar "Superimposed Tilde";
+beginchar(oct"046",10u#,.5[asc_height#,body_height#],0);
+big_tilde; endchar;
+
+cmchar "Vertical Bar Accent";
+beginchar(oct"234",9u#,min(asc_height#,2x_height#),0);
+adjust_fit(0,0);
+if serifs: pickup crisp.nib; x1=x2=.5w;
+ top y1=h+o+eps; y2=max(2/3[h,x_height],x_height+o+hair);
+ pos1(stem,0); pos2(hair,0);
+ filldraw circ_stroke z1e--z2e; % diagonal
+else: pickup fine.nib; pos1(stem,0); pos2(vair,0); x1=x2=.5w;
+ top y1=h+o; bot y2=vround 2/3[h,x_height];
+ filldraw stroke z1e--z2e; fi % diagonal
+penlabels(1,2); endchar;
+
+cmchar "Double Vertical Bar Accent";
+beginchar(oct"235",9u#,min(asc_height#,2x_height#),0);
+adjust_fit(0,0);
+x1=x2; x3=x4; y3=y1; y4=y2;
+if serifs: pickup crisp.nib; x1=hround(3.8u-.5stem); x3=w-x1;
+ top y1=h+o+eps; y2=max(2/3[h,x_height],x_height+o+hair);
+ numeric theta; theta=angle(z2-z1)+90;
+ pos1(stem,theta); pos2(hair,theta);
+ pos3(stem,theta); pos4(hair,theta);
+ filldraw circ_stroke z1e--z2e; % left diagonal
+ filldraw circ_stroke z3e--z4e; % right diagonal
+else: pickup fine.nib; pos1(stem,0); pos2(vair,0);
+ pos3(stem,0); pos4(vair,0); x1=hround(3.8u-.5stem); x3=w-x1;
+ top y1=h+o; bot y2=vround 2/3[h,x_height];
+ filldraw stroke z1e--z2e; % left diagonal
+ filldraw stroke z3e--z4e; fi % right diagonal
+penlabels(1,2,3,4); endchar;
+
+cmchar "Grave Dot Accent";
+numeric dot_diam#; dot_diam#=max(dot_size#,cap_curve#);
+beginchar(oct"236",9u#,min(asc_height#,2x_height#),0);
+define_whole_blacker_pixels(dot_diam);
+adjust_fit(0,0);
+if serifs: pickup crisp.nib; x1-.5stem=hround 1.5u; x2=.45[x1,w-x1];
+ y1+.5stem=h+eps; y2=max(2/3[h,x_height],x_height+o+hair);
+ numeric theta; theta=angle(z2-z1)+90;
+ pos1(stem,theta); pos2(hair,theta);
+ filldraw circ_stroke z1e--z2e; % diagonal
+else: pickup fine.nib; pos1(stem,0); pos2(vair,0);
+ lft x1l=hround 1.5u; rt x2r=hround(.5w-.25u+.5vair);
+ top y1=h; bot y2=vround 2/3[h,x_height];
+ filldraw stroke z1e--z2e; fi % diagonal
+pickup tiny.nib; pos3(dot_diam,0); pos4(dot_diam,90);
+x3=x4=.7w; y4=.45[bot y2,top y1];
+y3=.5[y4l,y4r]; dot(3,4); % dot
+penlabels(1,2,3,4); endchar;
+
+cmchar "Acute Dot Accent";
+numeric dot_diam#; dot_diam#=max(dot_size#,cap_curve#);
+beginchar(oct"237",9u#,min(asc_height#,2x_height#),0);
+define_whole_blacker_pixels(dot_diam);
+italcorr h#*slant-if serifs: 1 fi u#;
+adjust_fit(0,0);
+if serifs: pickup crisp.nib; x1+.5stem=hround(w-1.5u); x2=.45[x1,w-x1];
+ y1+.5stem=h+eps; y2=max(2/3[h,x_height],x_height+o+hair);
+ numeric theta; theta=angle(z2-z1)+90;
+ pos1(stem,theta); pos2(hair,theta);
+ filldraw circ_stroke z1e--z2e; % diagonal
+else: pickup fine.nib; pos1(stem,0); pos2(vair,0);
+ rt x1r=hround(w-1.5u); lft x2l=hround(.5w+.25u-.5vair);
+ top y1=h; bot y2=vround 2/3[h,x_height];
+ filldraw stroke z1e--z2e; fi % diagonal
+pickup tiny.nib; pos3(dot_diam,0); pos4(dot_diam,90);
+x3=x4=.3w; y4=.45[bot y2,top y1];
+y3=.5[y4l,y4r]; dot(3,4); % dot
+penlabels(1,2); endchar;
+
+cmchar "Celtic palatalization mark";
+beginchar(oct"040",6u#,asc_height#,0);
+italcorr h#*slant;
+adjust_fit(if monospace: 1u#,1u# else: 0,0 fi);
+if serifs: pickup crisp.nib; x1+.5stem=hround(w-.5u);
+ x2=hround 1u;
+ y1+.5stem=h+eps; y2=.9x_height;
+ numeric theta; theta=angle(z2-z1)+90;
+ pos1(stem,theta); pos2(hair,theta);
+ filldraw circ_stroke z1e--z2e; % diagonal
+else: pickup fine.nib; pos1(stem,0); pos2(vair,0);
+ rt x1r=hround(w-.5u); lft x2l=hround 1u;
+ top y1=h; bot y2=vround .9x_height;
+ filldraw stroke z1e--z2e; fi % diagonal
+penlabels(1,2); endchar;
+
+cmchar "Leftward Pointer";
+beginchar(oct"275",6u#,asc_height#,0);
+adjust_fit(if monospace: 1u#,1u# else: 0,0 fi);
+pickup diacritic.nib;
+lft x2=hround .5u-eps; x1=x3=w-x2;
+y1-y2=y2-y3; y2=.65[x_height,h]; y1=h;
+draw z1--z2--z3; % diagonals
+labels(1,2,3); endchar;
+
+cmchar "Rightward Pointer";
+beginchar(oct"276",6u#,asc_height#,0);
+adjust_fit(if monospace: 1u#,1u# else: 0,0 fi);
+pickup diacritic.nib;
+rt x2=hround(w-.5u)+eps; x1=x3=w-x2;
+y1-y2=y2-y3; y2=.65[x_height,h]; y1=h;
+draw z1--z2--z3; % diagonals
+labels(1,2,3); endchar;
+
+% This symbol looks like a pipe but is used as the vertical line of tone bars.
+cmchar "Tone bar";
+beginchar(oct"277",CT(5u#,5.56u#),asc_height#,0);
+italcorr asc_height#*slant+.5rule_thickness#-2u#;
+adjust_fit(0,0);
+if serifs: pickup rule.nib;
+ x1=x2=good.x .5w; y1=h; y2=-d;
+ draw z1--z2; % stem
+ labels(1,2);
+else: pickup fine.nib;
+ pos1(hair,0); pos2(hair,0);
+ lft x1l = lft x2l = hround(.5w-.5hair);
+ top y1=h+o; bot y2=-d-o;
+ filldraw stroke z1e--z2e;
+ penlabels(1,2); fi
+endchar;
+
+
+% end of tipadiac.mf