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
|
%-------------------------------------------------------------
% This is ETH_G.MF as of Dec, 1995 by Jochen Metzinger
% originally distributed by Abass B. Alamnehe [February, 1993]
%-------------------------------------------------------------
iff known eth_ga:
cmchar "The letter ga";
beginchar(eth_ga,8u#,.5[cap_height#,x_height#],paren_depth#);
adjust_fit(0,0);
pickup fine.nib; penpos1(stem,5); penpos2(stem,0); penpos3(stem,0);
pos4(stem,10);
x1r=w-1.5u; x2r=x1r-.5u; x3r=w-.75u; x4l=w-4u;
bot y1=0; y2=.1h; y3=.75h; y4=.95h;
filldraw stroke z1e{left}...{up}z2e---z3e{up}..{left}z4e;
z5=z4l; lft_wing(5,.75u,.025h);
penlabels(1,2,3,4); endchar;
iff known eth_gU:
cmchar "The letter gU";
beginchar(eth_gU,8u#,.5[cap_height#,x_height#],paren_depth#);
adjust_fit(0,3.5u#);
pickup fine.nib; penpos1(stem,5); penpos2(stem,0); penpos3(stem,0);
pos4(stem,10);
x1r=w-1.5u; x2r=x1r-.5u; x3r=w-.75u; x4l=w-4u;
bot y1=0; y2=.1h; y3=.75h; y4=.95h;
filldraw stroke z1e{left}...{up}z2e---z3e{up}..{left}z4e;
z5=z4l; lft_wing(5,.75u,.025h);
x6=.5[x1r,x3r]; y6=.45h; rt_wing(6,1.5u,.025h);
penlabels(1,2,3,4); endchar;
iff known eth_gI:
cmchar "The letter gI";
beginchar(eth_gI,8u#,.5[cap_height#,x_height#],paren_depth#);
adjust_fit(0,3.5u#);
pickup fine.nib; penpos1(stem,5); penpos2(stem,0); penpos3(stem,0);
pos4(stem,10);
x1r=w-1.5u; x2r=x1r-.5u; x3r=w-.75u; x4l=w-4u;
bot y1=0; y2=.1h; y3=.75h; y4=.95h;
filldraw stroke z1e{left}...{up}z2e---z3e{up}..{left}z4e;
z5=z4l; lft_wing(5,.75u,.025h);
z6=z1r; rt_half_ellipse(6,1.5u);
penlabels(1,2,3,4); endchar;
iff known eth_gA:
cmchar "The letter gA";
beginchar(eth_gA,8u#,.5[cap_height#,x_height#],paren_depth#);
adjust_fit(2.5u#,0);
pickup fine.nib; pos1(vair,0); penpos2(stem,0); penpos3(stem,0);
pos4(stem,5);
x1=w-7.5u; x2r=w-1.5u; x3r=w-.75u; x4l=w-4u;
bot y1=.15h; y2=.3h; y3=.75h; y4=.95h;
filldraw stroke z1e{right}...z2e..z3e{up}..{left}z4e;
z5=z4l; lft_wing(5,u,oo);
x6=x1; y6=y1+o; lft_wing(6,0,o);
penlabels(1,2,3,4); endchar;
iff known eth_gE:
cmchar "The letter gE";
beginchar(eth_gE,8u#,.5[cap_height#,x_height#],paren_depth#);
adjust_fit(0,2.5u#);
pickup fine.nib; penpos1(stem,5); penpos2(stem,0); penpos3(stem,0);
pos4(stem,10);
x1r=w-1.5u; x2r=x1r-.5u; x3r=w-.75u; x4l=w-4u;
bot y1=0; y2=.1h; y3=.75h; y4=.95h;
filldraw stroke z1e{left}...{up}z2e---z3e{up}..{left}z4e;
z5=z4l; lft_wing(5,.75u,.025h);
x6=x1; y6=y1; half_ring(6);
penlabels(1,2,3,4); endchar;
iff known eth_ge:
cmchar "The letter ge";
beginchar(eth_ge,8u#,.5[cap_height#,x_height#],paren_depth#);
adjust_fit(2u#,0);
pickup fine.nib; penpos1(stem,5); penpos2(stem,0); penpos3(stem,0);
pos4(stem,10); pos5(vair,105);
x1r=w-1.5u; x2r=x1r-.5u; x3r=w-.75u; x4l=w-4u; x5=x4l-1u;
bot y1=0; y2=.1h; y3=.75h; y4=.95h; y5=y4-.025h;
filldraw stroke z1e{left}...{up}z2e---z3e{up}..{left}z4e---z5e;
x6=x5-4.5u; y6=y5-.045h; gfive_ring(6,5,1/9);
penlabels(1,2,3,4); endchar;
iff known eth_gO:
cmchar "The letter gO";
beginchar(eth_gO,8u#,.5[cap_height#,x_height#],paren_depth#);
adjust_fit(1u#,0);
pickup fine.nib; penpos1(stem,5); penpos2(stem,0); penpos3(stem,0);
penpos4(stem,0);
x1r=w-1.5u; x2r=x1r-.5u; x3r=w-.75u; x4l=w-4u;
bot y1=0; y2=.1h; y3=.7h; y4=.8h;
filldraw stroke z1e{left}...{up}z2e---z3e{up}..{left}z4e;
penpos6(stem,0); penpos7(stem,0); penpos8(stem,5);
x6=x7=x4l; x8=x6-.25u; y6=y4; y7=y6+.15h; y8=y6+.2h;
filldraw stroke z6e--z7e{up}...{left}z8e;
x5=x6l; y5=y6; lft_wing(5,.75u,.025h);
penlabels(1,2,3,4,5,7,8); endchar;
|
