diff options
author | Karl Berry <karl@freefriends.org> | 2014-09-03 21:44:10 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2014-09-03 21:44:10 +0000 |
commit | d0d0d4483cb9d0d98d4570649930ddb803c83050 (patch) | |
tree | 95a35c8fe79d7de6a9ed02f325631b6d2282a003 /Master/texmf-dist/fonts/source/public/drm/itoldstydigs.mf | |
parent | 855095e4c676191f2890ea2fb5868c276042ae30 (diff) |
drm (2sep14)
git-svn-id: svn://tug.org/texlive/trunk@35102 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/drm/itoldstydigs.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/drm/itoldstydigs.mf | 298 |
1 files changed, 298 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/drm/itoldstydigs.mf b/Master/texmf-dist/fonts/source/public/drm/itoldstydigs.mf new file mode 100644 index 00000000000..5fe086cf2cf --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/itoldstydigs.mf @@ -0,0 +1,298 @@ +% +AMDG This document was begun on 9 June 11EX, the +% commemoration of Ss. Primus and Felicianus, M, 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("1",0.6ex#+2ss#,ex#,0); "The digit 1"; +italcorr(ex#*slant); + +pickup pencircle scaled thinl; +penpos0(thickl,0); +z0 = (w/2,h); +penpos1(thinl,-90); +z1 = (w/2-2curlw,h-2curlh); +penpos2(thickl,0); +z2 = (w/2,0); + +penstroke z1e{right}..{up}z0e; +penstroke z0e--z2e; + + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("2",digwid#+2ss#,cap#,0); "The digit 2"; +italcorr(ex#*slant); + +penpos0(thinl,90); +z0 = (w/2,5h/6); +penpos1(thinl,0); +z1 = (3w/5,3h/4); +penpos2(thinl,-90); +z2 = (w/2,3h/5); +penpos3(thinl,180); +z3 = (2w/5,(y0l+y2l)/2); +penpos4(thickl,180); +z4r = (ss,3h/4); +penpos5(thinl,90); +z5r = (w/2,h+o); +penpos6(thickl,0); +z6r = (w-ss,y4); +penpos8(0.7thickl,-45); +z8 = (w/2,2h/5); +penpos7(thinl,-90); +z7r = (ss,0-o); +penpos9(1.75thinl,-90); +z9r = (w/3,y7l); +penpos10(2thinl,-90); +z10r = (2w/3,0-o); +penpos11(thickl,-90); +z11r = (w-ss,y10); + +penstroke z3e..z0e..z1e..z2e..z4e..z5e..z6e..z8e..z7e; +penstroke z7e..z9e..z10e..z11e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("3",digwid#+2ss#,cap#,dep#); "The digit 3"; +italcorr(ex#*slant); + +penpos0(thickl,0); +z0l = (ss,3h/4); +penpos1(thinl,-90); +z1l = (w/2,h+o); +penpos2(thickl,180); +z2l = (w-ss,3h/4); +penpos3(thinl,90); +z3 = (w/2,h/2); +penpos4(thickl,0); +z4r = (w-ss,h/4); +penpos5(thinl,-90); +z5r = (w/2,0-o); +penpos6(thickl,180); +z6r = (ss,h/4); +penpos7(1.5thinl,90); +z7 = z0 shifted (curlw,-curlh); +penpos8(thinl,180); +z8 = z7 shifted (curlw,curlh); +penpos9(thinl,-90); +z9 = z8 shifted (-curlw/2,curlh/2); +penpos10(1.5thinl,90); +z10 = z6 shifted (curlw,curlh); +penpos11(thinl,0); +z11 = z10 shifted (curlw,-curlh); +penpos12(thinl,-90); +z12 = z11 shifted (-curlw/2,-curlh/2); + +penstroke z9e..z8e..z7e..z0e{up}..z1e..z2e..z3e; +penstroke z3e..z4e..z5e..{up}z6e..z10e..z11e..z12e; + +picture three; three := currentpicture; +currentpicture := three shifted (0,-dep); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("4",digwid#+2ss#,cap#,0); "The digit 4"; +italcorr(ex#*slant); + +penpos0(thickl,0); +z0r = (5w/6,h+o); +penpos1(thickl,0); +z1r = (5w/6,0); +penpos2(thickl,0); +z2r = (0.6w,h+o); +penpos3(thickl,0); +z3l = (ss,h/3); +penpos4(thinl,-45); +z4l = z3l; +penpos5(thinl,-45); +z5 = (w-ss,y4); +penpos6(thickl,0); +z6 = 0.25[z3,z2]; +z8 = (x1,y3); +penpos7(thickl,0); +z7 = 0.15[z8,z0]; +penpos9(0.75thickl,0); +z9 = 0.65[z3,z2]; +penpos10(0.75thickl,0); +z10 = 0.5[z8,z0]; +penpos11(0.5thickl,0); +z11 = 0.9[z3,z2]; +penpos12(0.5thickl,0); +z12 = 0.8[z8,z0]; +penpos13(thinl,0); +z13 = z2; +penpos14(thinl,0); +z14 = z0; + +penstroke z3e--z6e--z9e--z11e--z13e; +penstroke z1e--z7e--z10e--z12e--z14e; +penstroke z4e--z5e; + +picture four; four := currentpicture; +currentpicture := four shifted (0,-dep); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("5",digwid#+2ss#,cap#,0); "The digit 5"; +italcorr(ex#*slant); + +penpos0(thickl,90); +z0r = (w-ss-thickl/2,h+o); +penpos1(thickl,90); +z1r = (ss+thickl/2,h+o); +penpos2(thickl,90); +z2 = (ss+thickl/3,h/2); +penpos3(thickl,0); +z3r = (w-ss,h/3); +penpos4(thinl,-90); +z4r = (w/2,0-o); +penpos5(thickl,180); +z5r = (ss,h/5); +penpos6(thinl,0); +z6l = z1l; +penpos7(thinl,0); +z7l = z2r; +penpos8(1.5thinl,90); +z8 = z5 shifted (curlw,curlh); +penpos9(thinl,0); +z9 = z8 shifted (curlw,-curlh); + +penstroke z0e--z1e--z2e; +penstroke z6e--z7e; +penstroke z2e..z3e..z4e..z5e..z8e..z9e; + +picture five; five := currentpicture; +currentpicture := five shifted (0,-dep); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("6",digwid#+2ss#,cap#,0); "The digit 6"; +italcorr(ex#*slant); + +penpos0(thinl,90); +z0r = (2w/3,h+o); +penpos1(2thinl,180); +z1r = (ss+thinl,2h/3); +penpos2(thickl,180); +z2r = (ss,ex/2); +penpos3(thinl,-90); +z3r = (w/2,0-o); +penpos4(thickl,0); +z4r = (w-ss,ex/2); +penpos5(thinl,90); +z5r = (w/2,ex+o); +penpos6(thinl,0); +z6l = z0l; +penpos7(thinl,-90); +z7l = z6l; +penpos8(thinl,180); +z8l = z7l; + +penstroke z5e..z2e..z3e..z4e..cycle; +penstroke z0e..z1e..z2e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("9",0.9ex#+2ss#,cap#,0); "The digit 9"; +italcorr(ex#*slant); + +penpos0(thinl,90); +z0l = (w/3,0-o); +penpos1(2thinl,180); +z1l = (w-ss-thinl,h/3); +penpos2(thickl,180); +z2l = (w-ss,h-ex/2); +penpos3(thinl,90); +z3l = (w/2,h-ex-o); +penpos4(thickl,0); +z4l = (ss,h-ex/2); +penpos5(thinl,-90); +z5l = (w/2,h+o); + +penstroke z5e..z2e..z3e..z4e..cycle; +penstroke z0e..z1e..z2e; + +picture nine; nine := currentpicture; +currentpicture := nine shifted (0,-dep); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("7",digwid#+2ss#,cap#,0); "The digit 7"; +italcorr(ex#*slant); + +penpos0(thickl,90); +z0r = (ss,h+o); +penpos1(thickl,90); +z1r = (w-ss,h+o); +penpos2(1.5thinl,180); +z2 = (w/3,h/2); +penpos3(thickl,180); +z3r = (w/3,0); +penpos4(thinl,45); +z4 = (ss,h/2); +penpos5(thinl,45); +z5 = 2[z4,z2] shifted (thickl,thickl); +penpos6(thinl,45); +z6 = z4 shifted (0,thickl); + +penstroke z0e--z1e; +penstroke z1e..z2e..z3e; +penstroke z6e--z5e; + +picture seven; seven := currentpicture; +currentpicture := seven shifted (0,-dep); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("8",digwid#+2ss#,cap#,0); "The digit 8"; +italcorr(ex#*slant); + +penpos0(thinl,90); +z0r = (w/2,h+o); +penpos1(1.75thinl,0); +z1r = (w-ss,3h/4); +penpos2(1.75thinl,0); +z2l = (ss,h/4); +penpos3(thickl,180); +z3r = (ss,3h/4); +penpos4(thickl,180); +z4l = (w-ss,h/4); +penpos5(thinl,90); +z5l = (w/2,0-o); +penpos6(thinl,-45); +z6 = (w/2,h/2); +penpos7(thickl/2,-135); +z7 = z6; + +penstroke +z0e{right}..{down}z1e{down}..z6e..{down}z2e{down}..{right}z5e{right}..{up}z4e{up}..z7e..{up}z3e{up}..{right}cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("0",0.9ex#+2ss#,ex#,0); "The digit 0"; +italcorr(ex#*slant); + +penpos0(thinl,90); +z0r = (w/2,h+o); +penpos1(thickl,0); +z1r = (w-ss,h/2); +penpos2(thinl,-90); +z2r = (w/2,0-o); +penpos3(thickl,180); +z3r = (ss,h/2); + +penstroke z0e..z1e..z2e..z3e..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; |