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
|
%-------------------------------------------------------------
% This is ETH_P.MF as of Apr, 1996 by Jochen Metzinger
% originally distributed by Abass B. Alamnehe [February, 1993]
%-------------------------------------------------------------
iff known eth_pa:
cmchar "The letter pa";
beginchar(eth_pa,10u#,.5[cap_height#,x_height#],0);
adjust_fit(1.5u#,1.5u#);
if .5w <> good.x .5w :change_width; fi pickup fine.nib;
% STEM
penpos1(stem,5); penpos2(1.2stem,5); penpos1'(stem,0); penpos2'(stem,0);
x1=w-5u; x2=x1; x1'=x1; x2'=x2-.5u;
top y1=h; bot y2=0; y1'=.75h; y2'=.15h;
filldraw stroke z1e---z2'e{down}...{right}z2e;
% WINGS
x6=x1-.5stem; x7=x1+.5stem; y7=y1; y6=y1-oo;
lft_wing(6,2.5u,.02h); rt_wing(7,2.5u,.02h);
penlabels(1,2,3,4,6,7); endchar;
iff known eth_pU:
cmchar "The letter pU";
beginchar(eth_pU,10u#,.5[cap_height#,x_height#],0);
adjust_fit(1.5u#,1.5u#);
if .5w <> good.x .5w :change_width; fi pickup fine.nib;
% STEM
penpos1(stem,5); penpos2(1.2stem,5); penpos1'(stem,0); penpos2'(stem,0);
x1=w-5u; x2=x1; x1'=x1; x2'=x2-.5u;
top y1=h; bot y2=0; y1'=.75h; y2'=.15h;
filldraw stroke z1e---z2'e{down}...{right}z2e;
% WINGS
x5=x1; y5=.4h; rt_half_ellipse(5,1.5u);
x6=x1-.5stem; x7=x1+.5stem; y7=y1; y6=y1-oo;
lft_wing(6,2.5u,.02h); rt_wing(7,2.5u,.02h);
penlabels(1,2,3,4,5,6,7); endchar;
iff known eth_pI:
cmchar "The letter pI";
beginchar(eth_pI,10u#,.5[cap_height#,x_height#],0);
adjust_fit(1.5u#,1.5u#);
if .5w <> good.x .5w :change_width; fi pickup fine.nib;
% STEM
penpos1(stem,5); penpos2(1.2stem,5); penpos1'(stem,0); penpos2'(stem,0);
x1=w-5u; x2=x1; x1'=x1; x2'=x2-.5u;
top y1=h; bot y2=0; y1'=.75h; y2'=.15h;
filldraw stroke z1e---z2'e{down}...{right}z2e;
% WINGS
penpos5(stem,0); x5l=x2; bot y5=00; rt_half_ellipse(5,1.5u);
x6=x1-.5stem; x7=x1+.5stem; y7=y1; y6=y1-oo;
lft_wing(6,2.5u,.02h); rt_wing(7,2.5u,.02h);
penlabels(1,2,3,4,5); endchar;
iff known eth_pA:
cmchar "The letter pA";
beginchar(eth_pA,10u#,.55[cap_height#,x_height#],0);
adjust_fit(2.5u#,1.5u#);
if .5w <> good.x .5w :change_width; fi pickup fine.nib;
% STEM
penpos1(stem,5); penpos2(stem,0); penpos1'(stem,0); pos3(vair,-90);
x1=x2+0.3u=w-5u; x1'=x2; x3=x4=0;
top y1=h; bot y2=.45h; y1'=.75h; y3=y4=.1h;
filldraw stroke z1e..controls z1'e..z2e..pulled_arc.e(2,3); p_wing(4);
% WINGS
x7=x1-.5stem; x8=x1+.5stem; y7=y1-oo; y8=y1;
lft_wing(7,2.5u,.02h); rt_wing(8,2.5u,.02h);
penlabels(1,2,3,4,5,6); endchar;
iff known eth_pE:
cmchar "The letter pE";
beginchar(eth_pE,10u#,.5[cap_height#,x_height#],0);
adjust_fit(1.5u#,1.5u#);
if .5w <> good.x .5w :change_width; fi pickup fine.nib;
% STEM
penpos1(stem,5); penpos2(1.2stem,5); penpos1'(stem,0); penpos2'(stem,0);
x1=w-5u; x2=x1; x1'=x1; x2'=x2-.5u;
top y1=h; bot y2=0; y1'=.75h; y2'=.15h;
filldraw stroke z1e---z2'e{down}...{right}z2e;
% WINGS
penpos5(stem,0); x5=x2-fine; bot y5=00; half_ring(5);
x6=x1-.5stem; x7=x1+.5stem; y7=y1; y6=y1-oo;
lft_wing(6,2.5u,.02h); rt_wing(7,2.5u,.02h);
penlabels(1,2,3,4,5); endchar;
iff known eth_pe:
cmchar "The letter pe";
beginchar(eth_pe,10u#,.5[cap_height#,x_height#],0);
adjust_fit(1.5u#,1.5u#);
if .5w <> good.x .5w :change_width; fi pickup fine.nib;
% STEM
penpos1(stem,5); penpos2(stem,5); penpos1'(stem,0); penpos2'(stem,0);
penpos3(stem,0);
x1=w-4.5u; x2=w-5u; x1'=x1-.5u; x2'=x1'+u; x3=x2-.25u;
top y1=h; bot y2=0; y1'=y2'=.7h; y3=.1h;
filldraw stroke z1e--z1'e; filldraw stroke z2'e---z3e{down}..{right}z2e;
% WINGS
x6=x1-.5stem; x7=x1+.5stem; y7=y1; y6=y1-oo;
lft_wing(6,2.5u,.02h); rt_wing(7,2.5u,.02h);
penlabels(1,2,3,4,6,7); endchar;
iff known eth_pO:
cmchar "The letter pO";
beginchar(eth_pO,11u#,.5[cap_height#,x_height#],0);
adjust_fit(2u#,u#);
if .5w <> good.x .5w :change_width; fi pickup fine.nib;
% STEM
penpos1(stem,5); penpos2(1.2stem,5); penpos1'(stem,-15); penpos2'(stem,-15);
x1=w-5u; x1'=x1; x2'=0; x2=x2';
top y1=h; bot y2=0; y1'=.65h; y2'=.15h;
filldraw stroke z1e...z1'e..z2'e..z2e{right};
% WINGS
x6=x1-.5stem; x7=x1+.5stem; y7=y1; y6=y1-oo;
lft_wing(6,2.5u,.02h); rt_wing(7,2.5u,.02h);
penlabels(1,2,3,4,6,7); endchar;
|
