summaryrefslogtreecommitdiff
path: root/Master/texmf-dist
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2007-07-16 16:11:35 +0000
committerKarl Berry <karl@freefriends.org>2007-07-16 16:11:35 +0000
commit4224749fd1ad4fbd247768561c4a394422870b56 (patch)
tree38e5f3d3009fd5e5d075cdbb954abe4c297b2246 /Master/texmf-dist
parent27a5239e60e85720bfd01c348396544853abc301 (diff)
new font fge (10jul07)
git-svn-id: svn://tug.org/texlive/trunk@4608 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist')
-rw-r--r--Master/texmf-dist/doc/fonts/fge/README20
-rw-r--r--Master/texmf-dist/doc/fonts/fge/fge-doc.pdfbin0 -> 43816 bytes
-rw-r--r--Master/texmf-dist/fonts/source/public/fge/fgebase.mf101
-rw-r--r--Master/texmf-dist/fonts/source/public/fge/fgeit.mf284
-rw-r--r--Master/texmf-dist/fonts/source/public/fge/fgeit10.mf83
-rw-r--r--Master/texmf-dist/fonts/source/public/fge/fgerm.mf1440
-rw-r--r--Master/texmf-dist/fonts/source/public/fge/fgerm10.mf83
-rw-r--r--Master/texmf-dist/fonts/tfm/public/fge/fgeit10.tfmbin0 -> 536 bytes
-rw-r--r--Master/texmf-dist/fonts/tfm/public/fge/fgerm10.tfmbin0 -> 588 bytes
-rw-r--r--Master/texmf-dist/source/fonts/fge/fge.dtx297
-rw-r--r--Master/texmf-dist/source/fonts/fge/fge.ins16
-rw-r--r--Master/texmf-dist/tex/latex/fge/Ufgeit.fd34
-rw-r--r--Master/texmf-dist/tex/latex/fge/Ufgerm.fd34
-rw-r--r--Master/texmf-dist/tex/latex/fge/fge.sty79
14 files changed, 2471 insertions, 0 deletions
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
--- /dev/null
+++ b/Master/texmf-dist/doc/fonts/fge/fge-doc.pdf
Binary files 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$$:
+ x@2=min(x$+bracket_height,x$$);
+ rt x@1-slab = lft x@0+eps = tiny.lft x$;
+ downward = z$-z$$;
+ if x@1>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@1<x@2: x@2:=x@1; fi
+ fi
+ x@3 = x@2;
+ z@3 = whatever[z$,z$$];
+ if jut<0:
+ z@2-penoffset downward of currentpen =
+ z$r-penoffset downward of pen_[tiny.nib]+whatever*downward;
+ bot y@0 = bot y@1 = tiny.bot y$r + jut;
+ if y@3<y@2+eps: y@3:=y@2+eps; fi
+ else:
+ z@2+penoffset downward of currentpen =
+ z$l+penoffset downward of pen_[tiny.nib]+whatever*downward;
+ top y@0 = top y@1 = tiny.top y$l + jut;
+ if y@3>y@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<tiny.breadth: right_curve:=tiny.breadth; fi
+ if left_curve<tiny.breadth: left_curve:=tiny.breadth; fi
+
+ pickup tiny.nib;
+
+ pos1(left_curve,180);
+ pos2(vair,270);
+ pos3(right_curve,0);
+
+ y1 = good.y rbar_height;
+ bot y2r = -oo;
+ y0l = top y1;
+ lft x1r = hround max(0.5u,1.25u-0.5left_curve);
+ rt x3r = hround min(w-0.5u,w-u+0.5right_curve);
+ x2 = 0.5w-0.25u;
+
+ {{
+ interim superness := more_super;
+ filldraw stroke super_arc.e(1,2);
+ }};
+
+ y3 = 0.5 [y2,y4];
+ top y4r = x_height + vround 1.5oo;
+ x4 = x2 + 0.25u;
+
+ pos4(vair',90);
+ pos5(hair,180);
+
+ y5 = min(good.y(0.5[rbar_height,x_height]+0.9),y4l-vair);
+
+ x5r = x1r;
+ (x,y4l) = whathever[z4r,z5];
+ x4l := min(x,x4l+0.5u);
+
+ filldraw stroke pulled_arc.e(2,3) & pulled_arc.e(3,4)
+ ... {x5-x4,5(y5-y4)}z5e;
+
+ path testpath;
+
+ testpath = super_arc.r(2,3) & super_arc.r(3,4);
+
+ y1'r = y0r = y0l - 0.6[thin_join,vair];
+ y1'l = y0l;
+ x1'l = x1'r = x1;
+
+ forsuffixes $ = l,r:
+ x0$ = xpart(((w,y0$)--(x1,y0$)) intersectionpoint testpath);
+ endfor;
+
+ fill stroke z0e--z1'e;
+
+ path pth;
+ numeric tp,theta;
+
+ theta = 25;
+
+ pos6(stem,theta-90);
+ pos7(hair,90+theta);
+
+ top y6l = asc_height;
+
+ pth = super_arc.r(3,4) ... {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;
+
+% Reverse solidus -- in contrast the the cm backslash
+% this is stressed, an oblique slab of the width of
+% capital stems. The dimensions also are those of
+% capitals, whearas the cm backslash has the dimensions
+% of delimiters.
+
+cmchar "Reverse solidus";
+beginchar(oct "113",9u#,cap_height#,0);
+ adjust_fit(0,0);
+
+ pickup fine.nib;
+
+ pos1(cap_stem,0);
+ pos2(cap_stem,0);
+
+ lft x1l = u;
+ rt x2r = w - u;
+ top y1 = cap_height;
+ bot y2 = 0;
+
+ filldraw stroke z1e--z2e;
+
+ penlabels(1,2);
+
+endchar;
+
+% the left-angle, a funny looking thing, made from a single
+% stroke of an eliptic pen. The upstroke is bowed inward,
+% barely perceptibly
+
+cmchar "Left-angle";
+beginchar(oct "150",11u#,cap_height#,0);
+ adjust_fit(0,0);
+
+ numeric theta,bow,elbow;
+
+ elbow := x_height + 0.5*(cap_height-x_height);
+
+ x1 = x3 = w - 0.5u - 0.4cap_stem;
+ y1 = 0; cap_height - y3 = 0.4cap_stem;
+ y2 = elbow;
+ x2 = 0.5u + 0.4cap_stem;
+
+ theta := angle(z2-z1)-90;
+ bow := 5;
+
+ pickup pencircle xscaled cap_hair yscaled cap_stem rotated theta;
+ draw z1{dir(theta+90-bow)}...{dir(theta+90+bow)}z2--z3;
+
+ penlabels(1,2,3);
+
+endchar;
+
+cmchar "Variant Infinity";
+beginchar("infty",18u#,x_height#,0);
+ adjust_fit(0,0);
+
+ numeric theta,psi;
+ theta = 70;
+ psi = 40;
+
+ penrad = hair;
+
+ y1 = y3 = y4 = y6 = 7/16x_height;
+ x1 = w - x6 = 0.5u + penrad;
+ 2x3 = 2x4 = x1 + x6;
+ 2x2 = x1 + x3;
+ 2x5 = x4 + x6;
+ y2 = y5 = penrad - oo;
+
+ pickup pencircle scaled 2penrad;
+
+ draw z1{dir(-theta)}...z2...{dir(theta)}z3;
+ draw z4{dir(-theta)}...z5...{dir(theta)}z6;
+
+ penlabels(1,2,3,4,5,6);
+
+ % this is the overbar
+
+ pickup fine.nib;
+
+ pos7(hair,90+psi);
+ pos8(2penrad,90);
+ pos9(hair,90-psi);
+
+ x7 = w - x9 = 0.32[x1,x2];
+ y7 = y9 = 11/16x_height;
+ 2x8 = x7 + x9;
+ top y8r = o + h;
+
+ filldraw stroke z7e{dir psi}...z8e...{dir -psi}z9e;
+
+ penlabels(7,8,9);
+
+endchar;
+
+% This is series of small cups, caps and bars. Although
+% most of these are binary operators, Pohle sets these
+% much tighter than the other operators in the text, but
+% not quite as tight as ordinary terms.
+% We simulate this behaviour by declaring them \mathord
+% in the style file (rather than \mathbin), but add a liile
+% extra spacing around them with cupcap_fit
+
+def cupcap_fit = adjust_fit(24/36pt#,24/36pt#) enddef;
+
+cmchar "upwards opened bracket";
+beginchar(oct "114",14u#,x_height#,0);
+ cupcap_fit;
+
+ pickup rule.nib;
+
+ lft x1 = hround(u - eps);
+ x2 = w - x1;
+ bot y1 = bot y2 = 0;
+
+ x3 = x1;
+ x4 = x2;
+
+ y3 = y4 = 1/3x_height;
+
+ draw z3--z1--z2--z4;
+
+ labels(1,2,3);
+
+endchar;
+
+cmchar "Small bar acute";
+beginchar(oct "115",10u#,x_height#,0);
+ cupcap_fit;
+
+ pickup rule.nib;
+
+ lft x1 = hround(u - eps);
+ x2 = w - x1;
+ bot y1 = bot y2 = 0;
+
+ draw z1--z2;
+
+ labels(1,2);
+
+ pickup crisp.nib;
+
+ x4 + 0.5stem = hround(2/3w);
+ x5 = 2/3[x4,w-x4];
+ y4 + 0.5stem = x_height + oo;
+ y5 = 1/2x_height;
+
+ numeric theta;
+ theta = angle(z5-z4) + 90;
+ pos4(stem,theta);
+ pos5(hair,theta);
+
+ filldraw circ_stroke z4e--z5e;
+
+ penlabels(4,5);
+
+endchar;
+
+cmchar "Small cup";
+beginchar(oct "116",10u#,x_height#,0);
+ cupcap_fit;
+
+ pickup rule.nib;
+
+ lft x1 = hround(u - eps);
+ x2 = w - x1;
+ y1 = y2 = 0.5x_height;
+ x3 = good.x 0.5w;
+ bot y3 = -oo;
+
+ draw z1..z3..z2;
+
+ labels(1,2,3);
+
+endchar;
+
+cmchar "Small bar over cap";
+beginchar(oct "117",10u#,x_height#,0);
+ cupcap_fit;
+
+ pickup rule.nib;
+
+ lft x1 = hround(u - eps);
+ x2 = w - x1;
+ y1 = y2 = 1/3x_height;
+ x3 = good.x 0.5w;
+ y3 = 2/3x_height;
+
+ draw z1..z3..z2;
+
+ labels(1,2,3);
+
+ x4 = x1;
+ x5 = x2;
+
+ top y4 = top y5 = x_height;
+
+ draw z4--z5;
+
+ labels(4,5);
+
+endchar;
+
+cmchar "Small cup over bar";
+beginchar(oct "120",10u#,x_height#,0);
+ cupcap_fit;
+
+ pickup rule.nib;
+
+ lft x1 = hround(u - eps);
+ x2 = w - x1;
+ top y1 = top y2 = x_height + oo;
+ x3 = good.x 0.5w;
+ y3 = 2/3x_height;
+
+ draw z1..z3..z2;
+
+ labels(1,2,3);
+
+ x4 = x1;
+ x5 = x2;
+
+ y4 = y5 = 1/3x_height;
+
+ draw z4--z5;
+
+ labels(4,5);
+
+endchar;
+
+cmchar "Small cap over bar";
+beginchar(oct "121",10u#,x_height#,0);
+ cupcap_fit;
+
+ pickup rule.nib;
+
+ lft x1 = hround(u - eps);
+ x2 = w - x1;
+ y1 = y2 = 2/3x_height;
+ x3 = good.x 0.5w;
+ top y3 = x_height + oo;
+
+ draw z1..z3..z2;
+
+ labels(1,2,3);
+
+ x4 = x1;
+ x5 = x2;
+
+ y4 = y5 = 1/3x_height;
+
+ draw z4--z5;
+
+ labels(4,5);
+
+endchar;
+
+cmchar "Small cup with acute";
+beginchar(oct "122",10u#,x_height#,0);
+ cupcap_fit;
+
+ pickup rule.nib;
+
+ lft x1 = hround(u - eps);
+ x2 = w - x1;
+ y1 = y2 = 1/3x_height;
+ x3 = good.x 0.5w;
+ bot y3 = -oo;
+
+ draw z1..z3..z2;
+
+ labels(1,2,3);
+
+ pickup crisp.nib;
+
+ x4 + 0.5stem = hround(2/3w);
+ x5 = 2/3[x4,w-x4];
+ y4 + 0.5stem = x_height + oo;
+ y5 = 1/2x_height;
+
+ numeric theta;
+ theta = angle(z5-z4) + 90;
+ pos4(stem,theta);
+ pos5(hair,theta);
+
+ filldraw circ_stroke z4e--z5e;
+
+ penlabels(4,5);
+
+endchar;
+
+cmchar "Small raised cap";
+beginchar(oct "123",10u#,x_height#,0);
+ cupcap_fit;
+
+ pickup rule.nib;
+
+ lft x1 = hround(u - eps);
+ x2 = w - x1;
+ y1 = y2 = 0.5x_height;
+ x3 = good.x 0.5w;
+ top y3 = x_height + oo;
+
+ draw z1..z3..z2;
+
+ labels(1,2,3);
+
+endchar;
+
+end \ No newline at end of file
diff --git a/Master/texmf-dist/fonts/source/public/fge/fgerm10.mf b/Master/texmf-dist/fonts/source/public/fge/fgerm10.mf
new file mode 100644
index 00000000000..df7a2b99892
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/fge/fgerm10.mf
@@ -0,0 +1,83 @@
+% FGE Roman 10 point
+% this is derived from cmr10.mf by Knuth
+% J.J.Green 2006
+% $Id: fgerm10.mf,v 1.2 2006/11/21 20:56:17 jjg Exp $
+
+if unknown cmbase: input cmbase fi
+if unknown fgebase: input fgebase fi
+
+font_identifier := "FGERM";
+font_size 10pt#;
+
+u# := 20/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# := 0pt#; % 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# := 0pt#; % 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# := 9/36pt#; % lowercase hairline breadth
+stem# := 25/36pt#; % lowercase stem breadth
+curve# := 30/36pt#; % lowercase curve breadth
+ess# := 27/36pt#; % breadth in middle of lowercase s
+flare# := 33/36pt#; % diameter of bulbs or breadth of terminals
+dot_size# := 38/36pt#; % diameter of dots
+cap_hair# := 11/36pt#; % uppercase hairline breadth
+cap_stem# := 32/36pt#; % uppercase stem breadth
+cap_curve# := 37/36pt#; % uppercase curve breadth
+cap_ess# := 35/36pt#; % breadth in middle of uppercase s
+rule_thickness#:= 0.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# := 28/36pt#; % protrusion of lowercase serifs
+cap_jut# := 37/36pt#; % protrusion of uppercase serifs
+beak_jut# := 10/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 := 0; % 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 := false; % 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 fgerm
diff --git a/Master/texmf-dist/fonts/tfm/public/fge/fgeit10.tfm b/Master/texmf-dist/fonts/tfm/public/fge/fgeit10.tfm
new file mode 100644
index 00000000000..165aac7f2b9
--- /dev/null
+++ b/Master/texmf-dist/fonts/tfm/public/fge/fgeit10.tfm
Binary files differ
diff --git a/Master/texmf-dist/fonts/tfm/public/fge/fgerm10.tfm b/Master/texmf-dist/fonts/tfm/public/fge/fgerm10.tfm
new file mode 100644
index 00000000000..2a24bfb8344
--- /dev/null
+++ b/Master/texmf-dist/fonts/tfm/public/fge/fgerm10.tfm
Binary files differ
diff --git a/Master/texmf-dist/source/fonts/fge/fge.dtx b/Master/texmf-dist/source/fonts/fge/fge.dtx
new file mode 100644
index 00000000000..36314755589
--- /dev/null
+++ b/Master/texmf-dist/source/fonts/fge/fge.dtx
@@ -0,0 +1,297 @@
+% \iffalse meta-comment
+%
+% Copyright 2006, 2007 J.J. Green
+% $Id: fge.dtx,v 1.52 2007/06/03 16:11:04 jjg Exp $
+%
+% Changes:
+%
+% \fi
+%
+% \CheckSum{844}
+%% \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 \~}
+%
+% \iffalse % this is a METACOMMENT !
+%
+%<package>\NeedsTeXFormat{LaTeX2e}
+%<package>\ProvidesPackage{fge}
+%<fdrm>\ProvidesFile{fgerm.fd}%
+%<fdit>\ProvidesFile{fgeit.fd}%
+%<-driver> [2007/06/03 1.21
+%<package> fge symbol support package]
+%<fdrm> fge roman symbol font definitions]
+%<fdit> 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}
+%</driver>
+% \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}
+%</package>
+% \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}
+%</fdrm>
+%<*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}
+%</fdit>
+%
+% 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'.