summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2015-06-20 13:18:02 +0000
committerKarl Berry <karl@freefriends.org>2015-06-20 13:18:02 +0000
commit327fe7db70203b43deb33d496a9d2f6736032981 (patch)
tree2326ee7532b178a460575b8327326ed5747c226e /Master/texmf-dist/fonts/source
parent265eb77be2ea7991cb155d175740f1978b9aff45 (diff)
fge (21may15)
git-svn-id: svn://tug.org/texlive/trunk@37628 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/fonts/source')
-rw-r--r--Master/texmf-dist/fonts/source/public/fge/fgebase.mf59
-rw-r--r--Master/texmf-dist/fonts/source/public/fge/fgeit.mf169
-rw-r--r--Master/texmf-dist/fonts/source/public/fge/fgeit10.mf1
-rw-r--r--Master/texmf-dist/fonts/source/public/fge/fgerm.mf923
-rw-r--r--Master/texmf-dist/fonts/source/public/fge/fgerm10.mf1
5 files changed, 617 insertions, 536 deletions
diff --git a/Master/texmf-dist/fonts/source/public/fge/fgebase.mf b/Master/texmf-dist/fonts/source/public/fge/fgebase.mf
index 3b990c9ca67..05df8510900 100644
--- a/Master/texmf-dist/fonts/source/public/fge/fgebase.mf
+++ b/Master/texmf-dist/fonts/source/public/fge/fgebase.mf
@@ -1,84 +1,83 @@
% 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 $,$$,$$$) =
+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
+ 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 $,$$,$$$) =
+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
+ 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 $,$$,$$$) =
+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
+ 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$$|
+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@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] ]
+ 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);
+ penlabels(@0, @1, @2);
enddef;
-% horizontal serifs for rotated characters: here interchange x & y,
+% 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 =
+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$$);
+ 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$$);
+ 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$$];
+ z@3 = whatever[z$, z$$];
if jut<0:
z@2-penoffset downward of currentpen =
z$r-penoffset downward of pen_[tiny.nib]+whatever*downward;
@@ -94,8 +93,8 @@ vardef hserif(suffix $,$$,@) % serif at |z$| for stroke from |z$$|
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);
+ 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
index d06e2f83fcd..74620e52799 100644
--- a/Master/texmf-dist/fonts/source/public/fge/fgeit.mf
+++ b/Master/texmf-dist/fonts/source/public/fge/fgeit.mf
@@ -1,6 +1,5 @@
% 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;
@@ -15,15 +14,15 @@ slantfont slantfge;
% the left.
cmchar "inverted f with hook";
-beginchar("f",7.5u#,asc_height#,desc_depth#);
+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#);
+ adjust_fit(serif_fit# + 2stem_shift#, serif_fit# - 2stem_shift#);
pickup tiny.nib;
% stem
- pos1(stem',0); pos2(stem',0);
+ pos1(stem', 0); pos2(stem', 0);
rt.x1r = hround(w/2 + 5u/4 + stem'/2);
x1 = x2;
@@ -34,8 +33,8 @@ beginchar("f",7.5u#,asc_height#,desc_depth#);
% bar
- pos3(bar,90);
- pos4(bar,90);
+ pos3(bar, 90);
+ pos4(bar, 90);
bot y3l = bot y4l = 0;
rt x4 = hround(w - 1/3u);
@@ -45,41 +44,41 @@ beginchar("f",7.5u#,asc_height#,desc_depth#);
% arc and bulb
- pos5(vair',-90);
- pos6(hair,-180);
- pos7(flare,-180);
+ pos5(vair', -90);
+ pos6(hair, -180);
+ pos7(flare, -180);
- x5 = 1/2[x2,x6r];
+ 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]);
+ (x, y5r) = whatever[z5l, z2l];
+ x5r := max(x, 1/2[x6r, x5]);
filldraw stroke z2e{down}...z5e{left};
- bulb(5,6,7);
+ bulb(5, 6, 7);
% hook
- pos8(0.5[hair,curve],0);
+ pos8(0.5[hair, curve], 0);
rt x8r = lft x1l;
y8 = 0.5x_height;
- pos9(curve,90);
+ pos9(curve, 90);
top y9r = x_height + oo;
- x9 = 0.4[0,x8l];
+ x9 = 0.4[0, x8l];
- pos10(hair,180);
- pos11(hair,-90);
+ 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);
+ penlabels(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11);
endchar;
@@ -91,9 +90,9 @@ endchar;
% needed for consistency with computer modern's d.
cmchar "inverted d with hook";
-beginchar("p",13u#,asc_height#,desc_depth#);
+beginchar("p", 13u#, asc_height#, desc_depth#);
italcorr 0.7x_height#*slant - u# + 0.5curve#;
- adjust_fit(0,0);
+ adjust_fit(0, 0);
numeric hook_jut;
hook_jut = w - 9u;
@@ -101,74 +100,74 @@ beginchar("p",13u#,asc_height#,desc_depth#);
pickup fine.nib;
x0 = hook_jut;
x2 - 0.5stem - hook_jut = hround(2.5u-.5stem);
- hook_in(0,1,2); % opening hook
+ hook_in(0, 1, 2); % opening hook
- pos4(hair,-180);
- pos5(vair,-90);
- pos6(curve,0);
- pos7(vair,90);
+ 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];
+ x5=x7=.5[x4, x6];
bot y5r=-oo;
top y7r=x_height+oo;
- y4=y6=.5[y5,y7];
+ 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
+ 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);
+ 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
+ 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#);
+ math_fit(-min(2/3x_height#*slant-.5hair#-.5u#,
+ 2u#-.5stem#-desc_depth#*slant), ic#);
% bit ad-hoc this
- pos8(hair,0);
+ pos8(hair, 0);
z8r=z0l;
- pos9(curve,90);
- pos10(hair,180);
+ pos9(curve, 90);
+ pos10(hair, 180);
- x9 = 1/2[x8,x10];
- y9r = 1/2[x_height,h];
- y10r = 1/4[y9l,y8];
+ 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);
+ filldraw stroke super_arc.e(8, 9) & super_arc.e(9, 10);
- penlabels(0,1,2,3,4,5,6,7,8,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#);
+beginchar(oct "021", 12u#, x_height#, desc_depth#);
italcorr 0.7x_height#*slant - 0.5u#;
- adjust_fit(0,0);
+ adjust_fit(0, 0);
pickup crisp.nib;
slope := 20;
obstem := stem/cosd(slope);
tsep := 3.75*stem;
- thair := 0.3[hair,obstem];
+ 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);
+ pos1(stem, 0);
+ pos2(obstem, 0);
+ pos4(hair, 180-slope);
+ pos5(hair, -slope);
+ pos11(thair, 90);
%x1l = 0.5u;
x2 = x1;
@@ -177,32 +176,32 @@ beginchar(oct "021",12u#,x_height#,desc_depth#);
z2-z3 = whatever*dir(180-slope);
- z4 = 1.13[z3,z2];
- z5 = whatever[z3,z2];
+ 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);
+ 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);
+ 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);
+ 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);
+ pos7(stem, 0);
+ pos8(hair, 90);
+ pos9(obstem, 0);
+ pos10(hair, 180-slope);
x7-x1 = x9-x2 = tsep;
y7 = y1;
@@ -210,33 +209,33 @@ beginchar(oct "021",12u#,x_height#,desc_depth#);
% the vertical lift point
- x8 = 0.3[x9,x2];
+ x8 = 0.3[x9, x2];
top y8r = x_height + o;
- z10l = 0.8[z1r,z2r];
+ 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
+ % 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);
+ penlabels(7, 8, 9, 10);
endchar;
cmchar "inverted F";
-beginchar("F",11.5u#-width_adj#,x_height#,desc_depth#);
+beginchar("F", 11.5u#-width_adj#, x_height#, desc_depth#);
italcorr x_height#*slant-cap_jut#+0.5u#;
- adjust_fit(0,cap_serif_fit#);
+ adjust_fit(0, cap_serif_fit#);
h := vround(h-stem_corr);
pickup tiny.nib;
- pos1(cap_stem,0);
- pos2(cap_stem,0);
+ pos1(cap_stem, 0);
+ pos2(cap_stem, 0);
- rt x1r = rt x2r = hround w - max(2u,3u-0.5cap_stem);
+ rt x1r = rt x2r = hround w - max(2u, 3u-0.5cap_stem);
top y1 = x_height;
bot y2 = -desc_depth;
@@ -244,24 +243,24 @@ beginchar("F",11.5u#-width_adj#,x_height#,desc_depth#);
pickup crisp.nib;
- pos3(slab,-90);
- pos4(hair,180);
+ 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
+ arm(3, 4, e, beak_darkness, beak_jut); % upper arm and beak
- pos5(cap_bar,-90);
- pos6(hair,180);
+ pos5(cap_bar, -90);
+ pos6(hair, 180);
- top y5l = vround(.5[y2,y1]+.5cap_bar);
+ top y5l = vround(.5[y2, y1]+.5cap_bar);
x5 = x1;
- pos0(cap_bar,90);
+ pos0(cap_bar, 90);
- pos7(hair,180);
+ pos7(hair, 180);
z0 = z5;
x6 = x7;
y6-y5l = y0l-y7;
@@ -270,14 +269,14 @@ beginchar("F",11.5u#-width_adj#,x_height#,desc_depth#);
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
+ 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
+ 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);
+ math_fit(0, ic#-2.5u#);
+ penlabels(0, 1, 2, 3, 4, 5, 6, 7);
endchar;
diff --git a/Master/texmf-dist/fonts/source/public/fge/fgeit10.mf b/Master/texmf-dist/fonts/source/public/fge/fgeit10.mf
index 2f366ea0cdf..3c90db05262 100644
--- a/Master/texmf-dist/fonts/source/public/fge/fgeit10.mf
+++ b/Master/texmf-dist/fonts/source/public/fge/fgeit10.mf
@@ -1,7 +1,6 @@
% 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
diff --git a/Master/texmf-dist/fonts/source/public/fge/fgerm.mf b/Master/texmf-dist/fonts/source/public/fge/fgerm.mf
index 303760c4152..8e121eee212 100644
--- a/Master/texmf-dist/fonts/source/public/fge/fgerm.mf
+++ b/Master/texmf-dist/fonts/source/public/fge/fgerm.mf
@@ -1,6 +1,5 @@
% fgerm.mf : fge roman charcters
% J.J. Green 2005-2006
-% $Id: fgerm.mf,v 1.26 2009/02/27 21:49:33 jjg Exp $
mode_setup;
font_setup;
@@ -11,12 +10,12 @@ proofing := 2;
% are not members of themselves.
cmchar "Overturned A";
-beginchar("A",13u#,x_height#,desc_depth#);
- adjust_fit(cap_serif_fit#,cap_serif_fit#);
+beginchar("A", 13u#, x_height#, desc_depth#);
+ adjust_fit(cap_serif_fit#, cap_serif_fit#);
- numeric left_stem,right_stem,outer_jut,alpha;
+ numeric left_stem, right_stem, outer_jut, alpha;
right_stem = cap_stem-stem_corr;
- left_stem = min(cap_hair,right_stem);
+ left_stem = min(cap_hair, right_stem);
outer_jut = 0.8cap_jut;
w-x1l = x4r = l+letter_fit+outer_jut+0.5u;
@@ -25,19 +24,19 @@ beginchar("A",13u#,x_height#,desc_depth#);
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);
+ 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];
+ 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;
+ 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];
+ 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;
@@ -51,85 +50,85 @@ beginchar("A",13u#,x_height#,desc_depth#);
% 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);
+ penpos11(alpha*left_stem, 0);
+ penpos12(alpha*left_stem, 0);
z11 = z1;
z12 = z2;
- penpos13(alpha*right_stem,0);
- penpos14(alpha*right_stem,0);
+ 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);
+ 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);
+ 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);
+ 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#);
+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',0);
- pos2(stem',0);
+ pos1(stem', 0);
+ pos2(stem', 0);
rt x1r = rt x2r = hround(w-2.5u+.5stem');
top y1 = h;
- y2 = y4 = 0.5[0,y3];
+ y2 = y4 = 0.5[0, y3];
- penpos3(vair-fine,270);
+ penpos3(vair-fine, 270);
fine.bot y3r = -d-oo;
filldraw stroke z1e--z2e; % stem
- numeric stem_edge,curve';
+ numeric stem_edge, curve';
stem_edge = lft x1l;
- curve' = hround .5[stem',curve];
+ curve' = hround .5[stem', curve];
pickup fine.nib;
- pos4(curve',180);
- pos5(vair,90);
- pos2'(stem',0);
+ pos4(curve', 180);
+ pos5(vair, 90);
+ pos2'(stem', 0);
z2' = z2;
- x3 = 0.5[x2,x4];
+ 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
+ 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);
+ pos5'(vair, 270);
z5' = z5;
- pos6(curve',180);
- pos7(vair,90);
+ pos6(curve', 180);
+ pos7(vair, 90);
lft x6r = hround(0.5u)+3eps;
y6 = .6x_height;
top y7r = x_height+oo;
- pos8(hair,0);
+ 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
+ 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);
+ pos9(5/7[vair, flare], 0);
y9-(x9-lft x9r) = vround 0.93x_height;
- bulb(7,8,9); % bulb
+ bulb(7, 8, 9); % bulb
- dish_serif(1,2,b,0,epsilon,c,1/3,jut); % serif
+ dish_serif(1, 2, b, 0, epsilon, c, 1/3, jut); % serif
- penlabels(0,1,2,3,4,5,6,7,8);
+ penlabels(0, 1, 2, 3, 4, 5, 6, 7, 8);
endchar;
@@ -142,29 +141,29 @@ endchar;
% 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);
+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);
+ 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);
+ 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
+ varm(7, 8, a, 0.3beak_darkness, beak_jut); % arm and beak
pickup fine.nib;
- pos2(slab,180);
- pos3(.4[curve,cap_curve],90);
+ pos2(slab, 180);
+ pos3(.4[curve, cap_curve], 90);
lft x2r = 0.9u;
y2 = h/2;
@@ -174,61 +173,61 @@ beginchar("2",14u#,x_height#,0);
numeric bulb_diam;
bulb_diam=hround(flare+2/3(cap_stem-stem));
- pos0(bulb_diam,-90);
- pos1(cap_hair,-90);
+ 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];
+ %(x2l, y) = whatever[z1l, z2r];
%y2l := y;
- dlbulb(2,1,0); % bulb and arc
+ dlbulb(2, 1, 0); % bulb and arc
- pos4(0.25[hair_vair,cap_stem],90);
- pos5(hair_vair,90);
- pos6(hair_vair,90);
+ 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];
+ 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];
+ z4l = whatever[z6l, (0.50w, y3l)];
+ z5l = whatever[z6l, z4l];
% erase excess at left
- erase fill z4l--z6l--bot z6l--(x4l,bot y6l)--cycle;
+ 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);
+ penlabels(0, 1, 2, 3, 4, 5, 6, 7, 8);
endchar;
cmchar "upward 2";
-beginchar("4",14u#,x_height#,0);
- adjust_fit(0,0);
+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);
+ 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);
+ 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
+ varm(7, 8, a, .3beak_darkness, -beak_jut); % arm and beak
pickup fine.nib;
- pos2(slab,0);
- pos3(.4[curve,cap_curve],-90);
+ pos2(slab, 0);
+ pos3(.4[curve, cap_curve], -90);
rt x2r = w-0.9u;
y2 = h/2;
@@ -238,141 +237,141 @@ beginchar("4",14u#,x_height#,0);
numeric bulb_diam;
bulb_diam=hround(flare+2/3(cap_stem-stem));
- pos0(bulb_diam,90);
- pos1(cap_hair,90);
+ 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];
+ %(x2l, y) = whatever[z1l, z2r];
%y2l := y;
- dlbulb(2,1,0); % bulb and arc
+ dlbulb(2, 1, 0); % bulb and arc
- pos4(0.25[hair_vair,cap_stem],-90);
- pos5(hair_vair,-90);
- pos6(hair_vair,-90);
+ 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];
+ 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];
+ z4l = whatever[z6l, (0.50w, y3l)];
+ z5l = whatever[z6l, z4l];
- erase fill z4l--z6l--top z6l--(x4l,top y6l)--cycle;
+ 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);
+ penlabels(0, 1, 2, 3, 4, 5, 6, 7, 8);
endchar;
cmchar "downward 3";
-beginchar("3",14u#,x_height#,0);
- adjust_fit(0,0);
+beginchar("3", 14u#, x_height#, 0);
+ adjust_fit(0, 0);
- numeric top_thickness,mid_thickness,bot_thickness;
+ 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));
+ 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);
+ pos2(top_thickness, 180);
lft x2r = 0.9u;
- pos3(max(fine.breadth,.6[curve,cap_curve]-stem_corr),90);
+ 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];
+ pos4(vair, 0);
+ pos5(vair, 0);
+ pos6(mid_thickness, 180);
+ y2 = y6 = y8 = 0.5[0.75u, y7];
- pos7(cap_curve,90);
+ pos7(cap_curve, 90);
top y7r = hround(h+o);
- bot y5 = min(vround 3u,bot y6)-eps;
+ bot y5 = min(vround 3u, bot y6)-eps;
- pos8(bot_thickness,0);
+ pos8(bot_thickness, 0);
rt x8r = w-0.9u;
- x3 = 0.55[lft x4l,rt x2l];
- x7 = 0.5[lft x6l,rt x8l];
+ 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);
+ y4 = 1/3[y5, y3l];
+ z4 = z5 + whatever*(-0.1fig_height, 15u);
- filldraw stroke pulled_super_arc.e(2,3)(.5superpull)
+ 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
+ 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);
+ pos0(bulb_diam1, -90);
+ pos1(hair, -90);
lft y0r = hround 0.25u;
x0 = x3;
- dlbulb(2,1,0); % upper bulb
+ dlbulb(2, 1, 0); % upper bulb
- pos10(bulb_diam2,270);
- pos9(cap_hair,-90);
+ 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
+ drbulb(8, 9, 10); % lower bulb
- penlabels(0,1,2,3,4,5,6,7,8,9,10);
+ penlabels(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10);
endchar;
cmchar "upward B";
-beginchar("D",13u#,x_height#,0);
+beginchar("D", 13u#, x_height#, 0);
- numeric left_stem,right_curve,middle_weight;
+ 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);
+ 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);
+ 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];
+ x5 = 0.5[x4, x6];
x6 = x7;
x8l-x7l = vair;
z12r = rt z2;
x11 = x12;
- x10 = 0.5[x11,x9];
+ x10 = 0.5[x11, x9];
x8 = x9;
- 0.5[x7l,x8l] = u+0.48(w-2u);
+ 0.5[x7l, x8l] = u+0.48(w-2u);
y4 = y6;
y9 = y11 = y4+0.5u;
y7 = y8 = y1;
@@ -381,61 +380,61 @@ beginchar("D",13u#,x_height#,0);
y10r = vround(h+o);
right_curve = cap_curve-stem_corr;
- y4 = 0.45[y1,h+o];
+ 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
+ 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);
+ 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);
+ 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);
+beginchar("B", 13u#, x_height#, 0);
- numeric left_stem,right_curve,middle_weight;
+ 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);
+ 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);
+ 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];
+ x5 = 0.5[x4, x6];
x6 = x7;
x7l-x8l = vair;
z12r = lft z2;
x11 = x12;
- x10 = 0.5[x11,x9];
+ x10 = 0.5[x11, x9];
x8 = x9;
- 0.5[x7l,x8l] = u+0.52(w-2u);
+ 0.5[x7l, x8l] = u+0.52(w-2u);
y4 = y6;
y9 = y11 = y4-0.5u;
y7 = y8 = y1;
@@ -444,21 +443,21 @@ beginchar("B",13u#,x_height#,0);
y10r = vround(-o);
right_curve = cap_curve-stem_corr;
- y4 = 0.45[y1,-o];
+ 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
+ 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);
+ 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);
+ math_fit(0, 0.5ic#);
+ penlabels(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12);
endchar;
@@ -468,33 +467,33 @@ endchar;
% ascends half way between them
cmchar "upward C";
-beginchar("C",13u#,cap_height#,0);
- adjust_fit(0,0);
+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);
+ 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];
+ top y1r = top y5r = 0.5[x_height, h];
bot y3r = -o;
- y2 = y4 = 0.55[y3,y1];
+ y2 = y4 = 0.55[y3, y1];
lft x2r = u;
rt x4r = hround(w-u);
- x3 = 0.5[x2,x4];
+ 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
+ (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);
+ pos6(0.3[fine.breadth, cap_hair], 90);
y6r = y1r;
lft x6 = u;
y1r-y1'=2cap_curve-fine;
@@ -502,16 +501,16 @@ beginchar("C",13u#,cap_height#,0);
path upper_arc;
- upper_arc=z1{10(x2-x1),y2-y1}..z2{down};
+ 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
+ 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);
+ 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
@@ -519,45 +518,45 @@ endchar;
% head on the upward arrow is slighty wider than the
% rightward
-numeric fwdt,fjut,fang;
+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);
+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;
+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);
+ 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);
+ penlabels(@1, @2, @3);
enddef;
cmchar "Upward arrow with fletching";
-beginchar(oct "042",8u#,asc_height#+2u#,asc_depth#+2u#);
- adjust_fit(0,0);
+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);
+ pos1(rule_thickness, 0);
+ pos2(rule_thickness, 0);
+ pos3(rule_thickness, 90);
+ pos4(rule_thickness, 90);
- numeric headh,headw;
+ numeric headh, headw;
headw := (w-u)/2+eps;
headh := 0.36*w/(9u)*asc_height+eps;
@@ -569,12 +568,12 @@ beginchar(oct "042",8u#,asc_height#+2u#,asc_depth#+2u#);
x0-x3 = x4-x0 = headw;
y3 = y4 = y0 - headh;
- pos5(rule_thickness,angle(z4-z0));
+ pos5(rule_thickness, angle(z4-z0));
z5l=z0;
- pos6(rule_thickness,angle(z3-z0));
+ pos6(rule_thickness, angle(z3-z0));
z6l=z0;
- z9 = 0.2[0.5[z3,z4],z0];
+ z9 = 0.2[0.5[z3, z4], z0];
numeric rake;
@@ -585,13 +584,13 @@ beginchar(oct "042",8u#,asc_height#+2u#,asc_depth#+2u#);
numeric t; path p;
p=z4l{z9-z4}..z6r;
- t=xpart(p intersectiontimes((x2r,-d)--(x2r,h))); y2=ypart point t of p;
+ 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)
+ 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);
+ penlabels(0, 2, 3, 4, 5, 6, 9);
% fletching
@@ -599,30 +598,30 @@ beginchar(oct "042",8u#,asc_height#+2u#,asc_depth#+2u#);
y11-y10 = y12-y11 = y13-y12 = 3/5rake; % fletch separation
y11 = y1;
- fletch(11,10,a);
- fletch(12,11,b);
- fletch(13,12,c);
+ fletch(11, 10, a);
+ fletch(12, 11, b);
+ fletch(13, 12, c);
- labels(10,11,12,13);
+ 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);
+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);
+ 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;
+ numeric headw, headh;
headw = 0.26 asc_height+eps;
headh = 4u + eps;
@@ -630,12 +629,12 @@ beginchar(oct "041",22u#,v_center(spread#+rule_thickness#));
y3-y0 = y0-y4 = headw;
x3 = x4 = x0 - headh;
- pos5(rule_thickness,angle(z4-z0));
- pos6(rule_thickness,angle(z3-z0));
+ pos5(rule_thickness, angle(z4-z0));
+ pos6(rule_thickness, angle(z3-z0));
z5l = z0;
z6l = z0;
- z9 = 0.2[0.5[z3,z4],z0];
+ z9 = 0.2[0.5[z3, z4], z0];
numeric rake;
@@ -645,13 +644,13 @@ beginchar(oct "041",22u#,v_center(spread#+rule_thickness#));
numeric t; path p; p=z4l{z9-z4}..z6r;
- t=xpart(p intersectiontimes((0,y2l)--(w,y2l))); x2=xpart point t of p;
+ 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)
+ 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);
+ penlabels(0, 1, 2, 3, 4, 5, 6, 9);
% fletching
@@ -660,11 +659,11 @@ beginchar(oct "041",22u#,v_center(spread#+rule_thickness#));
x11-x10 = x12-x11 = x13-x12 = 3/5rake;
x11 = hround x1;
- fletch(11,10,a);
- fletch(12,11,b);
- fletch(13,12,c);
+ fletch(11, 10, a);
+ fletch(12, 11, b);
+ fletch(13, 12, c);
- labels(10,11,12,13);
+ labels(10, 11, 12, 13);
endchar;
@@ -672,17 +671,17 @@ endchar;
% romand.mf, with the strikeout added at the end
cmchar "Reverse struckout 0";
-beginchar("0",9u#,fig_height#,0);
- adjust_fit(0,0);
+beginchar("0", 9u#, fig_height#, 0);
+ adjust_fit(0, 0);
- penpos1(vair,90);
- penpos3(vair,-90);
- penpos2(curve,180);
- penpos4(curve,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);
+ x2r = hround max(.7u, 1.45u-.5curve);
x4r = w-x2r;
x1 = x3 = 0.5w;
y1r = h+o;
@@ -690,12 +689,12 @@ beginchar("0",9u#,fig_height#,0);
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
+ 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);
+ penlabels(1, 2, 3, 4);
% the strikeout
@@ -707,20 +706,20 @@ beginchar("0",9u#,fig_height#,0);
x6 = x2r;
draw z5--z6;
- labels(5,6);
+ labels(5, 6);
endchar;
cmchar "Reverse struckout 1";
-beginchar("1",9u#,fig_height#,0);
- adjust_fit(0,0);
+beginchar("1", 9u#, fig_height#, 0);
+ adjust_fit(0, 0);
numeric light_stem;
- light_stem=hround .4[stem',cap_stem'];
+ light_stem=hround .4[stem', cap_stem'];
pickup tiny.nib;
- pos1(light_stem,0);
- pos2(light_stem,0);
+ pos1(light_stem, 0);
+ pos2(light_stem, 0);
lft x1l=lft x2l=hround(.5(w+.5u)-.5cap_stem');
top y1=h+o;
@@ -730,26 +729,26 @@ beginchar("1",9u#,fig_height#,0);
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
+ 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);
+ 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];
+ 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
+ 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
+ filldraw stroke z3e{x4e-x3e, 3(y4e-y3e)}..z4e{left}; % point
- penlabels(1,2,3,4);
+ penlabels(1, 2, 3, 4);
% the strikeout -- possible raise z6 a little
@@ -761,7 +760,7 @@ beginchar("1",9u#,fig_height#,0);
draw z5--z6;
- labels(5,6);
+ labels(5, 6);
endchar;
@@ -777,48 +776,96 @@ endchar;
% 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) =
+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);
+ 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);
+ rt x@2r = hround(x$ + 0.5 depth + 0.5 shear);
+ x@3 - 0.5 vair = hround(x$ - 0.5 dot_size + shear);
+ y@2 = 0.5[y@1, y@3];
+ bot y@3r = vround(top y@1r - depth);
- path pp; pp = (z@2{down}...z@3);
+ 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;
+ x@1' = x@1 + 0.5 dot_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));
+ 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);
+ 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
+ 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);
+ penlabels(@1, @2, @3);
+enddef;
+
+def rough(suffix $, @)(expr dot_size, depth, shear) =
+ pickup fine.nib;
+
+ pos$(dot_size, 90);
+ pos@1(vair, 90);
+ pos@2(vair, 180);
+ pos@3(vair, -90);
+
+ z@1r = z$r;
+ y@1l := y$;
+ lft x@2r = hround(x$ - 0.5 depth + 0.5 shear);
+ x@3 + 0.5 vair = x$ + 0.5 dot_size + shear;
+ y@2 = 0.5 [y@1, y@3];
+ bot y@3r = vround(top y@1r - depth);
+
+ % position a vertical path through the left side of the bulb
+ x@1' = x@1 - 0.5 dot_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{left}...z@2{down}...z@3)
+ intersectiontimes (z$l{left}..{right}z$r));
+ if y_ < 0:
+ y_ := 1;
+ fi
+ filldraw z$r{right}..subpath (0,y_) of (z$l{left}..{right}z$r)--cycle; % dot
+ filldraw stroke z@1e{left}...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);
+beginchar(oct "025", 9u#, min(asc_height#-x_height#, x_height#), 0);
- adjust_fit(0,0);
+ adjust_fit(0, 0);
numeric dot_diam#;
dot_diam# = 3/4dot_size#;
@@ -827,36 +874,74 @@ beginchar(oct "025",9u#,min(asc_height#-x_height#,x_height#),0);
x1 = 0.5w - o;
y1 = h;
- smooth(1,a,dot_size,3/4h,0);
+ smooth(1, a, dot_size, 3/4h, 0);
endchar;
-% this is my effort -- closer to the form used by Pohl,
+% 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);
+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);
+ 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);
+ 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);
+ penlabels(1, 2, 3);
endchar;
+cmchar "Spiritus Asper accent (tailed)";
+beginchar(oct "023", 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;
+
+ rough(1, a, dot_size, 3/4h, 0);
+
+endchar;
+
+cmchar "Spiritus Asper accent (crescent)";
+beginchar(oct "024", 9u#, min(asc_height#-x_height#, x_height#), 0);
+
+ numeric rake;
+
+ rake = 10;
+
+ penpos1(hair, 90-rake);
+ penpos2(0.3[hair, stem], 180);
+ penpos3(hair, 270+rake);
+
+ x1 = x3 = 0.5w - o;
+ y1 = h;
+ y3r = max(h/3, o+hair);
+ y2+y2 = y1+y3;
+ x1 - x2 = 0.65*(y1-y3);
+
+ penstroke z1e{dir(180-rake)}..z2e..{dir(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
@@ -864,38 +949,38 @@ endchar;
% 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);
+beginchar("s", 5.5u#, asc_height#, 0);
+ adjust_fit(0, 0);
pickup tiny.nib;
- pos1(stem',0);
+ 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];
+ 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);
+ f_stroke(1, 2, a, b, c, jut, 1.25jut);
pickup crisp.nib;
- pos3(bar,90);
- pos4(bar,90);
+ 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);
+ 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#);
+beginchar("U", 15u#, cap_height#, desc_depth#);
+ adjust_fit(cap_serif_fit#, cap_serif_fit#);
numeric colsep;
@@ -907,11 +992,11 @@ beginchar("U",15u#,cap_height#,desc_depth#);
% 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);
+ 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;
@@ -927,8 +1012,8 @@ beginchar("U",15u#,cap_height#,desc_depth#);
% 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);
+ pos6(cap_hair, 270);
+ pos7(cap_stem, 90);
y4l = 0.72h;
y5l = 0.82h;
@@ -937,17 +1022,17 @@ beginchar("U",15u#,cap_height#,desc_depth#);
y6l = h;
filldraw stroke z4e..z1e{down}..z2e{right}..z3e{up}..z5e;
- vbulb(5,6,7);
+ vbulb(5, 6, 7);
% 9-10-11-12 is the flourish
- pos9(cap_hair,270);
+ 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);
+ pos11(cap_hair, 50);
+ pos12(0.25[cap_hair, cap_stem], 270);
x11l = x12 = x4 - 0.9colsep;
y11 = y4;
@@ -956,7 +1041,7 @@ beginchar("U",15u#,cap_height#,desc_depth#);
z11l-z10l = whatever*(z11r-z10r);
z9l-z10l = whatever*(z9r-z10r);
- z10 = 0.5[z10l,z10r];
+ z10 = 0.5[z10l, z10r];
% the curved stroke from the left arm of the U
@@ -967,7 +1052,7 @@ beginchar("U",15u#,cap_height#,desc_depth#);
filldraw stroke z9e--z10e;
filldraw stroke z10e--z11e;
- penlabels(1,2,3,4,5,6,7,9,10,11,12);
+ penlabels(1, 2, 3, 4, 5, 6, 7, 9, 10, 11, 12);
endchar;
@@ -977,70 +1062,70 @@ endchar;
% not sure I'm entirely happy with the spur
cmchar "Overturned c with spur";
-beginchar("c",8u#,asc_height#,0);
- adjust_fit(0,0);
+beginchar("c", 8u#, asc_height#, 0);
+ adjust_fit(0, 0);
pickup fine.nib;
- pos2(vair',270);
- pos4(vair',90);
+ 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);
+ pos3(curve, 0);
- rt x3r = w - hround max(0.6u,1.35u - 0.5curve);
+ rt x3r = w - hround max(0.6u, 1.35u - 0.5curve);
y3 = 0.5x_height;
- pos1(hair,180);
- pos0(flare,180);
+ pos1(hair, 180);
+ pos0(flare, 180);
y1 = x_height -
- min(bar_height + 0.5flare + 2vair' + 2,
- 0.9[bar_height,x_height] - 0.5flare);
+ min(bar_height + 0.5flare + 2vair' + 2,
+ 0.9[bar_height, x_height] - 0.5flare);
lft x1r = 0.7u;
- bulb(2,1,0);
+ bulb(2, 1, 0);
- pos5(hair,180);
+ 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);
+ 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;
+ 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;
+ numeric tp, theta;
theta = 25;
- pos6(stem,theta-90);
- pos7(hair,90+theta);
+ 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;
+ 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);
+ 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);
+beginchar("e", 7.25u#+max(0.75u#, 0.5curve#), asc_height#, 0);
+ adjust_fit(0, 0);
- numeric left_curve,right_curve,rbar_height;
+ numeric left_curve, right_curve, rbar_height;
rbar_height = x_height - bar_height;
@@ -1051,70 +1136,70 @@ beginchar("e",7.25u#+max(0.75u#,0.5curve#),asc_height#,0);
pickup tiny.nib;
- pos1(left_curve,180);
- pos2(vair,270);
- pos3(right_curve,0);
+ 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);
+ 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);
+ filldraw stroke super_arc.e(1, 2);
}};
- y3 = 0.5 [y2,y4];
+ y3 = 0.5 [y2, y4];
top y4r = x_height + vround 1.5oo;
x4 = x2 + 0.25u;
- pos4(vair',90);
- pos5(hair,180);
+ pos4(vair', 90);
+ pos5(hair, 180);
- y5 = min(good.y(0.5[rbar_height,x_height]+0.9),y4l-vair);
+ 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);
+ (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;
+ 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);
+ testpath = super_arc.r(2, 3) & super_arc.r(3, 4);
- y1'r = y0r = y0l - 0.6[thin_join,vair];
+ 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);
+ forsuffixes $ = l, r:
+ x0$ = xpart(((w, y0$)--(x1, y0$)) intersectionpoint testpath);
endfor;
fill stroke z0e--z1'e;
path pth;
- numeric tp,theta;
+ numeric tp, theta;
theta = 25;
- pos6(stem,theta-90);
- pos7(hair,90+theta);
+ pos6(stem, theta-90);
+ pos7(hair, 90+theta);
top y6l = asc_height;
- pth = super_arc.r(3,4) ... {x5-x4,5(y5-y4)}z5;
+ 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);
+ penlabels(0, 1, 2, 3, 4, 5, 6, 7);
endchar;
@@ -1125,13 +1210,13 @@ endchar;
% of delimiters.
cmchar "Reverse solidus";
-beginchar(oct "113",9u#,cap_height#,0);
- adjust_fit(0,0);
+beginchar(oct "113", 9u#, cap_height#, 0);
+ adjust_fit(0, 0);
pickup fine.nib;
- pos1(cap_stem,0);
- pos2(cap_stem,0);
+ pos1(cap_stem, 0);
+ pos2(cap_stem, 0);
lft x1l = u;
rt x2r = w - u;
@@ -1140,19 +1225,19 @@ beginchar(oct "113",9u#,cap_height#,0);
filldraw stroke z1e--z2e;
- penlabels(1,2);
+ 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,
+% 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);
+beginchar(oct "150", 11u#, cap_height#, 0);
+ adjust_fit(0, 0);
- numeric theta,bow,elbow;
+ numeric theta, bow, elbow;
elbow := x_height + 0.5*(cap_height-x_height);
@@ -1167,15 +1252,15 @@ beginchar(oct "150",11u#,cap_height#,0);
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);
+ penlabels(1, 2, 3);
endchar;
cmchar "Variant Infinity";
-beginchar("infty",18u#,x_height#,0);
- adjust_fit(0,0);
+beginchar("infty", 18u#, x_height#, 0);
+ adjust_fit(0, 0);
- numeric theta,psi;
+ numeric theta, psi;
theta = 70;
psi = 40;
@@ -1193,24 +1278,24 @@ beginchar("infty",18u#,x_height#,0);
draw z1{dir(-theta)}...z2...{dir(theta)}z3;
draw z4{dir(-theta)}...z5...{dir(theta)}z6;
- penlabels(1,2,3,4,5,6);
+ 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);
+ pos7(hair, 90+psi);
+ pos8(2penrad, 90);
+ pos9(hair, 90-psi);
- x7 = w - x9 = 0.32[x1,x2];
+ 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);
+ penlabels(7, 8, 9);
endchar;
@@ -1222,10 +1307,10 @@ endchar;
% 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;
+def cupcap_fit = adjust_fit(24/36pt#, 24/36pt#) enddef;
cmchar "upwards opened bracket";
-beginchar(oct "114",14u#,x_height#,0);
+beginchar(oct "114", 14u#, x_height#, 0);
cupcap_fit;
pickup rule.nib;
@@ -1241,12 +1326,12 @@ beginchar(oct "114",14u#,x_height#,0);
draw z3--z1--z2--z4;
- labels(1,2,3);
+ labels(1, 2, 3);
endchar;
cmchar "Small bar acute";
-beginchar(oct "115",10u#,x_height#,0);
+beginchar(oct "115", 10u#, x_height#, 0);
cupcap_fit;
pickup rule.nib;
@@ -1257,28 +1342,28 @@ beginchar(oct "115",10u#,x_height#,0);
draw z1--z2;
- labels(1,2);
+ labels(1, 2);
pickup crisp.nib;
x4 + 0.5stem = hround(2/3w);
- x5 = 2/3[x4,w-x4];
+ 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);
+ pos4(stem, theta);
+ pos5(hair, theta);
filldraw circ_stroke z4e--z5e;
- penlabels(4,5);
+ penlabels(4, 5);
endchar;
cmchar "Small cup";
-beginchar(oct "116",10u#,x_height#,0);
+beginchar(oct "116", 10u#, x_height#, 0);
cupcap_fit;
pickup rule.nib;
@@ -1291,12 +1376,12 @@ beginchar(oct "116",10u#,x_height#,0);
draw z1..z3..z2;
- labels(1,2,3);
+ labels(1, 2, 3);
endchar;
cmchar "Small bar over cap";
-beginchar(oct "117",10u#,x_height#,0);
+beginchar(oct "117", 10u#, x_height#, 0);
cupcap_fit;
pickup rule.nib;
@@ -1309,7 +1394,7 @@ beginchar(oct "117",10u#,x_height#,0);
draw z1..z3..z2;
- labels(1,2,3);
+ labels(1, 2, 3);
x4 = x1;
x5 = x2;
@@ -1318,12 +1403,12 @@ beginchar(oct "117",10u#,x_height#,0);
draw z4--z5;
- labels(4,5);
+ labels(4, 5);
endchar;
cmchar "Small cup over bar";
-beginchar(oct "120",10u#,x_height#,0);
+beginchar(oct "120", 10u#, x_height#, 0);
cupcap_fit;
pickup rule.nib;
@@ -1336,7 +1421,7 @@ beginchar(oct "120",10u#,x_height#,0);
draw z1..z3..z2;
- labels(1,2,3);
+ labels(1, 2, 3);
x4 = x1;
x5 = x2;
@@ -1345,12 +1430,12 @@ beginchar(oct "120",10u#,x_height#,0);
draw z4--z5;
- labels(4,5);
+ labels(4, 5);
endchar;
cmchar "Small cap over bar";
-beginchar(oct "121",10u#,x_height#,0);
+beginchar(oct "121", 10u#, x_height#, 0);
cupcap_fit;
pickup rule.nib;
@@ -1363,7 +1448,7 @@ beginchar(oct "121",10u#,x_height#,0);
draw z1..z3..z2;
- labels(1,2,3);
+ labels(1, 2, 3);
x4 = x1;
x5 = x2;
@@ -1372,12 +1457,12 @@ beginchar(oct "121",10u#,x_height#,0);
draw z4--z5;
- labels(4,5);
+ labels(4, 5);
endchar;
cmchar "Small cup with acute";
-beginchar(oct "122",10u#,x_height#,0);
+beginchar(oct "122", 10u#, x_height#, 0);
cupcap_fit;
pickup rule.nib;
@@ -1390,28 +1475,28 @@ beginchar(oct "122",10u#,x_height#,0);
draw z1..z3..z2;
- labels(1,2,3);
+ labels(1, 2, 3);
pickup crisp.nib;
x4 + 0.5stem = hround(2/3w);
- x5 = 2/3[x4,w-x4];
+ 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);
+ pos4(stem, theta);
+ pos5(hair, theta);
filldraw circ_stroke z4e--z5e;
- penlabels(4,5);
+ penlabels(4, 5);
endchar;
cmchar "Small raised cap";
-beginchar(oct "123",10u#,x_height#,0);
+beginchar(oct "123", 10u#, x_height#, 0);
cupcap_fit;
pickup rule.nib;
@@ -1424,8 +1509,8 @@ beginchar(oct "123",10u#,x_height#,0);
draw z1..z3..z2;
- labels(1,2,3);
+ labels(1, 2, 3);
endchar;
-end \ No newline at end of file
+end
diff --git a/Master/texmf-dist/fonts/source/public/fge/fgerm10.mf b/Master/texmf-dist/fonts/source/public/fge/fgerm10.mf
index df7a2b99892..a54ffd7ac6b 100644
--- a/Master/texmf-dist/fonts/source/public/fge/fgerm10.mf
+++ b/Master/texmf-dist/fonts/source/public/fge/fgerm10.mf
@@ -1,7 +1,6 @@
% 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