summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/rsfs/scriptu.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/rsfs/scriptu.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/rsfs/scriptu.mf650
1 files changed, 650 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/rsfs/scriptu.mf b/Master/texmf-dist/fonts/source/public/rsfs/scriptu.mf
new file mode 100644
index 00000000000..55c46b6d916
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/rsfs/scriptu.mf
@@ -0,0 +1,650 @@
+% Formal Script upper case letters:
+% These letters were coded by R. A. Smith in the Fall of 1991,
+% based upon the Formal Script designed by R. Hunter Middleton.
+% Computer Modern parameters and macros are used.
+
+% Character codes \0101 through \0132 and \0177 are generated.
+
+% Initial version (1.0) September 1991.
+def bulb(suffix $,$$,$$$) =
+ z$$$r=z$$r; numeric dist; dist=y$r-y$$r;
+ path_.l:=z$l{x$$r-x$r,0}...{0,y$$r-y$r}z$$l;
+ filldraw path_.l--z$$r{0,y$r-y$$r}...{x$r-x$$r,0}z$r--cycle; % link
+ path_.r:=z$$$l{-slant*dist,dist}..z$$$r{slant*dist,-dist}; % near-circle
+ filldraw subpath(0,xpart(path_.r intersectiontimes path_.l)) of path_.r
+ --z$$r{0,y$$r-y$r}..cycle; % bulb
+ enddef;
+
+cmchar "Script letter A";
+beginchar("A",14u#,cap_height#,0);
+italcorr h#*slant-3u#;
+adjust_fit(0,0); pickup fine.nib;
+pos1(vair,110); pos3(vair,90); pos5(cap_curve,-20);
+x1l=hround w-u; y1=.2h; x3=w-3u; y3=.08h; x5l=hround u; y5=.55h;
+pos7(vair,-90); pos9(cap_hair,-180);
+x7=2.5u; top y7l=.65h; x11l=10u; bot y9=0;
+pos11(cap_stem,0); pos13(cap_hair,0);
+x11r=x9l; bot y11=0; x13l=x11l; top y13=h+apex_o;
+filldraw stroke z1e..{left}z3e...z5e{up}
+...z7e{right}...{.5 slant,-1}z9e; % crossbar
+filldraw stroke z11e--z13e; % right ascender
+pos15(.5[vair,cap_curve],-90); pos17(cap_hair,0); pos19(cap_hair,0);
+rt x15l=rt x13r; y15l=y13r; x17=8.5u; y17=.8h; x19=6u; y19=.25h;
+pos21(vair,-90); pos23(vair,-180); pos25(flare,-180);
+bot y21r=-oo; x21=3.5u; y25=.15h; lft x25r=hround u;
+filldraw stroke z15e..z17e...{down}z19e...{left}z21e; % left ascender
+bulb(21,23,25);
+penlabels(1,3,5,7,9,11,13,15,17,19,21,23,25);
+math_fit(-.15h#*slant,.2h#*slant);
+endchar;
+
+
+cmchar "Script letter B";
+beginchar("B",17u#,cap_height#,0);
+italcorr h#*slant-5.5u#;
+adjust_fit(0,0); pickup fine.nib;
+ pos1(cap_hair,-45); x1r=11u; top y1l=h;
+pos2(cap_stem,0); pos3(vair,-90); pos4(hair,-180); pos5(flare,-180);
+x2r=10u; y2=.3h; bot y3l=-oo; x3=6.5u; x5r=hround 3u; y5=.17h;
+filldraw stroke z1e{-1,-1}...z2e{down}...{left}z3e; % stem
+bulb(3,4,5);
+pos6(vair,-270); pos8(vair,-180); pos10(vair,-90); pos12(cap_curve,0); %-15
+pos14(vair,90); pos16(.5[cap_curve,cap_stem],180); pos18(vair,270);
+pos20(cap_curve,360); pos22(vair,450); pos24(cap_hair,540);
+pos26(vair,630); pos28(cap_curve,720); pos30(vair,750);
+x6=13u; y6=.3h; x8r=11u; y8=.2h; x10=13.5u; bot y10r=-oo;
+rt x12r=hround w-u; y12=.2h; x14=11u; y14=.52h;
+x16l=10.5u; y16=.48h; x18=11u; y18=.44h; x20r=13.5u; y20=.65h;
+x22=6u; top y22r=h+oo; lft x24r=hround u; y24=.7h;
+x26=4.5u; y26=.4h; x28=6.5u; y28=.55h; x30=5.5u; y30=.8h;
+filldraw stroke pulled_arc.e(6,8)&pulled_arc.e(8,10)&pulled_arc.e(10,12)
+&pulled_arc.e(12,14)&pulled_arc.e(14,16)&pulled_arc.e(16,18)
+&pulled_arc.e(18,20)&pulled_arc.e(20,22)&pulled_arc.e(22,24)
+&pulled_arc.e(24,26)&pulled_arc.e(26,28)..{dir(130)}z30e;
+%z6e{left}...z8e{down}...z10e{right}
+%...z12e..z14e{left}...z16e{down}...z18e{right}
+%...z20e{up}...z22e{left}...z24e{down}...z26e{right}
+%...z28e{up}..z30e;
+penlabels(1,2,3,4,5,6,8,10,12,14,16,18,20,22,24,26,28,30);
+math_fit(-.15h#*slant-2u#,.3h#*slant);
+endchar;
+
+cmchar "Script letter C";
+beginchar("C",16u#,cap_height#,0);
+italcorr h#*slant-2.75u#;
+adjust_fit(0,0); pickup fine.nib;
+pos0(vair,210); pos1(cap_hair,180); pos2(vair,90);
+pos3(cap_curve,0); pos4(vair,-90); pos5(cap_stem,-180);
+pos6(vair,-270);
+pos7(cap_hair,-360); pos8(vair,-450); pos9(cap_curve,-540); pos10(vair,-630);
+lft x0r=12u; bot y0r=.1h;
+x1=11u; bot y1=.25h; x2=12.25u; y2=.4h; x3=15u; y3=.15h;
+x4=13u; y4=-oo; lft x5r=hround 7.5u; y5=.5h; x6=11.5u; top y6l=h+oo;
+rt x7r=hround 14u; y7=.8h; x8=7u; bot y8r=.5h; lft x9r=hround u; y9=.8h;
+x10=4u; y10=.95h;
+filldraw stroke z0e..pulled_arc.e(1,2)&pulled_arc.e(2,3)&pulled_arc.e(3,4);
+filldraw stroke pulled_arc.e(4,5)&pulled_arc.e(5,6)&pulled_arc.e(6,7);
+filldraw stroke pulled_arc.e(7,8)&pulled_arc.e(8,9)&pulled_arc.e(9,10);
+penlabels(1,2,3,4,5,6,7,8,9,10);
+math_fit(-.8h#*slant,.35h#*slant);
+endchar;
+
+cmchar "Script letter D";
+beginchar("D",15u#,cap_height#,0);
+italcorr 0.8h#*slant-2.5u#;
+adjust_fit(0,0); pickup fine.nib;
+pos1(vair,90); pos2(cap_stem,180); pos3(vair,90);
+x1=hround w-3u; y1=0.8h;
+x2=.5[x1,x3]; y2=.5[y1,y3];
+x3=8u; bot y3l=-o;
+pos4(cap_curve,0); pos5(vair,-90); pos6(vair,-90);
+lft x4l=hround 5u; y4=y3+0.03h; x5=7u; y5=y3+0.06h; x6=w-2.5u; bot y6r=-o;
+pos7(cap_hair,0); pos8(vair,90); pos9(cap_curve,180);
+x7r=hround w-u; y7=0.33h; x8=5u; top y8r=h+oo; x9r=hround u; y9=0.75h;
+pos10(vair,270); pos11(cap_hair,360); pos12(vair,380);
+x10=5u; y10r=0.4h; x11r=7u; y11=0.6h; x12l=6u; y12r=0.8h;
+filldraw stroke z1e{left}...z2e{down}...z3e{left}...z4e{up} % stem
+...z5e{right}...z6e..z7e..z8e{left}...z9e{down} % bowl
+...z10e{right}...z11e{up}..z12e; % flourish
+penlabels(1,2,3,4,5,6,7,8,9,10,11,12);
+math_fit(-4u#,.33h#*slant);
+endchar;
+
+
+cmchar "Script letter E";
+beginchar("E",11u#,cap_height#,0);
+italcorr .8h#*slant-2u#;
+adjust_fit(0,0); pickup fine.nib;
+pos1(vair,-270); pos2(cap_hair,-180); pos3(vair,-90);
+numeric light_stem; hv_curve=.5[cap_curve,cap_stem];
+pos4(cap_hair,0); pos5(.3[vair,cap_curve],90); pos6(hv_curve,180);
+pos7(vair,270); pos8(cap_hair,360); pos9(vair,450); pos10(hv_curve,540);
+pos11(vair,630); pos12(cap_curve,720); pos13(vair,810);
+pos14(vair,930);
+x1=6u; top y1r=.9h; x2r=5u; y2=.8h; x3=7u; y3=.65h; x4=8u; y4=.75h;
+x5=4u; top y5r=h+oo; lft x6r=hround 1.2u; y6=.8h; x7=5.5u; y7=.51h;
+x8=6u; y8=.53h; x9=4.5u; y9=.57h; lft x10r=hround u; y10=.38h;
+x11=7u; bot y11r=-oo; rt x12r=hround w-u; y12=.18h; x13=6u; y13=.38h;
+x14r=5.5u; y14r=.15h;
+filldraw stroke pulled_arc.e(1,2)&pulled_arc.e(2,3)&pulled_arc.e(3,4)
+&pulled_arc.e(4,5)&pulled_arc.e(5,6)&pulled_arc.e(6,7)&pulled_arc.e(7,8)
+&pulled_arc.e(8,9)&pulled_arc.e(9,10)&pulled_arc.e(10,11)&pulled_arc.e(11,12)
+&pulled_arc.e(12,13)..{dir(300)}z14e;
+%filldraw stroke z1e{left}...z2e{down}...z3e{right}...z4e{up}
+%...z5e{left}...z6e{down}...z7e{right}...z8e{up}...z9e{left}
+%...z10e{down}...z11e{right}...z12e{up}...z13e{left}..z14e;
+math_fit(-.3h#*slant,.2h#*slant);
+endchar;
+
+cmchar "Script letter F";
+beginchar("F",14u#,cap_height#,0);
+italcorr h#*slant-2.0u#;
+adjust_fit(0,0); pickup fine.nib;
+pos1(cap_hair,-45); pos2(cap_curve,0); pos3(cap_stem,0); pos4(vair,-90);
+pos5(hair,-180); pos6(flare,-180);
+x1r=9.3u; y1=.85h; lft x2l=8u; y2=.65h; rt x3r=10u; y3=.3h;
+x4=6.25u; bot y4l=-o; lft x6r=hround 2u; y6=.17h;
+filldraw stroke z1e..z2e{down}...z3e{down}...{left}z4e; % stem
+bulb(4,5,6);
+pos7(cap_curve,90); rt x7=hround 12u; top y7r=.93h;
+pos9(cap_curve,90); x9=5u; top y9=h+oo;
+pos10(cap_hair,180); lft x10r=hround u; y10=.75h;
+pos11(vair,270); x11=4u; bot y11r=.5h;
+pos12(cap_curve,360); rt x12r=7u; y12=.65h;
+pos13(vair,415); x13=5u; y13=.85h;
+filldraw stroke z7e{left}...pulled_arc.e(9,10)&pulled_arc.e(10,11)
+&pulled_arc.e(11,12)..z13e; % cap
+pos14(cap_hair,0); pos15(vair,-90); pos16(cap_hair,0);
+pos17(vair,90); pos18(.5[cap_hair,cap_curve],180);
+pos19(.2[cap_curve,cap_stem],210);
+lft x14l=hround 5u; y14=.28h; x15=9u; y15=.4h; rt x16r=hround 13u; y16=.5h;
+x17=12u; top y17r=.58h; lft x18r=11u; y18=.45h; rt x19l=12.3u; bot y19r=.3h;
+filldraw stroke pulled_arc.e(14,15)&pulled_arc.e(15,16)&pulled_arc.e(16,17)
+&pulled_arc.e(17,18)..z19e; % bar
+penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13);
+math_fit(-.15h#*slant-u#,.5h#*slant);
+endchar;
+
+
+cmchar "Script letter G";
+beginchar("G",15.2u#,cap_height#,0);
+italcorr .85h#*slant-2u#;
+adjust_fit(0,0); pickup fine.nib;
+pos0(vair,-270); pos1(cap_curve,-180); pos2(vair,-90); pos3(cap_curve,0);
+pos4(vair,90); pos5(cap_stem,180); pos6(vair,270); pos7(vair,315);
+x0=3.5u; y0=.95h; lft x1r=hround u; y1=.75h; x2=6.5u; bot y2r=vround .4h;
+rt x3r=hround 12u; y3=.85h; x4=9.5u; top y4r=h+o; lft x5r=hround 6.7u;
+y5=.6h; x6=10.5u; y6=.3h; x7=13u; y7=.6h;
+filldraw stroke pulled_arc.e(0,1)&pulled_arc.e(1,2)&pulled_arc.e(2,3)
+&pulled_arc.e(3,4)&pulled_arc.e(4,5)&pulled_arc.e(5,6)..{dir(45)}z7e;
+pos8(cap_hair,-45); pos9(.2[cap_curve,cap_stem],0);
+pos10(cap_stem,0); pos11(vair,-90);
+pos12(hair,-180); pos13(flare,-180);
+z8=z7; lft x9l=hround 12u; y9=.4h; rt x10r=hround 14.2u; y10=.12h;
+x11=11.25u; bot y11l=-o; x13r=hround 7u; y13=.17h;
+filldraw stroke z8e{dir(225)}..z9e{down}...z10e{down}...{left}z11e;
+bulb(11,12,13);
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13);
+math_fit(-.75h#*slant,.5h#*slant-2u#);
+endchar;
+
+cmchar "Script letter H";
+beginchar("H",17u#,cap_height#,0);
+italcorr 0.8h#*slant;
+adjust_fit(0,0); pickup fine.nib;
+pos1(cap_hair,180); pos2(vair,90);
+pos3(cap_stem,0); pos4(vair,-90);
+pos5(cap_hair,-180); pos6(vair,-270);
+pos7(cap_hair,-180);
+x1l=hround w-u; y1=0.2h; x2=w-2.5u; bot y2l=-oo; x3=w-6u; y3=.4h;
+x4=w-3.5u; top y4l=h+oo; x5l=hround w-u; y5=0.75h; x6=9u; y6=.55h;
+x7r=hround 3u; y7=.35h;
+filldraw stroke z1e{down}...z2e{left}...z3e{up}...z4e{right} % hook, rt stem
+...z5e{down}...z6e{left}...{down}z7e; % crossbar
+pos8(cap_hair,180); pos9(vair,90); pos10(cap_curve,0);
+pos11(vair,90); pos12(cap_hair,180);
+x8r=hround u; y8=.725h; x9=2u; top y9r=.9h; x10r=4u; y10=.75h;
+x11=5u; bot y11l=.65h; x12r=7u; y12=.8h;
+filldraw stroke z8e{up}...z9e{right}...z10e{down}...z11e{right}
+...{up}z12e; % flourish
+ pos13(cap_hair,-45); x13r=8u; top y13l=h+apex_o;
+pos14(cap_stem,0); pos15(vair,-90); pos16(hair,-180); pos17(flare,-180);
+x14=7u; y14=.3h; bot y15l=-o; x15=4.5u; x17r=hround u; y17=.17h;
+filldraw stroke z13e..z14e{down}...{left}z15e; % left stem
+bulb(15,16,17);
+penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+math_fit(-.15h#*slant,.2h#*slant);
+endchar;
+
+
+cmchar "Script letter I";
+beginchar("I",11u#,cap_height#,0);
+italcorr h#*slant-u#;
+adjust_fit(0,0); pickup fine.nib;
+pos1(vair,135); pos2(cap_curve,180);
+pos3(vair,270); pos4(cap_hair,360); pos5(vair,390);
+pos6(cap_hair,-45); x6r=9u; top y6l=h+apex_o;
+z1r=z6l; x2r=3u; y2=.7h; x3=8u; y3l=.35h; x4l=10u; y4=.5h;
+x5r=9u; y5r=.7h;
+filldraw stroke z1e{dir(210)}..pulled_arc.e(2,3)&pulled_arc.e(3,4)
+..{dir(130)}z5e;
+pos7(cap_stem,0); pos8(vair,-90); pos9(hair,-180); pos10(flare,-180);
+x7l=7u; y7=.3h; bot y8r=-o; x8=4.5u; x10r=hround u; y10=.17h;
+pos11(cap_curve,0); x11l=6.75u; y11=.67h;
+filldraw stroke z6e..z11e{down}...z7e{down}...{left}z8e;
+bulb(8,9,10);
+penlabels(1,2,3,4,5,6,7,8,9,10,11);
+math_fit(-.1h#*slant,.5h#*slant);
+endchar;
+
+
+cmchar "Script letter J";
+beginchar("J",12u#,cap_height#,desc_depth#);
+italcorr h#*slant-u#;
+adjust_fit(.7d#*slant,0); pickup fine.nib;
+pos1(vair,135); pos2(cap_curve,180);
+pos3(vair,270); pos4(cap_hair,360); pos5(vair,390);
+pos6(cap_hair,-45); x6r=9u; top y6l=h+apex_o;
+z1r=z6l; x2r=3u; y2=.7h; x3=8u; y3l=.35h; x4l=10u; y4=.5h;
+x5r=9u; y5r=.7h;
+filldraw stroke z1e{dir(210)}..pulled_arc.e(2,3)&pulled_arc.e(3,4)
+..{dir(130)}z5e;
+pos7(cap_stem,0); pos8(vair,-90); pos9(hair,-180); pos10(hair,-180);
+x7l=7u; y7=.25h; bot y8l=-d-o; x8=4.5u; rt x9r=hround 2u; y9=-.5d;
+rt x10l=hround 11u; y10=.2h;
+pos11(cap_curve,0); x11l=6.75u; y11=.67h;
+pos12(vair,-240); z12=.5[z9,z10];
+filldraw stroke z6e..{down}z11e...{down}z7e&pulled_arc.e(7,8)
+&pulled_arc.e(8,9)...z12e{dir(15)}...{up}z10e;
+penlabels(1,2,3,4,5,6,7,8,9,10,11,12);
+math_fit(0,.5h#*slant);
+endchar;
+
+cmchar "Script letter K";
+beginchar("K",16u#,cap_height#,0);
+italcorr h#*slant-1.5u#;
+adjust_fit(0,0); pickup fine.nib;
+pos1(cap_hair,180); pos2(vair,90);
+pos3(.5[cap_curve,cap_stem],0); pos4(vair,90);
+pos5(cap_hair,180); pos6(vair,270);
+pos7(.75[cap_hair,cap_curve],360); pos8(vair,315);
+x1l=hround w-u; y1=0.2h; x2=w-2.5u; bot y2l=-o; x3=w-6u; y3=.35h;
+x4=8.5u; top y4l=.55h; x5l=8u; y5=0.475h; x6=8.5u; y6=.45h;
+x7r=hround w-4u; y7=.825h; x8l=hround w-2u; top y8l=h;
+filldraw stroke pulled_arc.e(1,2)&pulled_arc.e(2,3) % hook
+&pulled_arc.e(3,4)&pulled_arc.e(4,5) % right leg
+&pulled_arc.e(5,6)&pulled_arc.e(6,7)..z8e; % right arm
+pos9(cap_hair,180); pos10(vair,90); pos11(cap_curve,0);
+pos13(vair,90); pos12(cap_hair,180);
+x9r=hround u; y9=.715h; x10=2u; top y10r=.9h; x11r=4u; y11=.75h;
+x13=5u; bot y13l=.65h; x12r=7u; y12=.8h;
+filldraw stroke pulled_arc.e(9,10)&pulled_arc.e(10,11)
+&pulled_arc.e(11,13)&pulled_arc.e(13,12); % flourish
+pos14(cap_hair,-45); x14r=8u; top y14l=h+apex_o;
+pos15(cap_stem,0); pos16(vair,-90); pos17(hair,-180); pos18(flare,-180);
+x15=7u; y15=.3h; bot y16l=-o; x16=4.5u; x18r=hround u; y18=.17h;
+filldraw stroke z14e..z15e{down}...{left}z16e; % stem
+bulb(16,17,18);
+penlabels(1,2,3,4,5,6,7,8,9,10,11,13,12,14,15,16,17,18);
+math_fit(-.15h#*slant,.2h#*slant);
+endchar;
+
+cmchar "Script letter L";
+beginchar("L",15.5u#,cap_height#,0);
+italcorr 0.75 h#*slant-u#;
+adjust_fit(0,0); pickup fine.nib;
+pos1(cap_hair,180); pos2(0.8[vair,cap_curve],90);
+pos3(vair,90);
+x1l=hround w-u; y1=0.2h; x2=12u; bot y2l=-o; x3=4u; y3=0.12h;
+pos4(cap_curve,180); pos5(vair,270); pos6(cap_stem,360);
+x4r=hround 2u; x5=5u; x6=8.5u;
+y4=0.06h; bot y5r=-o; y6=0.3h;
+pos7(vair,270); pos8(0.5[cap_hair,cap_curve],180); pos9(vair,90);
+x7=10u; top y7l=h+o; x8l=hround w-2.5u; y8=0.75h; x9=7u; y9r=.5h;
+pos10(cap_curve,0); pos11(vair,-90);
+x10l=hround u; y10=0.8h; x11=4u; top y11l=h;
+filldraw stroke z1e{down}...z2e{left}...z3e{left} % foot
+...z4e{down}...z5e{right}...z6e{up}...z7e{right}...z8e{down} % stem
+...z9e{left}...z10e{up}..z11e; % flourish
+penlabels(1,2,3,4,5,6,7,8,9,10,11);
+math_fit(-2u#,.25h#*slant);
+endchar;
+
+cmchar "Script letter M";
+beginchar("M",19u#,cap_height#,0);
+italcorr h#*slant-4.25u#;
+adjust_fit(0,0); pickup fine.nib;
+pos1(cap_hair,-15); pos2(.6[cap_curve,cap_stem],0);
+pos3(cap_stem,0); pos4(vair,90); pos5(cap_hair,180);
+rt x1r=hround 14.25u; top y1=h+apex_o; lft x3l=hround 13u; y3=.25h;
+x4=16u; y4=-o; top y5=.2h; rt x5l=hround 18u;
+rt x2r=14u; y2=.8h; % should be intersectionpoint!
+filldraw stroke z1e{dir(-105)}---z2e{down}...
+% {down}z3e...{right}z4e..{up}z5e; % right descender
+pulled_arc.e(3,4)&pulled_arc.e(4,5);
+pos6(.2[vair,cap_stem],90); pos7(cap_stem,0); pos8(cap_hair,-20);
+x6=10.25u; bot y6r=-apex_o; x8=9.5u; top y8=h+apex_o;
+pos9(cap_hair,0); pos10(vair,-90); pos11(cap_hair,-180); pos12(flare,-180);
+x9=6u; y9=.45h; x10=3.5u; bot y10r=-oo; lft x12r=hround u; y12=.13h;
+filldraw stroke z8e{dir(-110)}..{dir(-100)}z9e..{left}z10e; % left descender
+bulb(10,11,12);
+x7l=8u; y7=.25h; pos15(.5[cap_curve,cap_stem],0);
+rt x15r=hround 9.5u; y15=.8h; % should be intersectionpoint!
+pos13(cap_hair,165); z13=z1; pos14(cap_hair,180); x14=11.5u; y14=.45h;
+filldraw stroke z13e{dir(-105)}...{dir(-98)}z14e...
+% {left}z6e...{up}z7e
+pulled_arc.e(6,7)...{up}z15e---{dir(70)}z8e;
+penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+math_fit(-.15h#*slant,.2h#*slant);
+endchar;
+
+cmchar "Script letter N";
+beginchar("N",15u#,cap_height#,0);
+italcorr h#*slant;
+adjust_fit(0,0); pickup fine.nib;
+pos1(.5[cap_hair,cap_curve],-60); pos2(cap_hair,0);
+x1=14u; y1=h; lft x2l=hround 12u; y2=.65h;
+pos4(cap_hair,0); pos5(cap_stem,0); x4l=13u; y4=0; x5=10u; y5=.5h;
+pos6(cap_hair,0); x6l=6.75u; top y6=h;
+filldraw stroke z1e{dir(-150)}..{down}z2e..z4e;
+filldraw stroke z6e{down}..z5e..{dir(-80)}z4e;
+pos7(cap_hair,0); pos8(vair,-90); pos9(hair,-180); pos10(flare,-180);
+x7l=6.75u; y7=.3h; bot y8l=-o; x8=4.5u; x10r=hround u; y10=.17h;
+filldraw stroke z6e...z7e...{left}z8e;
+bulb(8,9,10);
+penlabels(1,2,3,4,5,6,7,8,9,10);
+math_fit(-.15h#*slant,.4h#*slant-u#);
+endchar;
+
+cmchar "Script letter O";
+beginchar("O",11.5u#,cap_height#,0);
+italcorr h#*slant-3u#;
+adjust_fit(0,0); pickup fine.nib;
+pos0(vair,-110); pos1(vair,-90); pos2(cap_hair,0);
+pos3(vair,90); pos4(cap_stem,180); pos5(vair,270); pos6(cap_curve,360);
+pos7(vair,450); pos8(cap_hair,540); pos9(cap_hair,570); x0=6u; y0=.7h;
+x1=8.5u; y1=.65h; rt x2r=hround 10u; y2=.75h; x3=5u; top y3r=h+oo;
+lft x4r=hround u; y4=.6h; x5=7.5u; bot y5r=-oo; rt x6r=hround 10.5u; y6=.3h;
+x7=5.5u; y7=.8h; x8=3.7u; y8=.5h; x9=5u; y9=.17h;
+filldraw stroke z0e{dir(-20)}..pulled_arc.e(1,2)
+&pulled_arc.e(2,3)&pulled_arc.e(3,4)
+&pulled_arc.e(4,5)&pulled_arc.e(5,6)&pulled_arc.e(6,7)&pulled_arc.e(7,8)
+..{dir(-60)}z9e;
+penlabels(0,1,2,3,4,5,6,7,8,9);
+math_fit(-.3h#*slant,.5h#*slant);
+endchar;
+
+cmchar "Script letter P";
+beginchar("P",16u#,cap_height#,0);
+italcorr max(.8h#*slant-1.5u#,h#*slant-3u#);
+adjust_fit(0,0); pickup fine.nib;
+ pos1(cap_hair,-45); x1r=12u; top y1l=h;
+pos2(cap_stem,0); pos3(vair,-90); pos4(cap_hair,-180); pos5(flare,-180);
+x2l=10u; y2=.35h; bot y3l=-o; x3=6.5u; x5r=hround 3u; y5=.17h;
+filldraw stroke z1e{-1,-1}...z2e{down}...{left}z3e; % stem
+bulb(3,4,5);
+pos14(vair,-270); pos16(cap_hair,-180); pos18(vair,-90);
+pos20(.5[cap_curve,cap_stem],0); pos22(vair,90); pos24(cap_hair,180);
+pos26(vair,270); pos28(.5[cap_hair,cap_curve],360); pos30(vair,390);
+x6=13u; y6=.3h; x8r=11u; y8=.2h; x10=13.5u; bot y10r=-oo;
+rt x12r=hround w-u; y12=.2h; x14=9u; y14=.62h;
+x16l=8.5u; y16=.55h; x18=12u; y18=.4h; rt x20r=hround 15u; y20=.55h;
+x22=6u; top y22r=h+o; lft x24r=hround u; y24=.7h;
+x26=4.5u; y26=.4h; x28r=7u; y28=.65h; x30=5.5u; top y30r=.9h;
+filldraw stroke pulled_arc.e(14,16)&pulled_arc.e(16,18)
+&pulled_arc.e(18,20)&pulled_arc.e(20,22)&pulled_arc.e(22,24)
+&pulled_arc.e(24,26)&pulled_arc.e(26,28)..{dir(130)}z30e;
+penlabels(1,2,3,4,5,6,8,10,12,14,16,18,20,22,24,26,28,30);
+math_fit(-.25h#*slant,.5h#*slant);
+endchar;
+
+cmchar "Script letter Q";
+beginchar("Q",16u#,cap_height#,0);
+italcorr max(.2h#*slant-.5u#,.8h#*slant-4.75u#);
+adjust_fit(0,0); pickup fine.nib;
+pos1(cap_hair,390); pos2(cap_curve,360); pos3(vair,270);
+lft x1l=5u; y1l=.85h; rt x2r=hround 8u; y2=.6h; x3=5u; bot y3r=vround .42h;
+pos4(cap_curve,180); pos5(vair,90); pos6(cap_stem,0);
+lft x4r=hround u; y4=.75h; x5=5u; top y5r=h+o; rt x6r=hround 12u; y6=.5h;
+filldraw stroke pulled_arc.e(6,5)&pulled_arc.e(5,4)&pulled_arc.e(4,3)
+&pulled_arc.e(3,2)..{dir(150)}z1e; % flourish and top
+pos7(vair,-90); pos8(.5[cap_hair,cap_curve],-180); pos9(cap_curve,-270);
+pos10(.6[vair,cap_curve],-270); pos11(cap_hair,-180);
+x7=5.5u; bot y7r=-o; lft x8r=hround 2u; y8=.12h; x9=4u;
+top y9r= vround (y8+cap_curve); x10=12.5u; bot y10l=-o; rt x11l=hround 15u;
+y11=.2h;
+filldraw stroke pulled_arc.e(6,7)&pulled_arc.e(7,8)&pulled_arc.e(8,9)..
+pulled_arc.e(10,11); % bottom
+penlabels(1,2,3,4,5,6,7,8,9,10,11);
+math_fit(-.1h#*slant-u#,.2h#*slant);
+endchar;
+
+cmchar "Script letter R";
+beginchar("R",17.5u#,cap_height#,0);
+italcorr h#*slant-6u#;
+adjust_fit(0,0); pickup fine.nib;
+pos1(cap_hair,390); pos2(cap_curve,360); pos3(vair,270);
+x1=5.5u; y1=.8h; rt x2r=hround 6.5u; y2=.55h;
+x3=4.5u; bot y3r=vround .38h;
+pos4(cap_hair,180); pos5(vair,90); pos6(cap_curve,0);
+lft x4r=hround u; y4=.7h; x5=6u; top y5r=h+o; rt x6r=hround 13.5u; y6=.65h;
+filldraw stroke pulled_arc.e(6,5)&pulled_arc.e(5,4)&pulled_arc.e(4,3)
+&pulled_arc.e(3,2)..{dir(130)}z1e; % flourish and bowl top
+pos7(vair,-90); pos8(cap_hair,-180); pos9(vair,-270); pos10(cap_stem,-360);
+pos11(cap_stem,-360); pos12(vair,-450); pos13(cap_hair,-540);
+x7=10u; bot y7r=vround .45h; lft x8r=hround 8.5u; y8=.5h;
+x9=10.5u; top y9r=vround .52h; rt x10r=rt x11r=hround 13.2u; y10=.3h;
+y11=.15h; x12=14.8u; bot y12r=-o; rt x13l=hround (w-u); y13=.2h;
+filldraw stroke pulled_arc.e(10,9)&pulled_arc.e(9,8)&pulled_arc.e(8,7)
+&pulled_arc.e(7,6); % inner loop
+filldraw stroke z10e..pulled_arc.e(11,12)&pulled_arc.e(12,13); % leg
+pos14(cap_hair,-45);
+pos16(cap_stem,0); pos17(vair,-90);
+pos18(cap_hair,-180); pos19(flare,-180);
+x14r=11u; top y14l=h; x15r=8.8u; y15=.8h; x16r=10u; y16=.3h;
+x17=6.5u; bot y17=-oo; x19r=hround 3u; y19=.17h;
+filldraw stroke z14e{-1,-1}..{down}z16e...{left}z17e; % stem
+bulb(17,18,19);
+penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19);
+math_fit(-.2h#*slant-2.2u#,.2h#*slant);
+endchar;
+
+cmchar "Script letter S";
+beginchar("S",12.5u#,cap_height#,0);
+italcorr h#*slant-u#;
+adjust_fit(0,0); pickup fine.nib;
+pos1(vair,-450); pos2(.5[cap_hair,cap_curve],-360);
+pos3(vair,-270); pos4(cap_hair,-180);
+lft x1=5u; top y1l=.95h; lft x2r=hround u; y2=.75h; x3=7.5u; bot y3l=.45h;
+rt x4l=hround 12u; y4=.75h;
+pos5(vair,-90); x5r=10u; top y5l=h+oo;
+pos6(cap_stem,0); x6l=7.75u; y6=.67h;
+pos7(cap_stem,0); pos8(vair,-90); pos9(hair,-180); pos10(flare,-180);
+x7l=7.5u; y7=.3h; bot y8l=-o; x8=4.5u; x10r=hround u; y10=.17h;
+filldraw stroke pulled_arc.e(1,2)&pulled_arc.e(2,3)&pulled_arc.e(3,4)
+&pulled_arc.e(4,5)..z6e{down}...z7e{down}...{left}z8e;
+bulb(8,9,10);
+penlabels(1,2,3,4,5,6,7,8,9,10,11);
+math_fit(-.15h#*slant,.5h#*slant);
+endchar;
+
+cmchar "Script letter T";
+beginchar("T",13u#,cap_height#,0);
+italcorr h#*slant-1.0u#;
+adjust_fit(0,0); pickup fine.nib;
+pos1(cap_hair,-45); pos2(cap_curve,0); pos3(cap_stem,0); pos4(vair,-90);
+pos5(hair,-180); pos6(flare,-180);
+x1r=10.3u; y1=.85h; lft x2l=9u; y2=.65h; rt x3r=11u; y3=.3h;
+x4=7.25u; bot y4l=-o; x6r=hround 3u; y6=.17h;
+filldraw stroke z1e..z2e{down}...z3e{down}...{left}z4e; % stem
+bulb(4,5,6);
+pos7(cap_curve,90); rt x7=hround 12u; top y7r=.93h;
+pos9(cap_curve,90); x9=5u; top y9=h+oo;
+pos10(cap_hair,180); lft x10r=hround u; y10=.75h;
+pos11(vair,270); x11=4u; bot y11r=.5h;
+pos12(cap_curve,360); rt x12r=7u; y12=.65h;
+pos13(vair,415); x13=5u; y13=.85h;
+filldraw stroke z7e{left}...pulled_arc.e(9,10)&pulled_arc.e(10,11)
+&pulled_arc.e(11,12)..z13e; % cap
+penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13);
+math_fit(-.25h#*slant,.3h#*slant);
+endchar;
+
+cmchar "Script letter U";
+beginchar("U",18.25u#,cap_height#,0);
+italcorr .87h#*slant-1.5u#;
+adjust_fit(0,0); pickup fine.nib;
+pos1(cap_hair,390); pos2(cap_curve,360); pos3(vair,270);
+lft x1l=4.5u; y1l=.85h; rt x2r=hround 6.5u; y2=.6h; x3=4u;
+bot y3r=vround .43h;
+pos4(cap_hair,180); pos5(vair,90); pos6(.5[cap_curve,cap_stem],0);
+lft x4r=hround u; y4=.7h; x5=5u; top y5r=h+o; rt x6r=hround 10u; y6=.6h;
+pos7(cap_stem,0); pos8(vair,90); pos9(cap_hair,180);
+rt x7r=hround 10u; y7=.25h; x8=11u; bot y8l=-o;
+lft x9r=hround 12.7u; y9=.2h; % should be intersectionpoint or tangent
+filldraw stroke pulled_arc.e(6,5)&pulled_arc.e(5,4)&pulled_arc.e(4,3)
+&pulled_arc.e(3,2)..{dir(120)}z1e; % flourish and bowl top
+filldraw stroke z6e---pulled_arc.e(7,8)&pulled_arc.e(8,9);
+pos10(cap_stem,0); pos11(cap_stem,0); pos12(vair,90); pos13(cap_hair,180);
+rt x10r=hround 15u; y10=.87h; lft x11l=lft x9r; y11=.2h;
+x12=15u; bot y12l=-o; rt x13l=hround 17.25u; y13=.18h;
+filldraw stroke z10e..pulled_arc.e(11,12)&pulled_arc.e(12,13);
+penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13);
+math_fit(-.5h#*slant-u#,.18h#*slant);
+endchar;
+
+cmchar "Script letter V";
+beginchar("V",13.8u#,cap_height#,0);
+italcorr h#*slant-.5u#;
+adjust_fit(0,0); pickup fine.nib;
+pos1(cap_hair,180); pos2(vair,90); pos3(cap_curve,0); pos4(vair,90);
+pos5(cap_hair,180); pos5'(cap_hair,180);
+lft x1r=hround u; y1=.68h; top y2r=vround .86h; x2=3u; lft x3l=hround 3.8u;
+y3=.75h; bot y4l=vround .62h; x4=5.5u; x5r=6.7u; y5=.8h;
+x5'l=hround 7u; top y5'=h+apex_o;
+filldraw stroke pulled_arc.e(1,2)...z3e{dir(-105)}
+...pulled_arc.e(4,5); % flourish
+pos6(cap_stem,180); pos7(cap_hair,180); pos8(cap_hair,180);
+pos9(.5[cap_hair,cap_curve],135);
+x6=8.5u; y6=.5h; rt x7l=10u; bot y7=-apex_o; x8=11.5u; y8=.5h;
+x9l=12.8u; top y9r=h;
+filldraw stroke z5'e{dir(-105)}...z6e...{dir(-105)}z7e; % stem
+filldraw stroke z7e{dir(80)}..{up}z8e..{(1,1)}z9e; % right arm
+penlabels(1,2,3,4,5,5',6,7,8,9);
+math_fit(-.68h#*slant,.5h#*slant-u#);
+endchar;
+
+cmchar "Script letter W";
+beginchar("W",17.5u#,cap_height#,0);
+italcorr h#*slant-.5u#;
+adjust_fit(0,0); pickup fine.nib;
+pos1(cap_hair,0); pos2(cap_stem,0); pos3(cap_hair,0);
+x1l=hround 11u; x3l=hround 12.5u; x2=.5[x1,x3]; top y1=h+apex_o;
+bot y3=-apex_o; y2=.5h;
+filldraw stroke z1e{down}...z2e...{down}z3e; % inner left
+pos4(cap_hair,0); x4=.5[x3,x5]; y4=.5h;
+pos5(cap_hair,0); pos6(cap_stem,0); pos7(cap_hair,0);
+x5l=hround 7u; x7l=hround 8.5u; x6=.5[x5,x7]; top y5=h+apex_o;
+bot y7=-apex_o; y6=.5h;
+filldraw stroke z1e{dir(-105)}...z4e...{dir(-105)}z7e; % inner right
+filldraw stroke z5e{dir(-105)}...z6e...{dir(-105)}z7e; % right arm
+pos8(cap_hair,180); pos9(vair,90); pos10(cap_curve,0);
+pos11(vair,90); pos12(cap_hair,180);
+x8r=hround u; y8=.725h; x9=2u; top y9r=.9h; x10r=4u; y10=.75h;
+x11=5u; bot y11l=.65h; x12r=7u; y12=.8h;
+filldraw stroke z8e{up}...z9e{right}...z10e{dir(-105)}...z11e{right}
+...{up}z12e; % flourish
+pos13(cap_hair,0); pos14(.5[cap_hair,cap_curve],-60);
+lft x13l=hround 15u; y13=.5h; rt x14r=hround 16.5u; top y14l=h;
+filldraw stroke z14e{dir(-150)}..{down}z13e..{dir(-105)}z3e;
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13);
+math_fit(-.725h#*slant,.5h#*slant-u#);
+endchar;
+
+cmchar "Script letter X";
+beginchar("X",17u#,cap_height#,0);
+italcorr h#*slant-2u#;
+adjust_fit(0,0); pickup fine.nib;
+pos1(vair,405); pos2(cap_curve,360); pos3(vair,270); pos4(cap_hair,180);
+pos5(vair,90); pos6(cap_stem,0); pos7(vair,-90); pos8(cap_hair,-180);
+pos9(flare,-180);
+lft x1l=4u; top y1r=.9h; rt x2r=hround 6u; y2=.65h; x3=4u; bot y3r=vround .5h;
+lft x4r=hround u; y4=.8h; x5=3.75u; top y5r=h+o; rt x6r=hround 10u; y6=.45h;
+x7=6.5u; bot y7r=-o; lft x9r=hround 3u; y9=.17h;
+filldraw stroke z1e..pulled_arc.e(2,3)&pulled_arc.e(3,4)&pulled_arc.e(4,5)
+&pulled_arc.e(5,6)&pulled_arc.e(6,7); % left side
+bulb(7,8,9);
+pos10(vair,90); pos11(vair,90); x10=7u; x11=11.5u; y10r=y11r=vround .5h;
+filldraw stroke z10e..z11e; % crossbar
+pos12(flare,0); pos13(cap_hair,0); pos14(vair,90); pos15(cap_hair,180);
+pos16(vair,270); pos17(cap_hair,360);
+rt x12r=hround 14u; y12=.95h; x14=12u; top y14r=h+o; z15l=z6r;
+x16=14u; bot y16r=-o; rt x17r=hround 16u; y17=.25h;
+bulb(14,13,12);
+filldraw stroke pulled_arc.e(14,15)&pulled_arc.e(15,16)&pulled_arc.e(16,17);
+penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13);
+math_fit(-.25h#*slant,.25h#*slant);
+endchar;
+
+cmchar "Script letter Y";
+beginchar("Y",15u#,cap_height#,0);
+italcorr h#*slant-.5u#;
+adjust_fit(0,0); pickup fine.nib;
+pos1(vair,405); pos2(cap_curve,360); pos3(vair,270); pos4(cap_hair,180);
+pos5(vair,90); pos6(cap_stem,0); pos7(cap_stem,0); pos8(vair,90);
+pos9(cap_hair,180);
+lft x1l=4u; top y1r=.9h; rt x2r=hround 6.5u; y2=.6h;
+x3=4.5u; bot y3r=vround .4h;
+lft x4r=hround u; y4=.7h; x5=5u; top y5r=h+o; rt x6r=hround 10u; y6=.7h;
+rt x7r=hround 10u; y7=.5h; x8=11.5u; bot y8l=vround .27h; x9=13u; y9=.4h;
+filldraw stroke z1e..pulled_arc.e(2,3)&pulled_arc.e(3,4)&pulled_arc.e(4,5)
+&pulled_arc.e(5,6)---pulled_arc.e(7,8)&pulled_arc.e(8,9); % left side
+pos10(vair,-45); pos11(cap_curve,0); pos12(cap_stem,0); pos13(vair,-90);
+pos14(cap_hair,-180); pos15(flare,-180);
+rt x10r=hround 14u; top y10l=h; lft x11l=hround 12u; y11=.8h;
+rt x12r=hround 14u; y12=.35h; x13=10u; bot y13r=-o; lft x15r=hround 6u;
+y15=.17h;
+filldraw stroke z10e{dir(-135)}..z11e{down}...z12e{down}...{left}z13e;
+bulb(13,14,15);
+penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15);
+math_fit(-.6h#*slant,.35h#*slant);
+endchar;
+
+cmchar "Script letter Z";
+beginchar("Z",16u#,cap_height#,0);
+italcorr h#*slant-2.8u#;
+adjust_fit(0,0); pickup fine.nib;
+pos1(vair,405); pos2(cap_curve,360); pos3(vair,270); pos4(cap_hair,180);
+pos5(vair,90); pos6(cap_stem,0); pos7(cap_stem,0); pos8(vair,90);
+pos9(cap_hair,180);
+lft x1l=4u; top y1r=.85h; rt x2r=hround 6u; y2=.65h;
+x3=4u; bot y3r=vround .5h;
+lft x4r=hround u; y4=.75h; x5=4.5u; top y5r=h+o; rt x6r=hround 7.5u; y6=.85h;
+rt x7r=hround 7.5u; y7=.75h; x8=9.5u; bot y8l=vround .7h;
+rt x9l=hround 13.7u; y9=.85h;
+pos10(vair,270); pos11(vair,-90); pos12(cap_stem,0); pos13(vair,-90);
+pos14(cap_hair,-180); pos15(vair,-270); pos16(cap_curve,-270);
+pos17(cap_hair,-180);
+top y10l=h+oo; x10=11.5u; z11=z10; x12=10u; y12=.5h; x13=6.5u; bot y13r=-oo;
+lft x14r=hround 4u; x15=6u; top y15r=vround .16h; x16=12.5u; bot y16l=-o;
+y14=.075h; rt x17l=hround 15u; top y17=vround .2h;
+filldraw stroke z1e..pulled_arc.e(2,3)&pulled_arc.e(3,4)&pulled_arc.e(4,5)
+&pulled_arc.e(5,6)&pulled_arc.e(6,8)&pulled_arc.e(8,9)&pulled_arc.e(9,10);
+filldraw stroke z11e{left}..{down}z12e..{left}z13e...{up}z14e...{right}z15e
+...{right}z16e..{up}z17e; % stem and foot
+pos18(vair,90); pos19(vair,90); x18=8u; x19=13u; y18r=y19r=vround .5h;
+filldraw stroke z18e..z19e; % crossbar;
+penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19);
+math_fit(max(-3u#,-.75h#*slant-u#),.2h#*slant);
+endchar;
+
+cmchar "Tie accent";
+beginchar(oct"177",5u#,asc_height#,0);
+italcorr 4/9[x_height#,asc_height#]*slant+4.5u#+2letter_fit#+.5hair#;
+adjust_fit(if monospace:2u#,2u# else:serif_fit#,serif_fit# fi);
+pickup fine.nib; pos1(hair,180); pos2(vround 1/5[vair,stem],90); pos3(hair,0);
+lft x1r=hround(.5w-.5hair); x2=.5[x1,x3];
+rt x3r=hround(w+4u+2letter_fit+.5hair);
+y1=y3=4/9[x_height,asc_height]; top y2r=vround 8/9[x_height,asc_height];
+filldraw stroke super_arc.e(1,2) & super_arc.e(2,3); % arc
+penlabels(1,2,3); endchar;