summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/drm/drmmathcal.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/drm/drmmathcal.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/drm/drmmathcal.mf712
1 files changed, 712 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/drm/drmmathcal.mf b/Master/texmf-dist/fonts/source/public/drm/drmmathcal.mf
new file mode 100644
index 00000000000..af7d8a9ab73
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/drm/drmmathcal.mf
@@ -0,0 +1,712 @@
+% +AMDG This document was begun on 7 July 11EX, the feast
+% of Sts. Cyril and Methodius, EEMM, and it is humbly
+% dedicated to them and to the Immaculate Heart of Mary for
+% their prayers, and to the Sacred Heart of Jesus for His
+% mercy.
+
+beginchar(oct"101",em#+2ss#,cap#,0); "Calligraphic A";
+italcorr(ex#*slant);
+
+penpos0(thickstroke,0);
+z0l = (ss,h/4);
+penpos1(thinstroke,90);
+z1l = (w/5,0-o);
+penpos2(thinstroke,135);
+z2r = (w/3,h+o);
+penpos3(thinstroke,180);
+z3 = (x2,h/2);
+penpos4(thickstroke,180);
+z4r = z2r;
+penpos5(thickstroke,180);
+z5 = (2w/3,h/2);
+penpos6(thinstroke,-90);
+z6r = (w-ss,0-o);
+penpos7(thinstroke,-90);
+z7 = z3;
+penpos8(thinstroke,-90);
+z8 = z5;
+
+penstroke z0e{down}..z1e{right}..{up}z3e..{up}z2e;
+penstroke z4e..z5e..{right}z6e;%..z7e;
+penstroke z7e--z8e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar(oct"102",3em#/4+2ss#,cap#,0); "Calligraphic B";
+italcorr(ex#*slant);
+
+penpos0(curvwid,-30);
+x0l = ss; y0 = h+o;
+penpos1(0.75curvwid,0);
+z1r = (x0r,0-o);
+penpos2(1.5thinstroke,0);
+z2 = (x0,3h/4);
+penpos3(thinstroke,-90);
+z3l = (w/2,h+o);
+penpos4(curvwid,180);
+z4l = (w-ss-3hair,3h/4);
+penpos5(curvwid,0);
+z5r = (w-ss,h/4);
+penpos6(thinstroke,-90);
+z6 = (x2r,h/2);
+penpos7(thinstroke,-90);
+z7r = (x1r+thinstroke,curlh);
+penpos8(thinstroke,90);
+z8 = z6;
+
+penstroke z0e--z1e;
+penstroke z2e{up}..z3e..z4e..{left}z8e;
+penstroke z8e{right}..z5e..z7e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar(oct"103",5em#/6+ss#,cap#,0); "Calligraphic Letter C";
+italcorr(ex#*slant);
+
+penpos0(curvwid,0);
+z0r = (w-ss,h-2.5curlh);
+penpos1(curvwid,0);
+z1r = (w-ss,h-1.5curlh);
+penpos2(thinstroke,90);
+z2r = (w/2,h+o);
+penpos3(curvwid,180);
+z3r = (ss,h/2);
+penpos4(thinstroke,-90);
+z4r = (w/2,0-o);
+penpos5(thinstroke,0);
+z5r = (w-ss,h/4);
+
+penstroke z0e---z1e..z1e..z2e..z3e..z4e..z5e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar(oct"104",5em#/6+2ss#,cap#,0); "Calligraphic Letter D";
+italcorr(ex#*slant);
+
+penpos0(thinstroke,0);
+z0l = (ss,h-2curlh);
+penpos1(thinstroke,-90);
+z1l = (curlw,h+o);
+penpos2(curvwid,180);
+z2l = (w-ss,h/2);
+penpos3(thinstroke,90);
+z3l = (w/2,0-o);
+penpos4(thinstroke,90);
+z4l = (x1,0.5curlh);
+penpos5(thinstroke,-90);
+z5l = (w/2,h+o);
+penpos6(thickstroke,0);
+z6l = z1;
+penpos7(thickstroke,0);
+z7l = (x1,0);
+penpos8(thinstroke,0);
+z8l = (ss,curlh);
+
+penstroke z0e..z1e{right}..z5e..z2e..z3e{left}..z4e..z8e;
+penstroke z6e--z7e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar(oct"105",4em#/6+2ss#,cap#,0); "Calligraphic Letter E";
+italcorr(ex#*slant);
+
+penpos0(curvwid,0);
+z0r = (w-ss,3h/4);
+penpos1(thinstroke,90);
+z1r = (w/2,h+o);
+penpos2(curvwid,180);
+z2r = (ss,3h/4);
+penpos3(thinstroke,-90);
+z3 = (2w/3,h/2+thickstroke/2);
+penpos4(curvwid,0);
+z4l = (ss,h/4);
+penpos5(thinstroke,90);
+z5l = (w/2,0-o);
+penpos6(curvwid,180);
+z6l = (w-ss,h/4);
+
+penstroke z0e..{left}z1e..z2e..{right}z3e;
+penstroke z3e{left}..z4e..z5e{right}..z6e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar("F",5em#/6+2ss#,cap#,0); "Calligraphic Letter F";
+italcorr(ex#*slant);
+
+penpos0(thinstroke,0);
+z0l = (ss,h-2curlh);
+penpos1(0.8thickstroke,-90);
+z1l = (ss+curlw,h+o);
+penpos2(0.8thickstroke,-90);
+z2l = (w-ss-curlw,h+o);
+penpos3(thinstroke,180);
+z3l = (w-ss,y2r-curlh/2);
+penpos4(thickstroke,0);
+z4 = (w/3,h-thickstroke/2);
+penpos5(thickstroke,0);
+z5 = (x4,curlh);
+penpos6(thinstroke,-90);
+z6r = (x5-curlw,0-o);
+penpos7(thinstroke,180);
+z7r = (ss,curlh);
+penpos8(1.5thinstroke,45);
+z8 = (x4,h/2+thinstroke/2);
+penpos9(1.5thinstroke,45);
+x9r = x2; y9 = h/2+thinstroke/2;
+
+penstroke z0e..z1e---z2e..z3e;
+penstroke z4e---z5e..z6e..z7e;
+penstroke z8e--z9e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar("G",5em#/6+2ss#,cap#,dep#); "Calligraphic Letter G";
+italcorr(ex#*slant);
+
+penpos0(curvwid,0);
+z0r = (w-ss,h-1.5curlh);
+penpos1(curvwid,0);
+z1r = (w-ss,h-1.5curlh);
+penpos2(thinstroke,90);
+z2r = (w/2,h+o);
+penpos3(curvwid,180);
+z3r = (ss,h/2);
+penpos4(thinstroke,-90);
+z4r = (w/2,0-o);
+penpos5(thickstroke,0);
+z5r = (w-ss,h/2-thickstroke/2);
+penpos6(1.5thinstroke,-45);
+z6l = z5;
+penpos7(1.5thinstroke,-45);
+z7 = (x2,y6);
+penpos8(thickstroke,0);
+z8 = (x5,0);
+penpos9(thickstroke,0);
+z9 = (x5,-d/2);
+penpos10(thinstroke,-90);
+z10r = (3w/4,-d);
+penpos11(thinstroke,180);
+z11r = (w/2,-d/2);
+penpos12(thinstroke,90);
+z12l = z11l;
+penpos13(thinstroke,0);
+z13l = z12l;
+penpos14(thinstroke,-90);
+z14l = z13l;
+penstroke z0e---z1e..z1e..z2e..z3e..z4e..z5e;
+penstroke z6e--z7e;
+penstroke z5e--z8e---z9e..z10e..z11e..z12e..z13e..z14e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar("H",em#+2ss#,cap#,0); "Calligraphic Letter H";
+italcorr(ex#*slant);
+
+penpos0(thickstroke,45);
+z0l = (ss+curlw/2,h-2curlh);
+penpos1(thinstroke,-90);
+z1l = (ss+curlw,h+o);
+penpos2(thickstroke,180);
+z2 = (ss+2curlw,h-curlh);
+penpos3(thickstroke,180);
+z3 = (x2,curlh);
+penpos4(thinstroke,90);
+z4l = (x1,0-o);
+penpos5(thickstroke,-45);
+z5l = (ss+curlw/2,2curlh);
+penpos6(1.5thinl,90);
+z6 = (x2,h/2+thickstroke/2);
+penpos7(1.5thinl,90);
+z7 = (w/2+thickstroke,y6);
+
+penstroke z0e..z1e..z2e---z3e..z4e..z5e;
+penstroke z6e--z7e;
+penstroke (z0e..z1e..z2e---z3e..z4e..z5e) reflectedabout
+ ((w/2,h),(w/2,0));
+penstroke (z6e--z7e) reflectedabout ((w/2,h),(w/2,0));
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar("I",0.75em#+2ss#,cap#,0); "Calligraphic Letter I";
+italcorr(ex#*slant);
+
+penpos0(thinstroke,0);
+z0l = (ss,h-2curlh);
+penpos1(1.5thinstroke,-90);
+z1l = (w/4,h+o);
+penpos2(1.5thinstroke,-90);
+z2l = (w-ss,h+o);
+penpos3(thickstroke,0);
+z3 = (w/2,h);
+penpos4(thickstroke,0);
+z4 = (x3,0);
+
+penstroke z0e..z1e---z2e;
+penstroke z3e--z4e;
+penstroke (z0e..z1e---z2e) reflectedabout ((w/2,h),(w/2,0))
+ reflectedabout ((0,h/2),(w,h/2));
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar("J",0.75em#+2ss#,cap#,dep#); "Calligraphic Letter J";
+italcorr(ex#*slant);
+
+penpos0(thinstroke,0);
+z0l = (ss,h-2curlh);
+penpos1(1.5thinstroke,-90);
+z1l = (w/4,h+o);
+penpos2(1.5thinstroke,-90);
+z2l = (w-ss,h+o);
+penpos3(thickstroke,0);
+z3 = (w/2,h);
+penpos4(thickstroke,0);
+z4 = (x3,-d/2);
+penpos5(thinstroke,-90);
+z5r = (w/4,-d);
+penpos6(thinstroke,180);
+z6r = (ss,-d/2);
+penpos7(thinstroke,90);
+z7l = z6l;
+penpos8(thinstroke,0);
+z8l = z7l;
+penpos9(thinstroke,-90);
+z9l = z8l;
+
+penstroke z0e..z1e---z2e;
+penstroke z3e---z4e..z5e..z6e..z7e..z8e..z9e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar("K",0.75em#+2ss#,cap#,0); "Calligraphic Letter K";
+italcorr(ex#*slant);
+
+penpos0(thinstroke,0);
+z0l = (ss,h+o);
+penpos1(thickstroke,0);
+z1r = (w/4,h/2);
+penpos2(thinstroke,0);
+z2l = (ss,0-o);
+penpos3(thinstroke,0);
+z3r = (w-ss,h-curlh);
+penpos4(thinstroke,90);
+z4 = (w-ss-curlw,h+o);
+penpos5(thinstroke,180);
+z5 = (h/2,5h/6);
+penpos6(thickstroke,180);
+z6 = z1;
+penpos7(1.5thinstroke,90);
+z7 = z6;
+penpos8(1.5thinstroke,45);
+z8 = (w/2,0.4h);
+penpos9(1.5thinstroke,0);
+z9r = (w-ss,0-o);
+
+penstroke z0e..z1e..z2e;
+penstroke z3e..z4e..z5e..z6e;
+penstroke z7e..z8e..z9e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar("L",5em#/6+2ss#,cap#,0); "Calligraphic Letter L";
+italcorr(ex#*slant);
+
+penpos0(2thinstroke,0);
+z0 = (w/2,h-2curlh);
+penpos1(thinstroke,90);
+z1r = (w/4,h+o);
+penpos2(thickstroke,180);
+z2r = (ss,h-curlh);
+penpos3(thickstroke,180);
+z3l = (w/4,h/4);
+penpos4(thinstroke,135);
+x4r = ss; y4l = 0-o;
+penpos5(thickstroke,90);
+z5l = (3w/4,0-o);
+penpos6(thinstroke,135);
+x6r = w-ss; y6l = curlh;
+penpos7(thickstroke,90);
+z7 = (w/3,curlh);
+
+penstroke z0e..z1e..z2e..z3e..z4e;
+penstroke z4e..z7e..z5e..z6e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar("M",em#+2ss#,cap#,0); "Calligraphic Letter M";
+italcorr(ex#*slant);
+
+penpos0(thinl,0);
+z0l = (ss,h-curlh);
+penpos1(thinl,-90);
+z1l = (curlw,h+o);
+penpos2(thickl,-180);
+z2 = (2curlw,y0);
+penpos3(thickl,-180);
+z3 = (x2,0);
+penpos4(thinl,90);
+z4r = (x2+w/6,h+o);
+penpos5(thickl,0);
+z5 = (x4+w/6,y2);
+penpos6(thickl,0);
+z6 = (x5,0);
+penpos7(thinl,-90);
+z7l = (x5+w/6,h+o);
+penpos8(thickl,-180);
+z8 = (x7+w/6,y5);
+penpos9(thickl,-180);
+z9 = (x8,0);
+
+penstroke z0e..z1e..z2e---z3e;
+penstroke z3e---z2e..z4e..z5e---z6e;
+penstroke z6e---z5e..z7e..z8e---z9e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar("N",0.75em#+2ss#,cap#,0); "Calligraphic Letter N";
+italcorr(ex#*slant);
+
+penpos0(thinl,0);
+z0l = (ss,h-curlh);
+penpos1(thinl,-90);
+z1l = (curlw,h+o);
+penpos2(thickl,-180);
+z2 = (2curlw,y0);
+penpos3(thickl,-180);
+z3 = (x2,0);
+penpos4(thinl,90);
+z4r = (x2+w/4,h+o);
+penpos5(thickl,0);
+z5 = (x4+w/4,y2);
+penpos6(thickl,0);
+z6 = (x5,0);
+
+penstroke z0e..z1e..z2e---z3e;
+penstroke z3e---z2e..z4e..z5e---z6e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar("O",5em#/6+2ss#,cap#,0); "Calligraphic Letter O";
+italcorr(ex#*slant);
+
+penpos0(thinl,-90);
+z0l = (w/2,h-curlh);
+penpos1(curvl,0);
+z1l = (ss,h/2);
+penpos2(thinl,90);
+z2l = (w/2,0-o);
+penpos3(curvl,180);
+z3l = (w-ss,h/2);
+penpos4(1.5thinl,-90);
+z4l = (w/2,h+o);
+penpos5(1.5thinl,-90);
+z5l = (w/4,h+o);
+penpos6(thinl,180);
+z6 = 0.5[z0,z3];
+
+penstroke z6e..z0e..z1e..z2e..z3e..z4e..z5e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar("P",5em#/6+2ss#,cap#,0); "Calligraphic Letter P";
+italcorr(ex#*slant);
+
+penpos0(thinstroke,0);
+z0l = (ss,h-2curlh);
+penpos1(thickstroke,-90);
+z1l = (2curlw,h+o);
+penpos2(thickstroke,-90);
+z2l = (w/2,h+o);
+penpos3(1.5thinstroke,180);
+z3l = (w-ss,3h/4);
+penpos4(thinstroke,90);
+z4 = (x1+thickstroke,h/2);
+penpos5(thickstroke,0);
+z5 = z1;
+penpos6(thickstroke,0);
+z6 = z1 shifted (thinstroke,-h/2);
+penpos7(thickstroke,0);
+z7 = (x1,0);
+
+penstroke z0e..z1e---z2e..z3e..{left}z4e;
+penstroke z5e..z6e..z7e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar("Q",5em#/6+2ss#,cap#,dep#); "Calligraphic Letter Q";
+italcorr(ex#*slant);
+
+penpos0(thinl,-90);
+z0l = (w/2,h-curlh);
+penpos1(curvl,0);
+z1l = (ss,h/2);
+penpos2(thinl,90);
+z2l = (w/2,0-o);
+penpos3(curvl,180);
+z3l = (w-ss,h/2);
+penpos4(1.5thinl,-90);
+z4l = (w/2,h+o);
+penpos5(1.5thinl,-90);
+z5l = (w/4,h+o);
+penpos6(thinl,180);
+z6 = 0.5[z0,z3];
+penpos7(1.5thinstroke,90);
+z7l = (ss,curlh);
+penpos8(1.5thinstroke,90);
+z8 = ((x7+x2)/2,2curlh);
+penpos9(1.5thinstroke,90);
+z9l = (w-ss,-dep/2);
+penpos10(1.5thinstroke,90);
+z10 = ((x2+x9)/2,-dep/2);
+
+penstroke z6e..z0e..z1e..z2e..z3e..z4e..z5e;
+penstroke z7e..z8e..z10e..z9e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar("R",5em#/6+2ss#,cap#,0); "Calligraphic Letter R";
+italcorr(ex#*slant);
+
+penpos0(thinstroke,0);
+z0l = (ss,h-2curlh);
+penpos1(thickstroke,-90);
+z1l = (2curlw,h+o);
+penpos2(thickstroke,-90);
+z2l = (w/2,h+o);
+penpos3(1.5thinstroke,180);
+z3l = (w-ss,3h/4);
+penpos4(thinstroke,90);
+z4 = (x1+thickstroke,h/2);
+penpos5(thickstroke,0);
+z5 = z1;
+penpos6(thickstroke,0);
+z6 = z1 shifted (thinstroke,-h/2);
+penpos7(thickstroke,0);
+z7 = (x1,0);
+penpos9(thickstroke,0);
+z9r = (w-ss,0);
+penpos8(thickstroke,15);
+z8 = (z3..{left}z4) intersectionpoint (z9--z2);
+
+penstroke z0e..z1e---z2e..z3e..{left}z4e;
+penstroke z5e..z6e..z7e;
+penstroke z8e{down}..z9e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar("S",2em#/3+2ss#,cap#,0); "Calligraphic Letter S";
+italcorr(ex#*slant);
+
+penpos0(curvwid,45);
+z0r = (w-ss,3h/4);
+penpos1(thinstroke,90);
+z1r = (w/2,h+o);
+penpos2(curvwid,180);
+z2r = (ss,3h/4);
+penpos3(thinstroke,-90);
+z3 = (w/2,h/2+thinstroke);
+penpos4(curvwid,180);
+z4r = (w-ss,h/4);
+penpos5(thinstroke,90);
+z5l = (w/2,0-o);
+penpos6(curvwid,-30);
+z6l = (ss,h/4);
+
+penstroke z0e..z1e..z2e..z3e..z4e..z5e..z6e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar("T",5em#/6+2ss#,cap#,0); "Calligraphic Letter T";
+italcorr(ex#*slant);
+
+penpos0(thinstroke,0);
+z0l = (ss,h-2curlh);
+penpos1(0.8thickstroke,-90);
+z1l = (ss+curlw,h+o);
+penpos2(0.8thickstroke,-90);
+z2l = (w-ss-curlw,h+o);
+penpos3(thinstroke,180);
+z3l = (w-ss,y2r-curlh/2);
+penpos4(thickstroke,0);
+z4 = (w/2,h);
+penpos5(thickstroke,0);
+z5 = (w/2-thickstroke,0);
+
+penstroke z0e..z1e---z2e..z3e;
+penstroke z4e{down}..z5e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar("U",5em#/6+2ss#,cap#,0); "Calligraphic Letter U";
+italcorr(ex#*slant);
+
+penpos0(thinstroke,0);
+z0l = (ss,h-curlh);
+penpos1(thinstroke,-90);
+z1l = (curlw,h+o);
+penpos2(thickstroke,180);
+z2 = (2curlw,h-curlh);
+penpos3(thickstroke,180);
+z3 = (x2,2curlh);
+penpos4(thinstroke,-90);
+z4r = (w/2+curlw/2,0-o);
+penpos5(thickstroke,0);
+z5r = (w-ss,2curlh);
+penpos6(thickstroke,0);
+z6r = (w-ss,h);
+penpos7(thinstroke,90);
+z7l = (x5r,0-o);
+penpos8(thinstroke,180);
+z8 = z7 shifted (curlw,curlh);
+
+penstroke z0e..z1e..z2e---z3e..z4e..z5e---z6e;
+penstroke z5e{down}..z7e..z8e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar("V",2em#/3+2ss#,cap#,0); "Calligraphic Letter V";
+italcorr(ex#*slant);
+
+penpos0(thickstroke,135);
+z0r = (ss-thickstroke,h-curlh);
+penpos1(thickstroke,45);
+z1r = (ss+curlw,h+o);
+penpos2(thickstroke,45);
+z2l = (w/2,0-o);
+penpos3(1.5thinstroke,-45);
+z3 = (3w/4,3h/4);
+penpos4(thinstroke,-45);
+x4r = w-ss; y4 = h+o;
+
+penstroke z0e{up}..z1e;
+penstroke z1e--z2e;
+penstroke z2e..z3e..z4e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar("W",em#+2ss#,cap#,0); "Calligraphic Letter W";
+italcorr(ex#*slant);
+
+penpos0(thickstroke,135);
+z0r = (ss-thickstroke,h-curlh);
+penpos1(thickstroke,45);
+z1r = (ss+curlw,h+o);
+penpos2(thickstroke,45);
+z2l = ((w/2)/2,0-o);
+penpos3(1.5thinstroke,-45);
+z3 = ((3w/4)/2,3h/4);
+penpos4(thinstroke,-45);
+x4r = (w-ss)/2; y4 = h+o;
+penpos5(thickstroke,45);
+z5l = (w/2,0-o);
+penpos6(1.5thinstroke,-45);
+z6 = (3w/4,3h/4);
+penpos7(thinstroke,-45);
+x7r = w-ss; y7 = h+o;
+
+penstroke z0e{up}..z1e;
+penstroke z1e--z2e;
+penstroke z2e..z3e..z4e;
+penstroke z4e..z5e;
+penstroke z5e..z6e..z7e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar("X",2em#/3+2ss#,cap#,0); "Calligraphic Letter X";
+italcorr(ex#*slant);
+
+penpos0(thinstroke,0);
+z0l = (ss,h-curlh);
+penpos1(thinstroke,-90);
+z1l = (curlw,h+o);
+penpos2(thickstroke,180);
+z2 = (2curlw,y0);
+penpos4(thinstroke,0);
+z4r = (w-ss,curlh);
+penpos5(thinstroke,-90);
+z5r = (w-ss-curlw,0-o);
+penpos3(thickstroke,180);
+z3 = (w-2curlw,y4);
+penpos6(1.5thinstroke,0);
+z6r = (w-ss,h+o);
+penpos7(1.5thinstroke,0);
+z7l = (ss,0-o);
+
+penstroke z0e..z1e..z2e---z3e..z5e..z4e;
+penstroke z6e--z7e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar("Y",5em#/6+2ss#,cap#,dep#); "Calligraphic Letter Y";
+italcorr(ex#*slant);
+
+penpos0(thinstroke,0);
+z0l = (ss,h-curlh);
+penpos1(thinstroke,-90);
+z1l = (curlw,h+o);
+penpos2(thickstroke,180);
+z2 = (2curlw,h-curlh);
+penpos3(thickstroke,180);
+z3 = (x2,2curlh);
+penpos4(thinstroke,-90);
+z4r = (w/2+curlw/2,0-o);
+penpos5(thickstroke,0);
+z5r = (w-ss,2curlh);
+penpos6(thickstroke,0);
+z6r = (w-ss,h);
+penpos7(thickstroke,0);
+z7r = (w-ss,-dep/2);
+penpos8(thinstroke,180);
+z8r = (x3r,-dep/2);
+penpos9(thinstroke,-90);
+z9r = (w/2,-dep);
+
+penstroke z0e..z1e..z2e---z3e..z4e..z5e---z6e;
+penstroke z6e---z7e..z9e..z8e;
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;
+
+beginchar("Z",5em#/6+2ss#,cap#,0); "Calligraphic Letter Z";
+italcorr(ex#*slant);
+
+penpos0(thickstroke,-90);
+z0l = (ss,h-curlh);
+penpos1(thickstroke,-90);
+z1l = (w/4,h+o);
+penpos2(thickstroke,-90);
+z2l = (2w/3,h-curlh);
+penpos3(1.5thinstroke,0);
+z3r = (w-ss,h+o);
+penpos4(1.5thinstroke,0);
+z4l = (ss,0-o);
+
+penstroke z0e..z1e..z2e..z3e;
+penstroke z3e--z4e;
+penstroke (z0e..z1e..z2e..z3e) shifted (0,-h+curlh);
+
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17);
+endchar;