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
|
% +AMDG This program was begun on 14 November 2008, the
% feast of St. Josaphat, 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.
define_pixels(u,fig_height,cap_stem,thin_join,o,stem,stem,bar,tiny);
define_blacker_pixels(thin_join, curve);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Prepare the character for the numeral X %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar("X",9u#,fig_height#,0); "The Numeral X";
z1 = (w-u, h+o/2);
z2 = (w-u, (h+o/2)-1.5*cap_stem);
z3 = z2 - (2thin_join, 0);
x4 = (w-u-2thin_join);
y4 = ((h+o/2) - ((2cap_stem/3)));
z5 = (u+2thin_join, ((h+o/2) - ((2*cap_stem)/3)));
z6 = (w-u, fig_height/3);
z7 = (w/2, 0-o);
z8 = (u, fig_height/4);
z9 = z8 + (5tiny/2, 5tiny/2);
z10 = z8 + (4tiny,0);
z11 = z10 - (3tiny, 0);
z12 = z7 + (0, 1.5thin_join);
z13 = z6 - (cap_stem, 0);
z14 = z5 - (2thin_join, 0);
z15 = (u, h+o/2);
path X;
X = z1--z2--z3--z4--z5{z6-z5}..z6..{left}z7{left}..{up}z8..z9..z10..{up}z11{down}..{right}z12{right}..{up}z13..{z14-z13}z14--z15--cycle;
fill X reflectedabout ((w/2,0),(w/2,h));
penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15);
endchar;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Prepare the character for the numeral E %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar("E",9u#,fig_height#,0); "The Numeral E";
z1 = (w/2, h+o);
z2 = (w/2, 0-o);
z3 = (w/2, h/2);
z4 = (w-u, h/4-5tiny/2);
z5 = (w-u, 3h/4+5tiny/2);
z6 = (u-o, (h/4));
z7 = (u-o, (3h/4));
z8 = z9 + (tiny,0);
z9 = z4 - (4tiny, 0);
z10 = z9 + (5tiny/2, 5tiny/2);
z11 = z12 + (tiny,0);
z12 = z5 - (4tiny, 0);
z13 = z12 + (5tiny/2, -5tiny/2);
z14 = z2 + (0,1.9thin_join);
z15 = z6 + (cap_stem, 0);
z16 = z3 + (cap_stem, -thin_join/2);
z17 = z16 + (0, thin_join);
z18 = z7 + (cap_stem, 0);
z19 = z1 - (0, 1.5thin_join);
fill z5..{left}z1{left}..{down}z7{down}..{right}z3{left}..{down}z6{down}..{right}z2{right}..z4..z10..z9..{up}z8{down}..{left}z14{left}..{up}z15{up}..{right}z16--z17{left}..{up}z18{up}..{right}z19{right}..{down}z11{up}..{down}z12..z13..cycle;
penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19);
endchar;
end;
|
