summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/drm/drmornfont.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/drm/drmornfont.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/drm/drmornfont.mf154
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;