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
|
% Copyright 1986 Michael Urban
% Everyone is granted permission to copy, modify and redistribute
% this file, provided that a currently-dated copy of this
% copyright notice is included in the copy.
% License is granted to produce fonts based on the information
% in this file, provided that such fonts are redistributed
% without charge to any third party.
% SCCS ID @(#)numbers.mf 1.1 10/1/86
beginchar("0", shortwidth,cap#,0); "The number 0";
pickup elvishpen;
x1 = x3 = .5[leadgap,w];
y2 = y4 = .5[h,0];
top y1 = h; bot y3 = 0;
lft x4 = leadgap; rt x2 = w;
draw z1..z2..z3..z4..cycle;
endchar;
beginchar("1", shortwidth,cap#,0); "The number 1";
pickup elvishpen;
x1 = x2 = .5[leadgap,w];
top y1 = h; bot y2 = 0;
draw z1..z2;
endchar;
beginchar("2", shortwidth,cap#,0); "The number 2";
pickup elvishpen;
lft x1 = leadgap; y1 = .5[0,h];
x2 = .5[leadgap,w]; top y2 = h;
bot y3 = 0; lft x3 = leadgap;
y4 = y3; rt x4 = w;
draw z1{up}..z2{right}..{down}z3--z4;
endchar;
beginchar("3", shortwidth,cap#,0); "The number 3";
hthick := 3thick/4; hthin := 3thin/4;
pickup pencircle xscaled hthick yscaled hthin rotated tilt;
x1 = x2 = x3 = leadgap;
top y1 = h; bot y3 = 0; y2 = xht;
rt x4 = w; x5 = x4;
y4 = .5[y1,y2]; y5 = .5[y2,y3];
draw z1{right}..z4..{left}z2;
draw z2{right}..z5..{left}z3;
endchar;
beginchar("4", shortwidth,cap#,0); "The number 4";
pickup elvishpen;
rt x1 = w; x2 = x1 = x4;
bot y1 = 0; top y2 = h;
lft x3 = leadgap; y3 = y4 = xht;
draw z1--z2--z3--z4;
endchar;
beginchar("5", shortwidth,cap#,0); "The number 5";
hthick := 3thick/4; hthin := 3thin/4;
pickup pencircle xscaled hthick yscaled hthin rotated tilt;
rt x1 = w; top y1 = h;
lft x2 = leadgap; y2 = y1;
x3 = x2; y3 = xht;
x4 = x1; y4 = .5[y3,y5];
x5 = x3; bot y5 = 0;
draw z1--z2--z3..z4..z5;
endchar;
beginchar("6", shortwidth,cap#,0); "The number 6";
hthick := 3thick/4; hthin := 3thin/4;
pickup pencircle xscaled hthick yscaled hthin rotated tilt;
x1 = x3 = x5 = .5[leadgap, w];
lft x2 = lft x6 = leadgap;
rt x7 = rt x4 = w;
top y1 = h;
y2 = y7 = .5[y1,y3];
y3 = xht;
y6 = y4 = .5[y5,y3];
bot y5 = 0;
draw z7..z1..z2---z6..z5..z4..z3..{down}z6;
endchar;
beginchar("7", shortwidth,cap#,0); "The number 7";
pickup elvishpen;
lft x1 = leadgap; top y1 = h;
rt x2 = w; y2 = y1;
x3 = x1; bot y3 = 0;
draw z1--z2..{down}z3;
endchar;
beginchar("8", shortwidth,cap#,0); "The number 8";
hthick := 3thick/4; hthin := 3thin/4;
pickup pencircle xscaled hthick yscaled hthin rotated tilt;
x1 = x3 = x5 = .5[leadgap, w];
lft x2 = lft x6 = leadgap;
rt x7 = rt x4 = w;
top y1 = h;
y2 = y7 = .5[y1,y3];
y3 = xht;
y6 = y4 = .5[y5,y3];
bot y5 = 0;
draw z1..z2..z3..z4..z5..z6..z3..z7..cycle;
endchar;
beginchar("9", shortwidth,cap#,0); "The number 9";
hthick := 3thick/4; hthin := 3thin/4;
pickup pencircle xscaled hthick yscaled hthin rotated tilt;
x1 = x3 = x5 = .5[leadgap, w];
lft x2 = lft x6 = leadgap;
rt x7 = rt x4 = w;
top y1 = h;
y2 = y7 = .5[y1,y3];
y3 = xht;
y6 = y4 = .5[y5,y3];
bot y5 = 0;
lft x8 = leadgap; bot y8 = 0;
draw z8{up}..{up}z7..z1..z2..z3..{up}z7;
endchar;
|