diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/tipa/tipabase.mf')
| -rw-r--r-- | Master/texmf-dist/fonts/source/public/tipa/tipabase.mf | 431 |
1 files changed, 431 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/tipa/tipabase.mf b/Master/texmf-dist/fonts/source/public/tipa/tipabase.mf new file mode 100644 index 00000000000..74c6cce63d5 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/tipa/tipabase.mf @@ -0,0 +1,431 @@ +% 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 |