diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/drm/drmornfont.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/drm/drmornfont.mf | 154 |
1 files changed, 154 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/drm/drmornfont.mf b/Master/texmf-dist/fonts/source/public/drm/drmornfont.mf new file mode 100644 index 00000000000..5bcbf432562 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmornfont.mf @@ -0,0 +1,154 @@ +% +AMDG This document was begun on 4 August 11EX, the feast +% of St. Dominic, C, 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. + +beginchar(oct"000",cap#,cap#,0); "Six-petaled flower"; + +fill fullcircle scaled 2dotwid shifted (w/2,h/2); +z0 = (w/2,h/2) shifted (0,1.5dotwid); +z1 = (w/2,h); +z2 = z1 shifted (dotwid,-dotwid); +z3 = z1 shifted (-dotwid,-dotwid); +z4 = z0 shifted (dotwid/2,dotwid/2); +z5 = z0 shifted (-dotwid/2,dotwid/2); +path petal; petal = z0..z4---z2..z1..z3---z5..cycle; +fill petal; +fill petal rotatedaround ((w/2,h/2),60); +fill petal rotatedaround ((w/2,h/2),120); +fill petal rotatedaround ((w/2,h/2),180); +fill petal rotatedaround ((w/2,h/2),240); +fill petal rotatedaround ((w/2,h/2),300); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"001",ex#,ex#,0); "Checkerboard"; + +z0 = (0,h); +z1 = (w/3,h); +z2 = (w/3,2h/3); +z3 = (0,2h/3); +path square; square = z0--z1--z2--z3--cycle; +fill square; +fill square shifted (w/3,-h/3); +fill square shifted (0,-2h/3); +fill square shifted (2w/3,0); +fill square shifted (2w/3,-2h/3); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"002",ex#,ex#,0); "Inverse Checkerboard"; +fill square shifted (w/3,0); +fill square shifted (0,-h/3); +fill square shifted (2w/3,-h/3); +fill square shifted (w/3,-2h/3); +endchar; + +beginchar(oct"003",doubex#,doubex#,0); "Triple bar"; + +pickup semiextextthickpen; +top z0 = (0,h); +top z1 = (w,h); +bot z2 = (0,0); +bot z3 = (w,0); +draw z0--z1; draw z2--z3; +pickup extextthickpen; +z4 = (0,h/2); +z5 = (w,h/2); +draw z4--z5; + +picture triplebarext; triplebarext := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"004",doubex#+ex#,doubex#,ex#); +"Triple bar, upper left corner"; + +pickup semiextextthickpen; +top lft z0 = (0,h); +top rt z1 = (w,h); +bot rt z2 = (doubex,0); +bot rt z3 = (w,0); +draw z0--z1; draw z2--z3; +pickup extextthickpen; +z4 = ((x0+x2)/2,h/2); +rt z5 = (w,h/2); +draw z4--z5; +pickup semiextextthickpen; +z6 = (x0,-d); +draw z0--z6; +pickup extextthickpen; +z7 = (x4,-d); +draw z4--z7; +pickup semiextextthickpen; +z8 = (x2,-d); +draw z2--z8; + +picture triplecorner; triplecorner := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"005",doubex#+ex#,doubex#,ex#); +"Triple bar, upper right corner"; +currentpicture := triplecorner reflectedabout + ((w/2,h),(w/2,-d)); +endchar; + +beginchar(oct"006",doubex#+ex#,doubex#,ex#); +"Triple bar, lower right corner"; +currentpicture := triplecorner reflectedabout + ((w/2,h),(w/2,-d)) reflectedabout + ((0,0),(w,0)) shifted (0,ex); +endchar; + +beginchar(oct"007",doubex#+ex#,doubex#,ex#); +"Triple bar, lower left corner"; +currentpicture := triplecorner reflectedabout + ((0,0),(w,0)) shifted (0,ex); +endchar; + +beginchar(oct"010",doubex#,doubex#,ex#); "Triple bar, lowered"; +currentpicture := triplebarext shifted (0,-d); +endchar; + +beginchar(oct"011",doubex#,doubex#,0); "Triple bar, vertical, left"; +currentpicture := triplebarext rotatedaround ((doubex/2,doubex/2),90); +endchar; + +beginchar(oct"012",2doubex#,doubex#,0); "Triple bar, vertical, right"; +currentpicture := triplebarext rotatedaround ((doubex/2,doubex/2),90) + shifted (doubex,0); +endchar; + +beginchar(oct"013",0.75doubex#,0.75doubex#,0); "Clam shell, upright"; + +z0 = (0,h/4); +z1 = (0,3h/4); +z2 = (w/2,h); +z3 = 0.5[z1,z2]; +z4 = (w/4,0); +z5 = (w/3,h/8); +z6 = 0.5[z4,z5]; +z10 = z0 reflectedabout ((w/2,h),(w/2,0)); +z11 = z1 reflectedabout ((w/2,h),(w/2,0)); +z13 = z3 reflectedabout ((w/2,h),(w/2,0)); +z14 = z4 reflectedabout ((w/2,h),(w/2,0)); +z15 = z5 reflectedabout ((w/2,h),(w/2,0)); +z16 = z6 reflectedabout ((w/2,h),(w/2,0)); +z7 = (z3--(w/2,0)) intersectionpoint (z5--z15); +z17 = z7 reflectedabout ((w/2,h),(w/2,0)); + +pickup extthickpen; +draw z4--z5--z15--z14--cycle; +draw z16---z11..{dir 210}z13{dir 150}..{left}z2{left}.. + {dir 210}z3{dir 150}..z1---z6; +pickup thickpen scaled 2; +draw z3--z7; +draw z13--z17; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); +endchar; |