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 ;
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 ;
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 ;
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 ;
12draw flex ( z 2 , z 1.5 , z 1 ) ;
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 ;
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 ) ;
23draw z 1 z 2 ;
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 ;
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 ;
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 ;
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 ) ;
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 ;
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 ;
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 ) ;
49pd z 5 ; draw z 5 z 6 ;
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 ) ;
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 ;
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 ;
65pd z 3 ; pd z 4 ; draw z 3 z 4 ;
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 ) ;
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 ;
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 ;
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 ;
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 ;
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 ;
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 ;
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 ;
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 ;
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 ;
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 ;
116draw .5 [ z 1 , z 2 ] z 3 ;
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 ;
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 ;
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 ;
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 ;
138pd z 3 ; pd z 4 ; draw z 3 z 4 ;
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 ;
144draw z 2 z 3 ;
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 ;
150endchar ;
151
152beginpunkchar ( 198 , 16 , 1 , 2 ) ;
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 ;
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 ;
157z 7 = pp ( w u , 0 ) ; pd z 2 ; pd z 7 ; draw z 2 z 5 z 7 ;
158endchar ;
159
160beginpunkchar ( 338 , 18 , 1 , 2 ) ;
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 ;
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 ;
165pd z 5 ; draw z 5 -- .4 [ z 3 , z 1 ] ;
166endchar ;
167
168beginpunkchar ( 216 , 14 , 1 , 1 ) ;
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 ;
172endchar ;
173
174beginpunkchar ( 915 , 11 , 1 , 2 ) ;
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 ;
177endchar ;
178
179beginpunkchar ( 916 , 15 , 1 , 2 ) ;
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 ;
182endchar ;
183
184beginpunkchar ( 920 , 15 , .5 , 2 ) ;
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 ;
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 ;
188endchar ;
189
190beginpunkchar ( 923 , 12 , 1 , 2 ) ;
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 ;
193endchar ;
194
195beginpunkchar ( 926 , 12 , 1 , 1 ) ;
196z 1 = pp ( u , h ) ; z 2 = pp ( w u , h ) ; pd z 1 ; pd z 2 ; draw z 1 z 2 ;
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 ;
198z 5 = pp ( u , 0 ) ; z 6 = pp ( w u , 0 ) ; pd z 5 ; pd z 6 ; draw z 5 z 6 ;
199endchar ;
200
201beginpunkchar ( 928 , 13 , 1 , .5 ) ;
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 ;
204endchar ;
205
206beginpunkchar ( 931 , 13 , 1 , 1 ) ;
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 ;
209endchar ;
210
211beginpunkchar ( 933 , 15 , 1 , .5 ) ;
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 ;
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 ;
216endchar ;
217
218beginpunkchar ( 934 , 13 , 1 , 2 ) ;
219z 1 = pp ( .5 w , h ) ; z 2 = pp ( .5 w , 0 ) ; pd z 1 ; pd z 2 ; draw z 1 z 2 ;
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 ;
222endchar ;
223
224beginpunkchar ( 936 , 14 , 1 , 1 ) ;
225z 1 = pp ( .5 w , h ) ; z 2 = pp ( .5 w , 0 ) ; pd z 1 ; pd z 2 ; draw z 1 z 2 ;
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 ;
228endchar ;
229
230beginpunkchar ( 937 , 13 , 1 , 2 ) ;
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 ;
234endchar ;
235
236beginpunkchar ( " . " , 5 , 1 , 2 ) ;
237pd pp ( .5 w , 0 ) ;
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 ;
243endchar ;
244
245beginpunkchar ( " : " , 5 , 1 , .5 ) ;
246pd pp ( .5 w , 0 ) ; pd pp ( .5 w , .4 h ) ;
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 ;
252pd pp ( .5 w , .4 h ) ;
253endchar ;
254
255beginpunkchar ( " ! " , 5 , .5 , .5 ) ;
256pd pp ( .5 w , 0 ) ;
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 ;
258endchar ;
259
260beginpunkchar ( 161 , 5 , .5 , .5 ) ;
261pd pp ( .5 w , .9 h ) ;
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 ;
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 ;
268pd pp ( .5 w , 0 ) ;
269endchar ;
270
271beginpunkchar ( 191 , 9 , 1 , .5 ) ;
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 ;
274pd pp ( .5 w , .9 h ) ;
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 ;
280draw z 1 -- .5 [ z 2 , z 3 ] ; pd z 6 ; draw z 6 -- .6 [ z 3 , z 5 ] ;
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 ;
287z 8 = z 2 ( 0 , .1 h ) ; pd z 8 ; draw z 8 z 6 ;
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 ;
294pd z 5 ; draw z 5. . z 6. . z 7. . z 8. . z 5 ;
295z 9 = pp ( w -3 u , 1.1 h ) ; z 0 = pp ( 3 u , -.1 h ) ; pd z 0 ; draw z 9 z 0 ;
296draw z 1 { z 5 z 1 } . . z 9 ;
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 ;
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 ;
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 ;
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 ;
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 ;
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 ;
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 ;
325endchar ;
326
327beginpunkchar ( 39 , 5 , .5 , 1.5 ) ;
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 ;
330endchar ;
331
332beginpunkchar ( 34 , 9 , 1 , 1.5 ) ;
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 ;
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 ;
345endchar ;
346
347beginpunkchar ( 8220 , 9 , .3 , .5 ) ;
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 ;
350endchar ;
351
352beginpunkchar ( 8221 , 9 , .3 , .5 ) ;
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 ;
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 ;
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 ;
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 ;
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 ;
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 ;
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 ;
384endchar ;
385
386beginpunkchar ( " { " , 10 , .5 , .5 ) ;
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 ) ;
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 ;
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 ;
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 ;
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 ;
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 ;
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 ;
412endchar ;
413
414beginpunkchar ( " \ " , 9 , 1 , 1 ) ;
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 ;
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 ;
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 ;
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 ;
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 ;
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 ;
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 ;
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 ;
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 } ;
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 ;
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 ;
470endchar ;
471
472beginpunkchar ( 96 , 9 , 1 , 1 ) ;
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 ;
474endchar ;
475
476beginpunkchar ( 180 , 9 , 1 , 1 ) ;
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 ;
478endchar ;
479
480beginpunkchar ( 710 , 13 , 1 , 1 ) ;
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 ;
483endchar ;
484
485beginpunkchar ( 711 , 13 , 1 , 1 ) ;
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 ;
488endchar ;
489
490beginpunkchar ( 728 , 11 , 1 , 1 ) ;
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 ) ;
493endchar ;
494
495beginpunkchar ( 175 , 12 , 1 , 1 ) ;
496z 1 = pp ( u , .8 h ) ; z 2 = pp ( w u , .8 h ) ; pd z 1 ; pd z 2 ; draw z 1 z 2 ;
497endchar ;
498
499beginpunkchar ( 729 , 5 , 1 , 1 ) ;
500pd pp ( .5 w , .9 h ) ;
501endchar ;
502
503beginpunkchar ( 168 , 13 , 1 , 1 ) ;
504pd pp ( 1 5 w , .9 h ) ; pd pp ( 4 5 w , .9 h ) ;
505endchar ;
506
507beginpunkchar ( 732 , 13 , 1 , 1 ) ;
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 ;
509endchar ;
510
511beginpunkchar ( 733 , 13 , 1 , 1 ) ;
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 ;
514endchar ;
515
516beginpunkchar ( 730 , 13 , 0 , 0 ) ;
517z 0 = ( .5 w , .66 h ) ;
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 ;
519endchar ;
520
521beginpunkchar ( 184 , 13 , .5 , .5 ) ;
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 ;
524endchar ;
525
526initialize_punk_lower ;
527
528beginpunkchar ( 305 , 5 , 1 , 2 ) ;
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 ) ;
531endchar ;
532
533beginpunkchar ( 567 , 9 , 1 , 2 ) ;
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 ;
536endchar ;
537
538beginpunkchar ( 223 , 18 , .3 , 1 ) ;
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 ;
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 ;
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 ;
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 ;
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 ;
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 ;
555draw flex ( z 2 , z 1.5 , z 1 ) ;
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 ;
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 ) ;
566draw z 1 z 2 ;
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 ;
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 ;
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 ;
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 ) ;
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 ;
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 ;
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 ) ;
592pd z 5 ; draw z 5 z 6 ;
593endchar ;
594
595
596
597
598
599
600
601
602
603
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 ;
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 ;
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 ;
618pd z 3 ; pd z 4 ; draw z 3 z 4 ;
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 ) ;
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 ;
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 ;
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 ;
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 ;
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 ;
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 ;
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 ;
653endchar ;
654
655
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 ;
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 ;
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 ;
670draw .5 [ z 1 , z 2 ] z 3 ;
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 ;
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 ;
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 ;
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 ;
692pd z 3 ; pd z 4 ; draw z 3 z 4 ;
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 ;
698draw z 2 z 3 ;
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 ;
704endchar ;
705
706beginpunkchar ( 230 , 16 , 1 , 2 ) ;
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 ;
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 ;
711z 7 = pp ( w u , 0 ) ; pd z 2 ; pd z 7 ; draw z 2 z 5 z 7 ;
712endchar ;
713
714beginpunkchar ( 339 , 18 , 1 , 2 ) ;
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 ;
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 ;
719pd z 5 ; draw z 5 -- .4 [ z 3 , z 1 ] ;
720endchar ;
721
722beginpunkchar ( 248 , 14 , 1 , 1 ) ;
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 ;
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 ;
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 |