summaryrefslogtreecommitdiff
path: root/fonts/drm/mf/drmmatharrows.mf
blob: 66eeef38f11feee24b3afaf9a2a8cede86f82772 (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
% +AMDG  This document was begun on 2 July 11EX, the feast
% of the Visitation of the Blessed Virgin Mary and the
% Commemoration of Sts. Processus and Martinian, MM, 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"050",1.5em#,asch#,0); "Leftward upper arrow";

pickup pencircle scaled 1.5thinl;
lft z0 = (ss,h/2);
top z1 = (0.4w,h);
rt z2 = (w-ss,y0);
z3 = z1 shifted (0,-3h/8);

path shaft; shaft = z2--z0;
path head; head = z0{z3-z0}..{up}z1;
draw shaft; draw head;

penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12);
endchar;

beginchar(oct"051",1.5em#,asch#,0); "Leftward lower arrow";

pickup pencircle scaled 1.5thinl;
draw shaft;
draw head reflectedabout ((0,h/2),(w,h/2));

endchar;

beginchar(oct"052",1.5em#,asch#,0); "Rightward upper arrow";

pickup pencircle scaled 1.5thinl;
draw shaft;
draw head reflectedabout ((w/2,h),(w/2,0));

endchar;

beginchar(oct"053",1.5em#,asch#,0); "Rightward lower arrow";

pickup pencircle scaled 1.5thinl;
draw shaft;
draw head reflectedabout ((w/2,h),(w/2,0))
	reflectedabout ((0,h/2),(w,h/2));

endchar;