[wadalabfont-kit] / lisp / new12.l  

Annotation of /lisp/new12.l

Parent Directory | Revision Log

Revision: 1.1.1.1 - (view) (download)

1 : ktanaka 1.1 (setq new12 '(
2 :    
3 :    
4 :    
5 :    
6 :    
7 :    
8 :     一むのじ
9 :    
10 :    
11 :    
12 :    
13 :    
14 :    
15 :    
16 :    
17 :    
18 :    
19 :    
20 :    
21 :     亥の下
22 :    
23 :     ほこ
24 :    
25 :    
26 :    
27 :    
28 :    
29 :    
30 :     しんにゅう
31 :    
32 :    
33 :    
34 :    
35 :    
36 :    
37 :    
38 :    
39 :    
40 :    
41 :    
42 :    
43 :     うかんむり
44 :    
45 :    
46 :    
47 :     いしへん
48 :    
49 :    
50 :    
51 :     くちへん
52 :    
53 :    
54 :     欝の下
55 :    
56 :    
57 :    
58 :    
59 :    
60 :    
61 :    
62 :    
63 :    
64 :    
65 :    
66 :     にんべん
67 :    
68 :     叡の左
69 :    
70 :    
71 :    
72 :    
73 :    
74 :    
75 :    
76 :    
77 :    
78 :    
79 :    
80 :    
81 :    
82 :    
83 :    
84 :    
85 :     一友
86 :     沿
87 :     八口
88 :    
89 :    
90 :    
91 :    
92 :     八口
93 :    
94 :     夕ふしづくり
95 :    
96 :     塩の右
97 :    
98 :     ひとかしらてんてん
99 :    
100 :    
101 :    
102 :    
103 :    
104 :    
105 :    
106 :    
107 :    
108 :    
109 :    
110 :    
111 :    
112 :    
113 :    
114 :    
115 :    
116 :    
117 :     たて用
118 :    
119 :     うしへん
120 :    
121 :    
122 :    
123 :    
124 :    
125 :    
126 :    
127 :    
128 :    
129 :    
130 :    
131 :    
132 :    
133 :    
134 :    
135 :    
136 :    
137 :    
138 :    
139 :    
140 :    
141 :    
142 :    
143 :    
144 :    
145 :    
146 :    
147 :    
148 :    
149 :    
150 :    
151 :    
152 :    
153 :    
154 :    
155 :    
156 :    
157 :    
158 :     牙もどき
159 :    
160 :    
161 :    
162 :     牙もどき
163 :    
164 :    
165 :    
166 :    
167 :    
168 :    
169 :    
170 :    
171 :    
172 :    
173 :    
174 :    
175 :    
176 :    
177 :    
178 :    
179 :    
180 :    
181 :    
182 :    
183 :    
184 :    
185 :    
186 :    
187 :    
188 :    
189 :    
190 :    
191 :    
192 :    
193 :    
194 :    
195 :    
196 :    
197 :    
198 :    
199 :    
200 :    
201 :    
202 :    
203 :    
204 :    
205 :    
206 :     しかばねかんむり
207 :    
208 :     潟の右
209 :    
210 :    
211 :    
212 :    
213 :    
214 :    
215 :    
216 :    
217 :    
218 :    
219 :    
220 :    
221 :    
222 :    
223 :    
224 :    
225 :    
226 :    
227 :    
228 :    
229 :     ))
230 :    
231 :     (mapcar new12 #'(lambda (x) (putprop x 'black 'changed)))
232 :     (defun kanjisym (sym)
233 :     (= (logand 128 (sref sym 0)) 128))
234 :     (defun checkblack (val)
235 :     (cond ((symbolp val)
236 :     (cond ((get val 'changed))
237 :     ((not (and (kanjisym val)(boundp val))) 'white)
238 :     (t (putprop sym (checkblack (eval val)) 'chnaged))))
239 :     (t
240 :     (cond ((stringp val) 'whilte)
241 :     ((not (consp val)) 'white)
242 :     ((or (stringp (car val))(consp (car val)))'white)
243 :     (t
244 :     (do ((l (cdr val)(cdr l)))
245 :     ((atom l)'white)
246 :     (and (eq 'black (checkblack (car l)))
247 :     (exit 'black))))))))
248 :    
249 :     (defun checkgray (from to)
250 :     (do ((j from (1+ j))(ret))
251 :     ((> j to)(nreverse ret))
252 :     (do ((i #x21 (1+ i))(str (make-string 2)(make-string 2))(sym))
253 :     ((> i #x7e))
254 :     (sset str 0 (logor #x80 j))
255 :     (sset str 1 (logor #x80 i))
256 :     (setq sym (intern (symbol str)))
257 :     (and (equal (checkblack sym) 'black)(push sym ret)))))
258 :    
259 :    

ktanaka

Powered by ViewCVS 1.0-dev

ViewCVS and CVS Help