summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/knuth-lib/test.mf
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2014-12-14 00:12:03 +0000
committerKarl Berry <karl@freefriends.org>2014-12-14 00:12:03 +0000
commit003784987870c03b80d1c7c230c856f299aa9f22 (patch)
tree23d013b80366a12e1f330374a2e3519643726f89 /Master/texmf-dist/fonts/source/public/knuth-lib/test.mf
parent6616434a24f0432340c944777ebecdcc714ebca0 (diff)
regenerate tfm as part of knuth-lib, where the mf sources are; also move a variety of other knuth files into knuth-lib
git-svn-id: svn://tug.org/texlive/trunk@35820 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/knuth-lib/test.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/knuth-lib/test.mf29
1 files changed, 29 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/knuth-lib/test.mf b/Master/texmf-dist/fonts/source/public/knuth-lib/test.mf
new file mode 100644
index 00000000000..c2d81f03023
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/knuth-lib/test.mf
@@ -0,0 +1,29 @@
+
+cmchar "Lowercase thorn";
+beginchar(oct"015",10u#+serif_fit#,asc_height#,desc_depth#);
+italcorr .5x_height#*slant+min(.5curve#-.85u#,-.1u#);
+adjust_fit(serif_fit#,0);
+pickup tiny.nib; pos1(stem',0); pos2(stem,0);
+pos0'(stem',0); pos0(stem,0); z0l=z0'l; x0'=x1; x0=x2;
+lft x1l=hround(2.5u-.5stem'); top y1=h;
+numeric edge; edge=rt x2r;
+pickup fine.nib; pos3(if hefty:thin_join else: hair fi,180);
+pos4(vair',90); pos5(curve,0); pos6(vair,-90);
+rt x3l=1/3[rt x2,edge]; y3=1/8[bar_height,x_height];
+x4l=w-.5(w-serif_fit)+.5u; top y4r=x_height+oo;
+rt x5r=hround min(w-1.35u+.5curve,w-.6u); y5=.5x_height;
+x6=x3; bot y6r=-oo;
+(x,y4r)=whatever[z3l,z4l]; x4r:=min(x,.5[x5r,x4]);
+filldraw stroke z3e{up}...{right}z4e&super_arc.e(4,5)
+ &z5e{down}...{5(x6-x5),y6-y5}z6e; % bowl
+y0=ypart(((edge,h)--(edge,0))intersectionpoint(z3l{up}...{right}z4l));
+pickup tiny.nib; bot y2=-d;
+filldraw stroke z1e--z0'e--z0e--z2e; % stem
+pickup crisp.nib; pos8(hair,0); pos7'(stem,0);
+z7'=z2; x8l=x7'l; bot y8=0;
+filldraw stroke z7'e--z8e; % point
+if serifs: sloped_serif.l(1,0',a,1/3,jut,serif_drop); % upper serif
+ dish_serif(2,0,b,1/3,jut,c,1/3,0); fi % lower serif
+penlabels(0,1,2,3,4,5,6,8); endchar;
+
+