summaryrefslogtreecommitdiff
path: root/fonts/engwar/engnum.mf
blob: a762514d4b429c73ea63a662019071be38be3b10 (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
% 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;