SourceBrowser

punkfont-characters.mp /size: 22 Kb last modification: 2021-10-28 13:50
1initialize_punk_upper
 ;
2
3beginpunkchar
(
"
A
"
,
13
,
1
,
2
)
;
4z
1
=
pp
(
1.5
u
,
0
)
;
 z
2
=
(
.5
w
,
1.1
h
)
;
 z
3
=
pp
(
w
-1.5
u
,
0
)
;
5pd
 z
1
;
 pd
 z
3
;
 draw
 z
1
-
-
z
2
-
-
z
3
;
  % left and right diagonals
6z
4
=
pp
 .3
[
z
1
,
z
2
]
;
 z
5
=
pp
 .3
[
z
3
,
z
2
]
;
 pd
 z
4
;
 pd
 z
5
;
 draw
 z
4
-
-
z
5
;
 % crossbar
7endchar
;
8
9beginpunkchar
(
"
B
"
,
12
,
1
,
1
)
;
10z
1
=
pp
(
2
u
,
0
)
;
 z
2
=
pp
(
2
u
,
.6
h
)
;
 z
3
=
pp
(
2
u
,
h
)
;
 pd
 z
1
;
 pd
 z
3
;
 draw
 z
1
-
-
z
3
;
 % stem
11z
1.5
=
pp
(
w
-
u
,
.5
y
2
)
;
 z
2.5
=
pp
(
w
-
u
,
.5
[
y
2
,
y
3
]
)
;
 draw
 z
2
-
-
z
2.5
-
-
z
3
;
  % upper lobe
12draw
 flex
(
z
2
,
z
1.5
,
z
1
)
;
 % lower lobe
13endchar
;
14
15beginpunkchar
(
"
C
"
,
13
,
1
,
2
)
;
16z
1
=
pp
(
w
-2
u
,
.8
h
)
;
 z
2
=
pp
(
.6
w
,
h
)
;
 z
3
=
pp
(
u
,
.5
h
)
;
 z
4
=
(
.6
w
,
0
)
;
 z
5
=
(
w
-2
u
,
.2
h
)
;
17pd
 z
1
;
 pd
 z
5
;
 draw
 z
1.
.
z
2.
.
z
3.
.
z
4.
.
z
5
;
  % arc
18endchar
;
19
20beginpunkchar
(
"
D
"
,
14
,
1
,
2
)
;
21z
1
=
pp
(
2
u
,
0
)
;
 z
2
=
pp
(
2
u
,
h
)
;
 z
3
=
pp
(
w
-
u
,
.6
h
)
;
22pd
 z
1
;
 pd
 z
2
;
 draw
 flex
(
z
1
,
z
3
,
z
2
)
;
 % lobe
23draw
 z
1
-
-
z
2
;
  % stem
24endchar
;
25
26beginpunkchar
(
"
E
"
,
12
,
.5
,
1
)
;
27z
1
=
pp
(
2
u
,
0
)
;
 z
2
=
pp
(
2
u
,
h
)
;
 z
3
=
pp
(
w
-2.5
u
,
h
)
;
 z
4
=
pp
(
w
-2
u
,
0
)
;
28pd
 z
3
;
 pd
 z
4
;
 draw
 z
4
-
-
z
1
-
-
z
2
-
-
z
3
;
 % stem and arms
29z
5
=
pp
(
2
u
,
.6
h
)
;
 z
6
=
pp
(
w
-3
u
,
.6
h
)
;
 pd
 z
5
;
 pd
 z
6
;
 draw
 z
5
-
-
z
6
;
  % crossbar
30endchar
;
31
32beginpunkchar
(
"
F
"
,
12
,
.5
,
2
)
;
33z
1
=
pp
(
2
u
,
0
)
;
 z
2
=
pp
(
2
u
,
h
)
;
 z
3
=
pp
(
w
-2
u
,
h
)
;
34pd
 z
1
;
 pd
 z
3
;
 draw
 z
1
-
-
z
2
-
-
z
3
;
  % stem and arm
35z
5
=
pp
(
2
u
,
.6
h
)
;
 z
6
=
pp
(
w
-3
u
,
.6
h
)
;
 z
4
=
pp
 .5
[
z
5
,
z
6
]
-
(
0
,
.1
h
)
;
36pd
 z
5
;
 pd
 z
6
;
 draw
 flex
 (
z
5
,
z
4
,
z
6
)
;
 % crossbar
37endchar
;
38
39beginpunkchar
(
"
G
"
,
13
,
.5
,
.5
)
;
40z
1
=
pp
(
w
-2
u
,
.8
h
)
;
 z
2
=
pp
(
.6
w
,
h
)
;
 z
3
=
pp
(
u
,
.5
h
)
;
 z
4
=
pp
(
.6
w
,
0
)
;
 z
5
=
(
w
-2
u
,
0
)
;
41pd
 z
1
;
 draw
 z
1.
.
z
2.
.
z
3.
.
z
4
-
-
-
z
5
;
  % arc
42z
6
=
pp
(
.5
[
u
,
x
5
]
,
.4
h
)
;
 pd
 z
6
;
 pd
 z
5
;
 draw
 z
6
--
(
pp
(
x
5
,
y
6
)
)
-
-
z
5
;
 % spur
43endchar
;
44
45beginpunkchar
(
"
H
"
,
14
,
1
,
.5
)
;
46z
1
=
pp
(
2
u
,
0
)
;
 z
2
=
pp
(
2
u
,
h
)
;
 z
3
=
pp
(
w
-2
u
,
0
)
;
 z
4
=
pp
(
w
-2
u
,
h
)
;
47z
5
=
pp
(
2
u
,
.6
h
)
;
 z
6
=
pp
(
w
-2
u
,
.6
h
)
;
48pd
 z
1
;
 pd
 z
2
;
 pd
 z
3
;
 pd
 z
4
;
 draw
 z
1
-
-
z
2
;
 draw
 flex
(
z
3
,
z
6
,
z
4
)
;
 % stems
49pd
 z
5
;
 draw
 z
5
-
-
z
6
;
  % crossbar
50endchar
;
51
52beginpunkchar
(
"
I
"
,
5
,
1
,
2
)
;
53z
1
=
pp
(
.5
w
,
0
)
;
 z
2
=
(
.5
w
,
1
/
3
h
)
;
 z
3
=
(
.5
w
,
2
/
3
h
)
;
 z
4
=
(
.5
w
,
h
)
;
54pd
 z
1
;
 pd
 z
4
;
 draw
 flex
(
z
1
,
z
2
,
z
3
,
z
4
)
;
  % stem
55endchar
;
56
57beginpunkchar
(
"
J
"
,
9
,
1
,
2
)
;
58z
1
=
pp
(
w
-2
u
,
h
)
;
 z
2
=
pp
(
w
-2
u
,
-.1
h
)
;
 z
3
=
pp
(
u
,
0
)
;
59pd
 z
1
;
 pd
 z
3
;
 draw
 z
1
-
-
z
2
-
-
z
3
;
 % arc
60endchar
;
61
62beginpunkchar
(
"
K
"
,
14
,
1
,
2
)
;
63z
1
=
pp
(
2
u
,
0
)
;
 z
2
=
pp
(
2
u
,
h
)
;
 z
3
=
pp
(
2
u
,
1
/
3
h
)
;
 z
4
=
pp
(
w
-1.5
u
,
h
)
;
64pd
 z
1
;
 pd
 z
2
;
 draw
 z
1
-
-
z
2
;
  % stem
65pd
 z
3
;
 pd
 z
4
;
 draw
 z
3
-
-
z
4
;
  % upper diagonal
66z
6
=
pp
(
w
-
u
,
0
)
;
 z
5
=
1
/
3
[
z
3
,
z
4
]
;
67pd
 z
6
;
 draw
 flex
(
z
5
,
.8
[
z
1
,
2
/
3
[
z
5
,
z
6
]
 ]
,
z
6
)
;
% lower diagonal
68endchar
;
69
70beginpunkchar
(
"
L
"
,
11
,
1
,
2
)
;
71z
1
=
pp
(
2
u
,
h
)
;
 z
2
=
pp
(
2
u
,
0
)
;
 z
3
=
pp
(
w
-1.5
u
,
0
)
;
72pd
 z
1
;
 pd
 z
3
;
 draw
 z
1
-
-
z
2
-
-
z
3
;
  % stem and arm
73endchar
;
74
75beginpunkchar
(
"
M
"
,
17
,
.5
,
2
)
;
76z
1
=
pp
(
2
u
,
0
)
;
 z
2
=
pp
(
2
u
,
h
)
;
 z
3
=
pp
(
.5
w
,
0
)
;
 z
4
=
pp
(
w
-2
u
,
h
)
;
 z
5
=
pp
(
w
-2
u
,
0
)
;
77pd
 z
1
;
 pd
 z
5
;
 draw
 z
1
-
-
z
2
-
-
z
3
-
-
z
4
-
-
z
5
;
 % stems and diagonals
78endchar
;
79
80beginpunkchar
(
"
N
"
,
13
,
.75
,
2
)
;
81z
1
=
pp
(
2
u
,
0
)
;
 z
2
=
pp
(
2
u
,
h
)
;
 z
3
=
pp
(
w
-2
u
,
0
)
;
 z
4
=
pp
(
w
-2
u
,
h
)
;
82pd
 z
1
;
 pd
 z
4
;
 draw
 z
1
-
-
z
2
-
-
z
3
-
-
z
4
;
 % stems and diagonals
83endchar
;
84
85beginpunkchar
(
"
O
"
,
12
,
.5
,
2
)
;
86z
1
=
pp
(
.5
w
,
h
)
;
 z
2
=
pp
(
u
,
.55
h
)
;
 z
3
=
pp
(
.5
w
,
0
)
;
 z
4
=
pp
(
w
-
u
,
.55
h
)
;
87pd
 z
1
;
 draw
 z
1
{
left
}
.
.
z
2.
.
z
3.
.
z
4.
.
z
1
;
 % bowl
88endchar
;
89
90beginpunkchar
(
"
P
"
,
13
,
1
,
2
)
;
91z
1
=
pp
(
2
u
,
0
)
;
 z
2
=
pp
(
2
u
,
1.1
h
)
;
 z
3
=
pp
(
2
u
,
.5
h
)
;
 z
4
=
pp
(
w
,
.6
[
y
3
,
y
2
]
)
;
92pd
 z
1
;
 pd
 z
3
;
 draw
 z
1
-
-
z
2
-
-
z
4
-
-
z
3
;
 % stem and bowl
93endchar
;
94
95beginpunkchar
(
"
Q
"
,
14
,
.5
,
2
)
;
96z
1
=
pp
(
.5
w
,
h
)
;
 z
2
=
pp
(
u
,
.55
h
)
;
 z
3
=
pp
(
.5
w
,
0
)
;
 z
4
=
pp
(
w
-
u
,
.55
h
)
;
97pd
 z
1
;
 draw
 z
1
{
curl
 2
}
.
.
z
2.
.
z
3.
.
z
4.
.
z
1
;
 % bowl
98z
5
=
pp
(
.4
w
,
.2
h
)
;
 z
6
=
pp
(
w
-
u
,
-.1
h
)
;
 z
7
=
pp
(
.5
[
x
5
,
x
6
]
,
-.2
h
)
;
99pd
 z
5
;
 pd
 z
6
;
 draw
 z
5
-
-
z
7
-
-
z
6
;
  % tail
100endchar
;
101
102beginpunkchar
(
"
R
"
,
16
,
1
,
2
)
;
103z
1
=
pp
(
2
u
,
0
)
;
 z
2
=
pp
(
2
u
,
h
)
;
 z
3
=
pp
(
w
-
u
,
.6
[
y
2
,
y
4
]
)
;
 z
4
=
pp
(
2
u
,
.5
h
)
;
 z
5
=
pp
(
w
-1.5
u
,
0
)
;
104pd
 z
1
;
 pd
 z
2
;
 pd
 z
5
;
 draw
 z
1
-
-
flex
(
z
2
,
z
3
,
z
4
)
-
-
z
5
;
 % stem, bowl, and diagonal
105endchar
;
106
107beginpunkchar
(
"
S
"
,
11
,
.3
,
1
)
;
108z
1
=
pp
(
w
-2
u
,
.9
h
)
;
 z
2
=
pp
(
.5
w
,
h
)
;
 z
3
=
pp
(
u
,
.7
h
)
;
 z
4
=
.6
[
z
6
,
z
2
]
;
109z
5
=
pp
(
w
-
u
,
.35
h
)
;
 z
6
=
pp
(
.5
w
,
u
)
;
 z
7
=
pp
(
u
,
.2
h
)
;
110pd
 z
1
;
 pd
 z
7
;
 draw
 z
1
-
-
z
2.
.
.
z
3.
.
z
4.
.
z
5.
.
.
z
6
-
-
z
7
;
  % stroke
111endchar
;
112
113beginpunkchar
(
"
T
"
,
13
,
.75
,
2
)
;
114z
1
=
pp
(
u
,
h
)
;
 z
2
=
pp
(
w
-
u
,
h
)
;
 z
3
=
pp
(
.5
w
,
0
)
;
115pd
 z
1
;
 pd
 z
2
;
 pd
 z
3
;
 draw
 z
1
-
-
z
2
;
  % arms
116draw
 .5
[
z
1
,
z
2
]
-
-
z
3
;
  % stem
117endchar
;
118
119beginpunkchar
(
"
U
"
,
13
,
.3
,
2
)
;
120z
1
=
pp
(
2
u
,
h
)
;
 z
2
=
pp
(
2
u
,
.2
h
)
;
 z
3
=
pp
(
.5
w
,
0
)
;
 z
4
=
pp
(
w
-2
u
,
.2
h
)
;
 z
5
=
pp
(
w
-2
u
,
h
)
;
121pd
 z
1
;
 pd
 z
5
;
 draw
 z
1
-
-
-
z
2.
.
.
z
3
{
z
4
-
z
2
}
.
.
.
z
4
-
-
-
z
5
;
 % stroke
122endchar
;
123
124beginpunkchar
(
"
V
"
,
13
,
1
,
2
)
;
125z
1
=
pp
(
1.5
u
,
h
)
;
 z
2
=
pp
(
.5
w
,
0
)
;
 z
3
=
pp
(
w
-1.5
u
,
h
)
;
126pd
 z
1
;
 pd
 z
3
;
 draw
 z
1
-
-
z
2
-
-
z
3
;
  % diagonals
127endchar
;
128
129beginpunkchar
(
"
W
"
,
18
,
1
,
2
)
;
130z
1
=
pp
(
1.5
u
,
h
)
;
 z
2
=
pp
(
.5
[
x
1
,
x
3
]
,
0
)
;
 z
3
=
pp
(
.5
w
,
.8
h
)
;
 z
4
=
pp
(
.5
[
x
3
,
x
5
]
,
0
)
;
131z
5
=
pp
(
w
-1.5
u
,
h
)
;
132pd
 z
1
;
 pd
 z
5
;
 draw
 z
1
-
-
z
2
-
-
z
3
-
-
z
4
-
-
z
5
;
  % diagonals
133endchar
;
134
135beginpunkchar
(
"
X
"
,
13
,
1
,
1
)
;
136z
1
=
pp
(
1.5
u
,
h
)
;
 z
2
=
pp
(
w
-1.5
u
,
0
)
;
 z
3
=
pp
(
1.5
u
,
0
)
;
 z
4
=
pp
(
w
-2.5
u
,
h
)
;
137pd
 z
1
;
 pd
 z
2
;
 draw
 z
1
-
-
z
2
;
  % main diagonal
138pd
 z
3
;
 pd
 z
4
;
 draw
 z
3
-
-
z
4
;
  % cross diagonal
139endchar
;
140
141beginpunkchar
(
"
Y
"
,
13
,
1
,
2
)
;
142z
1
=
pp
(
1.5
u
,
h
)
;
 z
2
=
pp
(
w
-1.5
u
,
h
)
;
 z
3
=
pp
(
.5
w
,
.5
h
)
;
 z
4
=
pp
(
.5
w
,
0
)
;
143pd
 z
1
;
 pd
 z
2
;
 pd
 z
4
;
 draw
 z
1
-
-
z
3
-
-
z
4
;
 % stem and left diagonal
144draw
 z
2
-
-
z
3
;
  % right diagonal
145endchar
;
146
147beginpunkchar
(
"
Z
"
,
11
,
1
,
2
)
;
148z
1
=
pp
(
1.5
u
,
h
)
;
 z
2
=
pp
(
w
-2.5
u
,
h
)
;
 z
3
=
pp
(
1.5
u
,
0
)
;
 z
4
=
pp
(
w
-1.5
u
,
0
)
;
149pd
 z
1
;
 pd
 z
4
;
 draw
 z
1
-
-
z
2
-
-
z
3
-
-
z
4
;
  % diagonals
150endchar
;
151
152beginpunkchar
(
198
,
16
,
1
,
2
)
;
 % \AE
153z
1
=
pp
(
1.5
u
,
0
)
;
 z
2
=
pp
(
.6
w
,
h
)
;
 z
3
=
pp
(
w
-1.5
u
,
h
)
;
154pd
 z
1
;
 pd
 z
3
;
 draw
 z
1
-
-
z
2
-
-
z
3
;
  % left diagonal and upper arm
155z
4
=
pp
 .3
[
z
1
,
z
2
]
;
 z
5
=
pp
(
.6
w
,
0
)
;
 z
6
=
pp
(
w
-2
u
,
.3
h
)
;
156pd
 z
4
;
 pd
 z
6
;
 draw
 z
4
-
-
z
6
;
 % crossbar
157z
7
=
pp
(
w
-
u
,
0
)
;
 pd
 z
2
;
 pd
 z
7
;
 draw
 z
2
-
-
z
5
-
-
z
7
;
 % stem and lower arm
158endchar
;
159
160beginpunkchar
(
338
,
18
,
1
,
2
)
;
 % \OE
161z
1
=
pp
(
.5
w
,
h
)
;
 z
2
=
pp
(
u
,
.4
h
)
;
 z
3
=
pp
(
.5
w
,
0
)
;
162pd
 z
1
;
 draw
 z
1.
.
z
2.
.
{
right
}
z
3
;
 % bowl
163z
4
=
pp
(
w
-1.5
u
,
h
)
;
 z
5
=
pp
(
w
-2
u
,
.4
h
)
;
 z
6
=
pp
(
w
-
u
,
0
)
;
164pd
 z
4
;
 pd
 z
6
;
 draw
 z
4
-
-
z
1
-
-
z
3
-
-
z
6
;
 % arms and stem
165pd
 z
5
;
 draw
 z
5
--
.4
[
z
3
,
z
1
]
;
  % crossbar
166endchar
;
167
168beginpunkchar
(
216
,
14
,
1
,
1
)
;
 % \O
169z
1
=
pp
(
.5
w
,
h
)
;
 z
2
=
pp
(
u
,
.5
h
)
;
 z
3
=
pp
(
.5
w
,
0
)
;
 z
4
=
pp
(
w
-
u
,
.5
h
)
;
170z
5
=
pp
(
w
-2
u
,
1.1
h
)
;
 z
6
=
pp
(
2
u
,
-.1
h
)
;
171pd
 z
1
;
 pd
 z
6
;
 draw
 z
1.
.
z
2.
.
z
3.
.
z
4.
.
z
5
-
-
z
6
;
  % bowl and diagonal
172endchar
;
173
174beginpunkchar
(
915
,
11
,
1
,
2
)
;
 % $\Gamma$
175z
1
=
pp
(
2
u
,
0
)
;
 z
2
=
pp
(
2
u
,
h
)
;
 z
3
=
pp
(
w
-1.5
u
,
h
)
;
176pd
 z
1
;
 pd
 z
3
;
 draw
 z
1
-
-
z
2
-
-
z
3
;
  % stem and arm
177endchar
;
178
179beginpunkchar
(
916
,
15
,
1
,
2
)
;
 % $\Delta$
180z
1
=
pp
(
u
,
0
)
;
 z
2
=
pp
(
.5
w
,
h
)
;
 z
3
=
pp
(
w
-
u
,
0
)
;
181pd
 z
1
;
 draw
 z
1
-
-
z
2.
.
tension
 5.
.
z
3.
.
tension
 5.
.
z
1
;
 % triangle
182endchar
;
183
184beginpunkchar
(
920
,
15
,
.5
,
2
)
;
 % $\Theta$
185z
1
=
pp
(
.5
w
,
h
)
;
 z
2
=
pp
(
u
,
.6
h
)
;
 z
3
=
pp
(
.5
w
,
0
)
;
 z
4
=
pp
(
w
-
u
,
.6
h
)
;
186pd
 z
1
;
 draw
 z
1.
.
tension
.8
.
.
z
2.
.
z
3.
.
z
4.
.
tension
.8
.
.
z
1
;
 % bowl
187z
5
=
pp
(
x
2
+2
u
,
.4
h
)
;
 z
6
=
pp
(
x
4
-2
u
,
.4
h
)
;
 pd
 z
5
;
 pd
 z
6
;
 draw
 z
5
-
-
z
6
;
 % bar
188endchar
;
189
190beginpunkchar
(
923
,
12
,
1
,
2
)
;
 % $\Lambda$
191z
1
=
pp
(
u
,
0
)
;
 z
2
=
pp
(
.5
w
,
h
)
;
 z
3
=
pp
(
w
-
u
,
0
)
;
192pd
 z
1
;
 pd
 z
3
;
 draw
 z
1
-
-
z
2
-
-
z
3
;
  % diagonals
193endchar
;
194
195beginpunkchar
(
926
,
12
,
1
,
1
)
;
 % $\Xi$
196z
1
=
pp
(
u
,
h
)
;
 z
2
=
pp
(
w
-
u
,
h
)
;
 pd
 z
1
;
 pd
 z
2
;
 draw
 z
1
-
-
z
2
;
  % upper arm
197z
3
=
pp
(
2
u
,
.55
h
)
;
 z
4
=
pp
(
w
-2
u
,
.55
h
)
;
 pd
 z
3
;
 pd
 z
4
;
 draw
 z
3
-
-
z
4
;
  % bar
198z
5
=
pp
(
u
,
0
)
;
 z
6
=
pp
(
w
-
u
,
0
)
;
 pd
 z
5
;
 pd
 z
6
;
 draw
 z
5
-
-
z
6
;
  % lower arm
199endchar
;
200
201beginpunkchar
(
928
,
13
,
1
,
.5
)
;
 % $\Pi$
202z
1
=
pp
(
1.5
u
,
0
)
;
 z
2
=
pp
(
1.5
u
,
h
)
;
 z
3
=
pp
(
w
-1.5
u
,
h
)
;
 z
4
=
pp
(
w
-1.5
u
,
0
)
;
203pd
 z
1
;
 pd
 z
4
;
 draw
 z
1
-
-
z
2
-
-
z
3
-
-
z
4
;
  % stems and bar
204endchar
;
205
206beginpunkchar
(
931
,
13
,
1
,
1
)
;
 % $\Sigma$
207z
1
=
pp
(
w
-
u
,
h
)
;
 z
2
=
pp
(
u
,
h
)
;
 z
3
=
pp
(
.5
w
-
u
,
.5
h
)
;
 z
4
=
pp
(
u
,
0
)
;
 z
5
=
pp
(
w
-
u
,
0
)
;
208pd
 z
1
;
 pd
 z
5
;
 draw
 z
1
-
-
z
2
{
.5
[
z
4
,
z
5
]
-
z
2
}
.
.
z
3
-
-
z
4
-
-
z
5
;
 % arms and diagonals
209endchar
;
210
211beginpunkchar
(
933
,
15
,
1
,
.5
)
;
 % $\Upsilon$
212z
1
=
pp
(
u
,
.8
h
)
;
 z
2
=
pp
(
.3
w
,
h
)
;
 z
3
=
pp
(
.5
w
,
.5
h
)
;
 z
4
=
pp
(
.5
w
,
0
)
;
213pd
 z
1
;
 pd
 z
4
;
 draw
 z
1.
.
z
2.
.
tension
2.
.
z
3
-
-
-
z
4
;
 % left arc and stem
214z
5
=
pp
(
w
-
u
,
.8
h
)
;
 z
6
=
pp
(
.7
w
,
h
)
;
215pd
 z
5
;
 draw
 z
5.
.
z
6.
.
tension
2.
.
{
z
4
-
z
3
}
z
3
;
 % right arc
216endchar
;
217
218beginpunkchar
(
934
,
13
,
1
,
2
)
;
 % $\Phi$
219z
1
=
pp
(
.5
w
,
h
)
;
 z
2
=
pp
(
.5
w
,
0
)
;
 pd
 z
1
;
 pd
 z
2
;
 draw
 z
1
-
-
z
2
;
 % stem
220z
3
=
pp
(
.5
w
,
2
/
3
h
)
;
 z
4
=
pp
(
u
,
.5
h
)
;
 z
5
=
pp
(
.5
w
,
1
/
4
h
)
;
 z
6
=
pp
(
w
-
u
,
.5
h
)
;
221pd
 z
3
;
 draw
 z
3.
.
z
4.
.
z
5.
.
z
6.
.
z
3
;
 % bowl
222endchar
;
223
224beginpunkchar
(
936
,
14
,
1
,
1
)
;
 % $\Psi$
225z
1
=
pp
(
.5
w
,
h
)
;
 z
2
=
pp
(
.5
w
,
0
)
;
 pd
 z
1
;
 pd
 z
2
;
 draw
 z
1
-
-
z
2
;
 % stem
226z
3
=
pp
(
u
,
.8
h
)
;
 z
4
=
pp
(
.5
w
,
.2
h
)
;
 z
5
=
pp
(
w
-
u
,
.8
h
)
;
227pd
 z
3
;
 pd
 z
5
;
 draw
 z
3
{
.4
[
z
1
,
z
2
]
-
z
3
}
.
.
z
4
{
right
}
..
{
z
5
-.4
[
z
1
,
z
2
]
}
z
5
;
 % stroke
228endchar
;
229
230beginpunkchar
(
937
,
13
,
1
,
2
)
;
 % $\Omega$
231z
1
=
pp
(
u
,
0
)
;
 z
2
=
pp
(
1
/
3
w
,
0
)
;
 z
3
=
pp
(
u
,
2
/
3
h
)
;
 z
4
=
pp
(
.5
w
,
h
)
;
232z
5
=
pp
(
w
-
u
,
2
/
3
h
)
;
 z
6
=
pp
(
2
/
3
w
,
0
)
;
 z
7
=
pp
(
w
-
u
,
0
)
;
233pd
 z
1
;
 pd
 z
7
;
 draw
 z
1
-
-
z
2
{
up
}
.
.
z
3.
.
z
4.
.
z
5.
.
{
down
}
z
6
-
-
z
7
;
 % bowl and arms
234endchar
;
235
236beginpunkchar
(
"
.
"
,
5
,
1
,
2
)
;
237pd
 pp
(
.5
w
,
0
)
;
  % dot
238endchar
;
239
240beginpunkchar
(
"
,
"
,
5
,
.5
,
.5
)
;
241z
1
=
pp
(
.5
w
,
0
)
;
 z
2
=
pp
(
w
-
u
,
-.1
h
)
;
 z
3
=
pp
(
.5
w
,
-.3
h
)
;
242pd
 z
1
;
 pd
 z
3
;
 draw
 z
1
-
-
z
2
-
-
z
3
;
  % stroke
243endchar
;
244
245beginpunkchar
(
"
:
"
,
5
,
1
,
.5
)
;
246pd
 pp
(
.5
w
,
0
)
;
 pd
 pp
(
.5
w
,
.4
h
)
;
  % dots
247endchar
;
248
249beginpunkchar
(
"
;
"
,
5
,
.5
,
.5
)
;
250z
1
=
pp
(
.5
w
,
0
)
;
 z
2
=
pp
(
w
-
u
,
-.1
h
)
;
 z
3
=
pp
(
.5
w
,
-.3
h
)
;
251pd
 z
1
;
 pd
 z
3
;
 draw
 z
1
-
-
z
2
-
-
z
3
;
  % stroke
252pd
 pp
(
.5
w
,
.4
h
)
;
 % dot
253endchar
;
254
255beginpunkchar
(
"
!
"
,
5
,
.5
,
.5
)
;
256pd
 pp
(
.5
w
,
0
)
;
 % dot
257z
1
=
pp
(
.5
w
,
1.05
h
)
;
 z
2
=
pp
(
.5
w
,
.3
h
)
;
 pd
 z
1
;
 pd
 z
2
;
 draw
 z
1
-
-
z
2
;
 % stem
258endchar
;
259
260beginpunkchar
(
161
,
5
,
.5
,
.5
)
;
 % spanish inverted !
261pd
 pp
(
.5
w
,
.9
h
)
;
 % dot
262z
1
=
pp
(
.5
w
,
-.1
h
)
;
 z
2
=
pp
(
.5
w
,
.6
h
)
;
 pd
 z
1
;
 pd
 z
2
;
 draw
 z
1
-
-
z
2
;
 % stem
263endchar
;
264
265beginpunkchar
(
"
?
"
,
9
,
1
,
.5
)
;
266z
1
=
pp
(
1.5
u
,
.8
h
)
;
 z
2
=
pp
(
.5
w
,
h
)
;
 z
3
=
pp
(
w
-
u
,
.8
h
)
;
 z
4
=
pp
(
.5
w
,
.3
h
)
;
267pd
 z
1
;
 pd
 z
4
;
 draw
 z
1.
.
z
2.
.
z
3.
.
{
down
}
z
4
;
 % arc and stem
268pd
 pp
(
.5
w
,
0
)
;
 % dot
269endchar
;
270
271beginpunkchar
(
191
,
9
,
1
,
.5
)
;
 % spanish inverted ?
272z
1
=
pp
(
1.5
u
,
.1
h
)
;
 z
2
=
pp
(
.5
w
,
-.1
h
)
;
 z
3
=
pp
(
w
-
u
,
.1
h
)
;
 z
4
=
pp
(
.5
w
,
.6
h
)
;
273pd
 z
1
;
 pd
 z
4
;
 draw
 z
1.
.
z
2.
.
z
3.
.
{
up
}
z
4
;
 % arc and stem
274pd
 pp
(
.5
w
,
.9
h
)
;
 % dot
275endchar
;
276
277beginpunkchar
(
"
&
"
,
14
,
.5
,
.5
)
;
278z
1
=
pp
(
w
-2
u
,
h
)
;
 z
2
=
pp
(
u
,
h
)
;
 z
3
=
pp
(
3
u
,
0
)
;
 z
5
=
pp
(
w
-
u
,
.6
h
)
;
 z
6
=
pp
(
w
-2
u
,
0
)
;
279pd
 z
1
;
 pd
 z
5
;
 draw
 z
1
-
-
z
2
-
-
z
3
-
-
z
5
;
 % arms and stem
280draw
 z
1
--
.5
[
z
2
,
z
3
]
;
 pd
 z
6
;
 draw
 z
6
--
.6
[
z
3
,
z
5
]
;
 % diagonals
281endchar
;
282
283beginpunkchar
(
"
$
"
,
12
,
.5
,
.5
)
;
284z
1
=
pp
(
w
-1.5
u
,
.7
h
)
;
 z
2
=
pp
(
.5
w
,
h
)
;
 z
3
=
pp
(
u
,
.7
h
)
;
 z
4
=
.5
[
z
3
,
z
5
]
;
285z
5
=
pp
(
w
-
u
,
.3
h
)
;
 z
6
=
pp
(
.5
w
,
0
)
;
 z
7
=
pp
(
u
,
.3
h
)
;
286pd
 z
1
;
 pd
 z
7
;
 draw
 z
1.
.
z
2.
.
z
3.
.
z
4.
.
z
5.
.
z
6.
.
z
7
;
 % stroke
287z
8
=
z
2
+
(
0
,
.1
h
)
;
 pd
 z
8
;
 draw
 z
8
-
-
z
6
;
 % stem
288endchar
;
289
290beginpunkchar
(
"
%
"
,
18
,
.5
,
.5
)
;
291z
1
=
pp
(
3.5
u
,
1.1
h
)
;
 z
2
=
pp
(
u
,
.8
h
)
;
 z
3
=
pp
(
3.5
u
,
.5
h
)
;
 z
4
=
pp
(
6
u
,
.8
h
)
;
292z
5
=
pp
(
w
-3.5
u
,
.5
h
)
;
 z
6
=
pp
(
w
-6
u
,
.2
h
)
;
 z
7
=
pp
(
w
-3.5
u
,
-.1
h
)
;
 z
8
=
pp
(
w
-
u
,
.2
h
)
;
293pd
 z
1
;
 draw
 z
1.
.
z
2.
.
z
3.
.
z
4.
.
z
1
;
 % upper bowl
294pd
 z
5
;
 draw
 z
5.
.
z
6.
.
z
7.
.
z
8.
.
z
5
;
 % lower bowl
295z
9
=
pp
(
w
-3
u
,
1.1
h
)
;
 z
0
=
pp
(
3
u
,
-.1
h
)
;
 pd
 z
0
;
 draw
 z
9
-
-
z
0
;
 % diagonal
296draw
 z
1
{
z
5
-
z
1
}
.
.
z
9
;
 % link
297endchar
;
298
299beginpunkchar
(
"
@
"
,
18
,
1
,
.5
)
;
300z
1
=
pp
(
2
u
,
0
)
;
 z
2
=
pp
(
1
/
3
w
,
.7
h
)
;
 z
3
=
pp
(
w
-6
u
,
0
)
;
301z
4
=
pp
(
w
,
.3
h
)
;
 z
5
=
pp
(
1
/
3
w
,
h
)
;
 z
6
=
pp
(
u
,
.5
h
)
;
 z
7
=
.7
[
z
2
,
z
3
]
;
302pd
 z
1
;
 pd
 z
7
;
 draw
 z
1
-
-
z
2
-
-
z
3
{
right
}
.
.
z
4.
.
z
5.
.
z
6.
.
z
7
;
 % diagonals and stroke
303endchar
;
304
305beginpunkchar
(
"
-
"
,
7
,
.5
,
.5
)
;
306z
1
=
pp
(
u
,
.4
h
)
;
 z
2
=
pp
(
w
-
u
,
.5
h
)
;
 pd
 z
1
;
 pd
 z
2
;
 draw
 z
1
-
-
z
2
;
  % bar
307endchar
;
308
309beginpunkchar
(
8211
,
9
,
.5
,
.5
)
;
 % --
310z
1
=
pp
(
0
,
.5
h
)
;
 z
2
=
pp
(
w
,
.4
h
)
;
 pd
 z
1
;
 pd
 z
2
;
 draw
 z
1
-
-
z
2
;
  % bar
311endchar
;
312
313beginpunkchar
(
8212
,
18
,
.5
,
.5
)
;
 % ---
314z
1
=
pp
(
0
,
.5
h
)
;
 z
2
=
pp
(
w
,
.4
h
)
;
 pd
 z
1
;
 pd
 z
2
;
 draw
 z
1
-
-
z
2
;
  % bar
315endchar
;
316
317beginpunkchar
(
"
+
"
,
9
,
.5
,
1
)
;
318z
1
=
pp
(
0
,
.5
h
)
;
 z
2
=
pp
(
w
,
.5
h
)
;
 pd
 z
1
;
 pd
 z
2
;
 draw
 z
1
-
-
z
2
;
 % bar
319z
3
=
pp
(
.5
w
,
.1
h
)
;
 z
4
=
pp
(
.5
w
,
.9
h
)
;
 pd
 z
3
;
 pd
 z
4
;
 draw
 z
3
-
-
z
4
;
 % stem
320endchar
;
321
322beginpunkchar
(
"
*
"
,
13
,
.5
,
1
)
;
323z
0
=
pp
(
.5
w
,
1.1
h
)
;
 z
1
=
pp
(
u
,
.9
h
)
;
 z
2
=
pp
(
2
u
,
.3
h
)
;
 z
3
=
pp
(
w
-
u
,
.3
h
)
;
 z
4
=
pp
(
w
-
u
,
.9
h
)
;
324pd
 z
0
;
 draw
 z
0
-
-
z
2.
.1
/
3
[
.5
[
z
2
,
z
4
]
,
z
0
]
.
.
z
4
-
-
z
1
-
-
z
3
-
-
z
0
;
 % star
325endchar
;
326
327beginpunkchar
(
39
,
5
,
.5
,
1.5
)
;
 % ' apostrofe HH/TH (to be checked)
328z
1
=
pp
(
w
/
2
,
h
)
;
 z
2
=
pp
(
w
/
2
+
u
,
.85
h
)
;
 z
3
=
pp
(
w
/
2
,
2
/
3
h
)
;
329pd
 z
1
;
 pd
 z
3
;
 draw
 z
1.
.
z
2.
.
z
3
;
  % stroke
330endchar
;
331
332beginpunkchar
(
34
,
9
,
1
,
1.5
)
;
 % "  HH/TH (to be checked)
333z
1
=
pp
(
1.5
u
,
h
)
;
 z
2
=
pp
(
1.5
u
,
.6
h
)
;
 z
3
=
pp
(
w
-1.5
u
,
h
)
;
 z
4
=
pp
(
w
-1.5
u
,
.6
h
)
;
334pd
 z
1
;
 pd
 z
2
;
 pd
 z
3
;
 pd
 z
4
;
 draw
 z
1
-
-
z
2
;
 draw
 z
3
-
-
z
4
;
335endchar
;
336
337beginpunkchar
(
8216
,
5
,
.3
,
.5
)
;
 % `
338z
1
=
pp
(
w
-1.5
u
,
h
)
;
 z
2
=
pp
(
u
,
.85
h
)
;
 z
3
=
pp
(
w
-
u
,
2
/
3
h
)
;
339pd
 z
1
;
 pd
 z
3
;
 draw
 z
1
-
-
z
2
-
-
z
3
;
  % stroke
340endchar
;
341
342beginpunkchar
(
8217
,
5
,
.3
,
.5
)
;
 % '
343z
1
=
pp
(
1.5
u
,
h
)
;
 z
2
=
pp
(
w
-
u
,
.85
h
)
;
 z
3
=
pp
(
u
,
2
/
3
h
)
;
344pd
 z
1
;
 pd
 z
3
;
 draw
 z
1
-
-
z
2
-
-
z
3
;
  % stroke
345endchar
;
346
347beginpunkchar
(
8220
,
9
,
.3
,
.5
)
;
 % `` quotedblleft
348z
1
=
pp
(
.5
w
+.5
u
,
h
)
;
 z
2
=
pp
(
w
-
u
,
.6
h
)
;
 z
3
=
pp
(
u
,
.95
h
)
;
349pd
 z
1
;
 pd
 z
3
;
 draw
 z
1
-
-
z
2
-
-
z
3
;
  % stroke
350endchar
;
351
352beginpunkchar
(
8221
,
9
,
.3
,
.5
)
;
 % '' quotedblright
353z
1
=
pp
(
.5
w
-.5
u
,
h
)
;
 z
2
=
pp
(
u
,
.6
h
)
;
 z
3
=
pp
(
w
-
u
,
.95
h
)
;
354pd
 z
1
;
 pd
 z
3
;
 draw
 z
1
-
-
z
2
-
-
z
3
;
  % stroke
355endchar
;
356
357beginpunkchar
(
"
(
"
,
7
,
.5
,
.5
)
;
358z
1
=
pp
(
w
-
u
,
h
)
;
 z
2
=
pp
(
u
,
.5
h
)
;
 z
3
=
pp
(
w
-
u
,
0
)
;
359pd
 z
1
;
 pd
 z
3
;
 draw
 z
1.
.
z
2.
.
z
3
;
  % stroke
360endchar
;
361
362beginpunkchar
(
"
)
"
,
7
,
.5
,
.5
)
;
363z
1
=
pp
(
u
,
h
)
;
 z
2
=
pp
(
w
-
u
,
.5
h
)
;
 z
3
=
pp
(
u
,
0
)
;
 pd
 z
1
;
 pd
 z
3
;
 draw
 z
1.
.
z
2.
.
z
3
;
 % stroke
364endchar
;
365
366beginpunkchar
(
"
[
"
,
8
,
.5
,
.5
)
;
367z
1
=
pp
(
w
-
u
,
h
)
;
 z
2
=
pp
(
.5
w
,
h
)
;
 z
3
=
pp
(
.5
w
,
0
)
;
 z
4
=
pp
(
w
-
u
,
0
)
;
368pd
 z
1
;
 pd
 z
4
;
 draw
 z
1
-
-
z
2
-
-
z
3
-
-
z
4
;
 % bars and stem
369endchar
;
370
371beginpunkchar
(
"
]
"
,
8
,
.5
,
.5
)
;
372z
1
=
pp
(
u
,
h
)
;
 z
2
=
pp
(
.5
w
,
h
)
;
 z
3
=
pp
(
.5
w
,
0
)
;
 z
4
=
pp
(
u
,
0
)
;
373pd
 z
1
;
 pd
 z
4
;
 draw
 z
1
-
-
z
2
-
-
z
3
-
-
z
4
;
 % bars and stem
374endchar
;
375
376beginpunkchar
(
"
<
"
,
9
,
.5
,
.5
)
;
377z
1
=
pp
(
w
-
u
,
.9
h
)
;
 z
2
=
pp
(
u
,
.5
h
)
;
 z
3
=
pp
(
w
-
u
,
.1
h
)
;
378pd
 z
1
;
 pd
 z
3
;
 draw
 z
1
-
-
z
2
-
-
z
3
;
 % diagonals
379endchar
;
380
381beginpunkchar
(
"
>
"
,
9
,
.5
,
.5
)
;
382z
1
=
pp
(
u
,
.9
h
)
;
 z
2
=
pp
(
w
-
u
,
.5
h
)
;
 z
3
=
pp
(
u
,
.1
h
)
;
383pd
 z
1
;
 pd
 z
3
;
 draw
 z
1
-
-
z
2
-
-
z
3
;
 % diagonals
384endchar
;
385
386beginpunkchar
(
"
{
"
,
10
,
.5
,
.5
)
;
 % HH/TH
387z
1
=
pp
(
w
-2
u
,
h
)
;
 z
3
=
pp
(
2
u
,
.5
h
)
;
 z
5
=
pp
(
w
-2
u
,
0
)
;
388z
2
=
pp
(
w
-4
u
,
.6
h
)
;
 z
4
=
(
w
-4
u
,
.4
h
)
;
389pd
 z
1
;
 pd
 z
3
;
 pd
 z
5
;
 draw
 z
1
{
left
}
.
.
z
2
-
-
z
3
 &
 z
3
-
-
z
4.
.
{
right
}
z
5
;
390endchar
;
391
392beginpunkchar
(
"
}
"
,
10
,
.5
,
.5
)
;
 % HH/TH
393z
1
=
pp
(
2
u
,
h
)
;
 z
3
=
pp
(
w
-2
u
,
.5
h
)
;
 z
5
=
pp
(
2
u
,
0
)
;
394z
2
=
pp
(
4
u
,
.6
h
)
;
 z
4
=
(
4
u
,
.4
h
)
;
395pd
 z
1
;
 pd
 z
3
;
 pd
 z
5
;
 draw
 z
1
{
right
}
.
.
z
2
-
-
z
3
 &
 z
3
-
-
z
4.
.
{
left
}
z
5
;
396endchar
;
397
398beginpunkchar
(
"
=
"
,
9
,
.5
,
.5
)
;
399z
5
=
pp
(
u
,
2
/
3
h
)
;
 z
6
=
pp
(
w
-
u
,
2
/
3
h
)
;
 pd
 z
5
;
 pd
 z
6
;
 draw
 z
5
-
-
z
6
;
 % upper bar
400z
7
=
pp
(
u
,
1
/
3
h
)
;
 z
8
=
pp
(
w
-
u
,
1
/
3
h
)
;
 pd
 z
7
;
 pd
 z
8
;
 draw
 z
7
-
-
z
8
;
 % lower bar
401endchar
;
402
403beginpunkchar
(
"
#
"
,
15
,
.5
,
.5
)
;
404z
1
=
pp
(
.5
w
,
h
)
;
 z
2
=
pp
(
3
u
,
0
)
;
 z
3
=
pp
(
w
-3
u
,
h
)
;
 z
4
=
pp
(
.5
w
,
0
)
;
405pd
 z
2
;
 pd
 z
3
;
 draw
 z
3
-
-
z
1
-
-
z
2
;
 draw
 z
3
-
-
z
4
-
-
z
2
;
 % diagonals (linked)
406z
5
=
pp
(
u
,
2
/
3
h
)
;
 z
6
=
pp
(
w
-
u
,
2
/
3
h
)
;
 pd
 z
5
;
 pd
 z
6
;
 draw
 z
5
-
-
z
6
;
 % upper bar
407z
7
=
pp
(
u
,
1
/
3
h
)
;
 z
8
=
pp
(
w
-
u
,
1
/
3
h
)
;
 pd
 z
7
;
 pd
 z
8
;
 draw
 z
7
-
-
z
8
;
 % lower bar
408endchar
;
409
410beginpunkchar
(
"
/
"
,
9
,
1
,
1
)
;
411z
1
=
pp
(
1.5
u
,
-.05
h
)
;
 z
2
=
pp
(
w
-1.5
u
,
1.05
h
)
;
 pd
 z
1
;
 pd
 z
2
;
 draw
 z
1
-
-
z
2
;
 % diagonal
412endchar
;
413
414beginpunkchar
(
"
\
"
,
9
,
1
,
1
)
;
 % HH/TH
415z
1
=
pp
(
1.5
u
,
1.05
h
)
;
 z
2
=
pp
(
w
-1.5
u
,
-.05
h
)
;
 pd
 z
1
;
 pd
 z
2
;
 draw
 z
1
-
-
z
2
;
 % reverse diagonal
416endchar
;
417
418
419beginpunkchar
(
"
0
"
,
9
,
.5
,
1
)
;
420z
1
=
pp
(
.5
w
,
h
)
;
 z
2
=
pp
(
u
,
.55
h
)
;
 z
3
=
pp
(
.5
w
,
0
)
;
 z
4
=
pp
(
w
-
u
,
.55
h
)
;
421pd
 z
1
;
 draw
 z
1
{
curl
 2
}
.
.
z
2.
.
z
3.
.
z
4.
.
z
1
;
 % bowl
422endchar
;
423
424beginpunkchar
(
"
1
"
,
9
,
.3
,
1
)
;
425z
1
=
pp
(
2
u
,
.7
h
)
;
 z
2
=
pp
(
.6
w
,
h
)
;
 z
3
=
pp
(
.6
w
,
0
)
;
426pd
 z
1
;
 pd
 z
3
;
 draw
 z
1
-
-
z
2
-
-
z
3
;
 % serif and stem
427endchar
;
428
429beginpunkchar
(
"
2
"
,
9
,
1
,
1
)
;
430z
1
=
pp
(
2
u
,
.7
h
)
;
 z
2
=
pp
(
.5
w
,
h
)
;
 z
3
=
pp
(
w
-
u
,
.6
h
)
;
 z
4
=
pp
(
u
,
0
)
;
 z
5
=
pp
(
w
-2
u
,
0
)
;
431pd
 z
1
;
 pd
 z
5
;
 draw
 z
1.
.
z
2.
.
z
3.
.
z
4
-
-
z
5
;
 % stroke
432endchar
;
433
434beginpunkchar
(
"
3
"
,
9
,
.5
,
.5
)
;
435z
1
=
pp
(
2
u
,
.7
h
)
;
 z
2
=
pp
(
.5
w
,
h
)
;
 z
3
=
pp
(
w
-
u
,
.5
[
y
2
,
y
4
]
)
;
436z
4
=
pp
(
.5
w
-
u
,
.55
h
)
;
 z
5
=
pp
(
w
-
u
,
.5
[
y
4
,
y
6
]
)
;
 z
6
=
pp
(
.5
w
,
0
)
;
 z
7
=
pp
(
1.5
u
,
.2
h
)
;
437pd
 z
1
;
 pd
 z
7
;
 draw
 z
1.
.
z
2.
.
z
3.
.
z
4
&
z
4.
.
z
5.
.
z
6.
.
z
7
;
  % arcs
438endchar
;
439
440beginpunkchar
(
"
4
"
,
9
,
1
,
1
)
;
441z
1
=
pp
(
w
-
u
,
.3
h
)
;
 z
2
=
pp
(
u
,
.3
h
)
;
 z
3
=
pp
(
2
/
3
w
,
h
)
;
 z
4
=
pp
(
2
/
3
w
,
0
)
;
442pd
 z
1
;
 pd
 z
4
;
 draw
 z
1
-
-
z
2
-
-
z
3
-
-
z
4
;
 % stem and diagonals
443endchar
;
444
445beginpunkchar
(
"
5
"
,
9
,
.5
,
.5
)
;
446z
1
=
pp
(
w
-2
u
,
h
)
;
 z
2
=
pp
(
2
u
,
h
)
;
 z
3
=
pp
(
u
,
.7
h
)
;
 z
4
=
pp
(
w
-
u
,
.5
[
y
3
,
y
5
]
)
;
447z
5
=
pp
(
.5
w
,
0
)
;
 z
6
=
pp
(
u
,
.2
h
)
;
448pd
 z
1
;
 pd
 z
6
;
 draw
 z
1
-
-
z
2
-
-
z
3.
.
z
4.
.
z
5.
.
z
6
;
 % stroke
449endchar
;
450
451beginpunkchar
(
"
6
"
,
9
,
1
,
1
)
;
452z
1
=
pp
(
2
/
3
w
,
h
)
;
 z
2
=
pp
(
u
,
.3
h
)
;
 z
3
=
pp
(
.5
w
,
0
)
;
 z
4
=
pp
(
w
-
u
,
.3
h
)
;
 z
5
=
pp
(
.6
w
,
.6
h
)
;
453z
6
=
pp
 z
2
;
 pd
 z
1
;
 pd
 z
6
;
 draw
 z
1.
.
z
2.
.
z
3.
.
z
4.
.
z
5
-
-
z
6
;
 % stroke
454endchar
;
455
456beginpunkchar
(
"
7
"
,
9
,
.5
,
1
)
;
457z
1
=
pp
(
2
u
,
h
)
;
 z
2
=
pp
(
w
-.5
u
,
h
)
;
 z
3
=
pp
(
.4
w
,
0
)
;
458pd
 z
1
;
 pd
 z
3
;
 draw
 z
1
-
-
z
2
&
z
2.
.
z
3
{
down
}
;
 % stroke
459endchar
;
460
461beginpunkchar
(
"
8
"
,
9
,
.5
,
.5
)
;
462z
1
=
pp
(
.5
w
,
h
)
;
 z
2
=
pp
(
u
,
.5
[
y
1
,
y
3
]
)
;
 z
3
=
pp
(
.5
w
,
.6
h
)
;
 z
4
=
pp
(
w
-
u
,
.5
[
y
3
,
y
5
]
)
;
463z
5
=
pp
(
.5
w
,
0
)
;
 z
6
=
pp
(
u
,
.5
[
y
5
,
y
3
]
)
;
 z
7
=
pp
(
w
-
u
,
.5
[
y
1
,
y
3
]
)
;
464pd
 z
1
;
 draw
 z
1
{
curl
 8
}
.
.
z
2.
.
z
3.
.
z
4.
.
z
5.
.
z
6.
.
z
3.
.
z
7.
.
z
1
;
 % stroke
465endchar
;
466
467beginpunkchar
(
"
9
"
,
9
,
1
,
1
)
;
468z
1
=
pp
(
1
/
3
w
,
0
)
;
 z
2
=
pp
(
w
-
u
,
.7
h
)
;
 z
3
=
pp
(
.5
w
,
h
)
;
 z
4
=
pp
(
u
,
.7
h
)
;
 z
5
=
pp
(
.5
w
,
.4
h
)
;
469pd
 z
1
;
 pd
 z
5
;
 draw
 z
1.
.
z
2.
.
z
3.
.
z
4.
.
z
5
;
 % stroke
470endchar
;
471
472beginpunkchar
(
96
,
9
,
1
,
1
)
;
 % \`{} grave
473z
1
=
pp
(
2.5
u
,
h
)
;
 z
2
=
pp
(
.6
w
,
.8
h
)
;
 pd
 z
1
;
 pd
 z
2
;
 draw
 z
1
-
-
z
2
;
 % diagonal
474endchar
;
475
476beginpunkchar
(
180
,
9
,
1
,
1
)
;
 % \'{} acute
477z
1
=
pp
(
w
-2.5
u
,
h
)
;
 z
2
=
pp
(
.4
w
,
.8
h
)
;
 pd
 z
1
;
 pd
 z
2
;
 draw
 z
1
-
-
z
2
;
 % diagonal
478endchar
;
479
480beginpunkchar
(
710
,
13
,
1
,
1
)
;
 % \^{} circumflex
481z
1
=
pp
(
2.5
u
,
.8
h
)
;
 z
2
=
pp
(
.5
w
,
h
)
;
 z
3
=
(
w
-2.5
u
,
.8
h
)
;
482pd
 z
1
;
 pd
 z
3
;
 draw
 z
1
-
-
z
2
-
-
z
3
;
 % diagonals
483endchar
;
484
485beginpunkchar
(
711
,
13
,
1
,
1
)
;
 % \v{} caron
486z
1
=
pp
(
2.5
u
,
.9
h
)
;
 z
2
=
pp
(
.5
w
,
.7
h
)
;
 z
3
=
pp
(
w
-2.5
u
,
.9
h
)
;
487pd
 z
1
;
 pd
 z
3
;
 draw
 z
1
-
-
z
2
-
-
z
3
;
 % diagonals
488endchar
;
489
490beginpunkchar
(
728
,
11
,
1
,
1
)
;
 % \u{} breve
491z
1
=
pp
(
2
u
,
h
)
;
 z
2
=
pp
(
.5
w
,
.75
h
)
;
 z
3
=
pp
(
w
-2
u
,
h
)
;
492pd
 z
1
;
 pd
 z
3
;
 draw
 flex
(
z
1
,
z
2
,
z
3
)
;
 % stroke
493endchar
;
494
495beginpunkchar
(
175
,
12
,
1
,
1
)
;
 % \={} macron
496z
1
=
pp
(
u
,
.8
h
)
;
 z
2
=
pp
(
w
-
u
,
.8
h
)
;
 pd
 z
1
;
 pd
 z
2
;
 draw
 z
1
-
-
z
2
;
 % bar
497endchar
;
498
499beginpunkchar
(
729
,
5
,
1
,
1
)
;
 % \.{}
500pd
 pp
(
.5
w
,
.9
h
)
;
 % dot
501endchar
;
502
503beginpunkchar
(
168
,
13
,
1
,
1
)
;
 % \"{} diaeresis
504pd
 pp
(
1
/
5
w
,
.9
h
)
;
 pd
 pp
(
4
/
5
w
,
.9
h
)
;
 % dots
505endchar
;
506
507beginpunkchar
(
732
,
13
,
1
,
1
)
;
 % \~{} tilde
508z
1
=
pp
(
u
,
.75
h
)
;
 z
2
=
pp
(
w
-
u
,
.9
h
)
;
 pd
 z
1
;
 pd
 z
2
;
 draw
 z
1
{
up
}
..
{
up
}
z
2
;
 % stroke
509endchar
;
510
511beginpunkchar
(
733
,
13
,
1
,
1
)
;
 % \H{} hungarumlaut
512z
1
=
pp
(
4
u
,
h
)
;
 z
2
=
pp
(
2.5
u
,
.7
h
)
;
 z
3
=
pp
(
w
-2
u
,
h
)
;
 z
4
=
pp
(
w
-3.5
u
,
.7
h
)
;
513pd
 z
1
;
 pd
 z
3
;
 draw
 z
1
-
-
z
2
-
-
z
4
-
-
z
3
;
 % diagonals (linked)
514endchar
;
515
516beginpunkchar
(
730
,
13
,
0
,
0
)
;
 % Scandinavian loop, for \AA\ and \aa (ring)
517z
0
=
(
.5
w
,
.66
h
)
;
 % point $z^2$ of lowercase A
518z
1
=
(
.5
w
,
.9
h
)
;
 draw
 z
0
{
z
0
-
(
1.5
u
,
0
)
}
.
.
z
1.
.
{
(
w
-1.5
u
,
0
)
-
z
0
}
z
0
;
 % loop
519endchar
;
520
521beginpunkchar
(
184
,
13
,
.5
,
.5
)
;
 % Cedilla, for \c c
522z
1
=
(
.6
w
,
0
)
;
 z
2
=
pp
(
.6
w
,
-.1
h
)
;
 z
3
=
pp
(
2.5
u
,
-.1
h
)
;
523pd
 z
3
;
 draw
 z
1
-
-
z
2
-
-
z
3
;
 % stroke
524endchar
;
525
526initialize_punk_lower
 ;
527
528beginpunkchar
(
305
,
5
,
1
,
2
)
;
 % dotless I
529z
1
=
pp
(
.5
w
,
0
)
;
 z
2
=
(
.5
w
,
1
/
3
h
)
;
 z
3
=
(
.5
w
,
2
/
3
h
)
;
 z
4
=
(
.5
w
,
h
)
;
530pd
 z
1
;
 pd
 z
4
;
 draw
 flex
(
z
1
,
z
2
,
z
3
,
z
4
)
;
  % stem
531endchar
;
532
533beginpunkchar
(
567
,
9
,
1
,
2
)
;
 % dotless J
534z
1
=
pp
(
w
-2
u
,
h
)
;
 z
2
=
pp
(
w
-2
u
,
-.1
h
)
;
 z
3
=
pp
(
u
,
0
)
;
535pd
 z
1
;
 pd
 z
3
;
 draw
 z
1
-
-
z
2
-
-
z
3
;
 % arc
536endchar
;
537
538beginpunkchar
(
223
,
18
,
.3
,
1
)
;
 % German SS
539z
1
=
pp
(
.5
w
-
u
,
.9
h
)
;
 z
2
=
pp
(
1
/
3
w
,
h
)
;
 z
3
=
pp
(
u
,
.7
h
)
;
 z
4
=
.6
[
z
6
,
z
2
]
;
540z
5
=
pp
(
.5
w
,
.35
h
)
;
 z
6
=
pp
(
1
/
3
w
,
u
)
;
 z
7
=
pp
(
u
,
.2
h
)
;
541pd
 z
1
;
 pd
 z
7
;
 draw
 z
1
-
-
z
2.
.
.
z
3.
.
z
4.
.
z
5.
.
.
z
6
-
-
z
7
;
  % left stroke
542for
 i
=
1
 upto
 7
:
 z
[
i
+10
]
=
pp
(
z
[
i
]
 shifted
 (
.5
w
-
u
,
0
)
)
;
 endfor
543pd
 z
11
;
 pd
 z
17
;
 draw
 z
11
-
-
z
12.
.
.
z
13.
.
z
14.
.
z
15.
.
.
z
16
-
-
z
17
;
 % right stroke
544endchar
;
545
546beginpunkchar
(
"
a
"
,
13
,
1
,
2
)
;
547z
1
=
pp
(
1.5
u
,
0
)
;
 z
2
=
(
.5
w
,
1.1
h
)
;
 z
3
=
pp
(
w
-1.5
u
,
0
)
;
548pd
 z
1
;
 pd
 z
3
;
 draw
 z
1
-
-
z
2
-
-
z
3
;
  % left and right diagonals
549z
4
=
pp
 .3
[
z
1
,
z
2
]
;
 z
5
=
pp
 .3
[
z
3
,
z
2
]
;
 pd
 z
4
;
 pd
 z
5
;
 draw
 z
4
-
-
z
5
;
 % crossbar
550endchar
;
551
552beginpunkchar
(
"
b
"
,
12
,
1
,
1
)
;
553z
1
=
pp
(
2
u
,
0
)
;
 z
2
=
pp
(
2
u
,
.6
h
)
;
 z
3
=
pp
(
2
u
,
h
)
;
 pd
 z
1
;
 pd
 z
3
;
 draw
 z
1
-
-
z
3
;
 % stem
554z
1.5
=
pp
(
w
-
u
,
.5
y
2
)
;
 z
2.5
=
pp
(
w
-
u
,
.5
[
y
2
,
y
3
]
)
;
 draw
 z
2
-
-
z
2.5
-
-
z
3
;
  % upper lobe
555draw
 flex
(
z
2
,
z
1.5
,
z
1
)
;
 % lower lobe
556endchar
;
557
558beginpunkchar
(
"
c
"
,
13
,
1
,
2
)
;
559z
1
=
pp
(
w
-2
u
,
.8
h
)
;
 z
2
=
pp
(
.6
w
,
h
)
;
 z
3
=
pp
(
u
,
.5
h
)
;
 z
4
=
(
.6
w
,
0
)
;
 z
5
=
(
w
-2
u
,
.2
h
)
;
560pd
 z
1
;
 pd
 z
5
;
 draw
 z
1.
.
z
2.
.
z
3.
.
z
4.
.
z
5
;
  % arc
561endchar
;
562
563beginpunkchar
(
"
d
"
,
14
,
1
,
2
)
;
564z
1
=
pp
(
2
u
,
0
)
;
 z
2
=
pp
(
2
u
,
h
)
;
 z
3
=
pp
(
w
-
u
,
.6
h
)
;
565pd
 z
1
;
 pd
 z
2
;
 draw
 flex
(
z
1
,
z
3
,
z
2
)
;
 % lobe
566draw
 z
1
-
-
z
2
;
  % stem
567endchar
;
568
569beginpunkchar
(
"
e
"
,
12
,
.5
,
1
)
;
570z
1
=
pp
(
2
u
,
0
)
;
 z
2
=
pp
(
2
u
,
h
)
;
 z
3
=
pp
(
w
-2.5
u
,
h
)
;
 z
4
=
pp
(
w
-2
u
,
0
)
;
571pd
 z
3
;
 pd
 z
4
;
 draw
 z
4
-
-
z
1
-
-
z
2
-
-
z
3
;
 % stem and arms
572z
5
=
pp
(
2
u
,
.6
h
)
;
 z
6
=
pp
(
w
-3
u
,
.6
h
)
;
 pd
 z
5
;
 pd
 z
6
;
 draw
 z
5
-
-
z
6
;
  % crossbar
573endchar
;
574
575beginpunkchar
(
"
f
"
,
12
,
.5
,
2
)
;
576z
1
=
pp
(
2
u
,
0
)
;
 z
2
=
pp
(
2
u
,
h
)
;
 z
3
=
pp
(
w
-2
u
,
h
)
;
577pd
 z
1
;
 pd
 z
3
;
 draw
 z
1
-
-
z
2
-
-
z
3
;
  % stem and arm
578z
5
=
pp
(
2
u
,
.6
h
)
;
 z
6
=
pp
(
w
-3
u
,
.6
h
)
;
 z
4
=
pp
 .5
[
z
5
,
z
6
]
-
(
0
,
.1
h
)
;
579pd
 z
5
;
 pd
 z
6
;
 draw
 flex
 (
z
5
,
z
4
,
z
6
)
;
 % crossbar
580endchar
;
581
582beginpunkchar
(
"
g
"
,
13
,
.5
,
.5
)
;
583z
1
=
pp
(
w
-2
u
,
.8
h
)
;
 z
2
=
pp
(
.6
w
,
h
)
;
 z
3
=
pp
(
u
,
.5
h
)
;
 z
4
=
pp
(
.6
w
,
0
)
;
 z
5
=
(
w
-2
u
,
0
)
;
584pd
 z
1
;
 draw
 z
1.
.
z
2.
.
z
3.
.
z
4
-
-
-
z
5
;
  % arc
585z
6
=
pp
(
.5
[
u
,
x
5
]
,
.4
h
)
;
 pd
 z
6
;
 pd
 z
5
;
 draw
 z
6
--
(
pp
(
x
5
,
y
6
)
)
-
-
z
5
;
 % spur
586endchar
;
587
588beginpunkchar
(
"
h
"
,
14
,
1
,
.5
)
;
589z
1
=
pp
(
2
u
,
0
)
;
 z
2
=
pp
(
2
u
,
h
)
;
 z
3
=
pp
(
w
-2
u
,
0
)
;
 z
4
=
pp
(
w
-2
u
,
h
)
;
590z
5
=
pp
(
2
u
,
.6
h
)
;
 z
6
=
pp
(
w
-2
u
,
.6
h
)
;
591pd
 z
1
;
 pd
 z
2
;
 pd
 z
3
;
 pd
 z
4
;
 draw
 z
1
-
-
z
2
;
 draw
 flex
(
z
3
,
z
6
,
z
4
)
;
 % stems
592pd
 z
5
;
 draw
 z
5
-
-
z
6
;
  % crossbar
593endchar
;
594
595% beginpunkchar("i",5,1,2);
596% z1=pp(.5w,0); z2=(.5w,1/3h); z3=(.5w,2/3h); z4=(.5w,h);
597% pd z1; pd z4; draw flex(z1,z2,z3,z4);  % stem
598% endchar;
599
600% beginpunkchar("i",9,1,2);
601%     z1=pp(.5w,0); z2=(.5w,.1h); z3=(.5w,2/3h); z4=(.5w,h);
602%     pd z1; pd z4; draw flex(z1,z2,z3,z4) withcolor red;  % stem
603% endchar;
604
605beginpunkchar
(
"
i
"
,
9
,
1
,
2
)
;
606z
1
=
pp
(
.5
w
,
0
)
;
 z
4
=
(
.5
w
,
h
)
;
607pd
 z
1
;
 pd
 z
4
;
 draw
 z
1
-
-
z
4
;
  % stem
608endchar
;
609
610beginpunkchar
(
"
j
"
,
9
,
1
,
2
)
;
611z
1
=
pp
(
w
-2
u
,
h
)
;
 z
2
=
pp
(
w
-2
u
,
-.1
h
)
;
 z
3
=
pp
(
u
,
0
)
;
612pd
 z
1
;
 pd
 z
3
;
 draw
 z
1
-
-
z
2
-
-
z
3
;
 % arc
613endchar
;
614
615beginpunkchar
(
"
k
"
,
14
,
1
,
2
)
;
616z
1
=
pp
(
2
u
,
0
)
;
 z
2
=
pp
(
2
u
,
h
)
;
 z
3
=
pp
(
2
u
,
1
/
3
h
)
;
 z
4
=
pp
(
w
-1.5
u
,
h
)
;
617pd
 z
1
;
 pd
 z
2
;
 draw
 z
1
-
-
z
2
;
  % stem
618pd
 z
3
;
 pd
 z
4
;
 draw
 z
3
-
-
z
4
;
  % upper diagonal
619z
6
=
pp
(
w
-
u
,
0
)
;
 z
5
=
1
/
3
[
z
3
,
z
4
]
;
620pd
 z
6
;
 draw
 flex
(
z
5
,
.8
[
z
1
,
2
/
3
[
z
5
,
z
6
]
 ]
,
z
6
)
;
% lower diagonal
621endchar
;
622
623beginpunkchar
(
"
l
"
,
11
,
1
,
2
)
;
624z
1
=
pp
(
2
u
,
h
)
;
 z
2
=
pp
(
2
u
,
0
)
;
 z
3
=
pp
(
w
-1.5
u
,
0
)
;
625pd
 z
1
;
 pd
 z
3
;
 draw
 z
1
-
-
z
2
-
-
z
3
;
  % stem and arm
626endchar
;
627
628beginpunkchar
(
"
m
"
,
17
,
.5
,
2
)
;
629z
1
=
pp
(
2
u
,
0
)
;
 z
2
=
pp
(
2
u
,
h
)
;
 z
3
=
pp
(
.5
w
,
0
)
;
 z
4
=
pp
(
w
-2
u
,
h
)
;
 z
5
=
pp
(
w
-2
u
,
0
)
;
630pd
 z
1
;
 pd
 z
5
;
 draw
 z
1
-
-
z
2
-
-
z
3
-
-
z
4
-
-
z
5
;
 % stems and diagonals
631endchar
;
632
633beginpunkchar
(
"
n
"
,
13
,
.75
,
2
)
;
634z
1
=
pp
(
2
u
,
0
)
;
 z
2
=
pp
(
2
u
,
h
)
;
 z
3
=
pp
(
w
-2
u
,
0
)
;
 z
4
=
pp
(
w
-2
u
,
h
)
;
635pd
 z
1
;
 pd
 z
4
;
 draw
 z
1
-
-
z
2
-
-
z
3
-
-
z
4
;
 % stems and diagonals
636endchar
;
637
638beginpunkchar
(
"
o
"
,
12
,
.5
,
2
)
;
639z
1
=
pp
(
.5
w
,
h
)
;
 z
2
=
pp
(
u
,
.55
h
)
;
 z
3
=
pp
(
.5
w
,
0
)
;
 z
4
=
pp
(
w
-
u
,
.55
h
)
;
640pd
 z
1
;
 draw
 z
1
{
left
}
.
.
z
2.
.
z
3.
.
z
4.
.
z
1
;
 % bowl
641endchar
;
642
643beginpunkchar
(
"
p
"
,
13
,
1
,
2
)
;
644z
1
=
pp
(
2
u
,
0
)
;
 z
2
=
pp
(
2
u
,
1.1
h
)
;
 z
3
=
pp
(
2
u
,
.5
h
)
;
 z
4
=
pp
(
w
,
.6
[
y
3
,
y
2
]
)
;
645pd
 z
1
;
 pd
 z
3
;
 draw
 z
1
-
-
z
2
-
-
z
4
-
-
z
3
;
 % stem and bowl
646endchar
;
647
648beginpunkchar
(
"
q
"
,
14
,
.5
,
2
)
;
649z
1
=
pp
(
.5
w
,
h
)
;
 z
2
=
pp
(
u
,
.55
h
)
;
 z
3
=
pp
(
.5
w
,
0
)
;
 z
4
=
pp
(
w
-
u
,
.55
h
)
;
650pd
 z
1
;
 draw
 z
1
{
curl
 2
}
.
.
z
2.
.
z
3.
.
z
4.
.
z
1
;
 % bowl
651z
5
=
pp
(
.4
w
,
.2
h
)
;
 z
6
=
pp
(
w
-
u
,
-.1
h
)
;
 z
7
=
pp
(
.5
[
x
5
,
x
6
]
,
-.2
h
)
;
652pd
 z
5
;
 pd
 z
6
;
 draw
 z
5
-
-
z
7
-
-
z
6
;
  % tail
653endchar
;
654
655% beginpunkchar("r",16,1,2);
656beginpunkchar
(
"
r
"
,
13
,
1
,
2
)
;
657z
1
=
pp
(
2
u
,
0
)
;
 z
2
=
pp
(
2
u
,
h
)
;
 z
3
=
pp
(
w
-
u
,
.6
[
y
2
,
y
4
]
)
;
 z
4
=
pp
(
2
u
,
.5
h
)
;
 z
5
=
pp
(
w
-1.5
u
,
0
)
;
658pd
 z
1
;
 pd
 z
2
;
 pd
 z
5
;
 draw
 z
1
-
-
flex
(
z
2
,
z
3
,
z
4
)
-
-
z
5
;
 % stem, bowl, and diagonal
659endchar
;
660
661beginpunkchar
(
"
s
"
,
11
,
.3
,
1
)
;
662z
1
=
pp
(
w
-2
u
,
.9
h
)
;
 z
2
=
pp
(
.5
w
,
h
)
;
 z
3
=
pp
(
u
,
.7
h
)
;
 z
4
=
.6
[
z
6
,
z
2
]
;
663z
5
=
pp
(
w
-
u
,
.35
h
)
;
 z
6
=
pp
(
.5
w
,
u
)
;
 z
7
=
pp
(
u
,
.2
h
)
;
664pd
 z
1
;
 pd
 z
7
;
 draw
 z
1
-
-
z
2.
.
.
z
3.
.
z
4.
.
z
5.
.
.
z
6
-
-
z
7
;
  % stroke
665endchar
;
666
667beginpunkchar
(
"
t
"
,
13
,
.75
,
2
)
;
668z
1
=
pp
(
u
,
h
)
;
 z
2
=
pp
(
w
-
u
,
h
)
;
 z
3
=
pp
(
.5
w
,
0
)
;
669pd
 z
1
;
 pd
 z
2
;
 pd
 z
3
;
 draw
 z
1
-
-
z
2
;
  % arms
670draw
 .5
[
z
1
,
z
2
]
-
-
z
3
;
  % stem
671endchar
;
672
673beginpunkchar
(
"
u
"
,
13
,
.3
,
2
)
;
674z
1
=
pp
(
2
u
,
h
)
;
 z
2
=
pp
(
2
u
,
.2
h
)
;
 z
3
=
pp
(
.5
w
,
0
)
;
 z
4
=
pp
(
w
-2
u
,
.2
h
)
;
 z
5
=
pp
(
w
-2
u
,
h
)
;
675pd
 z
1
;
 pd
 z
5
;
 draw
 z
1
-
-
-
z
2.
.
.
z
3
{
z
4
-
z
2
}
.
.
.
z
4
-
-
-
z
5
;
 % stroke
676endchar
;
677
678beginpunkchar
(
"
v
"
,
13
,
1
,
2
)
;
679z
1
=
pp
(
1.5
u
,
h
)
;
 z
2
=
pp
(
.5
w
,
0
)
;
 z
3
=
pp
(
w
-1.5
u
,
h
)
;
680pd
 z
1
;
 pd
 z
3
;
 draw
 z
1
-
-
z
2
-
-
z
3
;
  % diagonals
681endchar
;
682
683beginpunkchar
(
"
w
"
,
18
,
1
,
2
)
;
684z
1
=
pp
(
1.5
u
,
h
)
;
 z
2
=
pp
(
.5
[
x
1
,
x
3
]
,
0
)
;
 z
3
=
pp
(
.5
w
,
.8
h
)
;
 z
4
=
pp
(
.5
[
x
3
,
x
5
]
,
0
)
;
685z
5
=
pp
(
w
-1.5
u
,
h
)
;
686pd
 z
1
;
 pd
 z
5
;
 draw
 z
1
-
-
z
2
-
-
z
3
-
-
z
4
-
-
z
5
;
  % diagonals
687endchar
;
688
689beginpunkchar
(
"
x
"
,
13
,
1
,
1
)
;
690z
1
=
pp
(
1.5
u
,
h
)
;
 z
2
=
pp
(
w
-1.5
u
,
0
)
;
 z
3
=
pp
(
1.5
u
,
0
)
;
 z
4
=
pp
(
w
-2.5
u
,
h
)
;
691pd
 z
1
;
 pd
 z
2
;
 draw
 z
1
-
-
z
2
;
  % main diagonal
692pd
 z
3
;
 pd
 z
4
;
 draw
 z
3
-
-
z
4
;
  % cross diagonal
693endchar
;
694
695beginpunkchar
(
"
y
"
,
13
,
1
,
2
)
;
696z
1
=
pp
(
1.5
u
,
h
)
;
 z
2
=
pp
(
w
-1.5
u
,
h
)
;
 z
3
=
pp
(
.5
w
,
.5
h
)
;
 z
4
=
pp
(
.5
w
,
0
)
;
697pd
 z
1
;
 pd
 z
2
;
 pd
 z
4
;
 draw
 z
1
-
-
z
3
-
-
z
4
;
 % stem and left diagonal
698draw
 z
2
-
-
z
3
;
  % right diagonal
699endchar
;
700
701beginpunkchar
(
"
z
"
,
11
,
1
,
2
)
;
702z
1
=
pp
(
1.5
u
,
h
)
;
 z
2
=
pp
(
w
-2.5
u
,
h
)
;
 z
3
=
pp
(
1.5
u
,
0
)
;
 z
4
=
pp
(
w
-1.5
u
,
0
)
;
703pd
 z
1
;
 pd
 z
4
;
 draw
 z
1
-
-
z
2
-
-
z
3
-
-
z
4
;
  % diagonals
704endchar
;
705
706beginpunkchar
(
230
,
16
,
1
,
2
)
;
  % \ae
707z
1
=
pp
(
1.5
u
,
0
)
;
 z
2
=
pp
(
.6
w
,
h
)
;
 z
3
=
pp
(
w
-1.5
u
,
h
)
;
708pd
 z
1
;
 pd
 z
3
;
 draw
 z
1
-
-
z
2
-
-
z
3
;
  % left diagonal and upper arm
709z
4
=
pp
 .3
[
z
1
,
z
2
]
;
 z
5
=
pp
(
.6
w
,
0
)
;
 z
6
=
pp
(
w
-2
u
,
.3
h
)
;
710pd
 z
4
;
 pd
 z
6
;
 draw
 z
4
-
-
z
6
;
 % crossbar
711z
7
=
pp
(
w
-
u
,
0
)
;
 pd
 z
2
;
 pd
 z
7
;
 draw
 z
2
-
-
z
5
-
-
z
7
;
 % stem and lower arm
712endchar
;
713
714beginpunkchar
(
339
,
18
,
1
,
2
)
;
 % \oe
715z
1
=
pp
(
.5
w
,
h
)
;
 z
2
=
pp
(
u
,
.4
h
)
;
 z
3
=
pp
(
.5
w
,
0
)
;
716pd
 z
1
;
 draw
 z
1.
.
z
2.
.
{
right
}
z
3
;
 % bowl
717z
4
=
pp
(
w
-1.5
u
,
h
)
;
 z
5
=
pp
(
w
-2
u
,
.4
h
)
;
 z
6
=
pp
(
w
-
u
,
0
)
;
718pd
 z
4
;
 pd
 z
6
;
 draw
 z
4
-
-
z
1
-
-
z
3
-
-
z
6
;
 % arms and stem
719pd
 z
5
;
 draw
 z
5
--
.4
[
z
3
,
z
1
]
;
  % crossbar
720endchar
;
721
722beginpunkchar
(
248
,
14
,
1
,
1
)
;
 % \o
723z
1
=
pp
(
.5
w
,
h
)
;
 z
2
=
pp
(
u
,
.5
h
)
;
 z
3
=
pp
(
.5
w
,
0
)
;
 z
4
=
pp
(
w
-
u
,
.5
h
)
;
724z
5
=
pp
(
w
-2
u
,
1.1
h
)
;
 z
6
=
pp
(
2
u
,
-.1
h
)
;
725pd
 z
1
;
 pd
 z
6
;
 draw
 z
1.
.
z
2.
.
z
3.
.
z
4.
.
z
5
-
-
z
6
;
  % bowl and diagonal
726endchar
;
727
728revert_punk_lower
;
729
730beginpunkchar
(
"
_
"
,
12
,
.5
,
.5
)
;
 % _
731z
1
=
pp
(
0
,
-.2
h
)
;
 z
2
=
pp
(
w
,
-.2
h
)
;
 pd
 z
1
;
 pd
 z
2
;
 draw
 z
1
-
-
z
2
;
  % bar
732endchar
;
733
734beginpunkchar
(
"
^
"
,
12
,
1
,
.5
)
;
 %
735z
1
=
pp
(
.5
w
,
h
)
;
 z
2
=
pp
(
1.5
u
,
.6
h
)
;
 z
3
=
pp
(
w
-1.5
u
,
.6
h
)
;
736pd
 z
2
;
 pd
 z
3
;
 draw
 z
2
-
-
z
1
-
-
z
3
;
737endchar
;
738
Source Browser ?
