diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/drm/drmmathfrac.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/drm/drmmathfrac.mf | 85 |
1 files changed, 85 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/drm/drmmathfrac.mf b/Master/texmf-dist/fonts/source/public/drm/drmmathfrac.mf new file mode 100644 index 00000000000..f39810d08d7 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmmathfrac.mf @@ -0,0 +1,85 @@ +% +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"074",em#,cap#,0); "Fraktur R"; + +pickup pencircle scaled 1.5thinl; +penpos0(thinl,90); +z0 = (w/4,h/2); +penpos1(thinl,0); +z1l = (ss,3h/4); +penpos2(thickl,-90); +z2l = (x0,h+o); +penpos3(thickl,180); +z3 = (w/2,h/2); +penpos4(thickl,45); +x4 = x2; y4l = 0-o; +penpos5(thickl,45); +x5l = ss; y5r = h/4; +penpos6(thinl,180); +z6 = (x3,y1); +penpos7(1.5thinl,90); +z7r = (3w/4,h+o); +penpos8(thickl,0); +z8r = (w-ss,y6l); +z9r = z3l; z9l = z3r; +penpos10(thickl,0); +z10r = (w-ss,h/2+thickl); +penpos11(thickl,20); +z11l = z3; +penpos12(thickl,0); +z12l = (x7,h/4); +penpos13(thickl,0); +z13l = (x12r,h/12); +penpos14(thickl,0); +z14r = (w-ss,0-o); + +penstroke z0e..z1e..z2e..z3e..z4e--z5e; +penstroke z6e..z7e..z8e..z10e--z9e; +penstroke z11e..{down}z12e..{down}z14e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +penlabels(13,14,15,16,17,18); +endchar; + +beginchar(oct"075",0.75em#,cap#,0); "Fraktur I"; + +pickup pencircle scaled 1.5thinl; +penpos0(thinl,90); +z0 = (w/4,h/2); +penpos1(thinl,0); +z1l = (ss,3h/4); +penpos2(thickl,-90); +z2l = (x0,h+o); +penpos3(thickl,-135); +z3 = (w/2,11h/12); +penpos4(thickl,-90); +z4 = (3w/4,10h/12); +penpos5(thinl,0); +z5r = (w-ss,h); +penpos6(thinl,0); +z6r = (w-ss,h/2); +penpos7(thickl,90); +z7r = (x4,y4r-1.5thinl); +penpos8(thickl,180); +z8 = (7w/12,h/2); +penpos9(thinl,-90); +z9 = (x7,h/3); +penpos10(thinl,180); +z10l = (w-ss,h/6); +penpos11(thickl,90); +z11l = (x9,0-o); +penpos12(thickl,90); +z12 = (x0,h/4); +penpos13(thinl,180); +z13r = (ss,0-o); + +penstroke z0e..z1e..z2e..z3e..z4e..z5e; +penstroke z6e{up}..z7e..z8e..z9e..z10e..z11e..z12e..z13e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +penlabels(13,14,15,16,17,18); +endchar; |