Revision: 1.1 - (view) (download)
1 : | ktanaka | 1.1 | ;(¾² ¾²) |
2 : | (setq ¾²prim '(((216 9) | ||
3 : | (216 61) | ||
4 : | (248 159) | ||
5 : | (277 275) | ||
6 : | (375 325) | ||
7 : | (202 160) | ||
8 : | (160 293) | ||
9 : | (57 339) | ||
10 : | (218 89) | ||
11 : | (218 392) | ||
12 : | (69 63) | ||
13 : | (69 243) | ||
14 : | (8 373) | ||
15 : | (73 161) | ||
16 : | (377 161) | ||
17 : | (388 63)) | ||
18 : | ((tate (0 1)) | ||
19 : | (migi (2 3 4)) | ||
20 : | (hidari (5 6 7)) | ||
21 : | (tate (8 9)) | ||
22 : | (hidari (10 11 12)) | ||
23 : | (yoko (13 14) (link 5 2)) | ||
24 : | (yoko (10 15) (link 1))))) | ||
25 : | ;(¶© ¶©) | ||
26 : | (setq ¶©prim '(((54 47) | ||
27 : | (54 391) | ||
28 : | (56 355) | ||
29 : | (215 112) | ||
30 : | (215 289) | ||
31 : | (392 355) | ||
32 : | (88 290) | ||
33 : | (358 290) | ||
34 : | (119 193) | ||
35 : | (325 193) | ||
36 : | (105 112) | ||
37 : | (342 112) | ||
38 : | (375 47)) | ||
39 : | ((tate (0 1) (link 2)) | ||
40 : | (tate (3 4)) | ||
41 : | (yoko (2 5)) | ||
42 : | (yoko (6 7) (link 4)) | ||
43 : | (yoko (8 9)) | ||
44 : | (yoko (10 11) (link 3)) | ||
45 : | (yoko (0 12))))) | ||
46 : | ;(½č ½č) | ||
47 : | (setq ½čprim '(((67 165) | ||
48 : | (155 377) | ||
49 : | (376 377) | ||
50 : | (313 47) | ||
51 : | (313 281) | ||
52 : | (374 281) | ||
53 : | (374 198) | ||
54 : | (233 47) | ||
55 : | (233 240) | ||
56 : | (170 306) | ||
57 : | (154 78) | ||
58 : | (151 274) | ||
59 : | (8 388) | ||
60 : | (74 24) | ||
61 : | (74 142) | ||
62 : | (7 231) | ||
63 : | (77 78)) | ||
64 : | ((migi (0 1 2)) | ||
65 : | (kokoro (3 4 5 6)) | ||
66 : | (hidari (7 8 9)) | ||
67 : | (hidari (10 11 12)) | ||
68 : | (hidari (13 14 15) (link 16 0)) | ||
69 : | (yoko (16 10)) | ||
70 : | (yoko (7 3))))) | ||
71 : | (setq testdat '(¾²prim ¶©prim ½čprim)) | ||
72 : | |||
73 : | |||
74 : |
ktanaka Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |