| Current File : //usr/share/texlive/texmf-dist/fonts/source/public/tipa/tipabase.mf |
% tipabase.mf: TIPA miscellaneous macros
% 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 file is based on:
% Computer Modern font series by D. E. Knuth and
% TSIPA by KOBAYASHI Hajime, FUKUI Rei and SHIRAKAWA Shun.
%
% N.B. This file is an addition to cmbase.mf, not a replacement.
%
if unknown cmbase:
errmessage "`cmbase' should have been read before `tipabase'"; fi
tipabase:=1; % when |tipabase| is known, this file has been input
boolean Times_Compat;
let _font_setup = font_setup;
def font_setup =
_font_setup;
vu#:=u#; hair_rule#:=hair#;
diacritic#:=.2[vair#,stem#]; % breadth of some diacritics
diacr#:=diacritic#;
define_whole_vertical_pixels(vu);
define_whole_blacker_pixels(diacritic,diacr);
forsuffixes $=diacritic:
$.breadth:=$;
pickup if $=0: nullpen else: pencircle scaled $; $:=$-eps fi;
$.nib:=savepen; breadth_[$.nib]:=$;
forsuffixes $$=lft,rt,top,bot: shiftdef($.$$,$$ 0); endfor endfor
hair_rule:=ceiling(hair_rule#*hppp);
pickup pencircle scaled hair_rule; hair_rule.nib:=savepen;
enddef;
boolean debug; debug:=false;
let _endchar = endchar;
def endchar =
_endchar; if debug: stop_here; fi enddef;
def sc_compress(suffix $)(expr rate_fix) = % for small caps
$.#:=$.# * ((rate_fix[x_height#,cap_height#])/cap_height#); enddef;
def smallcap_setup =
forsuffixes $=save_var_list: old.$.#:=$.#; endfor
forsuffixes $= u, letter_fit: $.#:=sc.$.#; endfor
sc_compress(flare,.7);
sc_compress(cap_jut,.1);
sc_compress(beak_jut,.1);
sc_compress(beak,0);
sc_compress(slab,.4);
sc_compress(cap_bar,.8);
sc_compress(o,.1);
sc_compress(apex_o,0);
font_setup; enddef;
def save_var_list =
u, letter_fit, flare, cap_jut, beak_jut, beak, slab, cap_bar,
o, apex_o enddef;
def restore_normal_setup =
forsuffixes $=save_var_list: $.#:=old.$.#; endfor
font_setup; enddef;
def turn_picture =
_center_h:=hround(.5charwd*hppp+.5slant*charht*hppp);
_center_v:=vround(.5charht*hppp);
currentpicture:=currentpicture
rotatedabout((_center_h,_center_v),180); enddef;
def turn_picture_lower =
_center_h:=hround(.5charwd*hppp+.5slant*charht*hppp);
_center_v:=vround(.5x_height#*hppp);
currentpicture:=currentpicture
rotatedabout((_center_h,_center_v),180); enddef;
def comMA(suffix $,@)(expr dot_size,jut,depth) =
pickup fine.nib; pos$(dot_size,90);
if square_dots: pos$'(dot_size,0); z$'=z$; dot($',$); % squarish dot
comma_join_:=max(fine.breadth,floor .7dot_size);
comma_bot_:=max(fine.breadth,floor .5dot_size);
pos@0(comma_join_,0); pos@1(comma_join_,0);
pos@2(comma_bot_,0); y@0=y$; y@1=y$l; y@2=y@1-depth;
x@0l=x@1l=x$'l; lft x@2l=good.x(x$+eps);
filldraw stroke z@0e--z@1e..z@2e; % tail
else: pos@1(vair,90); pos@2(vair,180); pos@3(vair,225); % 96/02/10 fkr
z@1r=z$r; lft x@2r=hround(x$-.5dot_size-jut)-2eps; x@3=x$+.5u;
y@2=1/3[y@1,y@3]; bot y@3r=vround(y$-.5dot_size-depth);
y_:=ypart((z@1{right}...z@2{down}...z@3)
intersectiontimes (z$l{right}..{left}z$r)); if y_<0: y_:=1; fi
filldraw z$r{left}..subpath (0,y_) of (z$l{right}..{left}z$r)--cycle; % dot
filldraw stroke z@1e{left}...z@2e{down}...z@3e; fi % tail
penlabels(@1,@2,@3); enddef;
def hook_out_bot(suffix $,$$,$$$) % used in ``Viby I'' and ``Viby Y''
suffix modifier= % x$ and x$$$ (only) are known
pos$(stem,0); pos$$(vair,90);
x$$$:=hround(x$$$+.5hair-eps)-.5hair; pos$$$(hair,180);
y$=1/4x_height-d; bot y$$l=-oo-d; y$$$=1/3x_height-d;
if skewed.modifier: x$$=x$+1.25u;
filldraw stroke z$e{-u,-x_height}...z$$e{right}...{up}z$$$e; % hook
else: x$$=x$+1.5u;
filldraw stroke z$e{down}...z$$e{right}
...{x$$$-(x$+2.5u),x_height}z$$$e; fi enddef; % hook
def hbar(suffix $, $$)(expr loffset, roffset, ypos) =
pickup if serifs: tiny.nib; else: fine.nib fi;
lft x$r = loffset; rt x$$r = roffset;
top y$r = top y$$r = vround(ypos);
pos$(bar,90); pos$$(bar,90);
filldraw stroke z$e--z$$e;
penlabels($, $$); enddef;
def left_tail(suffix $, $$, @, @@)(expr stem_br, x_offset) =
if serifs: pickup tiny.nib;
pos$.a(stem_br,0); z$=z$.a;
x$$=x$.a; bot y$$=-1/3d; pos$$(stem_br,0);
pos@(vair,-90); pos@@(hair,-180); pos@@'(flare,-180);
x@=.5[x$$,x@@r]; bot y@r=-d-oo; y@@-.5flare=-.88d;
z@@r=z@@'r; lft x@@'r= x_offset;
numeric xx;
(xx,y@r)=whatever[z@l,z$$l]; x@r:=max(xx,.5[x@@r,x@]);
filldraw stroke z$.a e--z$$e{down}...z@e{left}; bulb(@,@@,@@'); % arc and bulb
else: pickup fine.nib;
pos$.a(stem_br,0); z$=z$.a;
x$$=x$.a; bot y$$=-1/3d; pos$$(stem_br,0);
pos@(vair,-90); x@=.5[x$$,x@@r]; bot y@r=-d-o;
pos@@(.6[vair,flare],-110); lft x@@r=x_offset;
y@@r=good.y -5/6d; y@@l:=good.y y@@l;
filldraw stroke z$.a e--z$$e & super_arc.e($$,@)
& term.e(@,@@,left,.9,4); fi
enddef;
def right_tail(suffix $, $$, @, @@)(expr stem_br, x_offset, y_end,
x_rate, y_rate) =
if serifs: pickup tiny.nib;
pos$.a(stem_br,180); z$=z$.a;
x$$=x$.a; bot y$$=-y_rate*d; pos$$(stem_br,180);
pos@(vair,270); pos@@(hair,360); pos@@'(flare,360);
x@=x_rate[x$$,x@@r]; bot y@r=-d-oo; y@@-.5flare=-y_end*d;
z@@r=z@@'r; rt x@@'r= x_offset;
numeric xx;
(xx,y@r)=whatever[z@l,z$$l]; x@r:=min(xx,.5[x@,x@@r]);
filldraw stroke z$.a e--z$$e{down}...z@e{right}; bulb(@,@@,@@');%arc and bulb
else: pickup fine.nib;
pos$.a(stem_br,180); z$=z$.a;
x$$=x$.a; bot y$$=-y_rate*d; pos$$(stem_br,180);
pos@(vair,270); x@=x_rate[x$$,x@@r]; bot y@r=-d-o;
pos@@(.6[vair,flare],290); rt x@@r=x_offset;
y@@r=good.y(-y_end*d); y@@l:=good.y y@@l;
filldraw stroke z$.a e--z$$e & super_arc.e($$,@)
& term.e(@,@@,right,.9,4); fi
enddef;
def hooktop(suffix $, $$, @, @@)(expr stem_br, x_offset, height,
y_end, x_rate, y_rate) =
if serifs: pickup tiny.nib;
pos$.a(stem_br,180); z$=z$.a;
x$$=x$.a; top y$$=y_rate[y$.a,height]; pos$$(stem_br,180);
pos@(vair,90); pos@@(hair,0); pos@@'(flare,0);
x@=x_rate[x$$,x@@r]; top y@r=height+oo; y@@+.5flare=y_end[y$.a,height];
z@@r=z@@'r; rt x@@'r= x_offset;
numeric xx;
(xx,y@r)=whatever[z@l,z$$l]; x@r:=min(xx,.5[x@,x@@r]);
filldraw stroke z$.a e--z$$e{up}...z@e{right}; bulb(@,@@,@@'); % arc and bulb
else: pickup fine.nib;
pos$.a(stem_br,180); z$=z$.a;
x$$=x$.a; top y$$=y_rate[y$.a,height]; pos$$(stem_br,180);
pos@(vair,90); x@=x_rate[x$$,x@@r]; top y@r=height+o;
pos@@(.6[vair,flare],70); rt x@@r=x_offset;
y@@r=good.y y_end[y$.a,height]; y@@l:=good.y y@@l;
filldraw stroke z$.a e--z$$e & super_arc.e($$,@)
& term.e(@,@@,right,.9,4); fi
enddef;
def c_stroke(expr Width) =
numeric BH; BH=if Times_Compat:.5613h else: bar_height fi;
pickup fine.nib; pos2(vair',90); pos4(vair',270);
x2=x4=.5(Width+u); top y2r=vround(h+1.5oo); bot y4r=-oo;
pos3(curve,180); lft x3r=hround max(.6u,1.35u-.5curve); y3=.5h;
if serifs: pos1(hair,0); pos0(flare,0);
y1=min(BH+.5flare+2vair'+2,.9[BH,h]-.5flare);
rt x1r=hround(Width-.7u); bulb(2,1,0); % bulb
pos5(hair,0); rt x5r=hround(Width-.5u);
y5=max(good.y(.5BH-.9),y4l+vair');
(x,y4l)=whatever[z4r,z5l]; x4l:=min(x,x4l+.5u);
filldraw stroke pulled_super_arc.e(2,3)(.7superpull)
& pulled_super_arc.e(3,4)(.5superpull)
..tension .9 and 1..{x5-x4,5(y5-y4)}z5e; % arc and lower terminal
else: pos1(4/7[vair',flare],80);
rt x1r=hround(Width-.6u); top y1r=vround .82[BH,top y2r];
filldraw stroke term.e(2,1,right,.8,4); % upper terminal
pos5(.6[vair',flare],275); rt x5r=hround(Width-.5u);
y5r=good.y(y5r+1/3BH-y5); y5l:=good.y y5l; x5l:=good.x x5l;
forsuffixes e=l,r: path p.e; p.e=z4e{right}..tension .9 and 1..z5e;
if angle direction 1 of p.e>75:
p.e:=z4e{right}..tension atleast.9 and 1..{dir 75}z5e; fi endfor
filldraw stroke pulled_super_arc.e(2,3)(.7superpull)
& pulled_super_arc.e(3,4)(.5superpull) & p.e; fi % arc and lower terminal
enddef;
def d_stroke(expr Topserif, Botserif, bot_y) =
pickup tiny.nib; pos1(stem',0); pos2(stem,0);
pos0'(stem',0); pos0(stem,0); z0r=z0'r; x0'=x1; x0=x2;
rt x1r=hround(w-side_gap+.5stem'); top y1=h;
numeric edge; edge=lft x2l;
pickup fine.nib; pos3(if hefty:thin_join else: hair fi,0);
pos4(vair,90); pos5(curve,180); pos6(vair,270); penpos7(x3r-x3l,360);
lft x3l=min(lft x3l-(rt x3r-tiny.rt x2r),1/3[lft x2,edge]);
y3=1/8[bar_height,x_height];
x4l=.5(w-serif_fit)-.3u; top y4r=x_height+oo;
lft x5r=hround max(1.35u-.5curve,.6u); y5=.5x_height;
x6l=x4l-.2u; bot y6r=-oo;
x7=x3; y7=min(y3,y6+y4-y3+.6vair);
(x,y4r)=whatever[z3l,z4l]; x4r:=max(x,.5[x5r,x4]);
(x',y6r)=whatever[z7l,z6l]; x6r:=max(x',.5[x5r,x6]);
filldraw stroke z3e{up}...pulled_arc.e(4,5)
& pulled_arc.e(5,6)...{up}z7e; % bowl
y0=ypart(((edge,h)--(edge,0))intersectionpoint(z3l{up}...{left}z4l));
pickup tiny.nib; numeric lower_serif_drop;
lower_serif_drop = if Times_Compat: serif_drop else: min(oo,serif_drop) fi;
bot y2=if Botserif: if serifs:-min(oo,serif_drop) else: 0 fi; else: bot_y; fi
if Topserif: filldraw stroke z1e--z0'e--z0e--z2e; % stem
else: filldraw stroke z0e--z2e; fi % stem
if serifs: if Topserif: sloped_serif.l(1,0',a,1/3,jut,serif_drop); fi % upper serif
if Botserif: sloped_serif.r(2,0,b,1/3,jut,lower_serif_drop); fi fi % lower serif
enddef;
def epsilon_stroke(expr reverse,mid_jut) = % derived from `3' of cm
numeric top_thickness,mid_thickness,bot_thickness,mid_thickness';
top_thickness=max(fine.breadth,vround(slab-2vair_corr));
mid_thickness=max(fine.breadth,vround 2/3vair);
bot_thickness=max(fine.breadth,vround(slab-vair_corr));
mid_thickness'=max(hround .6fine.breadth,
hround .35[curve,cap_curve]-stem_corr);
pickup fine.nib; pos2(top_thickness,90);
pos4(vair,-90); pos5(vair,-90); pos6(mid_thickness,90);
pos8(bot_thickness,-90); top y2r=h+o; bot y8r=-o;
if reverse=true: pos3(mid_thickness',0); pos7(mid_thickness',0);
rt x3r=hround(w-u); rt x7r=hround(w-.75u);
x2=x6=x8=.5[1.5u,x7]; lft x5=min(hround mid_jut,lft x6)-eps;
z4=z5+whatever*(150u,h);
else: pos3(mid_thickness',180); pos7(mid_thickness',180);
lft x3r=hround(u); lft x7r=hround(.75u);
x2=x6=x8=.5[x7,w-1.5u]; rt x5=max(hround(w-mid_jut),w-rt x6)+eps;
z4=z5+whatever*(-150u,h); fi
x4=1/3[x5,x3l]; y3=.5[top y4l,bot y2l]; y7=.5[bot y6l,top y8l];
top y5l=vround(.54h+.5vair); y5r=y6l;
filldraw stroke pulled_super_arc.e(2,3)(.5superpull)
& z3e{down}...z4e---z5e; % upper bowl
filldraw z5r--z6l--z6r--z5l---cycle; % middle tip
filldraw stroke pulled_super_arc.e(6,7)(.5superpull)
& pulled_super_arc.e(7,8)(.5superpull); % lower bowl
enddef;
def yogh_stroke(expr xmid,xmidrate,xoffset,Comb,Notail) = % derived from `z' of cm
numeric arm_thickness[],z_stem,stem[];
stem1=fudged.stem-4stem_corr;
if hefty: arm_thickness1=stem1; arm_thickness2=stem1;
z_stem=fudged.hair;
else: arm_thickness1=stem1; arm_thickness2=stem1; z_stem=fudged.hair; fi
if arm_thickness1<tiny.breadth: arm_thickness1:=tiny.breadth; fi
pickup tiny.nib; rt x1r=rt x2r=hround(w-.8u);
lft x3l=lft x4l=hround(xmidrate[xmid, w-.8u]-.25hair);
top y1=h; y2=min(y1,h-2/3arm_thickness1);
bot y4=.3[0,h]; 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 crisp.nib; pos5(arm_thickness1,90); pos6(hair,180);
top y5r=h; x5=x1;
lft x6r=if Comb: hround xmid; else: hround xoffset; fi
y6=if Comb: y5l; else: good.y(y5l-beak/1.8)-eps; fi
arm(5,6,a',beak_darkness,if Comb: 0 else: -.4beak_jut fi); % upper arm and beak
pickup tiny.nib;
pos12(stem,angle(z2-z3)); x12l=x3l; bot y12l=bot y3l;
pos7(curve,0); pos8(vair,-90);
rt x7r=hround(w-.75u+.1curve); y7=.48[bot y12l,top y8l];
x8=hround(if Times_Compat: .5[xoffset,w-.8u]-.25u else: .5[xoffset,w-.8u] fi);
bot y8r=-d-oo;
filldraw stroke pulled_arc.e(12,7) & pulled_arc.e(7,8); % bowl
if Notail: else:
if serifs: pos10(flare,-180); pos9(cap_hair,-180);
lft x10r=hround(xoffset if Times_Compat: -.5u fi);
y10=if Comb: -.45d; else: -.35d; fi
bulb(8,9,10); % lower bulb
else: pickup fine.nib; pos8'(vair,-90); z8'=z8;
pos9(.6[vair',flare],-110);
lft x9r=hround xoffset; top y9l=vround -.3d;
y9r:=good.y y9r-eps; x9l:=good.x x9l;
filldraw stroke term.e(8',9,left,1,4); fi % lower terminal
fi enddef;
def full_circ_stroke(suffix $,$$) =
filldraw circ_stroke z$e--z$$e;
filldraw circ_stroke z$$e--z$e;
enddef;
% added on 2001/11/22 fkr
vardef inverted_sloped_serif.r(suffix $,$$,@)(expr darkness,jut,drop) =
pickup crisp.nib; pos@2(slab,90);
rt x@0=tiny.rt x$r; lft x@1=tiny.lft x$l; top y@1=tiny.top y$l;
rt x@2=rt x@0+jut; y@2r=y@1-drop;
y@0=max(y@2l-bracket,y$$)-eps;
if drop>0: erase fill z@1--top z@1
--(x@2r,top y@1)--z@2r--cycle; fi % erase excess at bottom
filldraw z@1--z@2r--z@2l{left}
...darkness[(x@0,y@2l),.5[z@2l,z@0] ]{z@0-z@2l}
...{down}z@0--(x@1,y@0)--cycle; % sloped serif
labels(@0,@1,@2); enddef;
% moved from tipagerm.mf on 2001/11/22 fkr
vardef varm(suffix $,$$,@)(expr darkness,jut)=
y@0=good.y(y$$r-jut); x@0=x$r;
x@1=x$l; z@1=z$$l+whatever*(z$$r-z@0); z@2=.5[z$l,z@1];
filldraw z$$l{z@1-z$$l}...darkness[z@1,.5[z@2,z$$l]]...z@2
---z$l--z$r--z@0--z$$r--cycle;
penlabels(@0,@1,@2); enddef;
% front_hook and bulbvar added on 2001/12/06 fkr
def front_hook(suffix $, $$, @, @@)(expr stem_br, stem_angle,
x_offset, y_offset, x_end, x_rate, y_rate) =
if serifs: pickup tiny.nib;
pos$(stem_br,stem_angle); pos$$(stem_br,stem_angle);
y$=y$$; x$$=x_rate[x@,x$];
pos@(vair,180); pos@@(hair,270); pos@@'(flare,270); % anomoulous but ...
y@=y_rate[y@@r,y$$]; lft x@r=hround(x_offset);
x@@-.5flare=x_end[x@,x$];
z@@r=z@@'r; bot y@@'r=y_offset;
filldraw stroke z$e--z$$e{left}...z@e{down}; bulbvar(@,@@,@@');%arc and bulb
else: pickup fine.nib;
pos$(stem_br,stem_angle); pos$$(stem_br,stem_angle);
y$=y$$; x$$=x_rate[x@,x$];
pos@(vair,180); pos@@(.6[vair,flare],220);
y@=y_rate[y$$r,y@@]; lft x@r=hround(x_offset);
x@@-.5vair=x_end[x@,x$]; bot y@@r=y_offset;
filldraw stroke z$e--z$$e & super_arc.e($$,@)
& term.e(@,@@,down,.9,4); fi
enddef;
def bulbvar(suffix $,$$,$$$) =
z$$$r=z$$r;
path_.l:=z$l{0,y$$r-y$r}...{x$$r-x$r,0}z$$l;
filldraw path_.l--z$$r{x$r-x$$r,0}...{0,y$r-y$$r}z$r--cycle; % link
path_.r:=z$$$l{x$r-x$$r,0}..z$$$r{x$$r-x$r,0}; % near-circle
filldraw subpath(0,xpart(path_.r intersectiontimes path_.l)) of path_.r
--z$$r{x$$r-x$r,0}..cycle; % bulb
enddef;
def turned_h_stroke(suffix $,@,@@,$$) =
penpos$$(x@@r-x@@l,0); x$$=x@@; top y$$=h;
y@@=x_height-1/3[bar_height,x_height];
penpos$''(x$r-x$l,0); x$''=x$; y$''=x_height-1/8[bar_height,x_height];
filldraw stroke z$''e--z$e; % thicken the lower left stem
penpos@0(min(rt x$r-lft x$l,thin_join)-fine,180); pickup fine.nib;
lft x@0r=tiny.lft x$l; y@0=y$'';
pos@1(vair,90); pos@@'(x@@r-x@@l+tiny,0); z@@'=z@@;
x@1=.5[lft x@0r,lft x@@'l]; bot y@1l=-oo;
(x@,y@1r)=whatever[z@1l,z@0r]; x@1r:=x@;
filldraw stroke z@0e{down}...{left}z@1e
&{{interim superness:=hein_super; super_arc.e(@1,@@')}}; % arch
pickup tiny.nib; filldraw stroke z@@e--z$$e; % right stem
labels(@0); penlabels(@1); enddef;
def raised_h_stroke(suffix $,@,@@,$$) =
penpos$$(x@@r-x@@l,0); x$$=x@@; y$$=.45bar_height;
y@@=1/3[bar_height,x_height];
penpos$''(x$r-x$l,0); x$''=x$; y$''=1/8[bar_height,x_height];
filldraw stroke z$''e--z$e; % thicken the lower left stem
penpos@0(min(rt x$r-lft x$l,thin_join)-fine,180); pickup fine.nib;
rt x@0l=tiny.rt x$r; y@0=y$'';
pos@1(vair,90); pos@@'(x@@r-x@@l+tiny,0); z@@'=z@@;
x@1=.5[rt x@0l,rt x@@'r]; top y@1r=x_height+oo;
(x@,y@1l)=whatever[z@1r,z@0l]; x@1l:=x@;
filldraw stroke z@0e{up}...{right}z@1e
&{{interim superness:=hein_super; super_arc.e(@1,@@')}}; % arch
pickup tiny.nib; filldraw stroke z@@e--z$$e; % right stem
labels(@0); penlabels(@1); enddef;
vardef turned_special_diag_end(suffix $$,$,@,@@) = % for top middle of turned w
if x@l<=x$: diag_end($$r,$r,1,1,@l,@@l)
else: z0=whatever[z$$l,z$l]=whatever[z@l,z@@l];
diag_end($$r,$r,1,1,$l,0)--z0 fi enddef;
def CT(expr $, @) = % Computer modern or Times Roman?
if Times_Compat: @ else: $ fi enddef;
% Redefinition for Times_Compat.
def f_stroke(suffix $,$$,@,left_serif,right_serif)(expr left_jut,right_jut)=
pickup tiny.nib; bot y$=0;
penpos@0(x$r-x$l,0); x@0l=x$l; top y@0=x_height;
filldraw stroke z$e--z@0e; % stem
pickup fine.nib; pos@0'(x$r-x$l-(hround stem_corr)+tiny,180);
y@0'=y@0; lft x@0'r=tiny.lft x$l;
penpos@1(x@0'l-x@0'r,180); x@1=x@0';
y@1+.5vair=if Times_Compat:.33 else:.5 fi[x_height,h];
pos@2(vair,90); top y@2r=h+oo;
if serifs: x@2=.6[x@1,x$$r]; (x@,y@2r)=whatever[z@2l,z@1l];
x@2r:=min(x@,.5[x@2,x$$r]); pos@3(hair,0); bulb(@2,@3,$$); % bulb
filldraw stroke z@0'e--z@1e & super_arc.e(@1,@2); % arc
dish_serif($,@0,left_serif,1/3,left_jut,right_serif,1/3,right_jut); % serif
else: x@2=.6[x@1,x$$]; y@1l:=1/3[y@1l,y@2l];
filldraw stroke z@0'e--z@1e & super_arc.e(@1,@2)
& term.e(@2,$$,right,.9,4); fi % arc and terminal
penlabels(@0,@1,@2); enddef;
def thin_hair = if hair# > 1.5u#: hround(.6hair) else: hair fi enddef;
def side_gap = if Times_Compat: 2.4u else: 2.5u fi enddef;
% end of tipabase.mf