[wadalabfont-kit] / lisp / test / hiratest.l  

Annotation of /lisp/test/hiratest.l

Parent Directory | Revision Log

Revision: 1.1 - (view) (download)

1 : ktanaka 1.1 ;(setq あ '(((100 100) (300 300))
2 :     ; ((hira1 (0 1) (16 40)))))
3 :     ;(setq い '(((100 100) (300 300))
4 :     ; ((hira1 (0 1) (0 40)))))
5 :     ;(setq う '(((100 100) (300 300))
6 :     ; ((hira1 (0 1) (16 0)))))
7 :     ;(setq え '(((100 100) (200 150) (250 200))
8 :     ; ((hira2 (0 1 2) (8 16 24)))))
9 :     ;(setq お '(((100 100) (200 150) (250 200))
10 :     ; ((hira2 (0 1 2) (0 16 0)))))
11 :     ;(setq か '(((100 100) (200 150) (250 200) (300 300) (250 350))
12 :     ; ((hira2 (0 1 2 3 4) (8 16 24 32 40)))))
13 :     ;(setq き '(((100 100) (200 150) (250 200) (300 300) (250 350))
14 :     ; ((hira2 (0 1 2 3 4) (0 16 24 32 0)))))
15 :     ;(setq く '(((100 100) (200 150) (250 200))
16 :     ; ((hira3 (0 1 2) (8 16 24)))))
17 :     ;(setq け '(((100 100) (200 150) (250 200))
18 :     ; ((hira3 (0 1 2) (0 16 0)))))
19 :     ;(setq こ '(((100 100) (200 150) (250 200) (300 300) (250 350))
20 :     ; ((hira3 (0 1 2 3 4) (8 16 24 32 40)))))
21 :     ;(setq さ '(((100 100) (200 150) (250 200) (300 300) (250 350))
22 :     ; ((hira3 (0 1 2 3 4) (0 16 24 32 0)))))
23 :     ;(setq さ '(((100 100) (200 150) (250 200) (300 300) (250 350) (200 300))
24 :     ; ((hira3 (0 1 2 3 4 5) (40 20 30 10 0 0)))))
25 :    
26 :     ;(filltest あ 'mincho)
27 :     ;(filltest い 'mincho)
28 :     ;(filltest う 'mincho)
29 :     ;(filltest え 'mincho)
30 :     ;(filltest お 'mincho)
31 :     ;(filltest か 'mincho)
32 :     ;(filltest き 'mincho)
33 :     ;(filltest く 'mincho)
34 :     ;(filltest け 'mincho)
35 :     ;(filltest こ 'mincho)
36 :     ;(filltest さ 'mincho)
37 :    
38 :     ;(out-to-ps-all '(あ い う え お か き く け こ さ) 'mincho 'foo.ps)
39 :    
40 :     (setq あ
41 :     '((
42 :     (46 93)(112 121)(201 110)(276 78) ;0 1 2 3
43 :     (123 33)(153 47) ;4 5
44 :     (139 135)(148 240)(202 342) ;6 7 8
45 :     (215 140)(244 164) ;9 10
46 :     (222 229)(141 316)(83 326)(63 299) ;11 12 13 14
47 :     (100 220)(210 171)(335 225)(322 320)(192 370) ;15 16 17 18 19
48 :     )
49 :     (
50 :     (hira3 (0 1 2 3)(0 12 16 16))
51 :     (hira1 (4 5)(12 16))
52 :     (hira3 (5 6 7 8)(16 12 12 16))
53 :     (hira1 (9 10)(8 12))
54 :     (hira3 (10 11 12 13 14)(16 12 12 16 8))
55 :     (hira3 (14 15 16 17 18 19)(16 16 12 16 12 0))
56 :     )))
57 :     ;(filltest あ 'mincho)
58 :    
59 :     (setq い0
60 :     '((
61 :     (75 43)(102 73) ;0 1
62 :     (68 146)(67 271) ;2 3
63 :     (134 333)(172 204) ;4 5
64 :     (248 136)(317 155)(338 226)(330 302) ;6 7 8 9
65 :     )
66 :     (
67 :     (hira1 (0 1)(8 12))
68 :     (hira3 (1 2 3 4)(12 16 12 16))
69 :     (hira1 (4 5)(16 0))
70 :     (hira3 (6 7 8 9)(0 8 12 16))
71 :     )))
72 :     ;(filltest い0 'mincho)
73 :    
74 :     (setq い
75 :     '((
76 :     (75 43)(102 73) ;0 1
77 :     (68 146)(67 271) ;2 3
78 :     (134 333)(172 204) ;4 5
79 :     (248 136)(317 155)(338 226)(330 302) ;6 7 8 9
80 :     )
81 :     (
82 :     (hira1 (0 1)(8 12))
83 :     (hira3 (1 2 3 4)(12 16 12 16))
84 :     (hira3 (4 5 6 7 8 9)(16 0 0 8 12 16))
85 :     )))
86 :     ;(filltest い 'mincho)
87 :    
88 :     (setq う
89 :     '((
90 :     (130 25)(219 64)(283 66) ;0 1 2
91 :     (133 115)(92 157)(92 204)(128 202) ;3 4 5 6
92 :     (181 151)(292 139)(300 259)(125 369) ;7 8 9 10
93 :     )
94 :     (
95 :     (hira3 (0 1 2)(0 12 16))
96 :     (hira3 (2 3 4 5 6 7 8 9 10)(8 0 0 16 12 8 12 16 0))
97 :     )))
98 :     ;(filltest う 'mincho)
99 :    
100 :     (setq え
101 :     '((
102 :     (160 18)(209 54)(287 59) ;0 1 2
103 :     (163 105)(118 137)(102 173)(143 180)(259 124) ;3 4 5 6 7
104 :     (79 335) ;8
105 :     (160 265)(249 238) ;9 10
106 :     (229 311)(277 345)(369 324) ;11 12 13
107 :     )
108 :     (
109 :     (hira3 (0 1 2)(0 8 16))
110 :     (hira3 (2 3 4 5 6 7)(16 0 0 16 8 16))
111 :     (hira1 (7 8)(8 16))
112 :     (hira3 (8 9 10)(16 8 16))
113 :     (hira3 (10 11 12 13)(16 16 16 16))
114 :     )))
115 :    
116 :     ;(filltest え 'mincho)
117 :    
118 :     (setq お
119 :     '((
120 :     (45 122)(129 149)(223 116) ;0 1 2
121 :     (109 44)(152 57) ;3 4
122 :     (148 219)(148 359) ;5 6
123 :     (87 321) ;7
124 :     (35 311)(69 334) ;8 9
125 :     (229 197)(319 220)(293 319)(206 316)(190 263) ;10 11 12 13 14
126 :     (260 112)(340 132)(363 160) ;15 16 17
127 :     (308 156) ;18
128 :     )
129 :     (
130 :     (hira3 (0 1 2)(0 12 16))
131 :     (hira1 (3 4)(12 16))
132 :     (hira3 (4 5 6)(12 12 16))
133 :     (hira1 (6 7)(16 0))
134 :     (hira1 (8 9)(8 12))
135 :     (hira3 (9 10 11 12 13 14)(16 8 12 16 12 0))
136 :     (hira3 (15 16 17)(0 12 16))
137 :     (hira1 (17 18)(16 0))
138 :     )))
139 :    
140 :     ;(filltest お 'mincho)
141 :    
142 :     (setq か
143 :     '((
144 :     (28 166)(72 184)(184 126)(221 163)(205 317)(168 357) ;0 1 2 3 4 5
145 :     (121 312) ;6
146 :     (101 34)(135 51) ;7 8
147 :     (117 173)(65 353) ;9 10
148 :     (257 96)(324 176)(339 253) ;11 12 13
149 :     )
150 :     (
151 :     (hira3 (0 1 2 3 4 5)(0 16 8 12 16 16))
152 :     (hira1 (5 6)(16 0))
153 :     (hira1 (7 8)(12 12))
154 :     (hira3 (8 9 10)(16 12 16))
155 :     (hira3 (11 12 13)(0 12 16))
156 :     )))
157 :    
158 :     ;(filltest か 'mincho)
159 :    
160 :     (setq き
161 :     '((
162 :     (71 95)(204 111)(302 83) ;0 1 2
163 :     (98 147)(142 187)(253 183)(338 147) ;3 4 5 6
164 :     (229 114) ;7
165 :     (158 39)(198 45) ;8 9
166 :     (230 156)(325 279) ;10 11
167 :     (209 237)(107 263)(115 319)(201 349)(265 328) ;12 13 14 15 16
168 :     )
169 :     (
170 :     (hira3 (0 1 2)(0 12 16))
171 :     (hira3 (3 4 5 6)(0 8 12 16))
172 :     (hira1 (6 7)(16 0))
173 :     (hira1 (8 9)(12 12))
174 :     (hira3 (9 10 11)(16 12 16))
175 :     (hira3 (11 12 13 14 15 16)(16 6 8 12 16 16))
176 :     )))
177 :    
178 :     ;(filltest き 'mincho)
179 :    
180 :     (setq く0
181 :     '((
182 :     (251 18)(289 59) ;0 1
183 :     (97 182)(104 202)(232 270)(283 344) ;2 3 4 5
184 :     )
185 :     (
186 :     (hira1 (0 1)(12 12))
187 :     (hira3 (1 2 3 4 5)(16 12 12 16 16))
188 :     )))
189 :    
190 :     ;(filltest く0 'mincho)
191 :    
192 :     ;(out-to-ps-all '(あ い0 い う え お か き く0) 'mincho 'a.ps)
193 :     ;(out-to-ps-all '(あ い0 い う え お か き く け こ さ し す せ そ た) 'mincho 'a.ps)
194 :    
195 :     (setq く
196 :     '((
197 :     (251 18)(289 59) ;0 1
198 :     (97 182)(104 202) ;2 3
199 :     (232 270)(283 344) ;4 5
200 :     )
201 :     (
202 :     (hira1 (0 1)(12 16))
203 :     ; (hira3 (1 2 3)(16 12 12))
204 :     (hira1 (1 3)(16 12))
205 :     ; (hira3 (3 4 5)(12 16 16))
206 :     (hira3 (3 4 5)(12 16 24))
207 :     )))
208 :    
209 :     ;(filltest く 'mincho)
210 :    
211 :     ;(out-to-ps-all '(あ い0 い う え お か き く0 く) 'mincho 'a.ps)
212 :     ;(out-to-ps-all '(あ い0 い う え お か き く け こ さ し す せ そ た) 'mincho 'a.ps)
213 :    
214 :     (setq け
215 :     '((
216 :     (74 50)(108 86) ;0 1
217 :     (66 177)(69 286)(111 340) ;2 3 4
218 :     (116 248)(137 180) ;5 6
219 :     (164 134)(273 153)(370 111) ;7 8 9
220 :     (245 34)(285 45) ;10 11
221 :     (285 228)(248 325)(158 367) ;12 13 14
222 :     )
223 :     (
224 :     (hira1 (0 1)(12 12))
225 :     (hira3 (1 2 3 4)(16 12 12 16))
226 :     (hira3 (4 5 6)(16 12 0))
227 :     (hira3 (7 8 9)(0 12 16))
228 :     (hira1 (10 11)(12 12))
229 :     (hira3 (11 12 13 14)(16 16 12 0))
230 :     )))
231 :    
232 :     ;(filltest け 'mincho)
233 :    
234 :     (setq こ
235 :     '((
236 :     (79 68)(188 85)(297 66) ;0 1 2
237 :     (212 98)(156 141)(102 211)(89 297)(208 336)(354 306) ;3 4 5 6 7 8
238 :     )
239 :     (
240 :     (hira3 (0 1 2)(0 12 16))
241 :     (hira3 (2 3 4 5 6 7 8)(16 12 0 0 12 16 16))
242 :     )))
243 :    
244 :     ;(filltest こ 'mincho)
245 :    
246 :     (setq さ
247 :     '((
248 :     (81 108)(226 129)(330 85) ;0 1 2
249 :     (163 34)(213 39) ;3 4
250 :     (255 154)(332 253) ;5 6
251 :     (195 200)(109 231)(114 294)(214 330)(300 313) ;7 8 9 10 11
252 :     )
253 :     (
254 :     (hira3 (0 1 2)(0 12 16))
255 :     (hira1 (3 4)(12 12))
256 :     (hira3 (4 5 6)(16 12 16))
257 :     (hira3 (6 7 8 9 10 11)(16 6 8 12 16 16))
258 :     )))
259 :    
260 :     ;(filltest さ 'mincho)
261 :    
262 :     (setq し
263 :     '((
264 :     (101 23)(131 50) ;0 1
265 :     (80 270)(223 326)(305 262)(336 161) ;2 3 4 5
266 :     )
267 :     (
268 :     (hira1 (0 1)(12 12))
269 :     (hira3 (1 2 3 4 5)(16 12 16 12 0))
270 :     )))
271 :    
272 :     ;(filltest し 'mincho)
273 :    
274 :     (setq す
275 :     '((
276 :     (43 152)(88 174) ;0 1
277 :     (224 119)(365 105) ;2 3
278 :     (224 26)(261 38) ;4 5
279 :     (260 140)(254 236)(208 241) ;6 7 8
280 :     (191 195)(234 156)(286 189)(262 284)(143 364) ;9 10 11 12 13
281 :     (88 174)(261 38)(208 241)
282 :     )
283 :     (
284 :     (hira1 (0 1)(12 12))
285 :     (hira3 (14 2 3)(16 12 16))
286 :     (hira1 (4 5)(12 12))
287 :     (hira3 (15 6 7 8)(16 12 16 12))
288 :     (hira3 (16 9 10 11 12 13)(8 12 6 12 16 0))
289 :     )))
290 :    
291 :     ;(filltest す 'mincho)
292 :    
293 :     (setq せ
294 :     '((
295 :     (39 217)(82 241) ;0 1
296 :     (233 156)(364 134) ;2 3
297 :     (238 30)(278 41) ;4 5
298 :     (270 209)(256 256) ;6 7
299 :     (196 217) ;8
300 :     (100 74)(138 90) ;9 10
301 :     (137 177)(162 303)(213 343)(345 321) ;11 12 13 14
302 :     (82 241)(278 41)(256 256)(138 90)
303 :     )
304 :     (
305 :     (hira1 (0 1)(12 12))
306 :     (hira3 (15 2 3)(16 12 16))
307 :     (hira1 (4 5)(12 12))
308 :     (hira3 (16 6 7)(16 12 16))
309 :     (hira1 (17 8)(16 0))
310 :     (hira1 (9 10)(12 12))
311 :     (hira3 (18 11 12 13 14)(16 14 12 14 16))
312 :     )))
313 :    
314 :     ;(filltest せ 'mincho)
315 :    
316 :    
317 :     (setq そ
318 :     '((
319 :     (96 54)(132 83) ;0 1
320 :     (272 28) ;2
321 :     (281 40)(83 210) ;3 4
322 :     (73 218)(102 229) ;5 6
323 :     (215 174)(348 155) ;7 8
324 :     (216 207)(187 298)(259 337)(336 322) ;9 10 11 12
325 :     (132 83)(102 229)(348 155)
326 :     )
327 :     (
328 :     (hira1 (0 1)(12 12))
329 :     (hira1 (13 2)(16 8))
330 :     (hira1 (3 4)(16 8))
331 :     (hira1 (5 6)(12 12))
332 :     (hira3 (14 7 15)(16 12 16))
333 :     (hira3 (8 9 10 11 12)(8 8 12 14 16))
334 :     )))
335 :    
336 :     ;(filltest そ 'mincho)
337 :    
338 :     (setq た
339 :     '((
340 :     (45 123)(133 129)(200 97) ;0 1 2
341 :     (99 30)(147 50) ;3 4
342 :     (105 203)(63 347) ;5 6
343 :     (212 138)(314 129)(340 180) ;7 8 9
344 :     (264 178)(203 215)(201 294)(287 324)(362 295) ;10 11 12 13 14
345 :     (147 50)(340 180)
346 :     )
347 :     (
348 :     (hira3 (0 1 2)(0 12 16))
349 :     (hira1 (3 4)(12 12))
350 :     (hira3 (15 5 6)(16 12 16))
351 :     (hira3 (7 8 9)(0 12 16))
352 :     (hira3 (16 10 11 12 13 14)(16 0 0 8 12 16))
353 :     )))
354 :    
355 :     ;(filltest た 'mincho)
356 :    
357 :     (setq ち
358 :     '((
359 :     (44 129)(165 148)(267 110)
360 :     (137 38)(169 54)
361 :     (136 168)(77 291)
362 :     (238 201)(337 271)(111 375)
363 :     )
364 :     (
365 :     (hira3 (0 1 2)(0 12 16))
366 :     (hira1 (3 4)(12 16))
367 :     (hira3 (4 5 6)(16 12 16))
368 :     (hira3 (6 7 8 9)(16 12 16 0))
369 :     )))
370 :    
371 :     ;(filltest ち 'mincho)
372 :    
373 :     (setq つ
374 :     '((
375 :     (36 167)(72 190)
376 :     (233 89)(352 197)(134 343)
377 :     )
378 :     (
379 :     (hira1 (0 1)(12 16))
380 :     (hira3 (1 2 3 4)(16 12 16 0))
381 :     )))
382 :    
383 :     ;(filltest つ 'mincho)
384 :    
385 :     (setq て
386 :     '((
387 :     (56 131)(88 152)
388 :     (200 87)(330 62)
389 :     (196 160)(211 298)(337 319)
390 :     )
391 :     (
392 :     (hira1 (0 1)(12 16))
393 :     (hira3 (1 2 3)(16 12 16))
394 :     (hira3 (3 4 5 6)(16 8 12 20))
395 :     )))
396 :    
397 :     ;(filltest て 'mincho)
398 :    
399 :     (setq と
400 :     '((
401 :     (155 31)(176 46)
402 :     (176 126)(196 207)
403 :     (295 117)(319 153)
404 :     (182 187)(98 245)(102 297)(221 339)(332 318)
405 :     )
406 :     (
407 :     (hira1 (0 1)(12 16))
408 :     (hira3 (1 2 3)(16 12 16))
409 :     (hira1 (4 5)(12 12))
410 :     (hira3 (5 6 7 8 9 10)(24 8 12 16 20 24))
411 :     )))
412 :    
413 :     ;(filltest と 'mincho)
414 :    
415 :     (setq な
416 :     '((
417 :     (43 130)(124 139)(190 106)
418 :     (111 35)(139 49)
419 :     (110 166)(67 288)
420 :     (241 90)(324 116)(352 145)
421 :     (270 147)(262 235)(250 345)(163 339)(191 273)(279 287)(337 330)
422 :     )
423 :     (
424 :     (hira3 (0 1 2)(0 12 16))
425 :     (hira1 (3 4)(12 16))
426 :     (hira3 (4 5 6)(16 12 16))
427 :     (hira3 (7 8 9)(0 12 16))
428 :     (hira3 (9 10 11 12 13 14 15 16)(8 12 16 16 12 8 12 16))
429 :     )))
430 :    
431 :     ;(filltest な 'mincho)
432 :    
433 :     (setq に
434 :     '((
435 :     (85 40)(113 73)
436 :     (79 142)(62 251)(104 336)
437 :     (123 201)
438 :     (169 70)(272 75)(321 65)
439 :     (217 132)(174 214)(250 327)(353 310)
440 :     )
441 :     (
442 :     (hira1 (0 1)(12 16))
443 :     (hira3 (1 2 3 4)(16 12 14 16))
444 :     (hira1 (4 5)(16 0))
445 :     (hira3 (6 7 8)(0 12 16))
446 :     (hira3 (8 9 10 11 12)(16 0 0 16 24))
447 :     )))
448 :    
449 :     ;(filltest に 'mincho)
450 :    
451 :     (setq ぬ
452 :     '((
453 :     (77 72)(103 85)
454 :     (118 215)(164 318)
455 :     (191 28)(222 45)
456 :     (196 161)(137 288)(90 327)(48 275)
457 :     (139 132)(326 167)(287 338)(223 333)(244 275)(346 324)
458 :     )
459 :     (
460 :     (hira1 (0 1)(12 16))
461 :     (hira3 (1 2 3)(16 12 16))
462 :     (hira1 (4 5)(12 16))
463 :     (hira3 (5 6 7 8 9 10 11 12 13 14 15)(16 14 12 8 12 14 16 20 12 16 20))
464 :     )))
465 :    
466 :     ;(filltest ぬ 'mincho)
467 :    
468 :     (setq ね
469 :     '((
470 :     (134 30)(158 43)
471 :     (152 340)
472 :     (87 282)
473 :     (53 137)(71 155)
474 :     (173 109)
475 :     (179 115)(68 292)
476 :     (226 108)(336 193)(275 324)(223 314)(244 265)(349 314)
477 :     )
478 :     (
479 :     (hira1 (0 1)(12 16))
480 :     (hira1 (1 2)(20 20))
481 :     (hira1 (2 3)(16 0))
482 :     (hira1 (4 5)(12 16))
483 :     (hira1 (5 6)(12 14))
484 :     (hira1 (7 8)(16 8))
485 :     (hira3 (8 9 10 11 12 13 14)(16 12 16 12 16 16 16))
486 :     )))
487 :    
488 :     ;(filltest ね 'mincho)
489 :    
490 :     (setq の
491 :     '((
492 :     (198 83)(193 211)(111 300)(59 256)(112 107)(311 111)(317 289)(187 344)
493 :     )
494 :     (
495 :     (hira3 (0 1 2 3 4 5 6 7)(8 12 16 12 16 24 20 0))
496 :     )))
497 :    
498 :     ;(filltest の 'mincho)
499 :    
500 :     (setq は
501 :     '((
502 :     (87 51)(109 74)
503 :     (66 164)(66 274)(114 340)
504 :     (109 277)(118 211)
505 :     (175 123)(271 131)(338 112)
506 :     (258 23)(289 40)
507 :     (278 134)(290 276)(242 345)(180 328)(180 279)(263 264)(349 311)
508 :     )
509 :     (
510 :     (hira1 (0 1)(12 16))
511 :     (hira3 (1 2 3 4)(16 12 12 16))
512 :     (hira3 (4 5 6)(16 12 0))
513 :     (hira3 (7 8 9)(0 12 16))
514 :     (hira1 (10 11)(12 16))
515 :     (hira3 (11 12 13 14 15 16 17 18)(16 12 16 12 8 12 16 20))
516 :     )))
517 :    
518 :     ;(filltest は 'mincho)
519 :    
520 :     (setq ひ
521 :     '((
522 :     (48 99)(74 117)
523 :     (192 49)
524 :     (116 148)(111 321)(234 317)(291 202)(299 61)
525 :     (277 48)(304 67)
526 :     (309 168)(353 267)(192 49)
527 :     )
528 :     (
529 :     (hira1 (0 1)(12 16))
530 :     (hira1 (1 2)(16 16))
531 :     (hira3 (12 3 4 5 6 7)(16 8 16 16 8 16))
532 :     (hira1 (8 9)(12 12))
533 :     (hira3 (9 10 11)(16 12 16))
534 :     )))
535 :    
536 :     ;(filltest ひ 'mincho)
537 :    
538 :     (setq ふ
539 :     '((
540 :     (124 17)(204 67)(241 86)
541 :     (166 105)(140 136)(182 203)(226 293)(190 327)(154 310)(55 291)
542 :     (85 317)
543 :     (155 235)(292 210)(350 287)
544 :     )
545 :     (
546 :     (hira3(0 1 2)(0 12 16))
547 :     (hira3(2 3 4 5 6 7 8 9)(0 4 8 12 16 20 12 0))
548 :     (hira1(9 10)(12 16))
549 :     (hira3(10 11 12 13)(8 12 16 20))
550 :     )))
551 :    
552 :     ;(filltest ふ 'mincho)
553 :    
554 :     (setq へ
555 :     '((
556 :     (45 189)(77 213)
557 :     (169 81)
558 :     (265 212)(343 305)
559 :     )
560 :     (
561 :     (hira1 (0 1)(12 8))
562 :     (hira1 (1 2)(12 16))
563 :     (hira3 (2 3 4)(16 12 20))
564 :     )))
565 :    
566 :     ;(filltest へ 'mincho)
567 :    
568 :     (setq ほ
569 :     '((
570 :     (87 31)(119 68)
571 :     (78 138)(57 237)(95 334)
572 :     (118 207)
573 :     (180 46)(266 57)(324 39)
574 :     (171 120)(192 156)(271 146)(340 126)
575 :     (268 62)(283 102)(283 175)(287 299)(222 335)(175 317)(174 280)(261 259)(337 306)
576 :     )
577 :     (
578 :     (hira1 (0 1)(12 16))
579 :     (hira3 (1 2 3 4)(16 12 12 16))
580 :     (hira1 (4 5)(16 0))
581 :     (hira3 (6 7 8)(0 12 16))
582 :     (hira3 (9 10 11 12)(0 8 12 16))
583 :     (hira3 (13 14 15 16 17 18 19 20 21)(8 12 16 16 12 8 12 16 20))
584 :     )))
585 :    
586 :    
587 :     ;(filltest ほ 'mincho)
588 :    
589 :     (setq ま
590 :     '((
591 :     (55 83)(177 100)(306 67)
592 :     (101 145)(111 176)(203 176)(288 141)
593 :     (226 100)
594 :     (190 28)(214 36)
595 :     (204 109)(211 191)(221 298)(137 336)(88 320)(85 280)(189 256)(309 314)
596 :     )
597 :     (
598 :     (hira3 (0 1 2)(0 12 16))
599 :     (hira3 (3 4 5 6)(0 8 12 16))
600 :     (hira1 (6 7)(16 0))
601 :     (hira1 (8 9)(12 16))
602 :     (hira3 (9 10 11 12 13 14 15 16 17)(8 12 16 16 12 8 12 16 20))
603 :     )))
604 :    
605 :     ;(filltest ま 'mincho)
606 :    
607 :     (setq み
608 :     '((
609 :     (74 77)(91 99)
610 :     (191 38)
611 :     (208 52)(175 163)(137 322)(106 332)(76 311)
612 :     (57 277)(102 216)(191 190)(296 219)(347 266)
613 :     (280 115)(303 132)
614 :     (292 219)(267 296)(185 368)
615 :     )
616 :     (
617 :     (hira1 (0 1)(12 16))
618 :     (hira1 (1 2)(16 8))
619 :     (hira3 (3 4 5 6 7)(16 12 16 12 8))
620 :     (hira3 (7 8 9 10 11 12)(8 16 12 8 12 16 ))
621 :     (hira1 (13 14)(12 16))
622 :     (hira3 (14 15 16 17)(16 12 8 0))
623 :     )))
624 :    
625 :     ;(filltest み 'mincho)
626 :    
627 :     (setq む
628 :     '((
629 :     (43 105)(134 122)(210 106)
630 :     (134 34)(165 51)
631 :     (149 147)(118 246)(81 246)(77 225)
632 :     (108 174)(150 175)(160 215)(109 282)(110 331)(144 351)(299 326)
633 :     (261 197)(265 143)(305 133)(350 205)
634 :     )
635 :     (
636 :     (hira3 (0 1 2)(0 12 16))
637 :     (hira1 (3 4)(12 16))
638 :     (hira3 (4 5 6 7 8)(16 12 16 12 8))
639 :     (hira3 (8 9 10 11 12 13 14 15)(8 12 14 16 14 12 16 20))
640 :     (hira3 (15 16 17 18 19)(12 4 8 12 16))
641 :     )))
642 :    
643 :     ;(filltest む 'mincho)
644 :    
645 :     (setq め
646 :     '((
647 :     (85 67)(108 76)
648 :     (136 203)(187 305)
649 :     (210 33)(240 51)
650 :     (220 164)(153 301)(114 328)(73 308)
651 :     (53 263)(101 179)(230 115)(347 177)(323 296)(181 367)
652 :     )
653 :     (
654 :     (hira1 (0 1)(12 16))
655 :     (hira3 (1 2 3)(16 12 16))
656 :     (hira1 (4 5)(12 16))
657 :     (hira3 (5 6 7 8 9)(16 12 16 12 8))
658 :     (hira3 (9 10 11 12 13 14 15)(8 12 12 16 20 16 0))
659 :     )))
660 :    
661 :     ;(filltest め 'mincho)
662 :    
663 :     (setq も
664 :     '((
665 :     (59 81)(137 116)(216 119)
666 :     (115 144)(67 176)(70 202)(142 221)(224 212)
667 :     (162 35)(191 51)
668 :     (147 185)(148 304)(326 311)(340 228)(273 167)
669 :     )
670 :     (
671 :     (hira3 (0 1 2)(0 12 16))
672 :     (hira3 (2 3 4 5 6 7)(12 8 4 8 12 16))
673 :     (hira1 (8 9)(12 16))
674 :     (hira3 (9 10 11 12 13 14)(16 12 12 16 12 0))
675 :     )))
676 :    
677 :     ;(filltest も 'mincho)
678 :    
679 :     (setq や
680 :     '((
681 :     (160 18)(217 70)(187 96)(147 75)(108 66)(90 104)(142 177)(198 334)
682 :     (52 201)(72 218)
683 :     (260 102)(342 142)(302 216)(197 209)
684 :     )
685 :     (
686 :     (hira3 (0 1 2 3 4 5 6 7)(0 20 20 8 20 12 8 20))
687 :     (hira1 (8 9)(12 16))
688 :     (hira3 (9 10 11 12 13)(16 8 20 12 0))
689 :     )))
690 :    
691 :     ;(filltest や 'mincho)
692 :    
693 :     (setq ゆ
694 :     '((
695 :     (72 70)(94 96)
696 :     (53 223)(69 284)(101 306)
697 :     (134 168)(290 104)(303 281)(182 284)(139 152)(173 54)(216 61)(240 194)(203 304)(109 372)
698 :     )
699 :     (
700 :     (hira1 (0 1)(12 16))
701 :     (hira3 (1 2 3 4)(20 16 16 20))
702 :     (hira3 (4 5 6 7 8 9 10 11 12 13 14)(12 4 16 16 8 4 8 12 16 20 0))
703 :     )))
704 :    
705 :     ;(filltest ゆ 'mincho)
706 :    
707 :     (setq よ
708 :     '((
709 :     (204 126)(269 126)(322 114)
710 :     (176 25)(210 38)
711 :     (203 148)(216 290)(184 327)(88 325)(64 270)(156 237)(318 302)
712 :     )
713 :     (
714 :     (hira3 (0 1 2)(0 12 16))
715 :     (hira1 (3 4)(12 16))
716 :     (hira3 (4 5 6 7 8 9 10 11)(20 16 20 12 8 12 16 20))
717 :     )))
718 :    
719 :     ;(filltest よ 'mincho)
720 :    
721 :     (setq ら
722 :     '((
723 :     (129 33)(181 67)(229 93)
724 :     (146 99)(94 125)(90 159)(105 220)(83 302)
725 :     (228 199)(319 214)(320 292)(147 369)
726 :     )
727 :     (
728 :     (hira3 (0 1 2)(0 12 16))
729 :     (hira3 (2 3 4 5 6 7)(4 6 8 12 16 20))
730 :     (hira3 (7 8 9 10 11)(16 8 16 20 0))
731 :     )))
732 :    
733 :     ;(filltest ら 'mincho)
734 :    
735 :     (setq り
736 :     '((
737 :     (130 35)(152 48)
738 :     (92 170)(96 229)(133 282)
739 :     (184 112)(234 66)(286 86)(303 159)(273 304)(220 340)(128 366)
740 :     )
741 :     (
742 :     (hira1 (0 1)(12 16))
743 :     (hira3 (1 2 3 4)(20 16 16 20))
744 :     (hira3 (4 5 6 7 8 9 10 11)(16 8 4 8 16 20 16 0 ))
745 :     )))
746 :    
747 :     ;(filltest り 'mincho)
748 :    
749 :     (setq る
750 :     '((
751 :     (98 73)(116 87)
752 :     (245 32)
753 :     (264 42)(68 279)
754 :     (207 172)(301 177)(339 268)(258 342)(155 327)(133 291)(158 269)(200 293)(202 340)
755 :     (68 279)
756 :     )
757 :     (
758 :     (hira1 (0 1)(12 16))
759 :     (hira1 (1 2)(20 8))
760 :     (hira1 (3 14)(20 8))
761 :     (hira3 (4 5 6 7 8 9 10 11 12 13)(16 8 16 20 16 12 8 8 12 16))
762 :     )))
763 :    
764 :     ;(filltest る 'mincho)
765 :    
766 :     (setq れ
767 :     '((
768 :     (126 28)(158 40)
769 :     (147 193)(152 338)
770 :     (83 282)
771 :     (60 117)(53 145)
772 :     (63 155)(167 122)
773 :     (57 303)
774 :     (212 121)(265 94)(290 147)(275 303)(322 310)(375 261)
775 :     (167 122)(57 303)
776 :     )
777 :     (
778 :     (hira1 (0 1)(12 16))
779 :     (hira3 (1 2 3)(20 16 20))
780 :     (hira1 (3 4)(16 0))
781 :     (hira1 (5 6)(0 16))
782 :     (hira1 (7 8)(20 8))
783 :     (hira1 (16 17)(8 20))
784 :     (hira3 (9 10 11 12 13 14 15)(20 12 8 20 20 8 0))
785 :     )))
786 :    
787 :     ;(filltest れ 'mincho)
788 :    
789 :     (setq ろ
790 :     '((
791 :     (95 97)(116 114)
792 :     (255 52)
793 :     (267 60)(80 291)
794 :     (196 209)(282 200)(335 244)(283 339)(123 373)
795 :     )
796 :     (
797 :     (hira1 (0 1)(12 16))
798 :     (hira1 (1 2)(20 8))
799 :     (hira1 (3 4)(20 8))
800 :     (hira3 (4 5 6 7 8 9)(12 8 16 20 16 0))
801 :     )))
802 :    
803 :     ;(filltest ろ 'mincho)
804 :    
805 :     (setq わ
806 :     '((
807 :     (119 32)(151 48)
808 :     (144 210)(145 350)
809 :     (75 290)
810 :     (45 125)(59 154)
811 :     (172 120)
812 :     (57 298)
813 :     (182 160)(252 128)(312 146)(347 211)(314 300)(207 357)
814 :     (151 48)(145 350)(59 154)(172 120)(57 298)
815 :     )
816 :     (
817 :     (hira1 (0 1)(12 16))
818 :     (hira3 (15 2 3)(20 16 20))
819 :     (hira1 (16 4)(16 0))
820 :     (hira1 (5 6)(0 16))
821 :     (hira1 (17 7)(16 8))
822 :     (hira1 (18 8)(8 20))
823 :     (hira3 (19 9 10 11 12 13 14)(12 8 12 16 20 16 0))
824 :     )))
825 :    
826 :     ;(filltest わ 'mincho)
827 :    
828 :     (setq ゐ
829 :     '((
830 :     (72 74)(100 93)(124 79)(203 49)
831 :     (180 129)(155 258)(115 332)(92 344)(66 318)
832 :     (49 284)(90 216)(164 157)(266 145)(338 240)(314 311)(236 346)(192 313)(245 275)(310 314)
833 :     )
834 :     (
835 :     (hira3 (0 1 2 3)(0 20 16 20))
836 :     (hira3 (3 4 5 6 7 8)(20 16 16 20 16 8))
837 :     (hira3 (8 9 10 11 12 13 14 15 16 17 18)(8 12 16 20 20 16 12 16 20 16 12 0))
838 :     )))
839 :    
840 :     ;(filltest ゐ 'mincho)
841 :    
842 :     (setq ゑ
843 :     '((
844 :     (109 58)(130 78)
845 :     (249 28)
846 :     (259 43)(86 210)
847 :     (217 134)(280 135)(307 162)(265 219)(189 237)(144 218)(146 188)(181 183)(198 214)(182 244)(67 332)
848 :     (133 296)(179 298)(204 335)
849 :     (242 274)(270 257)(303 273)(343 334)
850 :     (86 210)
851 :     )
852 :     (
853 :     (hira1 (0 1)(12 16))
854 :     (hira1 (1 2)(16 8))
855 :     (hira1 (3 4)(24 16))
856 :     (hira3 (23 5 6 7 8 9 10 11 12 13 14 15)(8 8 12 16 16 12 10 8 8 10 12 18))
857 :     (hira3 (15 16 17 18)(8 8 12 16))
858 :     (hira3 (18 19 20 21 22)(16 12 8 12 24))
859 :     )))
860 :    
861 :     ;(filltest ゑ 'mincho)
862 :    
863 :     (setq を
864 :     '((
865 :     (63 100)(177 112)(244 89)
866 :     (144 23)(181 38)
867 :     (144 134)(65 244)
868 :     (158 164)(197 158)(229 189)(233 256)
869 :     (321 145)(337 173)
870 :     (211 209)(141 251)(147 308)(214 328)(298 323)
871 :     )
872 :     (
873 :     (hira3 (0 1 2)(0 12 16))
874 :     (hira1 (3 4)(12 16))
875 :     (hira3 (4 5 6)(20 12 20))
876 :     (hira3 (6 7 8 9 10)(16 8 8 12 20))
877 :     (hira1 (11 12)(8 20))
878 :     (hira3 (12 13 14 15 16 17)(20 12 8 12 16 20))
879 :     )))
880 :    
881 :     ;(filltest を 'mincho)
882 :    
883 :     (setq ん
884 :     '((
885 :     (162 28)(189 52)
886 :     (76 328)
887 :     (166 190)(213 169)(244 202)(236 297)(264 336)(344 298)(375 192)
888 :     (76 328)
889 :     )
890 :     (
891 :     (hira1 (0 1)(12 16))
892 :     (hira1 (1 2)(16 20))
893 :     (hira3 (10 3 4 5 6 7 8 9)(16 12 8 18 20 18 16 0))
894 :     )))
895 :    
896 :     ;(filltest ん 'mincho)
897 :    
898 :     (setq 。
899 :     '((
900 :     (100 199)(200 100)(300 200)(200 300)(100 200)(199 100)(300 199)
901 :     )
902 :     (
903 :     (hira3 (0 1 2 3 4 5 6)(0 8 20 8 20 8 0))
904 :     )))
905 :    
906 :     ;(filltest 。 'mincho)
907 :    
908 :    
909 :     ;(filltest あ 'mincho)
910 :     ;(filltest い 'mincho)
911 :     ;(filltest う 'mincho)
912 :     ;(filltest え 'mincho)
913 :     ;(filltest お 'mincho)
914 :     ;(filltest か 'mincho)
915 :     ;(filltest き 'mincho)
916 :     ;(filltest く 'mincho)
917 :     ;(filltest け 'mincho)
918 :     ;(filltest こ 'mincho)
919 :     ;(filltest さ 'mincho)
920 :     ;(filltest し 'mincho)
921 :     ;(filltest す 'mincho)
922 :     ;(filltest せ 'mincho)
923 :     ;(filltest そ 'mincho)
924 :     ;(filltest た 'mincho)
925 :     ;(filltest ち 'mincho)
926 :     ;(filltest つ 'mincho)
927 :     ;(filltest て 'mincho)
928 :     ;(filltest と 'mincho)
929 :     ;(filltest な 'mincho)
930 :     ;(filltest に 'mincho)
931 :     ;(filltest ぬ 'mincho)
932 :     ;(filltest ね 'mincho)
933 :     ;(filltest の 'mincho)
934 :     ;(filltest は 'mincho)
935 :     ;(filltest ひ 'mincho)
936 :     ;(filltest ふ 'mincho)
937 :     ;(filltest へ 'mincho)
938 :     ;(filltest ほ 'mincho)
939 :     ;(filltest ま 'mincho)
940 :     ;(filltest み 'mincho)
941 :     ;(filltest む 'mincho)
942 :     ;(filltest め 'mincho)
943 :     ;(filltest も 'mincho)
944 :     ;(filltest や 'mincho)
945 :     ;(filltest ゆ 'mincho)
946 :     ;(filltest よ 'mincho)
947 :     ;(filltest ら 'mincho)
948 :     ;(filltest り 'mincho)
949 :     ;(filltest る 'mincho)
950 :     ;(filltest れ 'mincho)
951 :     ;(filltest ろ 'mincho)
952 :     ;(filltest わ 'mincho)
953 :     ;(filltest ゐ 'mincho)
954 :     ;(filltest ゑ 'mincho)
955 :     ;(filltest を 'mincho)
956 :     ;(filltest ん 'mincho)
957 :     ;(filltest 。 'mincho)
958 :    
959 :     ;(out-to-ps-all '(
960 :     ; ら や ま は な た さ か あ
961 :     ; り 。 み ひ に ち し き い
962 :     ; る ゆ む ふ ぬ つ す く う
963 :     ; れ 。 め へ ね て せ け え
964 :     ; ろ よ も ほ の と そ こ お
965 :     ; 。 。 。 ん を ゑ ゐ わ
966 :     ; ) 'mincho 'all.ps)

ktanaka

Powered by ViewCVS 1.0-dev

ViewCVS and CVS Help