summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2017-11-03 21:37:13 +0000
committerKarl Berry <karl@freefriends.org>2017-11-03 21:37:13 +0000
commit592c25270ddc1358ebd06e93ebc24f8875709c29 (patch)
tree75ab7aa20c9b0a0da69064a52f8367ae78a77833 /Master/texmf-dist/fonts/source
parent976dd4b4e298f349b6f4b37b0b4be9a66f60c1c6 (diff)
feyn (3nov17)
git-svn-id: svn://tug.org/texlive/trunk@45679 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/fonts/source')
-rw-r--r--Master/texmf-dist/fonts/source/public/feyn/feyn.mf291
-rw-r--r--Master/texmf-dist/fonts/source/public/feyn/feyn10.mf12
-rw-r--r--Master/texmf-dist/fonts/source/public/feyn/feyn11.mf12
-rw-r--r--Master/texmf-dist/fonts/source/public/feyn/feyn12.mf12
-rw-r--r--Master/texmf-dist/fonts/source/public/feyn/feyn18.mf12
-rw-r--r--Master/texmf-dist/fonts/source/public/feyn/feyn24.mf14
-rw-r--r--Master/texmf-dist/fonts/source/public/feyn/feynmac.mf5
-rw-r--r--Master/texmf-dist/fonts/source/public/feyn/feyntext10.mf12
-rw-r--r--Master/texmf-dist/fonts/source/public/feyn/feyntext11.mf12
-rw-r--r--Master/texmf-dist/fonts/source/public/feyn/feyntext12.mf12
-rw-r--r--Master/texmf-dist/fonts/source/public/feyn/feyntext18.mf12
-rw-r--r--Master/texmf-dist/fonts/source/public/feyn/feyntext24.mf12
-rw-r--r--Master/texmf-dist/fonts/source/public/feyn/feynx10.mf47
-rw-r--r--Master/texmf-dist/fonts/source/public/feyn/feynx11.mf47
-rw-r--r--Master/texmf-dist/fonts/source/public/feyn/feynx12.mf47
-rw-r--r--Master/texmf-dist/fonts/source/public/feyn/feynx18.mf47
-rw-r--r--Master/texmf-dist/fonts/source/public/feyn/feynx24.mf47
17 files changed, 564 insertions, 89 deletions
diff --git a/Master/texmf-dist/fonts/source/public/feyn/feyn.mf b/Master/texmf-dist/fonts/source/public/feyn/feyn.mf
index deb0b6fb302..60a64f4d012 100644
--- a/Master/texmf-dist/fonts/source/public/feyn/feyn.mf
+++ b/Master/texmf-dist/fonts/source/public/feyn/feyn.mf
@@ -1,9 +1,9 @@
-% This is the metafont for the feynfont font, release 0.3.3, 2009 October 8
+% This is the metafont for the feynfont font, release 0.4.1, 2017 November 03
%
-% Copyright 1991, 1994, 2001, 2002, 2005, 2008, Norman Gray.
+% Copyright 1991, 1994, 2001, 2002, 2005, 2008-10, Norman Gray.
% See the file LICENCE for licence details.
%
-% Mercurial revision 204fc9a2e560, 2009-10-08 12:56 +0100
+% Mercurial revision 558acb5f2e14, 2017-11-03 14:43 +0000, tag 0.4.1 + 0
%
%
%
@@ -28,7 +28,15 @@ pickup pencircle scaled linewidth;
diagram_pen := savepen;
% general definitions
-phangle := 75;
+phangle := 75; % photon angle
+
+squash := 0.75; % the amount by which some loops are squashed
+
+% The caller must set the following parameters to values such as these
+%boson_wiggles := 4; %this must be an even number
+%boson_wiggles_loop_small := 4;
+%boson_wiggles_loop_normal := 6;
+%boson_wiggles_loop_large := 8;
% All the character positions between 0 and hex"7F"
@@ -52,7 +60,7 @@ string donecharerror;
donecharerror := "Duplicate character";
extra_beginchar := extra_beginchar & "if known donechar[charcode]: errmessage donecharerror; fi donechar[charcode] := 1;";
-path charpath;
+path charpath, charpathb;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
@@ -77,9 +85,25 @@ enddef;
threechars ("f", "fermion",
path_fermion(2module#, 0), 0.5, 2module#, 0, 0,
- (0,0.1module), "top");
+ (0,0.1module), "top");
-beginchar ("k", module#, 0, 0);
+begingroup % make closed fermion loop, for phi^4 theory
+ clearxy;
+ save height;
+ height# := 2module#;
+ define_pixels(height);
+ z2 = (0, height); %top of loop
+ y1 = y3 = 2y2/3;
+ x1+x3 = 0;
+ x1-x3 = 2height/3;
+ charpath := origin .. z1 .. z2 .. z3 .. origin;
+ threechars ("k", "fermion loop",
+ charpath shifted (0,a), 2,
+ 0, 2module#, 0,
+ 0, "top");
+endgroup;
+
+beginchar (hex"21", module#, 0, 0);
"short fermion";
pen;
draw path_fermion(module#, 0);
@@ -102,7 +126,7 @@ threechars ("d", "downward fermion",
path_fermion(2module#, -45), 0.5,
2module#*(cosd -45), 2module#*(abs sind -45), 0,
0, "urt");
-
+
threechars ("b", "vertically upward fermion",
path_fermion(2module#, 90), 0.5,
2module#*(cosd 90), 2module#*(abs sind 90), 0,
@@ -133,7 +157,7 @@ beginchar(byte"m"-hex"60", 2module#, 0, 0); "l-arrowed massive fermion";
endchar;
charpath := path_fermion(module#, 0);
-beginchar(hex"0B", module#, 0, 0); "short massive fermion";
+beginchar(hex"23", module#, 0, 0); "short massive fermion";
pen;
draw charpath shifted (0,linewidth);
draw charpath shifted (0,-linewidth);
@@ -149,17 +173,16 @@ begingroup
x2-x0 = 2(x1-x0) = width;
x1 = 0;
y0 = y2 = 0;
- y1 = 1.6module;
- %charpath := z0{dir 60} .. {dir -60}z2;
+ y1 = 2squash*module;
charpath := z0 .. z1 .. z2;
threechars("l", "fermion loop",
charpath shifted (0,a), 1,
- 0, module#+a#, 0,
+ 0, 2squash*module#+a#, 0,
0, "top");
threechars("n", "fermion loop, inverted",
charpath yscaled -1 shifted (0,a), 1,
- 0, module#+a#, 0,
+ 0, a#, 0,
0, "bot");
threechars("o", "fermion loop, small",
charpath scaled 0.66667 shifted (0,0.66667a), 1,
@@ -182,6 +205,41 @@ def path_boson (expr scale_sharp, ang, taper) =
save scale;
clearxy;
scale := hround(scale_sharp*hppp);
+ x1 = 0;
+ x99 = scale*(cosd ang);
+ if ang > 0 : % slopes upward
+ y1 = a;
+ y99 = scale*(abs sind ang) + a;
+ else :
+ y1 = scale*(abs sind ang) + a;
+ y99 = a;
+ fi
+ for i = 3 upto boson_wiggles:
+ z[i] - z[i-1] = z2-z1;
+ endfor
+ z99 - z[boson_wiggles] = z2-z1;
+ def ::(expr b) = {dir (ang+b)} looselink {dir (ang-b)} enddef;
+
+ z1 ::(phangle)z2
+ for i = 3 step 2 until boson_wiggles:
+ ::(-phangle) z[i] ::(phangle)z[i+1]
+ endfor
+ if taper <> 0 :
+ {dir (ang-phangle)} .. tension 1 and 0.8 .. {dir (ang+phangle/2)}
+ else :
+ ::(-phangle)
+ fi
+ z99
+ endgroup
+enddef;
+
+% the following is a simpler version of the above, without the
+% boson_wiggles, to document what it's supposed to be doing
+def path_boson_orig (expr scale_sharp, ang, taper) =
+ begingroup
+ save scale;
+ clearxy;
+ scale := hround(scale_sharp*hppp);
x1 = 0; x5 = scale*(cosd ang);
if ang > 0 : % slopes upward
y1 = a;
@@ -204,37 +262,40 @@ def path_boson (expr scale_sharp, ang, taper) =
enddef;
threechars ("g", "gluon",
- path_boson(2module#, 0, 0), 2,
+ path_boson(2module#, 0, 0), boson_wiggles/2,
2module#, 0, 0,
(0, 0.2module), "top");
threechars ("u", "upward gluon",
- path_boson(2module#, 45, 0), 2,
+ path_boson(2module#, 45, 0), boson_wiggles/2,
2module#*(cosd 45), 2module#*(abs sind 45), 0,
0, "ulft");
threechars ("v", "downward gluon",
- path_boson(2module#, -45, 0), 2,
+ path_boson(2module#, -45, 0), boson_wiggles/2,
2module#*(cosd -45), 2module#*(abs sind -45), 0,
0, "urt");
-threechars (oct"175",
+threechars (hex"7D",
"vertical gluon",
- path_boson(2module#, 90, 1), 2,
+ path_boson(2module#, 90, 1), boson_wiggles/2,
0, 2module#, 0,
0, "urt");
-
% plus or minus phangle, depending on whether n is odd or even
def pm_angle(expr n) =
if odd n: -1 else: 1 fi*phangle
enddef;
-% a gluon quarter loop:
+% a gluon quarter loop, in the upper-right quadrant:
% wid: radius of loop in modules
% nopts: number of points
% inv: if 1, the loop goes from the axis to the top;
% if 0, from the top down to the axis
% negang: if 1, negate the photon angle (so it wiggles oppositely);
% if 0, don't
-% taper: if 1, the line tapers as it approaches the axis
+% taper: if 1 or 3, the line tapers as it approaches the axis
+% if 2 or 3, the line tapers as it approaches the top
+% if 0, the line does not taper
+% (I can't help feeling this macro has become more complicated than it
+% really need be...)
def path_quadloop (expr wid, nopts, inv, negang, taper) =
begingroup
save halfwidth, myangle;
@@ -242,16 +303,21 @@ def path_quadloop (expr wid, nopts, inv, negang, taper) =
halfwidth# := wid*module#;
define_pixels(halfwidth);
myangle = if negang <> 0: -phangle else: phangle fi;
- z0 = (halfwidth, 0);
+ z0 = (halfwidth, 0); % z0 is on the axis
for x = 1 upto nopts:
z[x] = z0 rotated (x*90/nopts);
endfor
if inv = 0:
def ::(expr p,ang) = p{p rotated(-90-ang)} looselink enddef;
- for x=nopts downto 2:
+ if (taper = 2) or (taper = 3):
+ z[nopts]{dir(0-myangle/2)} .. tension 0.8 and 1 ..
+ else:
+ ::(z[nopts], pm_angle(nopts+negang))
+ fi
+ for x=nopts-1 downto 2:
::(z[x], pm_angle(x+negang))
endfor
- if taper <> 0:
+ if (taper = 1) or (taper = 3):
z[1]{z[1] rotated(-90+myangle)} .. tension 1 and 0.8 .. {dir -(90+myangle/2)}
else:
::(z[1], pm_angle(1+negang))
@@ -259,47 +325,67 @@ def path_quadloop (expr wid, nopts, inv, negang, taper) =
z0
else:
def ::(expr p,ang) = looselink {p rotated (90+ang)}p enddef;
- if taper <> 0:
+ if (taper = 1) or (taper = 3):
z0 {dir (90+myangle/2)} .. tension 0.8 and 1 .. z[1]{z[1] rotated(90-myangle)}
else:
z0{dir (90+myangle)}
::(z[1], pm_angle(1+negang))
fi
- for x=1 upto nopts:
+ for x=1 upto nopts-1:
::(z[x], pm_angle(x+negang))
endfor
+ if (taper = 2) or (taper = 3):
+ .. tension 0.8 and 1 .. {z[nopts] rotated (90+myangle/2)}z[nopts]
+ else:
+ ::(z[nopts], pm_angle(nopts+negang))
+ fi
fi
endgroup
enddef;
+% next_odd: evaluate to the next odd number greater than or equal to n
+def next_odd(expr n) =
+ (2*floor(n/2)+1)
+enddef;
threechars ("q", "gluon, quadrant 1",
- path_quadloop(2, 6, 1, 0, 1) xscaled -1 shifted (0,a), 4,
- 0, 2module#+a#, 0,
+ path_quadloop(2, boson_wiggles_loop_normal, 1, 0, 3) xscaled -1 shifted (0,a),
+ next_odd(2boson_wiggles_loop_normal/3),
+ 0, 2module#, 0, % height is 2module#, not 2module#+a#, so that
+ % they line up OK in \Diagram
0, "ulft");
threechars ("r", "gluon, quadrant 2",
- path_quadloop(2, 6, 0, 0, 1) shifted (0,a), 3,
- 0, 2module#+a#, 0,
+ path_quadloop(2, boson_wiggles_loop_normal, 0, 0, 3) shifted (0,a),
+ next_odd(boson_wiggles_loop_normal/2),
+ 0, 2module#, 0,
0, "urt");
threechars ("s", "gluon, quadrant 3",
- path_quadloop(2, 6, 0, 1, 1) yscaled -1 shifted (0,a), 3,
+ path_quadloop(2, boson_wiggles_loop_normal, 0, 1, 3) yscaled -1 shifted (0,a),
+ next_odd(boson_wiggles_loop_normal/2),
0, a#, a#-2module#,
0, "lrt");
threechars ("t", "gluon, quadrant 4",
- path_quadloop(2, 6, 1, 1, 1) scaled -1 shifted (0,a), 4,
+ path_quadloop(2, boson_wiggles_loop_normal, 1, 1, 3) scaled -1 shifted (0,a),
+ next_odd(2boson_wiggles_loop_normal/3),
0, a#, a#-2module#,
0, "llft");
+
% The two loops following have the annotation off-centre, to keep
% it clear of the wiggles. Would it look better being "top" and "bot"
% again, but with a non-zero offset in the second-last argument?
+% These two are vertically squashed so that they take up less than 2
+% modules vertically, which means in turn that {gl glu} can sit in a
+% two-loop diagram without crashing into the baseline.
threechars ("y", "gluon half loop",
- ((path_quadloop(2, 6, 1, 0, 0) xscaled -1)
- .. path_quadloop(2, 6, 0, 0, 0)) shifted (0,a), 7,
- 0, 2module#+a#, 0,
+ ((path_quadloop(2, boson_wiggles_loop_normal, 1, 0, 1) xscaled -1)
+ .. path_quadloop(2, boson_wiggles_loop_normal, 0, 0, 1)) yscaled squash shifted (0,a),
+ boson_wiggles_loop_normal+1,
+ 0, 2squash*module#+a#, 0,
0, "urt");
threechars ("z", "gluon half loop, inverted",
- ((path_quadloop(2, 6, 1, 1, 0) scaled -1)
- .. (path_quadloop(2, 6, 0, 1, 0) yscaled -1)) shifted (0,a), 7,
+ ((path_quadloop(2, boson_wiggles_loop_normal, 1, 1, 1) scaled -1)
+ .. (path_quadloop(2, boson_wiggles_loop_normal, 0, 1, 1) yscaled -1)) yscaled squash shifted (0,a),
+ boson_wiggles_loop_normal+1,
0, a#, a#-2module#,
0, "llft");
@@ -307,22 +393,49 @@ threechars ("z", "gluon half loop, inverted",
% That's OK -- they can still be accessed by ligatures.
% 7b='{', 7c='|'
threechars (hex"7B", "large gluon half loop",
- ((path_quadloop(2.66667, 8, 1, 0, 0) xscaled -1)
- .. path_quadloop(2.66667, 8, 0, 0, 0)) shifted (0,a), 9,
+ ((path_quadloop(2.66667, boson_wiggles_loop_large, 1, 0, 1) xscaled -1)
+ .. path_quadloop(2.66667, boson_wiggles_loop_large, 0, 0, 1)) shifted (0,a),
+ 1.5boson_wiggles_loop_large,
0, 2.66667module#+a#, 0,
0, "urt");
threechars (hex"7C", "small gluon half loop",
- ((path_quadloop(1.3333, 4, 1, 0, 0) xscaled -1)
- .. path_quadloop(1.3333, 4, 0, 0, 0)) shifted (0,a), 6,
+ ((path_quadloop(1.3333, boson_wiggles_loop_small, 1, 0, 1) xscaled -1)
+ .. path_quadloop(1.3333, boson_wiggles_loop_small, 0, 0, 1)) shifted (0,a),
+ 1.5boson_wiggles_loop_small,
0, 1.3333module#+a#, 0,
0, "llft");
-
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% Ghosts
+ghost_points = 2(boson_wiggles + 1); % should be at least 8?
def draw_ghost(expr a, b, apos) =
begingroup
+ % pattern for ghost_points=10: "-_--_--_--_-"
+ clearxy;
+ z1 = a; z[ghost_points] = b;
+ z2-z1 = z[ghost_points]-z[ghost_points-1];
+ for i = 2 step 2 until (ghost_points-1):
+ z2-z1 = z[i+1]-z[i];
+ endfor
+ z4-z3 = 2(z2-z1);
+ for i = 5 step 2 until (ghost_points-2):
+ z4-z3 = z[i+1]-z[i];
+ endfor
+ pen;
+ draw z1--z2; draw z[ghost_points-1]--z[ghost_points];
+ for i = 3 step 2 until (ghost_points-2):
+ draw z[i]--z[i+1];
+ endfor
+ annotate_at(0.5[z1,z[ghost_points]], apos);
+ endgroup
+enddef;
+% the following is a simpler version of the above, without the
+% ghost_points parameter, to document what it's supposed to be doing
+def draw_ghost_orig(expr a, b, apos) =
+ begingroup
clearxy;
- %z1 = (0,a); z10 = (2module,a);
z1 = a; z10 = b;
z4-z3 = 2(z2-z1);
z4-z3 = z6-z5 = z8-z7;
@@ -381,7 +494,54 @@ beginchar (byte"j"-hex"60", 2module#*(cosd 45), 2module#*(sind 45), 0);
drawarrow (littlearrow, .5[(0,a), (w,h+a)], -45+180);
endchar;
-beginchar ("K", module#, 0, 0); "short ghost";
+% ghost loops
+begingroup
+ clearxy; clearit; % clear current picture
+ picture ghostloop;
+ pair refpt, arrowpoint;
+ refpt := (-2module, 0);
+ for i=0 upto 23:
+ z[i] = refpt rotated -(i/24*180) yscaled squash shifted (0,a);
+ endfor
+ arrowpoint := z[12];
+ transform below;
+ below := identity rotatedaround ((0,a), 180);
+ pen;
+ for i=0 step 2 until 22:
+ draw z[i]--z[i+1];
+ endfor
+ ghostloop := currentpicture; clearit;
+ beginchar (hex"7E", 0, 2squash*module#+a#, 0); "ghost loop";
+ addto currentpicture also ghostloop;
+ annotate_at(arrowpoint, "top");
+ endchar;
+ beginchar (hex"7E"-hex"20", 0, 2squash*module#+a#, 0); "r-arrowed ghost loop";
+ addto currentpicture also ghostloop;
+ drawarrow(littlearrow, arrowpoint, 0);
+ annotate_at(arrowpoint, "top");
+ endchar;
+ beginchar (hex"7E"-hex"60", 0, 2squash*module#+a#, 0); "l-arrowed ghost loop";
+ addto currentpicture also ghostloop;
+ drawarrow(littlearrow, arrowpoint, 180);
+ annotate_at(arrowpoint, "top");
+ endchar;
+ beginchar (hex"7F", 0, a#, 0); "ghost loop, inverted";
+ addto currentpicture also ghostloop transformed below;
+ annotate_at(arrowpoint transformed below, "top");
+ endchar;
+ beginchar (hex"7F"-hex"20", 0, a#, 0); "r-arrowed ghost loop, inverted";
+ addto currentpicture also ghostloop transformed below;
+ drawarrow(littlearrow, arrowpoint transformed below, 0);
+ annotate_at(arrowpoint transformed below, "top");
+ endchar;
+ beginchar (hex"7F"-hex"60", 0, a#, 0); "l-arrowed ghost loop, inverted";
+ addto currentpicture also ghostloop transformed below;
+ drawarrow(littlearrow, arrowpoint transformed below, 180);
+ annotate_at(arrowpoint transformed below, "top");
+ endchar;
+endgroup;
+
+beginchar (hex"22", module#, 0, 0); "short ghost";
pen;
z1 = (0,a); z6 = (w,a);
z4-z3 = 2(z2-z1);
@@ -390,6 +550,9 @@ beginchar ("K", module#, 0, 0); "short ghost";
annotate_at(0.5[z3,z4], "top")
endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% Odds and sods
beginchar (hex"60", 2module#, 0, 0);
"spacer";
@@ -441,6 +604,7 @@ endchar;
% Other symbols
garrow("a", 0, 1);
+garrow(hex"03", 180, 1);
beginchar ("p", 2blobr#, blobr# + a#, blobr# - a#);
pen; "proper vertex";
@@ -487,11 +651,11 @@ beginchar ("x", 0, a#, -a#); "counterterm";
annotate_at(0.5[z1,z3] shifted (0,a), "top");
endchar;
-beginchar (hex"7F", module#, a#, 0); "space block";
+beginchar (hex"20", module#, a#, 0); "space block";
pen;
+ message "spacer: width=" & decimal w & ", height=" & decimal h;
draw origin--(w,h);
draw (0,h)--(w,0);
- % nothing
endchar;
@@ -504,21 +668,25 @@ endfor
% Construct the ligature tables.
+ligtable "a" : % arrow
+ "A" =: "a", % right-arrow, for symmetry
+ "V" =: hex"03"; % left-arrow
+
ligtable "f" : % fermion
"A" =: "F", % right-arrowed
"V" =: hex"06", % left-arrowed
"u" =: "e", % upward
"d" =: "d", % downward
"v" =: "b", % vertical
-"s" =: "k", % short
+"s" =: hex"21", % short
"l" =: "l", % loop
"0" =: hex"60"; % spacer
-
-ligtable "e" : % downward fermion, fd
+
+ligtable "e" : % upward fermion, fe
"A" =: "E", % arrowed
"V" =: hex"05";
-ligtable "d" : % upward fermion, fu
+ligtable "d" : % downward fermion, fd
"A" =: "D",
"V" =: hex"04";
@@ -526,11 +694,16 @@ ligtable "b" : % vertical fermion, fv
"A" =: "B",
"V" =: hex"02";
-ligtable "k" : % short fermion
+ligtable hex"21" : % short fermion
"0" =: hex"40"; % short spacer
+ligtable "k" : % fermion closed loop
+"A" =: "K", % arrowed
+"V" =: hex"0b";
+
ligtable "l" : % fermion loop
"u" =: "n", % upside down
+"o" =: "k", % closed loop (for scalar theory)
"S" =: "o", % small
"A" =: "L",
"V" =: hex"0C";
@@ -550,7 +723,7 @@ ligtable "g" : % gluon
ligtable "m" : % massive fermion
"A" =: "M",
"V" =: hex"0D",
-"s" =: hex"0B";
+"s" =: hex"23";
ligtable "n" : % inverted fermion
"A" =: "N",
@@ -617,7 +790,17 @@ ligtable "h" : % ghost
"V" =: hex"08",
"u" =: "i", % upward
"d" =: "j", % downward
-"s" =: "K"; % short
+"s" =: hex"22", % short
+"l" =: hex"7E"; % ghost loop
+
+ligtable hex"7E" : % ghost loop
+"A" =: hex"5E", % r-arrowed
+"V" =: hex"1E", % l-arrowed
+"u" =: hex"7F"; % upside down
+
+ligtable hex"7F" : % ghost loop inverted
+"A" =: hex"5F", % r-arrowed
+"V" =: hex"1F"; % l-arrowed
ligtable "i" : % upward ghost
"A" =: "I",
@@ -626,5 +809,3 @@ ligtable "i" : % upward ghost
ligtable "j" : % downward ghost
"A" =: "J",
"V" =: hex"0A";
-
-
diff --git a/Master/texmf-dist/fonts/source/public/feyn/feyn10.mf b/Master/texmf-dist/fonts/source/public/feyn/feyn10.mf
index 9e126cf1f07..46b81eb0489 100644
--- a/Master/texmf-dist/fonts/source/public/feyn/feyn10.mf
+++ b/Master/texmf-dist/fonts/source/public/feyn/feyn10.mf
@@ -1,7 +1,7 @@
-% Feynman diagram font, 10pt display size, release 0.3.3, 2009 October 8.
+% Feynman diagram font, 10pt display size, release 0.4.1, 2017 November 03.
%
-% Copyright 1991, 1994, 2001, Norman Gray <norman@astro.gla.ac.uk>
-% Mercurial revision 204fc9a2e560, 2009-10-08 12:56 +0100
+% This software is copyright 1991, 1994, 2001-2, 2005, 2008-17, Norman Gray.
+% Mercurial revision 558acb5f2e14, 2017-11-03 14:43 +0000, tag 0.4.1 + 0
font_identifier "FEYN"; font_size 10pt#;
@@ -22,6 +22,12 @@ blobr# := 6.5pt#; % radius of blobs and crosses
on_math_axis := 1;
+% Boson wiggles
+boson_wiggles := 4; %this must be an even number
+boson_wiggles_loop_small := 4;
+boson_wiggles_loop_normal := 6;
+boson_wiggles_loop_large := 8;
+
% We want the roman digits from the corresponding cmr font, and that's
% all. Therefore, we don't want to obey the `generate' command in
% cmr??.mf. To do this, we read in cmbase, and then set generate to
diff --git a/Master/texmf-dist/fonts/source/public/feyn/feyn11.mf b/Master/texmf-dist/fonts/source/public/feyn/feyn11.mf
index bdfd63d040a..14a593cd5ad 100644
--- a/Master/texmf-dist/fonts/source/public/feyn/feyn11.mf
+++ b/Master/texmf-dist/fonts/source/public/feyn/feyn11.mf
@@ -1,7 +1,7 @@
-% Feynman diagram font, 11pt display size, release 0.3.3, 2009 October 8.
+% Feynman diagram font, 11pt display size, release 0.4.1, 2017 November 03.
%
-% Copyright 1991, 1994, 2001, Norman Gray <norman@astro.gla.ac.uk>
-% Mercurial revision 204fc9a2e560, 2009-10-08 12:56 +0100
+% This software is copyright 1991, 1994, 2001-2, 2005, 2008-17, Norman Gray.
+% Mercurial revision 558acb5f2e14, 2017-11-03 14:43 +0000, tag 0.4.1 + 0
font_identifier "FEYN"; font_size 11pt#;
@@ -22,6 +22,12 @@ blobr# := 7pt#; % radius of blobs and crosses
on_math_axis := 1;
+% Boson wiggles
+boson_wiggles := 4; %this must be an even number
+boson_wiggles_loop_small := 4;
+boson_wiggles_loop_normal := 6;
+boson_wiggles_loop_large := 8;
+
% We want the roman digits from the corresponding cmr font, and that's
% all. Therefore, we don't want to obey the `generate' command in
% cmr??.mf. To do this, we read in cmbase, and then set generate to
diff --git a/Master/texmf-dist/fonts/source/public/feyn/feyn12.mf b/Master/texmf-dist/fonts/source/public/feyn/feyn12.mf
index 1edf0bf33bd..eb8ea8864ec 100644
--- a/Master/texmf-dist/fonts/source/public/feyn/feyn12.mf
+++ b/Master/texmf-dist/fonts/source/public/feyn/feyn12.mf
@@ -1,7 +1,7 @@
-% Feynman diagram font, 12pt display size, release 0.3.3, 2009 October 8.
+% Feynman diagram font, 12pt display size, release 0.4.1, 2017 November 03.
%
-% Copyright 1991, 1994, 2001, Norman Gray <norman@astro.gla.ac.uk>
-% Mercurial revision 204fc9a2e560, 2009-10-08 12:56 +0100
+% This software is copyright 1991, 1994, 2001-2, 2005, 2008-17, Norman Gray.
+% Mercurial revision 558acb5f2e14, 2017-11-03 14:43 +0000, tag 0.4.1 + 0
font_identifier "FEYN"; font_size 12pt#;
@@ -22,6 +22,12 @@ blobr# := 7.5pt#; % radius of blobs and crosses
on_math_axis := 1;
+% Boson wiggles
+boson_wiggles := 4; %this must be an even number
+boson_wiggles_loop_small := 4;
+boson_wiggles_loop_normal := 6;
+boson_wiggles_loop_large := 8;
+
% We want the roman digits from the corresponding cmr font, and that's
% all. Therefore, we don't want to obey the `generate' command in
% cmr??.mf. To do this, we read in cmbase, and then set generate to
diff --git a/Master/texmf-dist/fonts/source/public/feyn/feyn18.mf b/Master/texmf-dist/fonts/source/public/feyn/feyn18.mf
index a89dee06730..360e822304e 100644
--- a/Master/texmf-dist/fonts/source/public/feyn/feyn18.mf
+++ b/Master/texmf-dist/fonts/source/public/feyn/feyn18.mf
@@ -1,7 +1,7 @@
-% Feynman diagram font, 18pt display size, release 0.3.3, 2009 October 8.
+% Feynman diagram font, 18pt display size, release 0.4.1, 2017 November 03.
%
-% Copyright 1991, 1994, 2001, Norman Gray <norman@astro.gla.ac.uk>
-% Mercurial revision 204fc9a2e560, 2009-10-08 12:56 +0100
+% This software is copyright 1991, 1994, 2001-2, 2005, 2008-17, Norman Gray.
+% Mercurial revision 558acb5f2e14, 2017-11-03 14:43 +0000, tag 0.4.1 + 0
font_identifier "FEYN"; font_size 18pt#;
@@ -22,6 +22,12 @@ blobr# := 10pt#; % radius of blobs and crosses
on_math_axis := 1;
+% Boson wiggles
+boson_wiggles := 4; %this must be an even number
+boson_wiggles_loop_small := 4;
+boson_wiggles_loop_normal := 6;
+boson_wiggles_loop_large := 8;
+
% We want the roman digits from the corresponding cmr font, and that's
% all. Therefore, we don't want to obey the `generate' command in
% cmr??.mf. To do this, we read in cmbase, and then set generate to
diff --git a/Master/texmf-dist/fonts/source/public/feyn/feyn24.mf b/Master/texmf-dist/fonts/source/public/feyn/feyn24.mf
index 029e55274d8..fae595c9748 100644
--- a/Master/texmf-dist/fonts/source/public/feyn/feyn24.mf
+++ b/Master/texmf-dist/fonts/source/public/feyn/feyn24.mf
@@ -1,9 +1,9 @@
-% Feynman diagram font, 24pt display size, release 0.3.3, 2009 October 8.
+% Feynman diagram font, 24pt display size, release 0.4.1, 2017 November 03.
%
-% Copyright 1991, 1994, 2001, Norman Gray <norman@astro.gla.ac.uk>
-% Mercurial revision 204fc9a2e560, 2009-10-08 12:56 +0100
+% This software is copyright 1991, 1994, 2001-2, 2005, 2008-17, Norman Gray.
+% Mercurial revision 558acb5f2e14, 2017-11-03 14:43 +0000, tag 0.4.1 + 0
-font_identifier "FEYN"; font_size 10pt#;
+font_identifier "FEYN"; font_size 24pt#;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
@@ -22,6 +22,12 @@ blobr# := 20pt#; % radius of blobs and crosses
on_math_axis := 1;
+% Boson wiggles
+boson_wiggles := 4; %this must be an even number
+boson_wiggles_loop_small := 4;
+boson_wiggles_loop_normal := 6;
+boson_wiggles_loop_large := 8;
+
% We want the roman digits from the corresponding cmr font, and that's
% all. Therefore, we don't want to obey the `generate' command in
% cmr??.mf. To do this, we read in cmbase, and then set generate to
diff --git a/Master/texmf-dist/fonts/source/public/feyn/feynmac.mf b/Master/texmf-dist/fonts/source/public/feyn/feynmac.mf
index 3511d1bb4a0..c99ac3a8885 100644
--- a/Master/texmf-dist/fonts/source/public/feyn/feynmac.mf
+++ b/Master/texmf-dist/fonts/source/public/feyn/feynmac.mf
@@ -1,7 +1,7 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% Macros to support feyn.mf
-% Release 0.3.3, 2009 October 8
+% Release 0.4.1, 2017 November 03
def looselink = ..tension 0.75.. enddef;
@@ -16,8 +16,7 @@ def dirlooselink(expr point,rtn) =
% Draw three related characters, one plain, one with an right-pointing
% arrow, and one with a left-pointing one, at basechar, basechar-0x20 and
% basechar-0x60.
-def threechars(expr basechar, name, cp, apoint, wsharp, hsharp, dsharp,
- anudge, apos) =
+def threechars(expr basechar, name, cp, apoint, wsharp, hsharp, dsharp, anudge, apos) =
% basechar : the charcode of the character in the lowercase range
% name : the name of the character
% cp : the path to be drawn
diff --git a/Master/texmf-dist/fonts/source/public/feyn/feyntext10.mf b/Master/texmf-dist/fonts/source/public/feyn/feyntext10.mf
index 33afee2d8a8..08a0db7b798 100644
--- a/Master/texmf-dist/fonts/source/public/feyn/feyntext10.mf
+++ b/Master/texmf-dist/fonts/source/public/feyn/feyntext10.mf
@@ -1,7 +1,7 @@
-% Feynman diagram font, 10pt text size, release 0.3.3, 2009 October 8.
+% Feynman diagram font, 10pt text size, release 0.4.1, 2017 November 03.
%
-% Copyright 1991, 1994, 2001, Norman Gray <norman@astro.gla.ac.uk>
-% Mercurial revision 204fc9a2e560, 2009-10-08 12:56 +0100
+% This software is copyright 1991, 1994, 2001-2, 2005, 2008-17, Norman Gray.
+% Mercurial revision 558acb5f2e14, 2017-11-03 14:43 +0000, tag 0.4.1 + 0
font_identifier "FEYN"; font_size 10pt#;
@@ -22,6 +22,12 @@ blobr# := 3.5pt#; % radius of blobs and crosses
on_math_axis := 0;
+% Boson wiggles
+boson_wiggles := 4; %this must be an even number
+boson_wiggles_loop_small := 4;
+boson_wiggles_loop_normal := 6;
+boson_wiggles_loop_large := 8;
+
% We want the roman digits from the corresponding cmr font, and that's
% all. Therefore, we don't want to obey the `generate' command in
% cmr??.mf. To do this, we read in cmbase, and then set generate to
diff --git a/Master/texmf-dist/fonts/source/public/feyn/feyntext11.mf b/Master/texmf-dist/fonts/source/public/feyn/feyntext11.mf
index 35fb120d542..7280b4f6331 100644
--- a/Master/texmf-dist/fonts/source/public/feyn/feyntext11.mf
+++ b/Master/texmf-dist/fonts/source/public/feyn/feyntext11.mf
@@ -1,7 +1,7 @@
-% Feynman diagram font, 11pt text size, release 0.3.3, 2009 October 8.
+% Feynman diagram font, 11pt text size, release 0.4.1, 2017 November 03.
%
-% Copyright 1991, 1994, 2001, Norman Gray <norman@astro.gla.ac.uk>
-% Mercurial revision 204fc9a2e560, 2009-10-08 12:56 +0100
+% This software is copyright 1991, 1994, 2001-2, 2005, 2008-17, Norman Gray.
+% Mercurial revision 558acb5f2e14, 2017-11-03 14:43 +0000, tag 0.4.1 + 0
font_identifier "FEYN"; font_size 11pt#;
@@ -22,6 +22,12 @@ blobr# := 3.5pt#; % radius of blobs and crosses
on_math_axis := 0;
+% Boson wiggles
+boson_wiggles := 4; %this must be an even number
+boson_wiggles_loop_small := 4;
+boson_wiggles_loop_normal := 6;
+boson_wiggles_loop_large := 8;
+
% We want the roman digits from the corresponding cmr font, and that's
% all. Therefore, we don't want to obey the `generate' command in
% cmr??.mf. To do this, we read in cmbase, and then set generate to
diff --git a/Master/texmf-dist/fonts/source/public/feyn/feyntext12.mf b/Master/texmf-dist/fonts/source/public/feyn/feyntext12.mf
index 7a93770391d..1abf5cbe87d 100644
--- a/Master/texmf-dist/fonts/source/public/feyn/feyntext12.mf
+++ b/Master/texmf-dist/fonts/source/public/feyn/feyntext12.mf
@@ -1,7 +1,7 @@
-% Feynman diagram font, 12pt text size, release 0.3.3, 2009 October 8.
+% Feynman diagram font, 12pt text size, release 0.4.1, 2017 November 03.
%
-% Copyright 1991, 1994, 2001, Norman Gray <norman@astro.gla.ac.uk>
-% Mercurial revision 204fc9a2e560, 2009-10-08 12:56 +0100
+% This software is copyright 1991, 1994, 2001-2, 2005, 2008-17, Norman Gray.
+% Mercurial revision 558acb5f2e14, 2017-11-03 14:43 +0000, tag 0.4.1 + 0
font_identifier "FEYN"; font_size 12pt#;
@@ -22,6 +22,12 @@ blobr# := 4pt#; % radius of blobs and crosses
on_math_axis := 0;
+% Boson wiggles
+boson_wiggles := 4; %this must be an even number
+boson_wiggles_loop_small := 4;
+boson_wiggles_loop_normal := 6;
+boson_wiggles_loop_large := 8;
+
% We want the roman digits from the corresponding cmr font, and that's
% all. Therefore, we don't want to obey the `generate' command in
% cmr??.mf. To do this, we read in cmbase, and then set generate to
diff --git a/Master/texmf-dist/fonts/source/public/feyn/feyntext18.mf b/Master/texmf-dist/fonts/source/public/feyn/feyntext18.mf
index 552862fb6aa..5798fe7c92a 100644
--- a/Master/texmf-dist/fonts/source/public/feyn/feyntext18.mf
+++ b/Master/texmf-dist/fonts/source/public/feyn/feyntext18.mf
@@ -1,7 +1,7 @@
-% Feynman diagram font, 18pt text size, release 0.3.3, 2009 October 8.
+% Feynman diagram font, 18pt text size, release 0.4.1, 2017 November 03.
%
-% Copyright 1991, 1994, 2001, Norman Gray <norman@astro.gla.ac.uk>
-% Mercurial revision 204fc9a2e560, 2009-10-08 12:56 +0100
+% This software is copyright 1991, 1994, 2001-2, 2005, 2008-17, Norman Gray.
+% Mercurial revision 558acb5f2e14, 2017-11-03 14:43 +0000, tag 0.4.1 + 0
font_identifier "FEYN"; font_size 18pt#;
@@ -22,6 +22,12 @@ blobr# := 7pt#; % radius of blobs and crosses
on_math_axis := 0;
+% Boson wiggles
+boson_wiggles := 4; %this must be an even number
+boson_wiggles_loop_small := 4;
+boson_wiggles_loop_normal := 6;
+boson_wiggles_loop_large := 8;
+
% We want the roman digits from the corresponding cmr font, and that's
% all. Therefore, we don't want to obey the `generate' command in
% cmr??.mf. To do this, we read in cmbase, and then set generate to
diff --git a/Master/texmf-dist/fonts/source/public/feyn/feyntext24.mf b/Master/texmf-dist/fonts/source/public/feyn/feyntext24.mf
index 56297781d12..9933f42804d 100644
--- a/Master/texmf-dist/fonts/source/public/feyn/feyntext24.mf
+++ b/Master/texmf-dist/fonts/source/public/feyn/feyntext24.mf
@@ -1,7 +1,7 @@
-% Feynman diagram font, 24pt text size, release 0.3.3, 2009 October 8.
+% Feynman diagram font, 24pt text size, release 0.4.1, 2017 November 03.
%
-% Copyright 1991, 1994, 2001, Norman Gray <norman@astro.gla.ac.uk>
-% Mercurial revision 204fc9a2e560, 2009-10-08 12:56 +0100
+% This software is copyright 1991, 1994, 2001-2, 2005, 2008-17, Norman Gray.
+% Mercurial revision 558acb5f2e14, 2017-11-03 14:43 +0000, tag 0.4.1 + 0
font_identifier "FEYN"; font_size 24pt#;
@@ -22,6 +22,12 @@ blobr# := 11pt#; % radius of blobs and crosses
on_math_axis := 0;
+% Boson wiggles
+boson_wiggles := 4; %this must be an even number
+boson_wiggles_loop_small := 4;
+boson_wiggles_loop_normal := 6;
+boson_wiggles_loop_large := 8;
+
% We want the roman digits from the corresponding cmr font, and that's
% all. Therefore, we don't want to obey the `generate' command in
% cmr??.mf. To do this, we read in cmbase, and then set generate to
diff --git a/Master/texmf-dist/fonts/source/public/feyn/feynx10.mf b/Master/texmf-dist/fonts/source/public/feyn/feynx10.mf
new file mode 100644
index 00000000000..2cfbe3d94d6
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/feyn/feynx10.mf
@@ -0,0 +1,47 @@
+% Feynman diagram font, 10pt extended size, release 0.4.1, 2017 November 03.
+%
+% This software is copyright 1991, 1994, 2001-2, 2005, 2008-17, Norman Gray.
+% Mercurial revision 558acb5f2e14, 2017-11-03 14:43 +0000, tag 0.4.1 + 0
+
+font_identifier "FEYNX"; font_size 10pt#;
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% First the base size
+
+module# := 17.5pt#; % 175% of 10pt
+
+% phfudge is ... what?!
+phfudge# := 0pt#; % must be, for \Diagram macro
+
+linewidth# := 0.75pt#; % pen width
+thinlinewidth# := 0.5pt#; % thin pen
+bigarrow# := 6pt#; % size of arrows
+littlearrow# := 4pt#;
+blobr# := 6.5pt#; % radius of blobs and crosses
+
+on_math_axis := 1;
+
+% Boson wiggles
+boson_wiggles := 8; %this must be an even number
+boson_wiggles_loop_small := 6;
+boson_wiggles_loop_normal := 8;
+boson_wiggles_loop_large := 12;
+
+% We want the roman digits from the corresponding cmr font, and that's
+% all. Therefore, we don't want to obey the `generate' command in
+% cmr??.mf. To do this, we read in cmbase, and then set generate to
+% gobble its argument.
+def gobble primary g=enddef; % gobbles its argument
+input cmbase; % Read it explicitly, rather than
+ % implicitly within cmr10
+let generate=gobble;
+input cmr10; % ...but miss out the `generate roman'
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% To business....
+
+input feyn;
+
+end
diff --git a/Master/texmf-dist/fonts/source/public/feyn/feynx11.mf b/Master/texmf-dist/fonts/source/public/feyn/feynx11.mf
new file mode 100644
index 00000000000..4e789fea9da
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/feyn/feynx11.mf
@@ -0,0 +1,47 @@
+% Feynman diagram font, 11pt extended size, release 0.4.1, 2017 November 03.
+%
+% This software is copyright 1991, 1994, 2001-2, 2005, 2008-17, Norman Gray.
+% Mercurial revision 558acb5f2e14, 2017-11-03 14:43 +0000, tag 0.4.1 + 0
+
+font_identifier "FEYNX"; font_size 11pt#;
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% First the base size
+
+module# := 19.25pt#; % 175% of 11pt
+
+% phfudge is ... what?!
+phfudge# := 0pt#; % must be, for \Diagram macro
+
+linewidth# := 0.85pt#; % pen width
+thinlinewidth# := 0.55pt#; % thin pen
+bigarrow# := 6.5pt#; % size of arrows
+littlearrow# := 4.5pt#;
+blobr# := 7pt#; % radius of blobs and crosses
+
+on_math_axis := 1;
+
+% Boson wiggles
+boson_wiggles := 8; %this must be an even number
+boson_wiggles_loop_small := 6;
+boson_wiggles_loop_normal := 8;
+boson_wiggles_loop_large := 12;
+
+% We want the roman digits from the corresponding cmr font, and that's
+% all. Therefore, we don't want to obey the `generate' command in
+% cmr??.mf. To do this, we read in cmbase, and then set generate to
+% gobble its argument.
+def gobble primary g=enddef; % gobbles its argument
+input cmbase; % Read it explicitly, rather than
+ % implicitly within cmr10
+let generate=gobble;
+input cmr11; % ...but miss out the `generate roman'
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% To business....
+
+input feyn;
+
+end
diff --git a/Master/texmf-dist/fonts/source/public/feyn/feynx12.mf b/Master/texmf-dist/fonts/source/public/feyn/feynx12.mf
new file mode 100644
index 00000000000..ff77747b945
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/feyn/feynx12.mf
@@ -0,0 +1,47 @@
+% Feynman diagram font, 12pt extended size, release 0.4.1, 2017 November 03.
+%
+% This software is copyright 1991, 1994, 2001-2, 2005, 2008-17, Norman Gray.
+% Mercurial revision 558acb5f2e14, 2017-11-03 14:43 +0000, tag 0.4.1 + 0
+
+font_identifier "FEYNX"; font_size 12pt#;
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% First the base size
+
+module# := 21pt#; % 175% * 12pt
+
+% phfudge is ... what?!
+phfudge# := 0pt#; % must be, for \Diagram macro
+
+linewidth# := 0.9pt#; % pen width
+thinlinewidth# := 0.6pt#; % thin pen
+bigarrow# := 7pt#; % size of arrows
+littlearrow# := 5pt#;
+blobr# := 7.5pt#; % radius of blobs and crosses
+
+on_math_axis := 1;
+
+% Boson wiggles
+boson_wiggles := 8; %this must be an even number
+boson_wiggles_loop_small := 6;
+boson_wiggles_loop_normal := 8;
+boson_wiggles_loop_large := 12;
+
+% We want the roman digits from the corresponding cmr font, and that's
+% all. Therefore, we don't want to obey the `generate' command in
+% cmr??.mf. To do this, we read in cmbase, and then set generate to
+% gobble its argument.
+def gobble primary g=enddef; % gobbles its argument
+input cmbase; % Read it explicitly, rather than
+ % implicitly within cmr10
+let generate=gobble;
+input cmr12; % ...but miss out the `generate roman'
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% To business....
+
+input feyn;
+
+end
diff --git a/Master/texmf-dist/fonts/source/public/feyn/feynx18.mf b/Master/texmf-dist/fonts/source/public/feyn/feynx18.mf
new file mode 100644
index 00000000000..ae282a3d226
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/feyn/feynx18.mf
@@ -0,0 +1,47 @@
+% Feynman diagram font, 18pt extended size, release 0.4.1, 2017 November 03.
+%
+% This software is copyright 1991, 1994, 2001-2, 2005, 2008-17, Norman Gray.
+% Mercurial revision 558acb5f2e14, 2017-11-03 14:43 +0000, tag 0.4.1 + 0
+
+font_identifier "FEYNX"; font_size 18pt#;
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% First the base size
+
+module# := 31.5pt#; % 175% of 18pt
+
+% phfudge is ... what?!
+phfudge# := 0pt#; % must be, for \Diagram macro
+
+linewidth# := 1.5pt#; % pen width
+thinlinewidth# := 0.75pt#; % thin pen
+bigarrow# := 9pt#; % size of arrows
+littlearrow# := 6pt#;
+blobr# := 10pt#; % radius of blobs and crosses
+
+on_math_axis := 1;
+
+% Boson wiggles
+boson_wiggles := 8; %this must be an even number
+boson_wiggles_loop_small := 6;
+boson_wiggles_loop_normal := 8;
+boson_wiggles_loop_large := 12;
+
+% We want the roman digits from the corresponding cmr font, and that's
+% all. Therefore, we don't want to obey the `generate' command in
+% cmr??.mf. To do this, we read in cmbase, and then set generate to
+% gobble its argument.
+def gobble primary g=enddef; % gobbles its argument
+input cmbase; % Read it explicitly, rather than
+ % implicitly within cmr10
+let generate=gobble;
+input cmr10; % ...but miss out the `generate roman'
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% To business....
+
+input feyn;
+
+end
diff --git a/Master/texmf-dist/fonts/source/public/feyn/feynx24.mf b/Master/texmf-dist/fonts/source/public/feyn/feynx24.mf
new file mode 100644
index 00000000000..4279e99113a
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/feyn/feynx24.mf
@@ -0,0 +1,47 @@
+% Feynman diagram font, 24pt extended size, release 0.4.1, 2017 November 03.
+%
+% This software is copyright 1991, 1994, 2001-2, 2005, 2008-17, Norman Gray.
+% Mercurial revision 558acb5f2e14, 2017-11-03 14:43 +0000, tag 0.4.1 + 0
+
+font_identifier "FEYNX"; font_size 24pt#;
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% First the base size
+
+module# := 42pt#; % 175% of 24pt
+
+% phfudge is ... what?!
+phfudge# := 0pt#; % must be, for \Diagram macro
+
+linewidth# := 2.25pt#; % pen width
+thinlinewidth# := 1.5pt#; % thin pen
+bigarrow# := 9pt#; % size of arrows
+littlearrow# := 12pt#;
+blobr# := 20pt#; % radius of blobs and crosses
+
+on_math_axis := 1;
+
+% Boson wiggles
+boson_wiggles := 8; %this must be an even number
+boson_wiggles_loop_small := 6;
+boson_wiggles_loop_normal := 8;
+boson_wiggles_loop_large := 12;
+
+% We want the roman digits from the corresponding cmr font, and that's
+% all. Therefore, we don't want to obey the `generate' command in
+% cmr??.mf. To do this, we read in cmbase, and then set generate to
+% gobble its argument.
+def gobble primary g=enddef; % gobbles its argument
+input cmbase; % Read it explicitly, rather than
+ % implicitly within cmr10
+let generate=gobble;
+input cmr10; % ...but miss out the `generate roman'
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% To business....
+
+input feyn;
+
+end