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
81
82
83
84
85
|
% +AMDG This document was begun on 7 July 11EX, the feast
% of Sts. Cyril and Methodius, EEMM, and it is humbly
% dedicated to them and to the Immaculate Heart of Mary for
% their prayers, and to the Sacred Heart of Jesus for His
% mercy.
beginchar(oct"074",em#,cap#,0); "Fraktur R";
pickup pencircle scaled 1.5thinl;
penpos0(thinl,90);
z0 = (w/4,h/2);
penpos1(thinl,0);
z1l = (ss,3h/4);
penpos2(thickl,-90);
z2l = (x0,h+o);
penpos3(thickl,180);
z3 = (w/2,h/2);
penpos4(thickl,45);
x4 = x2; y4l = 0-o;
penpos5(thickl,45);
x5l = ss; y5r = h/4;
penpos6(thinl,180);
z6 = (x3,y1);
penpos7(1.5thinl,90);
z7r = (3w/4,h+o);
penpos8(thickl,0);
z8r = (w-ss,y6l);
z9r = z3l; z9l = z3r;
penpos10(thickl,0);
z10r = (w-ss,h/2+thickl);
penpos11(thickl,20);
z11l = z3;
penpos12(thickl,0);
z12l = (x7,h/4);
penpos13(thickl,0);
z13l = (x12r,h/12);
penpos14(thickl,0);
z14r = (w-ss,0-o);
penstroke z0e..z1e..z2e..z3e..z4e--z5e;
penstroke z6e..z7e..z8e..z10e--z9e;
penstroke z11e..{down}z12e..{down}z14e;
penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12);
penlabels(13,14,15,16,17,18);
endchar;
beginchar(oct"075",0.75em#,cap#,0); "Fraktur I";
pickup pencircle scaled 1.5thinl;
penpos0(thinl,90);
z0 = (w/4,h/2);
penpos1(thinl,0);
z1l = (ss,3h/4);
penpos2(thickl,-90);
z2l = (x0,h+o);
penpos3(thickl,-135);
z3 = (w/2,11h/12);
penpos4(thickl,-90);
z4 = (3w/4,10h/12);
penpos5(thinl,0);
z5r = (w-ss,h);
penpos6(thinl,0);
z6r = (w-ss,h/2);
penpos7(thickl,90);
z7r = (x4,y4r-1.5thinl);
penpos8(thickl,180);
z8 = (7w/12,h/2);
penpos9(thinl,-90);
z9 = (x7,h/3);
penpos10(thinl,180);
z10l = (w-ss,h/6);
penpos11(thickl,90);
z11l = (x9,0-o);
penpos12(thickl,90);
z12 = (x0,h/4);
penpos13(thinl,180);
z13r = (ss,0-o);
penstroke z0e..z1e..z2e..z3e..z4e..z5e;
penstroke z6e{up}..z7e..z8e..z9e..z10e..z11e..z12e..z13e;
penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12);
penlabels(13,14,15,16,17,18);
endchar;
|
