From 4224749fd1ad4fbd247768561c4a394422870b56 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Mon, 16 Jul 2007 16:11:35 +0000 Subject: new font fge (10jul07) git-svn-id: svn://tug.org/texlive/trunk@4608 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/doc/fonts/fge/README | 20 + Master/texmf-dist/doc/fonts/fge/fge-doc.pdf | Bin 0 -> 43816 bytes .../texmf-dist/fonts/source/public/fge/fgebase.mf | 101 ++ Master/texmf-dist/fonts/source/public/fge/fgeit.mf | 284 ++++ .../texmf-dist/fonts/source/public/fge/fgeit10.mf | 83 ++ Master/texmf-dist/fonts/source/public/fge/fgerm.mf | 1440 ++++++++++++++++++++ .../texmf-dist/fonts/source/public/fge/fgerm10.mf | 83 ++ Master/texmf-dist/fonts/tfm/public/fge/fgeit10.tfm | Bin 0 -> 536 bytes Master/texmf-dist/fonts/tfm/public/fge/fgerm10.tfm | Bin 0 -> 588 bytes Master/texmf-dist/source/fonts/fge/fge.dtx | 297 ++++ Master/texmf-dist/source/fonts/fge/fge.ins | 16 + Master/texmf-dist/tex/latex/fge/Ufgeit.fd | 34 + Master/texmf-dist/tex/latex/fge/Ufgerm.fd | 34 + Master/texmf-dist/tex/latex/fge/fge.sty | 79 ++ Master/tlpkg/tlpsrc/collection-fontsextra.tlpsrc | 1 + Master/tlpkg/tlpsrc/fge.tlpsrc | 2 + 16 files changed, 2474 insertions(+) create mode 100644 Master/texmf-dist/doc/fonts/fge/README create mode 100644 Master/texmf-dist/doc/fonts/fge/fge-doc.pdf create mode 100644 Master/texmf-dist/fonts/source/public/fge/fgebase.mf create mode 100644 Master/texmf-dist/fonts/source/public/fge/fgeit.mf create mode 100644 Master/texmf-dist/fonts/source/public/fge/fgeit10.mf create mode 100644 Master/texmf-dist/fonts/source/public/fge/fgerm.mf create mode 100644 Master/texmf-dist/fonts/source/public/fge/fgerm10.mf create mode 100644 Master/texmf-dist/fonts/tfm/public/fge/fgeit10.tfm create mode 100644 Master/texmf-dist/fonts/tfm/public/fge/fgerm10.tfm create mode 100644 Master/texmf-dist/source/fonts/fge/fge.dtx create mode 100644 Master/texmf-dist/source/fonts/fge/fge.ins create mode 100644 Master/texmf-dist/tex/latex/fge/Ufgeit.fd create mode 100644 Master/texmf-dist/tex/latex/fge/Ufgerm.fd create mode 100644 Master/texmf-dist/tex/latex/fge/fge.sty create mode 100644 Master/tlpkg/tlpsrc/fge.tlpsrc (limited to 'Master') diff --git a/Master/texmf-dist/doc/fonts/fge/README b/Master/texmf-dist/doc/fonts/fge/README new file mode 100644 index 00000000000..77061e31a3e --- /dev/null +++ b/Master/texmf-dist/doc/fonts/fge/README @@ -0,0 +1,20 @@ +This is the fge font, a font of special symbols for setting Frege's +Grundgesetze der Arithmetik and the secondary literature. + +See the file fge-doc.pdf for information on how to access to these +fonts from LaTeX. + +This package contains several characters derived largely from +the Computer Modern fonts, (c) D.E. Knuth. The spritus lenis +accent is a simplified version of that in the Ibycus font +(c) Pierre A. MacKay. The remainder of this work is Copyright +(c) J.J.Green 2007 and subject to the LaTeX Project Public License. +See + + http://www.ctan.org/tex-archive/help/Catalogue/licenses.lppl.html + +Further information on the font can be found at + + http://pdfb.wiredworkplace.net/pub/jjg/code/fge.html + +J.J. Green 2007 diff --git a/Master/texmf-dist/doc/fonts/fge/fge-doc.pdf b/Master/texmf-dist/doc/fonts/fge/fge-doc.pdf new file mode 100644 index 00000000000..aaaeb725b15 Binary files /dev/null and b/Master/texmf-dist/doc/fonts/fge/fge-doc.pdf differ diff --git a/Master/texmf-dist/fonts/source/public/fge/fgebase.mf b/Master/texmf-dist/fonts/source/public/fge/fgebase.mf new file mode 100644 index 00000000000..3b990c9ca67 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/fge/fgebase.mf @@ -0,0 +1,101 @@ +% fgebase.mf : Supplemental defintions for fge +% J.J. Green 2005-2006 +% $Id: fgebase.mf,v 1.7 2007/01/24 00:03:04 jjg Exp $ + +fgebase := 1; + +% vertical versions of knuth's bulb, not sure why need quite +% so many of these + +def vbulb(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{y$r-y$$r,0}...{0,x$r-x$$r}z$r--cycle; % link + path_.r := z$$$l{x$r-x$$r,0}..z$$$r{x$$r-x$r,0}; % near-circle + filldraw path_.r--z$$l{x$$r-x$r,0}..cycle; % bulb + +enddef; + +def dlbulb(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{y$$r-y$r,0}...{0,x$$r-x$r}z$r--cycle; % link + path_.r := z$$$l{x$$r-x$r,0}..z$$$r{x$r-x$$r,0}; % near-circle + filldraw path_.r--z$$l{x$r-x$$r,0}..cycle; % bulb + +enddef; + +def drbulb(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{y$r-y$$r,0}...{0,x$r-x$$r}z$r--cycle; % link + path_.r := z$$$l{x$$r-x$r,0}..z$$$r{x$r-x$$r,0}; % near-circle + filldraw path_.r--z$$l{x$r-x$$r,0}..cycle; % bulb + +enddef; + +% vertical arm + +vardef varm(suffix $,$$,@)(expr darkness,jut) = % arm from |z$| to |z$$| + + y@0=good.y(y$$r-jut); + x@0=x$r; + if serifs: x@1=x$l; z@1=z$$l+whatever*(z$$r-z@0); + z@2=.5[z$l,z@1]; + path p_; p_= 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; + if (x$$>x$) <> (xpart precontrol 1 of p_ > xpart postcontrol 1 of p_): + p_:=z$$l{z@1-z$$l}...darkness[z@1,.5[z@2,z$$l] ] + ---z$l--z$r--z@0--z$$r--cycle; + fi + filldraw p_; % arm and beak + else: + filldraw z$l--z$r--z@0--z$$r--cycle; + fi % sans-serif arm + penlabels(@0,@1,@2); + +enddef; + +% horizontal serifs for rotated characters: here interchange x & y, +% so top is right, left is bot and so on + +vardef hserif(suffix $,$$,@) % serif at |z$| for stroke from |z$$| + (expr darkness,jut) suffix modifier = + pickup crisp.nib; numeric bracket_height; pair downward; + bracket_height=if dark.modifier: 1.5 fi\\ bracket; + if x$x@2: x@2:=x@1; fi + else: + x@2 = max(x$-bracket_height,x$$); + lft x@1+slab = rt x@0-eps = tiny.rt x$; + downward = z$$-z$; + if x@1y@2-eps: y@3:=y@2-eps; fi + fi + pair corner; + xpart corner=x@1; + corner = z@2+whatever*downward; + filldraw + z@2{z$-z$$}...darkness[corner,0.5[z@1,z@2]]{z@1-z@2} + ...{0,jut}z@1--z@0--(x@0,y$)--z@3--cycle; % the serif + labels (@1,@2); +enddef; + diff --git a/Master/texmf-dist/fonts/source/public/fge/fgeit.mf b/Master/texmf-dist/fonts/source/public/fge/fgeit.mf new file mode 100644 index 00000000000..d06e2f83fcd --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/fge/fgeit.mf @@ -0,0 +1,284 @@ +% fgeit.mf : fge italic characters +% J.J. Green 2006 +% $Id: fgeit.mf,v 1.15 2007/04/04 21:47:15 jjg Exp $ + +mode_setup; +font_setup; + +proofing := 2; + +slantfont slantfge; + +% This is an inverted f, but an italic f with a straight +% descending stem rather than the more usual tail. +% As with the inverted d (below) a hook is attached to +% the left. + +cmchar "inverted f with hook"; +beginchar("f",7.5u#,asc_height#,desc_depth#); + italcorr h#*slant + 0.5stem# - 2.5u#; + adjust_fit(serif_fit# + 2stem_shift#,serif_fit# - 2stem_shift#); + + pickup tiny.nib; + + % stem + + pos1(stem',0); pos2(stem',0); + + rt.x1r = hround(w/2 + 5u/4 + stem'/2); + x1 = x2; + top y1 = h; + bot y2 = -1/3d; + + filldraw stroke z1e--z2e; + + % bar + + pos3(bar,90); + pos4(bar,90); + bot y3l = bot y4l = 0; + + rt x4 = hround(w - 1/3u); + x2 - x3 = x4 - x2; + + filldraw stroke z3e--z4e; + + % arc and bulb + + pos5(vair',-90); + pos6(hair,-180); + pos7(flare,-180); + + x5 = 1/2[x2,x6r]; + bot y5r = -d-oo; + y6 = 1/2flair = -0.88d; + z6r = z7r; + rt x7l = floor 11/4u; + + (x,y5r) = whatever[z5l,z2l]; + x5r := max(x,1/2[x6r,x5]); + + filldraw stroke z2e{down}...z5e{left}; + bulb(5,6,7); + + % hook + + pos8(0.5[hair,curve],0); + rt x8r = lft x1l; + y8 = 0.5x_height; + + pos9(curve,90); + top y9r = x_height + oo; + x9 = 0.4[0,x8l]; + + pos10(hair,180); + pos11(hair,-90); + + z9 - z10 = 2.0u*dir(45); + z8 - z11 = 2.0u*dir(55); + + filldraw stroke z11e{right}...z8e{up}...{left}z9e...{down}z10e; + + penlabels(1,2,3,4,5,6,7,8,9,10,11); + +endchar; + +% I'm convinced this is a rotated d, which would explain the +% right serif on the stem. I take the code from itall.mf's p +% but replace the flat serif with the slanted serif of the d. +% This looks a little different to the original, but then the +% d's of the original *do* have a flat serif -- so this is +% needed for consistency with computer modern's d. + +cmchar "inverted d with hook"; +beginchar("p",13u#,asc_height#,desc_depth#); + italcorr 0.7x_height#*slant - u# + 0.5curve#; + adjust_fit(0,0); + + numeric hook_jut; + hook_jut = w - 9u; + + pickup fine.nib; + x0 = hook_jut; + x2 - 0.5stem - hook_jut = hround(2.5u-.5stem); + hook_in(0,1,2); % opening hook + + pos4(hair,-180); + pos5(vair,-90); + pos6(curve,0); + pos7(vair,90); + x4=x2; + rt x6r=hround(w-1.5u+.5curve); + x5=x7=.5[x4,x6]; + bot y5r=-oo; + top y7r=x_height+oo; + y4=y6=.5[y5,y7]; + + filldraw stroke super_arc.e(4,5) & pulled_arc.e(5,6) + & pulled_arc.e(6,7) & super_arc.e(7,4); % bowl + + pickup tiny.nib; + pos2'(stem,0); + pos3(stem,0); + z2=z2'; + x3=x2; + bot y3=-d; + + filldraw stroke z2'e--z3e; % stem + sloped_serif.r(3,2',a,1/3,jut,serif_drop); % serif + + math_fit(-min(2/3x_height#*slant-.5hair#-.5u#, + 2u#-.5stem#-desc_depth#*slant),ic#); + + % bit ad-hoc this + + pos8(hair,0); + z8r=z0l; + + pos9(curve,90); + pos10(hair,180); + + x9 = 1/2[x8,x10]; + y9r = 1/2[x_height,h]; + y10r = 1/4[y9l,y8]; + x8l - lft x10r = hook_jut; + + % filldraw stroke z8e{up}...{left}z9e...{down}z10e; + filldraw stroke super_arc.e(8,9) & super_arc.e(9,10); + + penlabels(0,1,2,3,4,5,6,7,8,9,10); + +endchar; + +cmchar "Overturned lb ligature"; +beginchar(oct "021",12u#,x_height#,desc_depth#); + italcorr 0.7x_height#*slant - 0.5u#; + adjust_fit(0,0); + + pickup crisp.nib; + + slope := 20; + obstem := stem/cosd(slope); + tsep := 3.75*stem; + thair := 0.3[hair,obstem]; + + % 1-2-11-4-5-6 is the left trunk and flourish, 3 is a utility point + + pos1(stem,0); + pos2(obstem,0); + pos4(hair,180-slope); + pos5(hair,-slope); + pos11(thair,90); + + %x1l = 0.5u; + x2 = x1; + bot y1 = y3 = -d; + y2 = 0.70*x_height; + + z2-z3 = whatever*dir(180-slope); + + z4 = 1.13[z3,z2]; + z5 = whatever[z3,z2]; + + x5r = w-0.5u; + x4r = 0.5u; + + % z11 lifts the left stroke + + z11 = 0.5[z2,z4] + whatever*dir(90); + top y11r = x_height + o; + + % z6 might be better half-way between the trunks + + z6 = 0.89[z3,z2]; + pos6(hair,angle(z6-z1)+90); + + filldraw stroke z1e--z2e{z2-z1}..z11e..{z1-z2}z4e..tension(1.0)..z5e{z2-z1}..z6e{z1-z6}; + + penlabels(1,2,3,11,4,5,6); + + % the right trunk with foot + + pos7(stem,0); + pos8(hair,90); + pos9(obstem,0); + pos10(hair,180-slope); + + x7-x1 = x9-x2 = tsep; + y7 = y1; + y9 = y2; + + % the vertical lift point + + x8 = 0.3[x9,x2]; + top y8r = x_height + o; + + z10l = 0.8[z1r,z2r]; + + filldraw stroke z7e--z9e{z9-z7}...z8e{left}..tension(2.0)..{z7-z9}z10e; + + % serif(7,9,a,1/3,cap_jut); + sloped_serif.r(7,9,a,1/3,jut,serif_drop); % serif + + penlabels(7,8,9,10); + +endchar; + +cmchar "inverted F"; +beginchar("F",11.5u#-width_adj#,x_height#,desc_depth#); + italcorr x_height#*slant-cap_jut#+0.5u#; + adjust_fit(0,cap_serif_fit#); + + h := vround(h-stem_corr); + + pickup tiny.nib; + + pos1(cap_stem,0); + pos2(cap_stem,0); + + rt x1r = rt x2r = hround w - max(2u,3u-0.5cap_stem); + top y1 = x_height; + bot y2 = -desc_depth; + + filldraw stroke z1e--z2e; % stem + + pickup crisp.nib; + + pos3(slab,-90); + pos4(hair,180); + + bot y3r = -desc_depth; + x3 = x1; + rt x4r = hround(0.75u); + y4 = good.y(y3r+beak)-eps; + + arm(3,4,e,beak_darkness,beak_jut); % upper arm and beak + + pos5(cap_bar,-90); + pos6(hair,180); + + top y5l = vround(.5[y2,y1]+.5cap_bar); + x5 = x1; + pos0(cap_bar,90); + + pos7(hair,180); + z0 = z5; + x6 = x7; + y6-y5l = y0l-y7; + + rt x6r = hround(4u-.5hair); + y6 = good.y(y5l+.6beak) + eps; + rt x9r = hround(w-.5u); + + arm(5,6,f,beak_darkness,0); + arm(0,7,g,beak_darkness,0); % middle arm and serif + + nodish_serif(1,2,a,1/3,cap_jut,b,1/3,.5cap_jut); % upper serif + dish_serif(2,1,c,1/3,cap_jut,d,1/3,1.25cap_jut); % lower serif + + math_fit(0,ic#-2.5u#); + penlabels(0,1,2,3,4,5,6,7); + +endchar; + +end \ No newline at end of file diff --git a/Master/texmf-dist/fonts/source/public/fge/fgeit10.mf b/Master/texmf-dist/fonts/source/public/fge/fgeit10.mf new file mode 100644 index 00000000000..2f366ea0cdf --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/fge/fgeit10.mf @@ -0,0 +1,83 @@ +% FGE italic 10 point +% this is derived from cmti10.mf by Knuth +% J.J.Green 2006 +% $Id: fgeit10.mf,v 1.2 2007/02/19 23:19:11 jjg Exp $ + +if unknown cmbase: input cmbase fi +if unknown fgebase: input fgebase fi + +font_identifier := "FGEIT"; +font_size 10pt#; + +u# := 18.4/36pt#; % unit width +width_adj# := 0pt#; % width adjustment for certain characters +serif_fit# := 0pt#; % extra sidebar near lowercase serifs +cap_serif_fit# := 5/36pt#; % extra sidebar near uppercase serifs +letter_fit# := 9.2/36pt#; % extra space added to all sidebars + +body_height# := 270/36pt#; % height of tallest characters +asc_height# := 250/36pt#; % height of lowercase ascenders +cap_height# := 246/36pt#; % height of caps +fig_height# := 232/36pt#; % height of numerals +x_height# := 155/36pt#; % height of lowercase without ascenders +math_axis# := 90/36pt#; % axis of symmetry for math symbols +bar_height# := 87/36pt#; % height of crossbar in lowercase e +comma_depth# := 70/36pt#; % depth of comma below baseline +desc_depth# := 70/36pt#; % depth of lowercase descenders + +crisp# := 8/36pt#; % diameter of serif corners +tiny# := 8/36pt#; % diameter of rounded corners +fine# := 7/36pt#; % diameter of sharply rounded corners +thin_join# := 7/36pt#; % width of extrafine details +hair# := 11/36pt#; % lowercase hairline breadth +stem# := 23/36pt#; % lowercase stem breadth +curve# := 28/36pt#; % lowercase curve breadth +ess# := 27/36pt#; % breadth in middle of lowercase s +flare# := 29/36pt#; % diameter of bulbs or breadth of terminals +dot_size# := 38/36pt#; % diameter of dots +cap_hair# := 11/36pt#; % uppercase hairline breadth +cap_stem# := 29/36pt#; % uppercase stem breadth +cap_curve# := 34/36pt#; % uppercase curve breadth +cap_ess# := 31/36pt#; % breadth in middle of uppercase s +rule_thickness# := .4pt#; % thickness of lines in math symbols + +dish# := 1/36pt#; % amount erased at top or bottom of serifs +bracket# := 20/36pt#; % vertical distance from serif base to tangent +jut# := 30/36pt#; % protrusion of lowercase serifs +cap_jut# := 34/36pt#; % protrusion of uppercase serifs +beak_jut# := 9/36pt#; % horizontal protrusion of beak serifs +beak# := 70/36pt#; % vertical protrusion of beak serifs +vair# := 8/36pt#; % vertical diameter of hairlines +notch_cut# := 10pt#; % maximum breadth above or below notches +bar# := 11/36pt#; % lowercase bar thickness +slab# := 11/36pt#; % serif and arm thickness +cap_bar# := 11/36pt#; % uppercase bar thickness +cap_band# := 11/36pt#; % uppercase thickness above/below lobes +cap_notch_cut# := 10pt#; % max breadth above/below uppercase notches +serif_drop# := 4/36pt#; % vertical drop of sloped serifs +stem_corr# := 1/36pt#; % for small refinements of stem breadth +vair_corr# := 1/36pt#; % for small refinements of hairline height +apex_corr# := 0pt#; % extra width at diagonal junctions + +o# := 8/36pt#; % amount of overshoot for curves +apex_o# := 8/36pt#; % amount of overshoot for diagonal junctions + +slant := .25; % tilt ratio $(\Delta x/\Delta y)$ +fudge := 1; % factor applied to weights of heavy characters +math_spread := 0; % extra openness of math symbols +superness := 1/sqrt2; % parameter for superellipses +superpull := 1/6; % extra openness inside bowls +beak_darkness := 11/30; % fraction of triangle inside beak serifs +ligs := 2; % level of ligatures to be included + +square_dots := false; % should dots be square? +hefty := false; % should we try hard not to be overweight? +serifs := true; % should serifs and bulbs be attached? +monospace := false; % should all characters have the same width? +variant_g := true; % should an italic-style g be used? +low_asterisk := false; % should the asterisk be centered at the axis? +math_fitting := true; % should math-mode spacing be used? + +% switch to the driver file + +generate fgeit diff --git a/Master/texmf-dist/fonts/source/public/fge/fgerm.mf b/Master/texmf-dist/fonts/source/public/fge/fgerm.mf new file mode 100644 index 00000000000..c2d829f4f03 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/fge/fgerm.mf @@ -0,0 +1,1440 @@ +% fgerm.mf : fge roman charcters +% J.J. Green 2005-2006 +% $Id: fgerm.mf,v 1.25 2007/06/03 16:07:56 jjg Exp $ + +mode_setup; +font_setup; + +proofing := 2; + +% The Russell class -- the class of all classes which +% are not members of themselves. + +cmchar "Overturned A"; +beginchar("A",13u#,x_height#,desc_depth#); + adjust_fit(cap_serif_fit#,cap_serif_fit#); + + numeric left_stem,right_stem,outer_jut,alpha; + right_stem = cap_stem-stem_corr; + left_stem = min(cap_hair,right_stem); + outer_jut = 0.8cap_jut; + + w-x1l = x4r = l+letter_fit+outer_jut+0.5u; + y1 = y4 = h; + x2-x1 = x4-x3; + x3r = x2r+apex_corr; + y2 = y3 = -d-apex_o-apex_oo; + + alpha = diag_ratio(2,left_stem,y2-y1,x4r-x1l-apex_corr); + penpos1(alpha*left_stem,180); + penpos2(alpha*left_stem,180); + penpos3(alpha*right_stem,180); + penpos4(alpha*right_stem,180); + + z0=whatever[z1r,z2r]=whatever[z3l,z4l]; + + fill z0--diag_end(0,4l,1,1,4r,3r)--diag_end(4r,3r,1,1,2l,1l) + --diag_end(2l,1l,1,1,1r,0)--cycle; + + penpos5(whatever,angle(z2-z1)); z5=whatever[z1,z2]; + penpos6(whatever,angle(z3-z4)); z6=whatever[z3,z4]; + y6 = y5; + y5 = 5/12(h-y0); + y5r-y5l = y6r-y6l = cap_band; + + penstroke z5e--z6e; % bar line + + numeric inner_jut; + + % for the reversed serifs it is easier to introduce + % new control points which are "the right way around" + % since prime_points_inside() and dish_serif() + % have the left & right sides of the points hard-coded + + penpos11(alpha*left_stem,0); + penpos12(alpha*left_stem,0); + z11 = z1; + z12 = z2; + + penpos13(alpha*right_stem,0); + penpos14(alpha*right_stem,0); + z13 = z3; + z14 = z4; + + pickup tiny.nib; + prime_points_inside(11,12); + prime_points_inside(14,13); + + inner_jut = cap_jut; + + dish_serif(11',12,a,0.6,inner_jut,b,1/2,outer_jut)(dark); + dish_serif(14',13,c,1/3,outer_jut,d,1/2,inner_jut); + + penlabels(0,1,2,3,4,5,6); + +endchar; + +% rotated eszett + +beginchar(oct"031",4.5u#+max(4.5u#,.5stem#+flare#+curve#),x_height#,desc_depth#); + adjust_fit(0,serif_fit#); + + pickup tiny.nib; + + pos1(stem',180); + pos2(stem',180); + rt x1l = rt x2l = hround(w-2.5u+.5stem'); + top y1 = h; + y2 = y4 = 0.5[0,y3]; + + penpos3(vair-fine,270); + fine.bot y3r = -d-oo; + + filldraw stroke z1e--z2e; % stem + + numeric stem_edge,curve'; + stem_edge = lft x1r; + curve' = hround .5[stem',curve]; + pickup fine.nib; + pos4(curve',180); + pos5(vair,90); + pos2'(stem',0); + z2' = z2; + x3 = 0.5[x2,x4]; + lft x4r = hround(u); + bot y5l = 0; + rt x5 = hround(stem_edge-u); + filldraw stroke pulled_super_arc.e(2',3)(.5superpull) + & pulled_super_arc.e(3,4)(.5superpull) + & pulled_super_arc.e(4,5)(.5superpull); % upper bowl + + pos5'(vair,270); + z5' = z5; + pos6(curve',180); + pos7(vair,90); + lft x6r = hround(0.5u)+3eps; + y6 = .6x_height; + top y7r = x_height+oo; + pos8(hair,0); + rt x8r = hround(stem_edge-.5u-1); + x7 = 0.4[rt x8r,x6]; + filldraw stroke pulled_super_arc.e(5',6)(.5superpull) + & pulled_super_arc.e(6,7)(.5superpull); % lower bowl + + pos9(5/7[vair,flare],0); + y9-(x9-lft x9r) = vround 0.93x_height; + bulb(7,8,9); % bulb + + % this bar is not in the original + % penpos0(stem'-tiny,0); + % x0 = x1; + % tiny.bot y0 = 0; + % serif(0,1,a,0,jut); % bar + + z11 = z1; + z12 = z2; + penpos11(stem',0); + penpos12(stem',0); + + dish_serif(11,12,b,1/3,-jut,c,0,epsilon); % serif + + penlabels(0,1,2,3,4,5,6,7,8); + +endchar; + +% rotated 2, 3, B, C, taken from romanu.mf +% +% here we use that +% u# := 20/36pt#; +% cap_height# := 246/36pt#; +% fig_height# := 232/36pt# +% and so cap_height/u = 11.6, fig_height/u = 12.3 + +cmchar "downward 2"; +beginchar("2",14u#,x_height#,0); + adjust_fit(0,0); + + numeric arm_thickness, hair_vair; + + hair_vair = 0.25[vair,hair]; + arm_thickness = Vround(if hefty:slab+2stem_corr else:.4[stem,cap_stem] fi); + + pickup crisp.nib; + + pos7(arm_thickness,0); + pos8(hair,90); + rt x7r = hround(w-0.9u); + bot y7 = 0; + top y8r = h+o/2; + x8 = good.x(x7l-beak/2) - eps; + + varm(7,8,a,0.3beak_darkness,beak_jut); % arm and beak + + pickup fine.nib; + + pos2(slab,180); + pos3(.4[curve,cap_curve],90); + + lft x2r = 0.9u; + y2 = h/2; + top y3r = h+o/2; + x3 = x0; + + numeric bulb_diam; + bulb_diam=hround(flare+2/3(cap_stem-stem)); + + pos0(bulb_diam,-90); + pos1(cap_hair,-90); + + bot y0r = -o/2; + x1 + 0.5 bulb_diam = 1/3(w-1.8u) + 0.9u; + %(x2l,y) = whatever[z1l,z2r]; + %y2l := y; + dlbulb(2,1,0); % bulb and arc + + pos4(0.25[hair_vair,cap_stem],90); + pos5(hair_vair,90); + pos6(hair_vair,90); + + x5 + arm_thickness = w - 0.9u; + x4 = 0.3[x5,x3]; + rt x6 = w - 0.9u - slab; + bot y6 = crisp.bot y7; + + z4l = whatever[z6l,(0.50w,y3l)]; + z5l = whatever[z6l,z4l]; + + % erase excess at left + erase fill z4l--z6l--bot z6l--(x4l,bot y6l)--cycle; + + % stroke + filldraw stroke z2e{up}..tension atleast .9 and atleast 1 + ..z3e{right}..{z5e-z4e}z4e--z5e--z6e; + + penlabels(0,1,2,3,4,5,6,7,8); +endchar; + +cmchar "upward 2"; +beginchar("4",14u#,x_height#,0); + adjust_fit(0,0); + + numeric arm_thickness, hair_vair; + + hair_vair = 0.25[vair,hair]; + arm_thickness = Vround(if hefty:slab+2stem_corr else:.4[stem,cap_stem] fi); + + pickup crisp.nib; + + pos7(arm_thickness,180); + pos8(hair,-90); + lft x7r = hround(0.9u); + top y7 = h; + bot y8r = -o/2; + x8 = good.x(x7l+beak/2) + eps; + + varm(7,8,a,.3beak_darkness,-beak_jut); % arm and beak + + pickup fine.nib; + + pos2(slab,0); + pos3(.4[curve,cap_curve],-90); + + rt x2r = w-0.9u; + y2 = h/2; + bot y3r = -o/2; + x3 = x0; + + numeric bulb_diam; + bulb_diam=hround(flare+2/3(cap_stem-stem)); + + pos0(bulb_diam,90); + pos1(cap_hair,90); + + top y0r = h+o/2; + x1 - 0.5 bulb_diam = 2/3(w-1.8u) + 0.9u; + %(x2l,y) = whatever[z1l,z2r]; + %y2l := y; + dlbulb(2,1,0); % bulb and arc + + pos4(0.25[hair_vair,cap_stem],-90); + pos5(hair_vair,-90); + pos6(hair_vair,-90); + + x5 = arm_thickness + 0.9u; + x4 = 0.3[x5,x3]; + lft x6 = 0.9u + slab; + top y6 = crisp.top y7; + + z4l = whatever[z6l,(0.50w,y3l)]; + z5l = whatever[z6l,z4l]; + + erase fill z4l--z6l--top z6l--(x4l,top y6l)--cycle; + + % stroke + filldraw stroke z2e{down}..tension atleast .9 and atleast 1 + ..z3e{left}..{z5e-z4e}z4e--z5e--z6e; + + penlabels(0,1,2,3,4,5,6,7,8); +endchar; + +cmchar "downward 3"; +beginchar("3",14u#,x_height#,0); + adjust_fit(0,0); + + numeric top_thickness,mid_thickness,bot_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)); + + pickup fine.nib; + + pos2(top_thickness,180); + lft x2r = 0.9u; + + pos3(max(fine.breadth,.6[curve,cap_curve]-stem_corr),90); + top y3r=hround(h-0.75u+o); + + pos4(vair,0); + pos5(vair,0); + pos6(mid_thickness,180); + y2 = y6 = y8 = 0.5[0.75u,y7]; + + pos7(cap_curve,90); + top y7r = hround(h+o); + bot y5 = min(vround 3u,bot y6)-eps; + + pos8(bot_thickness,0); + rt x8r = w-0.9u; + + x3 = 0.55[lft x4l,rt x2l]; + x7 = 0.5[lft x6l,rt x8l]; + lft x5l = hround(0.9u+.46(w-1.8u)-0.5vair); + + x5r = x6l; + + y4 = 1/3[y5,y3l]; + z4 = z5 + whatever*(-0.1fig_height,15u); + + filldraw stroke pulled_super_arc.e(2,3)(.5superpull) + & z3e{right}...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 + + numeric bulb_diam[]; + + bulb_diam1 = flare + 0.5(cap_stem-stem); + bulb_diam2 = flare + cap_stem-stem; + + pos0(bulb_diam1,-90); + pos1(hair,-90); + lft y0r = hround 0.25u; + x0 = x3; + + dlbulb(2,1,0); % upper bulb + + pos10(bulb_diam2,270); + pos9(cap_hair,-90); + bot y10r = hround(-0.25u); + + x10 = 0.9u + 0.7(w-1.8u) + 0.5bulb_diam2; + + drbulb(8,9,10); % lower bulb + + penlabels(0,1,2,3,4,5,6,7,8,9,10); +endchar; + +cmchar "upward B"; +beginchar("D",13u#,x_height#,0); + + numeric left_stem,right_curve,middle_weight; + left_stem = cap_stem - hround 2stem_corr; + middle_weight = 0.6vair + 0.5; + + pickup tiny.nib; + + pos1(left_stem,-90); + pos2(left_stem,-90); + bot y1r = bot y2r = 0; + lft x1 = u; + rt x2 = w-u; + filldraw stroke z1e--z2e; % stem + + penpos3(cap_band,180); + penpos4(cap_band,180); + penpos6(middle_weight,0); + penpos7(middle_weight,0); + penpos8(middle_weight,180); + penpos9(middle_weight,180); + penpos5(right_curve-stem_corr,90); + penpos10(right_curve,90); + penpos11(cap_band,0); + penpos12(cap_band,0); + + z3r = lft z1; + x4 = x3; + x5 = 0.5[x4,x6]; + x6 = x7; + x8l-x7l = vair; + z12r = rt z2; + x11 = x12; + x10 = 0.5[x11,x9]; + x8 = x9; + 0.5[x7l,x8l] = u+0.48(w-2u); + y4 = y6; + y9 = y11 = y4+0.5u; + y7 = y8 = y1; + y9l := y4+0.25u; + y5r = vround(h+o-0.5u); + y10r = vround(h+o); + + right_curve = cap_curve-stem_corr; + y4 = 0.45[y1,h+o]; + + y6l := y6l-0.5u; + y11l := y11l-0.5u; + + fill stroke z3e..super_arc.e(4,5) & super_arc.e(5,6)..z7e; % upper lobe + fill stroke z8e..super_arc.e(9,10) & super_arc.e(10,11)..z12e; % lower lobe + + hserif(1,2,a,1/3,-cap_jut); + hserif(1,2,b,1/3,1/2cap_jut); + hserif(2,1,c,1/3,-cap_jut); + hserif(2,1,d,1/3,1/2cap_jut); + + math_fit(0,0.5ic#); + penlabels(1,2,3,4,5,6,7,8,9,10,11,12); + +endchar; + +cmchar "downward B"; +beginchar("B",13u#,x_height#,0); + + numeric left_stem,right_curve,middle_weight; + left_stem = cap_stem - hround 2stem_corr; + middle_weight = 0.6vair + 0.5; + + pickup tiny.nib; + + pos1(left_stem,-90); + pos2(left_stem,-90); + top y1l = top y2l = h; + rt x1 = w-u; + lft x2 = u; + filldraw stroke z1e--z2e; % stem + + penpos3(cap_band,0); + penpos4(cap_band,0); + penpos6(middle_weight,180); + penpos7(middle_weight,180); + penpos8(middle_weight,0); + penpos9(middle_weight,0); + penpos5(right_curve-stem_corr,-90); + penpos10(right_curve,-90); + penpos11(cap_band,180); + penpos12(cap_band,180); + + z3r = rt z1; + x4 = x3; + x5 = 0.5[x4,x6]; + x6 = x7; + x7l-x8l = vair; + z12r = lft z2; + x11 = x12; + x10 = 0.5[x11,x9]; + x8 = x9; + 0.5[x7l,x8l] = u+0.52(w-2u); + y4 = y6; + y9 = y11 = y4-0.5u; + y7 = y8 = y1; + y9l := y4+0.25u; + y5r = vround(0.5u-o); + y10r = vround(-o); + + right_curve = cap_curve-stem_corr; + y4 = 0.45[y1,-o]; + + y6l := y6l+0.5u; + y11l := y11l+0.5u; + + fill stroke z3e..super_arc.e(4,5) & super_arc.e(5,6)..z7e; % upper lobe + fill stroke z8e..super_arc.e(9,10) & super_arc.e(10,11)..z12e; % lower lobe + + hserif(1,2,a,1/3,cap_jut); + hserif(1,2,b,1/3,-1/2cap_jut); + hserif(2,1,c,1/3,cap_jut); + hserif(2,1,d,1/3,-1/2cap_jut); + + math_fit(0,0.5ic#); + penlabels(1,2,3,4,5,6,7,8,9,10,11,12); + +endchar; + +% unlike the others there is no way to squeeze the +% rotated C to an x-height character, nor cap-height. +% So although on the baseline, this rather awkwardly +% ascends half way between them + +cmchar "upward C"; +beginchar("C",13u#,cap_height#,0); + adjust_fit(0,0); + + pickup fine.nib; + + pos1(cap_hair,90); + pos2(cap_band,180); + pos3(cap_curve,-90); + pos4(cap_band,0); + pos5(hair,90); + + top y1r = top y5r = 0.5[x_height,h]; + bot y3r = -o; + y2 = y4 = 0.55[y3,y1]; + + lft x2r = u; + rt x4r = hround(w-u); + x3 = 0.5[x2,x4]; + + rt x1 = u + 0.4(w-2u); + lft x5 = w - u - 0.95(x1-u); + (x2l,y2l') = whatever[z2r,z1l]; y2l := min(y2l',y2l+.5u); + (x4l,y4l') = whatever[z4r,z5l]; y4l := min(y4l',y4l+.5u); + filldraw stroke z1e{10(x2-x1),y2-y1} + ...pulled_arc.e(2,3) & pulled_arc.e(3,4)...{left}z5e; % arc + + pos6(0.3[fine.breadth,cap_hair],90); + y6r = y1r; + lft x6 = u; + y1r-y1'=2cap_curve-fine; + x1'=x1; + + path upper_arc; + + upper_arc=z1{10(x2-x1),y2-y1}..z2{down}; + + numeric t; + + t = xpart(upper_arc intersectiontimes (z6l--z1')); + + filldraw z1r--z6r--z6l--subpath(t,0) of upper_arc--cycle; % barb + + math_fit(-.3cap_height#*slant-.5u#,.5ic#); + penlabels(1,1',2,3,4,5,6); +endchar; + +% fletched arrows, which are 4u longer than the cm +% right and up arrows. These are not identical -- the +% head on the upward arrow is slighty wider than the +% rightward + +numeric fwdt,fjut,fang; + +fwdt := 2/3 rule_thickness; +fjut := 1.3; +fang := 60; + +vardef fletch(suffix $,$$,@) = + fletchLR($,$$,@,fang,90,fwdt,fjut); + fletchLR($,$$,@',-fang,-90,fwdt,fjut); +enddef; + +vardef fletchLR(suffix $,$$,@)(expr a,r,wdt,len) = + numeric b,c; + b := angle(z$$-z$); + z@1 = z$ + len * ((z$$-z$) rotated a); + z@2 = z@1 + whatever*((z$ - z@1) rotated r); + z@2 = z$$ + whatever*((z$$ - z$) rotated a); + z@3 = z@4 = z$; + c := angle(z@1-z@2); + penpos@1(wdt,c); + penpos@2(wdt,c+180); + penpos@3(wdt,b-r); + penpos@4(wdt,b+180); + penstroke z@4e--z@1e...z@2e{z$-z@1}...{z$-z$$}z@3e; + penlabels(@1,@2,@3); +enddef; + +cmchar "Upward arrow with fletching"; +beginchar(oct "042",8u#,asc_height#+2u#,asc_depth#+2u#); + adjust_fit(0,0); + + pickup crisp.nib; + + pos1(rule_thickness,0); + pos2(rule_thickness,0); + pos3(rule_thickness,90); + pos4(rule_thickness,90); + + numeric headh,headw; + + headw := (w-u)/2+eps; + headh := 0.36*w/(9u)*asc_height+eps; + + lft x1l = hround(0.5w - 0.5rule_thickness); + + x0 = x1 = x2; + top y0 = h; + x0-x3 = x4-x0 = headw; + y3 = y4 = y0 - headh; + + pos5(rule_thickness,angle(z4-z0)); + z5l=z0; + + pos6(rule_thickness,angle(z3-z0)); + z6l=z0; + z9 = 0.2[0.5[z3,z4],z0]; + + numeric rake; + + rake = y5l - y3r; + + y1 - 0.5 rule_thickness - rake = -d; + + numeric t; path p; + + p=z4l{z9-z4}..z6r; + t=xpart(p intersectiontimes((x2r,-d)--(x2r,h))); y2=ypart point t of p; + + filldraw z0..{z4-z9}z4r--subpath (0,t) of\\(z4l{z9-z4}..z6r) + ---z1r---z1l---subpath (t,0) of\\(z3l{z9-z3}..z5r) + --z3r{z9-z3}..z0 & cycle; % arrowhead and stem + + penlabels(0,2,3,4,5,6,9); + + % fletching + + x10 = x11 = x12 = x13 = x1; + y11-y10 = y12-y11 = y13-y12 = 3/5rake; % fletch separation + y11 = y1; + + fletch(11,10,a); + fletch(12,11,b); + fletch(13,12,c); + + labels(10,11,12,13); + +endchar; + +cmchar "Rightward arrow with fletching"; +compute_spread(0.45x_height#,0.55x_height#); +beginchar(oct "041",22u#,v_center(spread#+rule_thickness#)); + adjust_fit(0,0); + + pickup crisp.nib; + + pos1(rule_thickness,90); + pos2(rule_thickness,90); + pos3(rule_thickness,0); + pos4(rule_thickness,0); + + y0 = y1 = y2 = math_axis; + rt x0 = hround(w-u); + + numeric headw,headh; + + headw = 0.26 asc_height+eps; + headh = 4u + eps; + + y3-y0 = y0-y4 = headw; + x3 = x4 = x0 - headh; + + pos5(rule_thickness,angle(z4-z0)); + pos6(rule_thickness,angle(z3-z0)); + + z5l = z0; + z6l = z0; + z9 = 0.2[0.5[z3,z4],z0]; + + numeric rake; + + rake = x5l - x3r; + + x1 = hround(2u + 3/5rake); + + numeric t; path p; p=z4l{z9-z4}..z6r; + + t=xpart(p intersectiontimes((0,y2l)--(w,y2l))); x2=xpart point t of p; + + filldraw z0..{z4-z9}z4r--subpath (0,t) of\\(z4l{z9-z4}..z6r) + ---z1l---z1r---subpath (t,0) of\\(z3l{z9-z3}..z5r) + --z3r{z9-z3}..z0 & cycle; % arrowhead and stem + + penlabels(0,1,2,3,4,5,6,9); + + % fletching + + y10 = y11 = y12 = y13 = math_axis; + + x11-x10 = x12-x11 = x13-x12 = 3/5rake; + x11 = hround x1; + + fletch(11,10,a); + fletch(12,11,b); + fletch(13,12,c); + + labels(10,11,12,13); + +endchar; + +% these struckout numerals are lifted directly from +% romand.mf, with the strikeout added at the end + +cmchar "Reverse struckout 0"; +beginchar("0",9u#,fig_height#,0); + adjust_fit(0,0); + + penpos1(vair,90); + penpos3(vair,-90); + penpos2(curve,180); + penpos4(curve,0); + + interim superness := sqrt(more_super*hein_super); + + x2r = hround max(.7u,1.45u-.5curve); + x4r = w-x2r; + x1 = x3 = 0.5w; + y1r = h+o; + y3r = -o; + y2=y4 = 0.5h-vair_corr; + y2l := y4l := 0.52h; + + 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); + + % the strikeout + + pickup rule.nib; + + bot y5 = 0; + top y6 = y1r + y3r; + x5 = x4r; + x6 = x2r; + + draw z5--z6; + labels(5,6); + +endchar; + +cmchar "Reverse struckout 1"; +beginchar("1",9u#,fig_height#,0); + adjust_fit(0,0); + + numeric light_stem; + light_stem=hround .4[stem',cap_stem']; + + pickup tiny.nib; + pos1(light_stem,0); + pos2(light_stem,0); + + lft x1l=lft x2l=hround(.5(w+.5u)-.5cap_stem'); + top y1=h+o; + bot y2=0; + + filldraw stroke z1e--z2e; % stem + + if not serifs: save slab; slab=bar; fi + + dish_serif(2,1,a,1/3,min(2.25u,lft x2l-1.5u), + b,1/3,min(2.25u,w-1.25u-rt x2r)); % serif + + pickup crisp.nib; + + pos3(slab,-90); + pos4(bar,-90); + + top y3l=h+o; + top y4l=if monospace: .8 else: .9 fi\\ h+o; + + lft x4=max(1.25u,tiny.lft x1l-2.35u); + tiny.rt x1r=lft x3+.25[tiny,hair]; + + erase fill z3l{x4l-x3l,3(y4l-y3l)}...z4l{left} + --(x4l,h+o+1)--(x3l,h+o+1)--cycle; % erase excess at top + + filldraw stroke z3e{x4e-x3e,3(y4e-y3e)}..z4e{left}; % point + + penlabels(1,2,3,4); + + % the strikeout -- possible raise z6 a little + + pickup rule.nib; + + y4r - top y5 = bot y6 - y2; + top y5 = x_height; + x5 = w-x6 = x4; + + draw z5--z6; + + labels(5,6); + +endchar; + +% this is used with \mathaccent, but unlike the computer modern +% math accents it starts on the baseline, rather than at x_height. +% Knuth uses some dark magic in the cm sources to place this +% correctly with respect to the character to be accented, I couldn't +% reproduce it. So, this is like the cm accents, but with x_height +% subtracted from the heights +% +% This rather nice version (much better than my effort) was taken +% from ibyacc4.mf, part of the ibycus font for classical greek by +% Pierre A. MacKay, from work by Silvio Levy's realization of a +% classic Didot cut of Greek type from around 1800. + +def smooth(suffix $,@)(expr dot_size,depth,shear) = + pickup fine.nib; + + pos$(dot_size,90); + pos@1(vair,90); + pos@2(vair,0); + pos@3(vair,-90); + + z@1r = z$r; + y@1l := y$; + rt x@2r = hround(x$+0.5depth+0.5shear); + x@3-0.5vair = hround(x$-0.5dot_size+shear); + y@2 = .5[y@1,y@3]; + bot y@3r = vround(top y@1r-depth); + + path pp; pp = (z@2{down}...z@3); + + % position a vertical path through the right side of the bulb + x@1' = x@1+.05dot_size; + + % At the intersection of that path with SL's tail, get the direction + pair d@@; d@@=( direction + (xpart( (z@2{down}...z@3) intersectiontimes ((x@1',0){up}--(x@1',y@1)))) + of (z@2{down}...z@3)); + + % Tilt a pen at a right angle to that direction + pos@3'(vair,angle(d@@)+90); + + % Place it at the intersection. This will be the new end of the tail. + z@3' = directionpoint d@@ of(z@2{down}...z@3); + 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{right}...z@2e{down}...{d@@}z@3'e; + + penlabels(@1,@2,@3); +enddef; + +cmchar "Spiritus Lenis accent (tailed)"; +beginchar(oct "025",9u#,min(asc_height#-x_height#,x_height#),0); + + adjust_fit(0,0); + + numeric dot_diam#; + dot_diam# = 3/4dot_size#; + define_whole_blacker_pixels(dot_diam); + + x1 = 0.5w - o; + y1 = h; + + smooth(1,a,dot_size,3/4h,0); + +endchar; + +% this is my effort -- closer to the form used by Pohl, +% a blunted crecent. + +cmchar "Spiritus Lenis accent (crescent)"; +beginchar(oct "026",9u#,min(asc_height#-x_height#,x_height#),0); + + numeric rake; + + rake = 10; + + penpos1(hair,270+rake); + penpos2(0.3[hair,stem],180); + penpos3(hair,90-rake); + + x1 = x3 = 0.5w - o; + y1 = h; + y3l = max(h/3,o+hair); + y2+y2 = y1+y3; + x2 - x1 = 0.65*(y1-y3); + + penstroke z1e{dir(rake)}..z2e..{dir(180-rake)}z3e; + + penlabels(1,2,3); + +endchar; + + +% This is the archaic long s with mid bar, used by +% Frege as the successor functon. The upright stroke +% is that of Computer Modern's f, but the bar runs +% along the math-axis rather than the x-height. + +cmchar "Long s with midline bar"; +beginchar("s",5.5u#,asc_height#,0); + adjust_fit(0,0); + + pickup tiny.nib; + pos1(stem',0); + lft x1l = hround(2.5u-0.5stem'); + + pickup fine.nib; + numeric bulb_diam; + bulb_diam = hround 0.8[stem,flare]; + pos2(bulb_diam,0); + y2 + 0.5bulb_diam = 0.9[x_height,h+oo]; + lft x2l = hround(w-0.75u+0.5); + + f_stroke(1,2,a,b,c,jut,1.25jut); + + pickup crisp.nib; + pos3(bar,90); + pos4(bar,90); + y3 = y4 = math_axis; + lft x3 = hround(0.5u - 1); + rt x4 = hround(w - 1/3u); + + filldraw stroke z3e--z4e; + + penlabels(1,2,3,4); + +endchar; + +cmchar "Roman U with flourish"; +beginchar("U",15u#,cap_height#,desc_depth#); + adjust_fit(cap_serif_fit#,cap_serif_fit#); + + numeric colsep; + + % distance between columns + + colsep := 0.20h; + + pickup fine.nib; + + % 4-1-2-3-5 is the main part of the U + + pos1(cap_stem,180); + pos2(0.25[cap_hair,cap_stem],270); + pos3(cap_hair,0); + pos4(cap_stem,180); + pos5(cap_hair,0); + + x1r = w-x3r; + x3l - x1l = colsep; + + x4 = x1; + x3 = x5; + + x2 = 0.5(x1l+x3l); + y1 = y3 = 0.5(x3-x1)-d; + y2r = -d-o; + + % 6 & 7 control the bulb on the right arm of the U + % note that the top of the bulb is aligned with the + % height, not h+o -- that is on purpose + + pos6(cap_hair,270); + pos7(cap_stem,90); + + y4l = 0.72h; + y5l = 0.82h; + + x6 = x5 + 0.6colsep; + y6l = h; + + filldraw stroke z4e..z1e{down}..z2e{right}..z3e{up}..z5e; + vbulb(5,6,7); + + % 9-10-11-12 is the flourish + + pos9(cap_hair,270); + + bot y9r = bot y10r = 0; + x9l = w-x10r = 0.5u; + + pos11(cap_hair,50); + pos12(0.25[cap_hair,cap_stem],270); + + x11l = x12 = x4 - 0.9colsep; + y11 = y4; + y12l = h+o; + + z11l-z10l = whatever*(z11r-z10r); + z9l-z10l = whatever*(z9r-z10r); + + z10 = 0.5[z10l,z10r]; + + % the curved stroke from the left arm of the U + + filldraw stroke z4e{up}..{left}z12e..{z10-z11}z11e; + + % the flourish itself + + filldraw stroke z9e--z10e; + filldraw stroke z10e--z11e; + + penlabels(1,2,3,4,5,6,7,9,10,11,12); + +endchar; + +% overturned c with spur; this is a modified version of +% the code in romanl.mf +% +% not sure I'm entirely happy with the spur + +cmchar "Overturned c with spur"; +beginchar("c",8u#,asc_height#,0); + adjust_fit(0,0); + + pickup fine.nib; + + pos2(vair',270); + pos4(vair',90); + + x2 = x4 = 0.5(w-u); + bot y2r = -oo; + top y4r = vround(x_height + 1.5oo); + + pos3(curve,0); + + rt x3r = w - hround max(0.6u,1.35u - 0.5curve); + y3 = 0.5x_height; + + pos1(hair,180); + pos0(flare,180); + + y1 = x_height - + min(bar_height + 0.5flare + 2vair' + 2, + 0.9[bar_height,x_height] - 0.5flare); + + lft x1r = 0.7u; + + bulb(2,1,0); + + pos5(hair,180); + lft x5r = 0.5u; + y5 = x_height - max(good.y(0.5bar_height-0.9),x_height-y4l-vair'); + (x,y4l) = whatever[z4r,z5l]; + x4l := min(x,x4l+.5u); + + filldraw stroke pulled_super_arc.e(2,3)(0.7superpull) + & pulled_super_arc.e(3,4)(0.5superpull) + ..tension .9 and 1..{x5-x4,5(y5-y4)}z5e; + + path pth; + numeric tp,theta; + + theta = 25; + + pos6(stem,theta-90); + pos7(hair,90+theta); + + top y6l = asc_height; + + pth = z4{left}..tension .9 and 1..{x5-x4,5(y5-y4)}z5; + + z7 = directionpoint dir(180+theta) of pth; + x6 = x7; + + filldraw stroke z7e{dir(theta)}..{dir(180+theta)}z6e; + + penlabels(0,1,2,3,4,5,6,7); + +endchar; + +cmchar "Overturned e with spur"; +beginchar("e",7.25u#+max(0.75u#,0.5curve#),asc_height#,0); + adjust_fit(0,0); + + numeric left_curve,right_curve,rbar_height; + + rbar_height = x_height - bar_height; + + left_curve + 6stem_corr = right_curve = curve; + + if right_curve Question mark \? +%% Commercial at \@ Left bracket \[ Backslash \\ +%% Right bracket \] Circumflex \^ Underscore \_ +%% Grave accent \` Left brace \{ Vertical bar \| +%% Right brace \} Tilde \~} +% +% \iffalse % this is a METACOMMENT ! +% +%\NeedsTeXFormat{LaTeX2e} +%\ProvidesPackage{fge} +%\ProvidesFile{fgerm.fd}% +%\ProvidesFile{fgeit.fd}% +%<-driver> [2007/06/03 1.21 +% fge symbol support package] +% fge roman symbol font definitions] +% fge italic symbol font definitions] +% +%<*driver> +\documentclass{ltxdoc} +\OnlyDescription +\usepackage{multicol} +\usepackage{fge} +\providecommand\dst{\expandafter{\normalfont\scshape docstrip}} +\renewcommand{\quad}{{\hskip1em plus 2em}} +\begin{document} + \DocInput{fge.dtx} +\end{document} +% +% \fi +% +% \GetFileInfo{fge.sty} +% \title{The \texttt{fge} macro package for \LaTeXe} +% \author{J.J. Green} +% \date{Version \fileversion{} \filedate} +% \maketitle +% +% \setcounter{StandardModuleDepth}{1} +% +% \begin{quote} +% \noindent The comfort of the typesetter is certainly not +% the \textit{summum bonum}. +% +% \hfill\textsc{G.~Frege, 1896.} +% \end{quote} +% +% \noindent +% This file defines the package |fge| which provides \LaTeXe\ access +% to the characters from the \texttt{fge} fonts. These are +% based on Knuth's Computer Modern and specifically designed for setting +% the \textit{Grundgesetze der Arithmetik}, the culmination of Frege's +% logicist project. +% +% \begin{multicols}{2} +% +% \subsubsection*{Spiritus lenis} +% The spiritus lenis accent is available as +% \begin{quote} +% |\spirituslenis{\alpha}| +% \end{quote} +% giving $\spirituslenis{\alpha}$, $\spirituslenis{\beta}$, +% $\spirituslenis{\gamma}$, $\spirituslenis{\delta}$, +% $\spirituslenis{\varepsilon}$,\ldots +% +% \subsubsection*{Lazy capitals and numerals} +% \begin{quote} +% \begin{tabular}{lc} +% |\fgerighttwo| & $\fgerighttwo$ \\ +% |\fgerightB| & $\fgerightB$ \\ +% |\fgelefttwo| & $\fgelefttwo$ \\ +% |\fgeleftthree| & $\fgeleftthree$ \\ +% |\fgeleftB| & $\fgeleftB$ \\ +% |\fgeleftC| & $\fgeleftC$ +% \end{tabular} +% \end{quote} +% +% \subsubsection*{Overturned romans} +% \begin{quote} +% \begin{tabular}{lc} +% |\fgec| & $\fgec$ \\ +% |\fgee| & $\fgee$ \\ +% |\fgeeszett| & $\fgeeszett$ \\ +% |\fgeA| & $\fgeA$ +% \end{tabular} +% \end{quote} +% +% \subsubsection*{Overturned italics} +% \begin{quote} +% \begin{tabular}{lc} +% |\fged| & $\fged$ \\ +% |\fgef| & $\fgef$ \\ +% |\fgeF| & $\fgeF$ \\ +% \end{tabular} +% \end{quote} +% +% \subsubsection*{Struckout numerals} +% \begin{quote} +% \begin{tabular}{lc} +% |\fgestruckzero| & $\fgestruckzero$ \\ +% |\fgestruckone| & $\fgestruckone$ +% \end{tabular} +% \end{quote} +% +% \subsubsection*{Fletched arrows} +% \begin{quote} +% \begin{tabular}{lc} +% |\fgerightarrow| & $\fgerightarrow$ \\ +% |\fgeuparrow| & $\fgeuparrow$ +% \end{tabular} +% \end{quote} +% +% \subsubsection*{Cups, caps and bars} +% \begin{quote} +% \begin{tabular}{lc} +% |\fgeupbracket| & $\fgeupbracket$ \\ +% |\fgecap| & $\fgecap$ \\ +% |\fgecup| & $\fgecup$ \\ +% |\fgecupbar| & $\fgecupbar$ \\ +% |\fgecapbar| & $\fgecapbar$ \\ +% |\fgebarcap| & $\fgebarcap$ \\ +% |\fgecupacute| & $\fgecupacute$ \\ +% |\fgebaracute| & $\fgebaracute$ +% \end{tabular} +% \end{quote} +% +% \subsubsection*{Erratics} +% \begin{quote} +% \begin{tabular}{lc} +% |\fgeU| & $\fgeU$ \\ +% |\fgelb| & $\fgelb$ \\ +% |\fgeinfty| & $\fgeinfty$ \\ +% |\fgelangle| & $\fgelangle$ \\ +% |\fges| & $\fges$ \\ +% |\fgebackslash| & $\fgebackslash$ +% \end{tabular} +% \end{quote} +% +% \end{multicols} +% +% \StopEventually{} +% +% \section{The \dst{} modules} +% +% The following modules are used in the implementation to direct +% \dst{} in generating the external files: +% \begin{center} +% \begin{tabular}{ll} +% driver & produce a documentation driver file \\ +% package & produce a package file \\ +% fdrm & produce a roman font definition file \\ +% fdit & produce an italic font definition file \\ +% \end{tabular} +% \end{center} +% +% \section{The Implementation} +% \subsection{The macro package} +% +%<*package> +% Setup the |crescent| option, which selects the crescent +% variant of the spiritus lenis. +\newif\ifcrescent +\crescentfalse +\DeclareOption{crescent}{\global\crescenttrue} +\ProcessOptions\relax +% We declare \texttt{fgerm} and \texttt{fgeit} math symbol fonts: +% \begin{macrocode} +\DeclareSymbolFont{fgerm}{U}{fgerm}{m}{n} +\DeclareSymbolFont{fgeit}{U}{fgeit}{m}{n} +% \end{macrocode} +% +% The special symbols: +% \begin{macrocode} +\DeclareMathSymbol{\fgelb}{\mathord}{fgeit}{"11} +\DeclareMathSymbol{\fgeF}{\mathbin}{fgeit}{"46} +\DeclareMathSymbol{\fgevareta}{\mathord}{fgerm}{"11} +\DeclareMathSymbol{\fgeeszett}{\mathbin}{fgerm}{"19} +\DeclareMathSymbol{\fgerightarrow}{\mathrel}{fgerm}{"21} +\DeclareMathSymbol{\fgeuparrow}{\mathrel}{fgerm}{"22} +\DeclareMathSymbol{\fgestruckzero}{\mathord}{fgerm}{"30} +\DeclareMathSymbol{\fgestruckone}{\mathord}{fgerm}{"31} +\DeclareMathSymbol{\fgelefttwo}{\mathbin}{fgerm}{"32} +\DeclareMathSymbol{\fgeleftthree}{\mathbin}{fgerm}{"33} +\DeclareMathSymbol{\fgerighttwo}{\mathbin}{fgerm}{"34} +\DeclareMathSymbol{\fgeA}{\mathord}{fgerm}{"41} +\DeclareMathSymbol{\fgerightB}{\mathbin}{fgerm}{"42} +\DeclareMathSymbol{\fgeleftC}{\mathbin}{fgerm}{"43} +\DeclareMathSymbol{\fgeleftB}{\mathbin}{fgerm}{"44} +\DeclareMathSymbol{\fgebackslash}{\mathord}{fgerm}{"4B} +\DeclareMathSymbol{\fgeupbracket}{\mathord}{fgerm}{"4C} +\DeclareMathSymbol{\fgebaracute}{\mathord}{fgerm}{"4D} +\DeclareMathSymbol{\fgecup}{\mathord}{fgerm}{"4E} +\DeclareMathSymbol{\fgebarcap}{\mathord}{fgerm}{"4F} +\DeclareMathSymbol{\fgecupbar}{\mathord}{fgerm}{"50} +\DeclareMathSymbol{\fgecapbar}{\mathord}{fgerm}{"51} +\DeclareMathSymbol{\fgecupacute}{\mathord}{fgerm}{"52} +\DeclareMathSymbol{\fgecap}{\mathord}{fgerm}{"53} +\DeclareMathSymbol{\fgeU}{\mathord}{fgerm}{"55} +\DeclareMathSymbol{\fgec}{\mathbin}{fgerm}{"63} +\DeclareMathSymbol{\fgee}{\mathbin}{fgerm}{"65} +\DeclareMathSymbol{\fgef}{\mathord}{fgeit}{"66} +\DeclareMathSymbol{\fgelangle}{\mathbin}{fgerm}{"68} +\DeclareMathSymbol{\fgeinfty}{\mathord}{fgerm}{"69} +\DeclareMathSymbol{\fged}{\mathord}{fgeit}{"70} +\DeclareMathSymbol{\fges}{\mathbin}{fgerm}{"73} +% \end{macrocode} +% This included for backward compatibility with versions +% prior to 1.17, it was only then that I discovered that +% what I first thought was an N, then an eta, then an +% overturned U, was in fact an overturned lb (pound) +% ligature. +% \begin{macrocode} +\newcommand{\fgeeta}{\fgelb} +\newcommand{\fgeN}{\fgelb} +\newcommand{\fgeoverU}{\fgelb} +% \end{macrocode} +% The spiritus lenis accent. Here we don't use \texttt{DeclareMathAccent} +% but instead \TeX\ primatives; the former is for ordinary symbols +% which are press-ganged into being accents, the latter is for glyphs +% designed as accents. The tricky part is selecting the \textt{fge} font +% by coercing its symbol-code into an appropriate hex-string, we copy +% the code in the AMS fonts package. +% \begin{macrocode} +\def\spirituslenisA{\mathaccent"0\hexnumber@\symfgerm 15} +\def\spirituslenisB{\mathaccent"0\hexnumber@\symfgerm 16} +% \end{macrocode} +% There are two versions of the spiritus lenis, variant A +% from the Ibycus font for classical Greek by +% Pierre A. MacKay, from work by Silvio Levy's realization of a +% classic Didot cut of Greek type from around 1800. +% Variant B is my own, an approximation of the more crescent-like +% accent used in the original printing. Variant A is the default, +% since it is prettier; but the translators have asked me to retain +% the crescent form. +% \begin{macrocode} +\ifcrescent + \def\spirituslenis{\spirituslenisB} +\else + \def\spirituslenis{\spirituslenisA} +\fi +% \end{macrocode} +% The character sizing +% \begin{macrocode} +\DeclareMathSizes{10}{10}{7}{5} +% \end{macrocode} +% +% \end{macrocode} +% \subsection{The font definition files} +% +% The declarations, +% that have to go into the corresponding |.fd| files: +%<*fdrm> +% \begin{macrocode} +\DeclareFontFamily{U}{fgerm}{} +\DeclareFontShape{U}{fgerm}{m}{n}{% + <5><6><7> fgerm10 + <8><9><10> fgerm10 + <10.95><12><14.4><17.28> fgerm10}{} +% \end{macrocode} +% +%<*fdit> +% \begin{macrocode} +\DeclareFontFamily{U}{fgeit}{} +\DeclareFontShape{U}{fgeit}{m}{n}{% + <5><6><7> fgeit10 + <8><9><10> fgeit10 + <10.95><12><14.4><17.28> fgeit10}{} +% \end{macrocode} +% +% +% The next line goes into all files and in addition prevents \dst{} +% from adding any further code from the main source file (such as a +% character table). +% \begin{macrocode} +\endinput +% \end{macrocode} +% +% \DeleteShortVerb{\|} +% \Finale diff --git a/Master/texmf-dist/source/fonts/fge/fge.ins b/Master/texmf-dist/source/fonts/fge/fge.ins new file mode 100644 index 00000000000..d957c0a678b --- /dev/null +++ b/Master/texmf-dist/source/fonts/fge/fge.ins @@ -0,0 +1,16 @@ +% -*- tex -*- +% fge.ins +% docstrip wrapper for fge +% J.J. Green 2005 +% $Id: fge.ins,v 1.4 2007/01/02 23:27:38 jjg Exp $ +\def\batchfile{fge.ins} +\input docstrip.tex +\preamble +docstrip wrapper for fge +\endpreamble +\keepsilent +\generateFile{fge.sty}{t}{\from{fge.dtx}{package}} +\generateFile{Ufgerm.fd}{t}{\from{fge.dtx}{fdrm}} +\generateFile{Ufgeit.fd}{t}{\from{fge.dtx}{fdit}} +\endinput + diff --git a/Master/texmf-dist/tex/latex/fge/Ufgeit.fd b/Master/texmf-dist/tex/latex/fge/Ufgeit.fd new file mode 100644 index 00000000000..5c26fd6b7e4 --- /dev/null +++ b/Master/texmf-dist/tex/latex/fge/Ufgeit.fd @@ -0,0 +1,34 @@ +%% +%% This is file `Ufgeit.fd', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% fge.dtx (with options: `fdit') +%% docstrip wrapper for fge +%% \CharacterTable +%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z +%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z +%% Digits \0\1\2\3\4\5\6\7\8\9 +%% Exclamation \! Double quote \" Hash (number) \# +%% Dollar \$ Percent \% Ampersand \& +%% Acute accent \' Left paren \( Right paren \) +%% Asterisk \* Plus \+ Comma \, +%% Minus \- Point \. Solidus \/ +%% Colon \: Semicolon \; Less than \< +%% Equals \= Greater than \> Question mark \? +%% Commercial at \@ Left bracket \[ Backslash \\ +%% Right bracket \] Circumflex \^ Underscore \_ +%% Grave accent \` Left brace \{ Vertical bar \| +%% Right brace \} Tilde \~} +\ProvidesFile{fgeit.fd}% + [2007/06/03 1.21 + fge italic symbol font definitions] +\DeclareFontFamily{U}{fgeit}{} +\DeclareFontShape{U}{fgeit}{m}{n}{% + <5><6><7> fgeit10 + <8><9><10> fgeit10 + <10.95><12><14.4><17.28> fgeit10}{} +\endinput +%% +%% End of file `Ufgeit.fd'. diff --git a/Master/texmf-dist/tex/latex/fge/Ufgerm.fd b/Master/texmf-dist/tex/latex/fge/Ufgerm.fd new file mode 100644 index 00000000000..757a41fe4e2 --- /dev/null +++ b/Master/texmf-dist/tex/latex/fge/Ufgerm.fd @@ -0,0 +1,34 @@ +%% +%% This is file `Ufgerm.fd', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% fge.dtx (with options: `fdrm') +%% docstrip wrapper for fge +%% \CharacterTable +%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z +%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z +%% Digits \0\1\2\3\4\5\6\7\8\9 +%% Exclamation \! Double quote \" Hash (number) \# +%% Dollar \$ Percent \% Ampersand \& +%% Acute accent \' Left paren \( Right paren \) +%% Asterisk \* Plus \+ Comma \, +%% Minus \- Point \. Solidus \/ +%% Colon \: Semicolon \; Less than \< +%% Equals \= Greater than \> Question mark \? +%% Commercial at \@ Left bracket \[ Backslash \\ +%% Right bracket \] Circumflex \^ Underscore \_ +%% Grave accent \` Left brace \{ Vertical bar \| +%% Right brace \} Tilde \~} +\ProvidesFile{fgerm.fd}% + [2007/06/03 1.21 + fge roman symbol font definitions] +\DeclareFontFamily{U}{fgerm}{} +\DeclareFontShape{U}{fgerm}{m}{n}{% + <5><6><7> fgerm10 + <8><9><10> fgerm10 + <10.95><12><14.4><17.28> fgerm10}{} +\endinput +%% +%% End of file `Ufgerm.fd'. diff --git a/Master/texmf-dist/tex/latex/fge/fge.sty b/Master/texmf-dist/tex/latex/fge/fge.sty new file mode 100644 index 00000000000..014cdfff227 --- /dev/null +++ b/Master/texmf-dist/tex/latex/fge/fge.sty @@ -0,0 +1,79 @@ +%% +%% This is file `fge.sty', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% fge.dtx (with options: `package') +%% docstrip wrapper for fge +%% \CharacterTable +%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z +%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z +%% Digits \0\1\2\3\4\5\6\7\8\9 +%% Exclamation \! Double quote \" Hash (number) \# +%% Dollar \$ Percent \% Ampersand \& +%% Acute accent \' Left paren \( Right paren \) +%% Asterisk \* Plus \+ Comma \, +%% Minus \- Point \. Solidus \/ +%% Colon \: Semicolon \; Less than \< +%% Equals \= Greater than \> Question mark \? +%% Commercial at \@ Left bracket \[ Backslash \\ +%% Right bracket \] Circumflex \^ Underscore \_ +%% Grave accent \` Left brace \{ Vertical bar \| +%% Right brace \} Tilde \~} +\NeedsTeXFormat{LaTeX2e} +\ProvidesPackage{fge} + [2007/06/03 1.21 + fge symbol support package] +\newif\ifcrescent +\crescentfalse +\DeclareOption{crescent}{\global\crescenttrue} +\ProcessOptions\relax +\DeclareSymbolFont{fgerm}{U}{fgerm}{m}{n} +\DeclareSymbolFont{fgeit}{U}{fgeit}{m}{n} +\DeclareMathSymbol{\fgelb}{\mathord}{fgeit}{"11} +\DeclareMathSymbol{\fgeF}{\mathbin}{fgeit}{"46} +\DeclareMathSymbol{\fgevareta}{\mathord}{fgerm}{"11} +\DeclareMathSymbol{\fgeeszett}{\mathbin}{fgerm}{"19} +\DeclareMathSymbol{\fgerightarrow}{\mathrel}{fgerm}{"21} +\DeclareMathSymbol{\fgeuparrow}{\mathrel}{fgerm}{"22} +\DeclareMathSymbol{\fgestruckzero}{\mathord}{fgerm}{"30} +\DeclareMathSymbol{\fgestruckone}{\mathord}{fgerm}{"31} +\DeclareMathSymbol{\fgelefttwo}{\mathbin}{fgerm}{"32} +\DeclareMathSymbol{\fgeleftthree}{\mathbin}{fgerm}{"33} +\DeclareMathSymbol{\fgerighttwo}{\mathbin}{fgerm}{"34} +\DeclareMathSymbol{\fgeA}{\mathord}{fgerm}{"41} +\DeclareMathSymbol{\fgerightB}{\mathbin}{fgerm}{"42} +\DeclareMathSymbol{\fgeleftC}{\mathbin}{fgerm}{"43} +\DeclareMathSymbol{\fgeleftB}{\mathbin}{fgerm}{"44} +\DeclareMathSymbol{\fgebackslash}{\mathord}{fgerm}{"4B} +\DeclareMathSymbol{\fgeupbracket}{\mathord}{fgerm}{"4C} +\DeclareMathSymbol{\fgebaracute}{\mathord}{fgerm}{"4D} +\DeclareMathSymbol{\fgecup}{\mathord}{fgerm}{"4E} +\DeclareMathSymbol{\fgebarcap}{\mathord}{fgerm}{"4F} +\DeclareMathSymbol{\fgecupbar}{\mathord}{fgerm}{"50} +\DeclareMathSymbol{\fgecapbar}{\mathord}{fgerm}{"51} +\DeclareMathSymbol{\fgecupacute}{\mathord}{fgerm}{"52} +\DeclareMathSymbol{\fgecap}{\mathord}{fgerm}{"53} +\DeclareMathSymbol{\fgeU}{\mathord}{fgerm}{"55} +\DeclareMathSymbol{\fgec}{\mathbin}{fgerm}{"63} +\DeclareMathSymbol{\fgee}{\mathbin}{fgerm}{"65} +\DeclareMathSymbol{\fgef}{\mathord}{fgeit}{"66} +\DeclareMathSymbol{\fgelangle}{\mathbin}{fgerm}{"68} +\DeclareMathSymbol{\fgeinfty}{\mathord}{fgerm}{"69} +\DeclareMathSymbol{\fged}{\mathord}{fgeit}{"70} +\DeclareMathSymbol{\fges}{\mathbin}{fgerm}{"73} +\newcommand{\fgeeta}{\fgelb} +\newcommand{\fgeN}{\fgelb} +\newcommand{\fgeoverU}{\fgelb} +\def\spirituslenisA{\mathaccent"0\hexnumber@\symfgerm 15} +\def\spirituslenisB{\mathaccent"0\hexnumber@\symfgerm 16} +\ifcrescent + \def\spirituslenis{\spirituslenisB} +\else + \def\spirituslenis{\spirituslenisA} +\fi +\DeclareMathSizes{10}{10}{7}{5} +\endinput +%% +%% End of file `fge.sty'. diff --git a/Master/tlpkg/tlpsrc/collection-fontsextra.tlpsrc b/Master/tlpkg/tlpsrc/collection-fontsextra.tlpsrc index f438ee97db0..c3007113583 100644 --- a/Master/tlpkg/tlpsrc/collection-fontsextra.tlpsrc +++ b/Master/tlpkg/tlpsrc/collection-fontsextra.tlpsrc @@ -59,6 +59,7 @@ depend Package/esvect depend Package/eulervm depend Package/euxm depend Package/feyn +depend Package/fge depend Package/foekfont depend Package/fourier depend Package/fouriernc diff --git a/Master/tlpkg/tlpsrc/fge.tlpsrc b/Master/tlpkg/tlpsrc/fge.tlpsrc new file mode 100644 index 00000000000..a27580b15b9 --- /dev/null +++ b/Master/tlpkg/tlpsrc/fge.tlpsrc @@ -0,0 +1,2 @@ +name fge +category Package -- cgit v1.2.3