summaryrefslogtreecommitdiff
path: root/fonts/drm/mf/drmlowmac.mf
blob: a9c10385ad2925f1883a180ea851c14ce6bc5efd (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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
% +AMDG  This document was begun on 18 May 11EX, the feast
% of St Bernardine of Siena, 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.

lserhl := 5lserh/6;
lserwl := 5lserw/6;
userhl := 5userh/6;
userwl := 5userw/6;
lsercl := 5lserc/6;
usercl := 5userc/6;
lserstepl := 5lserstep/6;
userstepl := 5userstep/6;
curvl := curvwid;
slantl := slantwid;
thickl := thickstroke;
thinl := thinstroke;
dotwid := 0.7dotwidth;

picture lowz;
picture lowy;
picture lows;
picture lowt;
picture lowr;
picture lowg;
picture lowo;
picture lowe;
picture lowa;
picture lowu;
picture lowc;
picture lowd;
picture lowl;
picture lown;
picture dotlessi;
picture dotlessj;
picture filig;
picture flig;
picture fllig;

%%%% the back serif for the "s" %%%%

def sctbackserif(suffix i,j,k,l,m,n)(expr topbot) =
z.j=z.i+(0,userhl/2);
z.k=z.j-(userhl,0);
z.l=z.k+(0,-1.5userwl);
z.m=z.l+(userhl,0);
if topbot = 1:
path toplftserif; toplftserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n;
elseif topbot = 2:
path botlftserif; botlftserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n;
fi;
enddef;

%%%% Define Lower Right Serif on Caps %%%%

def lrserif(suffix i,j,k,l,m)(expr strokewidth) = 
if strokewidth = 1:
z.j=z.i+(lserwl/3,-lsercl/2);
z.k=z.i+(lserwl,-lsercl);
z.l=z.k-(0,lserstepl);
z.m=z.l-(lserwl+thickl/2,0);
elseif strokewidth = 2:
z.j=z.i+(lserwl/3,-lsercl/2);
z.k=z.i+(lserwl+equalize/2,-lsercl);
z.l=z.k-(0,lserstepl);
z.m=z.l-(lserwl+thickl/2,0);
fi
enddef;

%%%% Define Lower Left Serif on Caps %%%%

def llserif(suffix i,j,k,l,m)(expr strokewidth) =
if strokewidth = 1:
z.j=z.i-(lserwl/3,lsercl/2);
z.k=z.i-(lserwl,lsercl);
z.l=z.k-(0,lserstepl);
z.m=z.l+(lserwl+thickl/2,0);
elseif strokewidth = 2:
z.j=z.i-(lserwl/3,lsercl/2);
z.k=z.i-(lserwl+equalize/2,lsercl);
z.l=z.k-(0,lserstepl);
z.m=z.l+(lserwl+thickl/2,0);
fi
enddef;

%%%% Define Upper Right Serif on Caps %%%%

def urserif(suffix i,j,k,l,m)(expr strokewidth) =
if strokewidth = 1:
z.j=z.i+(userwl/3,lsercl/2);
z.k=z.i+(userwl,usercl);
z.l=z.k+(0,userstepl);
z.m=z.l-(userwl+thickl/2,0);
elseif strokewidth = 2:
z.j=z.i+(userwl/3,lsercl/2);
z.k=z.i+(userwl+equalize/2,usercl);
z.l=z.k+(0,userstepl);
z.m=z.l-(userwl+thickl/2,0);
fi
enddef;

%%%% Define Upper Left Serif on Caps %%%%

def ulserif(suffix i,j,k,l,m)(expr strokewidth) = 
if strokewidth = 1:
z.j=z.i+(-userwl/3,lsercl/2);
z.k=z.i+(-userwl,usercl);
z.l=z.k+(0,userstepl);
z.m=z.l+(userwl+thickstroke/2,0);
elseif strokewidth = 2:
z.j=z.i+(-userwl/3,lsercl/2);
z.k=z.i+(-(userwl+equalize/2),usercl);
z.l=z.k+(0,userstep);
z.m=z.l+(userwl+thickstroke/2,0);
fi
enddef;

def rbulb(suffix i,j,k,l,m) =
z.j=z.i shifted (bulbsh,-bulbsh);
z.k=z.j shifted (-bulbsh,-bulbsh);
z.l=z.k shifted (-bulbsh,bulbsh);
enddef;

def drtbulb(suffix i,j,k,l,m) =
z.j=z.i shifted (bulbsh,-bulbsh);
z.k=z.j shifted (bulbsh,bulbsh);
z.l=z.k shifted (-bulbsh,bulbsh);
enddef;

def urtbulb(suffix i,j,k,l,m) =
z.j=z.i shifted (-bulbsh,-bulbsh);
z.k=z.j shifted (-bulbsh,bulbsh);
z.l=z.k shifted (bulbsh,bulbsh);
enddef;

def dlftbulb(suffix i,j,k,l,m) =
z.j=z.i shifted (bulbsh,-bulbsh);
z.k=z.j shifted (bulbsh,bulbsh);
z.l=z.k shifted (-bulbsh,bulbsh);
enddef;