summaryrefslogtreecommitdiff
path: root/fonts/drm/mf/drmdozscdigs.mf
blob: 2bcda038fdfcf1118c79edb60630578207eb4417 (plain)
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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
% +AMDG  This document was begun on 17 Feb 11EE, the day
% after the Comm. of St. Simeon, EM, 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("X",0.75digwid#+2ss#,ex#,0); "The digit X";
italcorr(ex#*slant);

z0 = (w/2,h+o);
z1 = z0 shifted (0,-thinl);
z2 = (ss,3h/4);
z3 = z2 shifted (bulbsh,-bulbsh);
z4 = z3 shifted (bulbsh,bulbsh);
z5 = z4 shifted (-bulbsh,bulbsh);
z6 = (w-ss,3h/4);
z7 = z6 shifted (-curvl,0);
z8 = (ss,thickl);
z9 = z8 shifted (1.5thinl,0);
z10 = (ss,0);
z11 = (w-ss,0);
z12 = z11 shifted (0,thickl);
z13 = z12 shifted (0,thinl);
z14 = z13 shifted (-thinl/2,0);
z15 = z12 shifted (-thinl/2,0);

path twopath; twopath =
z5{right}..{down}z4{down}..{left}z3{left}..{up}z2{up}..{right}z0{right}..{down}z6{down}..{down}z9--z15--z14--z13--z11--z10--z8{up}..{up}z7{up}..{left}z1{left}..{dir
-120}cycle;
fill twopath rotatedaround ((w/2,h/2),180);

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,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80);
endchar;

beginchar("E",0.75digwid#+2ss#,ex#,0); "The digit E";
italcorr(ex#*slant);

z0 = (w/2,h+o);
z1 = (w/2,0-o);
z2 = (ss,.75h);
z3 = (ss,.25h);
z4 = z0 shifted (0,-thinstroke);
z5 = z1 shifted (0,thinstroke);
z6 = z8 shifted (-curvwid,0);
z7 = z9 shifted (-curvwid,0);
z8 = (w-ss,3h/4);
z9 = (w-ss,h/4);
z10 = (w/2-2thinstroke,h/2+thinstroke);
z11 = z10 shifted (0,-thinstroke);
z20 = z10 shifted (1.5thickstroke,-thinstroke/2);
z21 = z9 shifted (-o/4,0);
z22 = z10 shifted (1.5thickl,0);
z23 = z11 shifted (1.5thickl,0);

ulftbulb(2,12,13,14,15);
ulftbulb(3,16,17,18,19);

path threepath;
threepath =
z2{up}..{right}z0{right}..{down}z8{down}..z20..{left}z11--z10{right}..z20..{down}z9{down}..{left}z1{left}..{up}z3{up}..{right}z16{right}..{down}z17{down}..{left}z18{dir
-60}..{right}z5{right}..{up}z7{up}..{left}z11--z10{right}..{up}z6{up}..{left}z4{left}..{dir
-120}z12{right}..{down}z13{down}..{left}z14{left}..{up}cycle;
fill threepath rotatedaround ((w/2,h/2),180);

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,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80);
endchar;