summaryrefslogtreecommitdiff
path: root/fonts/drm/mf/drmscacclet.mf
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /fonts/drm/mf/drmscacclet.mf
Initial commit
Diffstat (limited to 'fonts/drm/mf/drmscacclet.mf')
-rw-r--r--fonts/drm/mf/drmscacclet.mf686
1 files changed, 686 insertions, 0 deletions
diff --git a/fonts/drm/mf/drmscacclet.mf b/fonts/drm/mf/drmscacclet.mf
new file mode 100644
index 0000000000..6ec84c172d
--- /dev/null
+++ b/fonts/drm/mf/drmscacclet.mf
@@ -0,0 +1,686 @@
+% +AMDG This document was begun on 1E May 11EX, and it is
+% humbly dedicated to the Immaculate Heart of Mary for her
+% prayers, and to the Sacred Heart of Jesus for His mercy.
+
+beginchar(oct"350",7em#/12+2ss#,ex#,0); "The letter egrave";
+
+currentpicture := lowe + grave shifted
+ (w/2-pwid,-(cap-ex)+pwid);
+endchar;
+
+beginchar(oct"351",7em#/12+2ss#,ex#,0); "The letter eacute";
+
+currentpicture := lowe + acute shifted
+ (w/2-pwid,-(cap-ex)+pwid);
+endchar;
+
+beginchar(oct"354",0.28em#+2ss#,ex#,0); "the letter igrave";
+currentpicture := dotlessi + grave shifted
+ (w/2-pwid,-(cap-ex)+pwid);
+endchar;
+
+beginchar(oct"355",0.28em#+2ss#,ex#,0); "the letter iacute";
+currentpicture := dotlessi + acute shifted
+ (w/2-pwid,-(cap-ex)+pwid);
+endchar;
+
+beginchar(oct"356",0.28em#+2ss#,ex#,0); "the letter icirc";
+currentpicture := dotlessi + circumflex shifted
+ (w/2-pwid,-(cap-ex)+1.5pwid);
+endchar;
+
+beginchar(oct"357",0.28em#+2ss#,ex#,0); "dotless i with diaresis";
+
+currentpicture := dotlessi + diaresis shifted
+ (w/2-pwid,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"352",7em#/12+2ss#,ex#,0); "e with circumflex";
+
+currentpicture := lowe + circumflex shifted
+ (w/2-pwid,-(cap-ex)+1.5pwid);
+
+endchar;
+
+beginchar(oct"353",7em#/12+2ss#,ex#,0); "e with diaresis";
+
+currentpicture := lowe + diaresis shifted
+ (w/2-pwid,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"362",4em#/6+2ss#,ex#,0); "the letter ograve";
+
+currentpicture := lowo + grave shifted
+ (w/2-pwid,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"363",4em#/6+2ss#,ex#,0); "the letter oacute";
+
+currentpicture := lowo + acute shifted
+ (w/2-pwid,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"366",4em#/6+2ss#,ex#,0); "o with diaresis";
+
+currentpicture := lowo + diaresis shifted
+ (w/2-pwid,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"365",4em#/6+2ss#,ex#,0); "o with tilde";
+
+currentpicture := lowo + tilde shifted
+ (w/2-pwid,-(cap-ex)+1.5pwid);
+
+endchar;
+
+beginchar(oct"364",4em#/6+2ss#,ex#,0); "o with circumflex";
+
+currentpicture := lowo + circumflex shifted
+ (w/2-pwid,-(cap-ex)+1.5pwid);
+
+endchar;
+
+beginchar(oct"340",2em#/3+2ss#,ex#,0); "The letter agrave";
+
+currentpicture := lowa + grave shifted
+ (w/2-pwid,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"341",2em#/3+2ss#,ex#,0); "The letter aacute";
+
+currentpicture := lowa + acute shifted
+ (w/2-pwid,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"342",2em#/3+2ss#,ex#,0); "a with circumflex";
+
+currentpicture := lowa + circumflex shifted
+ (w/2-pwid,-(cap-ex)+1.5pwid);
+
+endchar;
+
+beginchar(oct"343",2em#/3+2ss#,ex#,0); "a with tilde";
+
+currentpicture := lowa + tilde shifted
+ (w/2-pwid,-(cap-ex)+1.5pwid);
+
+endchar;
+
+beginchar(oct"344",2em#/3+2ss#,ex#,0); "a with diaresis";
+
+currentpicture := lowa + diaresis shifted
+ (w/2-pwid,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"345",2em#/3+2ss#,ex#,0); "a with ring";
+
+currentpicture := lowa;
+pickup pencircle scaled thinl;
+draw ringaccent shifted (w/2-1.1pwid,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"267",7em#/12+2ss#,ex#,0); "u with ring";
+
+currentpicture := lowu;
+pickup pencircle scaled thinl;
+draw ringaccent shifted (w/2-pwid,-(cap-ex)+pwid);
+
+endchar;
+
+beginchar(oct"347",ex#+2ss#,ex#,1.5pwid#); "c cedille";
+
+currentpicture := lowc + cedille shifted (w-1.7pwid,0);
+
+endchar;
+
+beginchar(oct"200",em#+2ss#,cap#,0); "The Letter A, reverse circumflex";
+
+currentpicture := capa + invcircum shifted (w/2-pwid,1.2pwid);
+
+endchar;
+
+beginchar(oct"201",em#+2ss#,cap#,0); "The Letter A, reverse cedilla";
+
+currentpicture := capa + revcid shifted (2w/3,0);
+
+endchar;
+
+beginchar(oct"202",5em#/6+ss#,cap#,0); "The Letter C with acute accent";
+
+currentpicture := capc + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"203",5em#/6+ss#,cap#,0); "The Letter C, reverse circumflex";
+
+currentpicture := capc + invcircum shifted (w/2-pwid,1.2pwid);
+
+endchar;
+
+beginchar(oct"204",5em#/6+2ss#,cap#,0); "The Letter D, reverse circumflex";
+
+currentpicture := capd + invcircum shifted (w/2-pwid,1.2pwid);
+
+endchar;
+
+beginchar(oct"205",5em#/6+2ss#,cap#,0); "The Letter E, reverse circumflex";
+
+currentpicture := cape + invcircum shifted (w/2-pwid,1.2pwid);
+
+endchar;
+
+beginchar(oct"206",5em#/6+2ss#,cap#,0); "The Letter E, reverse cedilla";
+
+currentpicture := cape + revcid shifted (2w/3-8o,0);
+
+endchar;
+
+beginchar(oct"207",em#+2ss#,cap#,0); "The Letter G, reverse circumflex";
+
+currentpicture := capg + invcircum shifted (w/2-pwid,1.2pwid);
+
+endchar;
+
+beginchar(oct"210",5em#/6+2ss#,cap#,0); "The Letter L, acute accent";
+
+currentpicture := capl + acute shifted (w/2-1.5pwid,pwid);
+
+endchar;
+
+beginchar(oct"211",5em#/6+2ss#,cap#,0); "The Letter L, apostrophe accent";
+
+currentpicture := capl;
+fill commapost shifted (ss+2userw+thickl+o,h-0.5pwid);
+
+endchar;
+
+beginchar(oct"212",5em#/6+2ss#,cap#,0); "The Letter slashed L";
+
+currentpicture := capl;
+
+pickup pencircle scaled thinstroke;
+lft z0 = (-2hair,h/2);
+z2 = (z0--(w,h/2)) intersectionpoint ((ss+userw+thickstroke/2,h)--
+ (ss+userw+thickstroke/2,0));
+z1 = 2[z0,z2] shifted (thickstroke,0);
+path intline; intline = z0--z1;
+
+draw intline rotatedaround(z2,30);
+
+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(oct"213",5em#/6+2ss#,cap#,0); "The Letter N, with acute accent";
+
+currentpicture := capn + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"214",5em#/6+2ss#,cap#,0); "The Letter N, inverted circumflex";
+
+currentpicture := capn + invcircum shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"216",5em#/6+2ss#,cap#,0); "The Letter O, Hungarian diaresis";
+
+currentpicture := capo + hungum shifted (w/2-pwid,1.2pwid);
+
+endchar;
+
+beginchar(oct"217",5em#/6+2ss#,cap#,0); "The Letter R, acute accent";
+
+currentpicture := capr + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"220",5em#/6+2ss#,cap#,0); "The Letter R, inverse circumflex";
+
+currentpicture := capr + invcircum shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"221",(3(em#+2ss#)/4),cap#,0); "The Letter S, acute accent";
+
+currentpicture := caps + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"222",(3(em#+2ss#)/4),cap#,0); "The Letter S, inverse circum";
+
+currentpicture := caps + invcircum shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"223",(3(em#+2ss#)/4),cap#,0); "The Letter S, cedilla";
+
+currentpicture := caps + cedille shifted (w/2-pwid/2,0);
+
+endchar;
+
+beginchar(oct"224",5em#/6+2ss#,cap#,0);"The Letter T, inverse circum";
+
+currentpicture := capt + invcircum shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"225",5em#/6+2ss#,cap#,0);"The Letter T, cedilla";
+
+currentpicture := capt + cedille shifted (w/2-pwid/2,0);
+
+endchar;
+
+beginchar(oct"226",5em#/6+2ss#,cap#,0); "The Letter U, Hungarian umlaut";
+
+currentpicture := capu + hungum shifted (w/2-pwid/2-2o,1.2pwid);
+
+endchar;
+
+beginchar(oct"227",5em#/6+2ss#,cap#,0); "The Letter U, ring accent";
+
+currentpicture := capu;
+pickup pencircle scaled thinl;
+draw ringaccent shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"230",5em#/6+2ss#,cap#,0); "The Letter Y, umlaut";
+
+currentpicture := capy + diaresis shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"231",5em#/6+2ss#,cap#,0); "The Letter Z, acute accent";
+
+currentpicture := capz + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"232",5em#/6+2ss#,cap#,0); "The Letter Z, inverse circum";
+
+currentpicture := capz + invcircum shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"233",5em#/6+2ss#,cap#,0); "The Letter Z, overdot";
+
+currentpicture := capz + overdot shifted (w/2-1.5dotwid,pwid);
+
+endchar;
+
+beginchar(oct"235",0.38em#+2ss#,cap#,0); "The Letter I, overdot";
+
+currentpicture := capi + overdot shifted (w/2-1.5dotwid,pwid);
+
+endchar;
+
+beginchar(oct"240",2em#/3+2ss#,ex#,0); "The letter a, inverse circum";
+
+currentpicture := lowa + invcircum shifted (w/2-pwid,-0.3pwid);
+
+endchar;
+
+beginchar(oct"241",2em#/3+2ss#,ex#,0); "The letter a, reverse cedilla";
+
+currentpicture := lowa + revcid shifted (2w/3,0);
+
+endchar;
+
+beginchar(oct"242",8em#/12+2ss#,ex#,0); "c with acute";
+
+currentpicture := lowc + acute shifted (w/2-pwid,-0.5pwid);
+
+endchar;
+
+beginchar(oct"243",8em#/12+2ss#,ex#,0); "c inverse circum";
+
+currentpicture := lowc + invcircum shifted (w/2-pwid,-0.3pwid);
+
+endchar;
+
+beginchar(oct"244",7em#/12+2ss#,asch#,0); "d apostrophe";
+
+currentpicture := lowd;
+fill commapost shifted (w-0.2pwid-ss,h-(h-ex)-0.5pwid);
+
+endchar;
+
+beginchar(oct"245",7em#/12+2ss#,ex#,0); "e, inverse circumflex";
+
+currentpicture := lowe + invcircum shifted (w/2-pwid,-0.3pwid);
+
+endchar;
+
+beginchar(oct"246",7em#/12+2ss#,ex#,0); "e, reverse cedilla";
+
+currentpicture := lowe + revcid shifted (w/2-0.3pwid,0);
+
+endchar;
+
+beginchar(oct"247",2em#/3+2ss#,ex#,dep#); "g, inverse circum";
+
+currentpicture := lowg + invcircum shifted (w/2-pwid,-0.3pwid);
+
+endchar;
+
+beginchar(oct"250",7em#/12+2ss#,asch#,0); "l, with acute";
+
+currentpicture := lowl + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"251",7em#/12+2ss#,asch#,0); "l, with apostrophe";
+
+currentpicture := lowl;
+fill commapost shifted (w-pwid-ss,h-(h-ex)-0.5pwid);
+
+endchar;
+
+beginchar(oct"252",7em#/12+2ss#,ex#,0); "slashed l";
+
+currentpicture := lowl;
+
+pickup pencircle scaled thinl;
+z0 = (0,h/2);
+z1 = z0 shifted (3thickstroke,0);
+z2 = 0.5[z0,z1];
+path crossbar; crossbar = z0--z1;
+draw crossbar rotatedaround (z2,30);
+
+penlabels(0,1,2);
+endchar;
+
+beginchar(oct"253",7em#/12+2ss#,ex#,0); "n, acute accent";
+
+currentpicture := lown + acute shifted (w/2-pwid,-0.5pwid);
+
+endchar;
+
+beginchar(oct"254",7em#/12+2ss#,ex#,0); "n, inverse circum";
+
+currentpicture := lown + invcircum shifted (w/2-pwid,-0.5pwid);
+
+endchar;
+
+beginchar(oct"256",4em#/6+2ss#,ex#,0); "o, Hungarian umlaut";
+
+currentpicture := lowo + hungum shifted (w/2-pwid,0);
+
+endchar;
+
+beginchar(oct"257",8em#/12+2ss#,ex#,0); "r, with acute accent";
+
+currentpicture := lowr + acute shifted (w/2-pwid,-0.5pwid);
+
+endchar;
+
+beginchar(oct"260",8em#/12+2ss#,ex#,0); "r, reverse circum";
+
+currentpicture := lowr + invcircum shifted (w/2-pwid,-0.5pwid);
+
+endchar;
+
+beginchar(oct"261",3em#/6+2ss#,ex#,0); "s, with acute accent";
+
+currentpicture := lows + acute shifted (w/2-pwid,-0.5pwid);
+
+endchar;
+
+beginchar(oct"262",3em#/6+2ss#,ex#,0); "s, reverse circum";
+
+currentpicture := lows + invcircum shifted (w/2-pwid,-0.5pwid);
+
+endchar;
+
+beginchar(oct"263",3em#/6+2ss#,ex#,0); "s, cedilla";
+
+currentpicture := lows + cedille shifted (w/2-pwid/2,0);
+
+endchar;
+
+beginchar(oct"264",5em#/6+2ss#,theight#,0); "t, with apostrophe";
+
+currentpicture := lowt;
+fill commapost shifted (w-0.5pwid-ss,h-(h-ex)-0.5pwid);
+
+endchar;
+
+beginchar(oct"265",4em#/6+2ss#,theight#,0); "t, with cedilla";
+
+currentpicture := lowt + cedille shifted (w/2-pwid/4,0);
+
+endchar;
+
+beginchar(oct"266",7em#/12+2ss#,ex#,0); "u with Hungarian umlaut";
+
+currentpicture := lowu + hungum shifted (w/2-pwid,0);
+
+endchar;
+
+beginchar(oct"270",7em#/12+2ss#,ex#,dep#); "y, with diaresis";
+
+currentpicture := lowy + diaresis shifted (w/2-pwid,-0.5pwid);
+
+endchar;
+
+beginchar(oct"271",6em#/12+2ss#,ex#,0); "z, acute accent";
+
+currentpicture := lowz + acute shifted (w/2-pwid,-0.5pwid);
+
+endchar;
+
+beginchar(oct"272",6em#/12+2ss#,ex#,0); "z, inverse circum";
+
+currentpicture := lowz + invcircum shifted (w/2-pwid,-0.5pwid);
+
+endchar;
+
+beginchar(oct"273",6em#/12+2ss#,ex#,0); "z, overdot";
+
+currentpicture := lowz + overdot shifted (w/2-1.5dotwid,-0.5pwid);
+
+endchar;
+
+beginchar(oct"301",em#+2ss#,cap#,0); "A, acute accent";
+
+currentpicture := capa + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"300",em#+2ss#,cap#,0); "A, grave accent";
+
+currentpicture := capa + grave shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"302",em#+2ss#,cap#,0); "A, circumflex";
+
+currentpicture := capa + circumflex shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"303",em#+2ss#,cap#,0); "A, tilde";
+
+currentpicture := capa + tilde shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"304",em#+2ss#,cap#,0); "A, diaresis";
+
+currentpicture := capa + diaresis shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"305",em#+2ss#,cap#,0); "A, ring";
+
+currentpicture := capa;
+pickup pencircle scaled thinl;
+draw ringaccent shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"307",5em#/6+2ss#,cap#,0); "C cedille";
+
+currentpicture := capc + cedille shifted (w/2-0.5pwid,0);
+
+endchar;
+
+beginchar(oct"311",5em#/6+2ss#,cap#,0); "E, acute";
+
+currentpicture := cape + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"310",5em#/6+2ss#,cap#,0); "E, grave";
+
+currentpicture := cape + grave shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"312",5em#/6+2ss#,cap#,0); "E, circumflex";
+
+currentpicture := cape + circumflex shifted (w/2-pwid,1.5pwid);
+
+endchar;
+
+beginchar(oct"313",5em#/6+2ss#,cap#,0); "E, diaresis";
+
+currentpicture := cape + diaresis shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"315",0.38em#+2ss#,cap#,0); "I, acute";
+
+currentpicture := capi + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"314",0.38em#+2ss#,cap#,0); "I, grave";
+
+currentpicture := capi + grave shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"316",0.38em#+2ss#,cap#,0); "I, circumflex";
+
+currentpicture := capi + circumflex shifted (w/2-pwid,1.5pwid);
+
+endchar;
+
+beginchar(oct"317",0.38em#+2ss#,cap#,0); "I, diaresis";
+
+currentpicture := capi + diaresis shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"321",5em#/6+2ss#,cap#,0); "N, tilde";
+
+currentpicture := capn + tilde shifted (w/2-pwid,1.5pwid);
+
+endchar;
+
+beginchar(oct"323",5em#/6+2ss#,cap#,0); "O, acute";
+
+currentpicture := capo + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"322",5em#/6+2ss#,cap#,0); "O, grave";
+
+currentpicture := capo + grave shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"324",5em#/6+2ss#,cap#,0); "O, circumflex";
+
+currentpicture := capo + circumflex shifted (w/2-pwid,1.5pwid);
+
+endchar;
+
+beginchar(oct"325",5em#/6+2ss#,cap#,0); "O, tilde";
+
+currentpicture := capo + tilde shifted (w/2-pwid,1.5pwid);
+
+endchar;
+
+beginchar(oct"326",5em#/6+2ss#,cap#,0); "O, diaresis";
+
+currentpicture := capo + diaresis shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"332",5em#/6+2ss#,cap#,0); "U, acute";
+
+currentpicture := capu + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"331",5em#/6+2ss#,cap#,0); "U, grave";
+
+currentpicture := capu + grave shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"333",5em#/6+2ss#,cap#,0); "U, circumflex";
+
+currentpicture := capu + circumflex shifted (w/2-pwid,1.5pwid);
+
+endchar;
+
+beginchar(oct"334",5em#/6+2ss#,cap#,0); "U, diaresis";
+
+currentpicture := capu + diaresis shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"335",5em#/6+2ss#,cap#,0); "Y, acute";
+
+currentpicture := capy + acute shifted (w/2-pwid,pwid);
+
+endchar;
+
+beginchar(oct"361",7em#/12+2ss#,ex#,0); "n, tilde";
+
+currentpicture := lown + tilde shifted
+ (w/2-pwid,-(cap-ex)+1.5pwid);
+
+endchar;
+
+beginchar(oct"372",7em#/12+2ss#,ex#,0); "u, acute";
+
+currentpicture := lowu + acute shifted (w/2-pwid,0);
+
+endchar;
+
+beginchar(oct"371",7em#/12+2ss#,ex#,0); "u, grave";
+
+currentpicture := lowu + grave shifted (w/2-pwid,0);
+
+endchar;
+
+beginchar(oct"373",7em#/12+2ss#,ex#,0); "u, circumflex";
+
+currentpicture := lowu + circumflex shifted (w/2-pwid,0);
+
+endchar;
+
+beginchar(oct"374",7em#/12+2ss#,ex#,0); "u, diaresis";
+
+currentpicture := lowu + diaresis shifted (w/2-pwid,0);
+
+endchar;
+
+beginchar(oct"375",7em#/12+2ss#,ex#,dep#); "y, acute";
+
+currentpicture := lowy + acute shifted (w/2-pwid,0);
+
+endchar;