1 files changed, 69 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/dozenal/dozenal.mf b/Master/texmf-dist/fonts/source/public/dozenal/dozenal.mf
new file mode 100644
index 00000000000..aec50f62d03
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/dozenal/dozenal.mf
@@ -0,0 +1,69 @@
+% +AMDG  This program was begun on 14 November 2008, the
+% feast of St. Josaphat, and it is humbly dedicated to him
+% and to the Immaculate Heart of Mary for their prayers, and
+% to the Sacred Heart of Jesus for His mercy.
+
+define_pixels(u,fig_height,cap_stem,thin_join,o,stem,stem,bar,tiny);
+define_blacker_pixels(thin_join, curve);
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Prepare the character for the numeral X                 %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+beginchar("X",9u#,fig_height#,0); "The Numeral X";
+
+z1 = (w-u, h+o/2);
+z2 = (w-u, (h+o/2)-1.5*cap_stem);
+z3 = z2 - (2thin_join, 0);
+x4 = (w-u-2thin_join);
+y4 = ((h+o/2) - ((2cap_stem/3)));
+z5 = (u+2thin_join, ((h+o/2) - ((2*cap_stem)/3)));
+z6 = (w-u, fig_height/3);
+z7 = (w/2, 0-o);
+z8 = (u, fig_height/4);
+z9 = z8 + (5tiny/2, 5tiny/2);
+z10 = z8 + (5tiny,0);
+z11 = z10 - (3tiny, tiny);
+z12 = z7 + (0, 1.5thin_join);
+z13 = z6 - (cap_stem, 0);
+z14 = z5 - (2thin_join, 0);
+z15 = (u, h+o/2);
+
+fill z1--z2--z3--z4--z5{z6-z5}..z6..{left}z7{left}..{up}z8..z9..z10..{up}z11{down}..{right}z12{right}..{up}z13..{z14-z13}z14--z15--cycle;
+
+penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15);
+
+endchar;
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Prepare the character for the numeral E                 %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+beginchar("E",9u#,fig_height#,0); "The Numeral E";
+
+z1 = (w/2, h+o);
+z2 = (w/2, 0-o);
+z3 = (w/2, h/2);
+z4 = (w-u, h/4-5tiny/2);
+z5 = (w-u, 3h/4+5tiny/2);
+z6 = (u-o, (h/4));
+z7 = (u-o, (3h/4));
+z8 = z9 + (3tiny,-tiny);
+z9 = z4 - (5tiny, 0);
+z10 = z9 + (5tiny/2, 5tiny/2);
+z11 = z12 + (3tiny,tiny);
+z12 = z5 - (5tiny, 0);
+z13 = z12 + (5tiny/2, -5tiny/2);
+z14 = z2 + (0,1.4thin_join);
+z15 = z6 + (cap_stem, 0);
+z16 = z3 + (cap_stem, -thin_join/2);
+z17 = z16 + (0, thin_join);
+z18 = z7 + (cap_stem, 0);
+z19 = z1 - (0, 1.4thin_join);
+
+fill z5..{left}z1{left}..{down}z7{down}..{right}z3{left}..{down}z6{down}..{right}z2{right}..z4..z10..z9..{up}z8{down}..{left}z14{left}..{up}z15{up}..{right}z16--z17{left}..{up}z18{up}..{right}z19{right}..{down}z11{up}..{down}z12..z13..cycle;
+
+penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19);
+
+endchar;
+end;