1#  Copyright (C) 2003-2009 The R Core Team
2
3require(grDevices); require(graphics)
4
5## --- Japanese characters in the Hershey Vector Fonts
6
7######
8# create tables of Japanese characters
9######
10make.table <- function(nr, nc) {
11    opar <- par(mar=rep(0, 4), pty="s")
12    plot(c(0, nc*(10%/%nc) + 1), c(0, -(nr + 1)),
13         type="n", xlab="", ylab="", axes=FALSE)
14    invisible(opar)
15}
16
17get.r <- function(i, nr)   i %% nr + 1
18get.c <- function(i, nr)   i %/% nr + 1
19Esc2 <- function(str)	   paste("\\", str, sep="")
20
21draw.title <- function(title, nc)
22    text((nc*(10%/%nc) + 1)/2, 0, title, font=2)
23
24draw.vf.cell <- function(typeface, fontindex, string, i, nr, raw.string=NULL) {
25    r <- get.r(i, nr)
26    c <- get.c(i, nr)
27    x0 <- 2*(c - 1)
28    if (is.null(raw.string)) raw.string <- Esc2(string)
29    text(x0 + 1.1, -r, raw.string, col="grey")
30    text(x0 + 2,   -r, string, vfont=c(typeface, fontindex))
31    rect(x0 +  .5, -(r - .5), x0 + 2.5, -(r + .5), border="grey")
32}
33
34draw.vf.cell2 <- function(string, alt, i, nr) {
35    r <- get.r(i, nr)
36    c <- get.c(i, nr)
37    x0 <- 3*(c - 1)
38    text(x0 + 1.1, -r, Esc2(string <- Esc2(string)), col="grey")
39    text(x0 + 2.2, -r, Esc2(Esc2(alt)), col="grey", cex=.6)
40    text(x0 + 3,   -r, string, vfont=c("serif", "plain"))
41    rect(x0 +  .5, -(r - .5), x0 + 3.5, -(r + .5), border="grey")
42}
43
44tf <- "serif"
45fi <- "plain"
46nr <- 25
47nc <- 4
48oldpar <- make.table(nr, nc)
49index <- 0
50digits <- c(0:9,"a","b","c","d","e","f")
51draw.title("Hiragana : \\\\#J24nn", nc)
52for (i in 2:7) {
53    for (j in 1:16) {
54	if (!((i == 2 && j == 1) || (i == 7 && j > 4))) {
55	    draw.vf.cell(tf, fi, paste("\\#J24", i, digits[j], sep=""),
56	                 index, nr)
57            index <- index + 1
58	}
59    }
60}
61
62nr <- 25
63nc <- 4
64make.table(nr, nc)
65index <- 0
66digits <- c(0:9,"a","b","c","d","e","f")
67draw.title("Katakana : \\\\#J25nn", nc)
68for (i in 2:7) {
69    for (j in 1:16) {
70	if (!((i == 2 && j == 1) || (i == 7 && j > 7))) {
71	    draw.vf.cell(tf, fi, paste("\\#J25", i, digits[j], sep=""),
72	                 index, nr)
73            index <- index + 1
74	}
75    }
76}
77
78nr <- 26
79nc <- 3
80make.table(nr, nc)
81i <- 0
82draw.title("Kanji (1)", nc)
83draw.vf.cell2("#J3021", "#N0043", i, nr); i <- i + 1
84draw.vf.cell2("#J3026", "#N2829", i, nr); i <- i + 1
85draw.vf.cell2("#J302d", "#N0062", i, nr); i <- i + 1
86draw.vf.cell2("#J3035", "#N0818", i, nr); i <- i + 1
87draw.vf.cell2("#J303f", "#N1802", i, nr); i <- i + 1
88draw.vf.cell2("#J3045", "#N2154", i, nr); i <- i + 1
89draw.vf.cell2("#J304c", "#N0401", i, nr); i <- i + 1
90draw.vf.cell2("#J3057", "#N2107", i, nr); i <- i + 1
91draw.vf.cell2("#J3059", "#N0138", i, nr); i <- i + 1
92draw.vf.cell2("#J305b", "#N3008", i, nr); i <- i + 1
93draw.vf.cell2("#J305e", "#N3579", i, nr); i <- i + 1
94draw.vf.cell2("#J3061", "#N4214", i, nr); i <- i + 1
95draw.vf.cell2("#J306c", "#N0001", i, nr); i <- i + 1
96draw.vf.cell2("#J3070", "#N3294", i, nr); i <- i + 1
97draw.vf.cell2("#J3078", "#N1026", i, nr); i <- i + 1
98draw.vf.cell2("#J307a", "#N1562", i, nr); i <- i + 1
99draw.vf.cell2("#J3122", "#N5006", i, nr); i <- i + 1
100draw.vf.cell2("#J3126", "#N0878", i, nr); i <- i + 1
101draw.vf.cell2("#J3127", "#N1280", i, nr); i <- i + 1
102draw.vf.cell2("#J3129", "#N3673", i, nr); i <- i + 1
103draw.vf.cell2("#J312b", "#N5042", i, nr); i <- i + 1
104draw.vf.cell2("#J3132", "#N2629", i, nr); i <- i + 1
105draw.vf.cell2("#J313b", "#N2973", i, nr); i <- i + 1
106draw.vf.cell2("#J313f", "#N4725", i, nr); i <- i + 1
107draw.vf.cell2("#J3140", "#N5046", i, nr); i <- i + 1
108draw.vf.cell2("#J314a", "#N0130", i, nr); i <- i + 1
109draw.vf.cell2("#J3155", "#N2599", i, nr); i <- i + 1
110draw.vf.cell2("#J315f", "#N0617", i, nr); i <- i + 1
111draw.vf.cell2("#J3173", "#N4733", i, nr); i <- i + 1
112draw.vf.cell2("#J3176", "#N1125", i, nr); i <- i + 1
113draw.vf.cell2("#J3177", "#N2083", i, nr); i <- i + 1
114draw.vf.cell2("#J317e", "#N1504", i, nr); i <- i + 1
115draw.vf.cell2("#J3221", "#N1885", i, nr); i <- i + 1
116draw.vf.cell2("#J3223", "#N2361", i, nr); i <- i + 1
117draw.vf.cell2("#J3226", "#N2922", i, nr); i <- i + 1
118draw.vf.cell2("#J322b", "#N5399", i, nr); i <- i + 1
119draw.vf.cell2("#J322f", "#N0551", i, nr); i <- i + 1
120draw.vf.cell2("#J3235", "#N0260", i, nr); i <- i + 1
121draw.vf.cell2("#J3239", "#N2634", i, nr); i <- i + 1
122draw.vf.cell2("#J323b", "#N5110", i, nr); i <- i + 1
123draw.vf.cell2("#J323c", "#N0009", i, nr); i <- i + 1
124draw.vf.cell2("#J323d", "#N0350", i, nr); i <- i + 1
125draw.vf.cell2("#J323f", "#N0409", i, nr); i <- i + 1
126draw.vf.cell2("#J3241", "#N0422", i, nr); i <- i + 1
127draw.vf.cell2("#J3243", "#N0716", i, nr); i <- i + 1
128draw.vf.cell2("#J3244", "#N0024", i, nr); i <- i + 1
129draw.vf.cell2("#J3246", "#N0058", i, nr); i <- i + 1
130draw.vf.cell2("#J3248", "#N1311", i, nr); i <- i + 1
131draw.vf.cell2("#J324a", "#N3272", i, nr); i <- i + 1
132draw.vf.cell2("#J324c", "#N0107", i, nr); i <- i + 1
133draw.vf.cell2("#J324f", "#N2530", i, nr); i <- i + 1
134draw.vf.cell2("#J3250", "#N2743", i, nr); i <- i + 1
135draw.vf.cell2("#J3256", "#N3909", i, nr); i <- i + 1
136draw.vf.cell2("#J3259", "#N3956", i, nr); i <- i + 1
137draw.vf.cell2("#J3261", "#N4723", i, nr); i <- i + 1
138draw.vf.cell2("#J3267", "#N2848", i, nr); i <- i + 1
139draw.vf.cell2("#J3268", "#N0050", i, nr); i <- i + 1
140draw.vf.cell2("#J3272", "#N4306", i, nr); i <- i + 1
141draw.vf.cell2("#J3273", "#N1028", i, nr); i <- i + 1
142draw.vf.cell2("#J3323", "#N2264", i, nr); i <- i + 1
143draw.vf.cell2("#J3324", "#N2553", i, nr); i <- i + 1
144draw.vf.cell2("#J3326", "#N2998", i, nr); i <- i + 1
145draw.vf.cell2("#J3328", "#N3537", i, nr); i <- i + 1
146draw.vf.cell2("#J332b", "#N4950", i, nr); i <- i + 1
147draw.vf.cell2("#J332d", "#N4486", i, nr); i <- i + 1
148draw.vf.cell2("#J3330", "#N1168", i, nr); i <- i + 1
149draw.vf.cell2("#J3346", "#N1163", i, nr); i <- i + 1
150draw.vf.cell2("#J334b", "#N2254", i, nr); i <- i + 1
151draw.vf.cell2("#J3351", "#N4301", i, nr); i <- i + 1
152draw.vf.cell2("#J3353", "#N4623", i, nr); i <- i + 1
153draw.vf.cell2("#J3357", "#N5088", i, nr); i <- i + 1
154draw.vf.cell2("#J3358", "#N1271", i, nr); i <- i + 1
155draw.vf.cell2("#J335a", "#N2324", i, nr); i <- i + 1
156draw.vf.cell2("#J3364", "#N0703", i, nr); i <- i + 1
157draw.vf.cell2("#J3424", "#N2977", i, nr); i <- i + 1
158draw.vf.cell2("#J3428", "#N1322", i, nr); i <- i + 1
159
160make.table(nr, nc)
161i <- 0
162draw.title("Kanji (2)", nc)
163draw.vf.cell2("#J342c", "#N1466", i, nr); i <- i + 1
164draw.vf.cell2("#J3433", "#N1492", i, nr); i <- i + 1
165draw.vf.cell2("#J3434", "#N0790", i, nr); i <- i + 1
166draw.vf.cell2("#J3436", "#N1731", i, nr); i <- i + 1
167draw.vf.cell2("#J3437", "#N1756", i, nr); i <- i + 1
168draw.vf.cell2("#J3445", "#N2988", i, nr); i <- i + 1
169draw.vf.cell2("#J3449", "#N3416", i, nr); i <- i + 1
170draw.vf.cell2("#J3454", "#N4750", i, nr); i <- i + 1
171draw.vf.cell2("#J3456", "#N4949", i, nr); i <- i + 1
172draw.vf.cell2("#J3458", "#N4958", i, nr); i <- i + 1
173draw.vf.cell2("#J346f", "#N0994", i, nr); i <- i + 1
174draw.vf.cell2("#J3470", "#N1098", i, nr); i <- i + 1
175draw.vf.cell2("#J3476", "#N1496", i, nr); i <- i + 1
176draw.vf.cell2("#J347c", "#N3785", i, nr); i <- i + 1
177draw.vf.cell2("#J3521", "#N2379", i, nr); i <- i + 1
178draw.vf.cell2("#J3522", "#N1582", i, nr); i <- i + 1
179draw.vf.cell2("#J3524", "#N2480", i, nr); i <- i + 1
180draw.vf.cell2("#J3525", "#N2507", i, nr); i <- i + 1
181draw.vf.cell2("#J352d", "#N4318", i, nr); i <- i + 1
182draw.vf.cell2("#J3530", "#N4610", i, nr); i <- i + 1
183draw.vf.cell2("#J3534", "#N5276", i, nr); i <- i + 1
184draw.vf.cell2("#J3535", "#N5445", i, nr); i <- i + 1
185draw.vf.cell2("#J3546", "#N3981", i, nr); i <- i + 1
186draw.vf.cell2("#J3555", "#N4685", i, nr); i <- i + 1
187draw.vf.cell2("#J355a", "#N0154", i, nr); i <- i + 1
188draw.vf.cell2("#J355b", "#N0885", i, nr); i <- i + 1
189draw.vf.cell2("#J355d", "#N1560", i, nr); i <- i + 1
190draw.vf.cell2("#J3565", "#N2941", i, nr); i <- i + 1
191draw.vf.cell2("#J3566", "#N3314", i, nr); i <- i + 1
192draw.vf.cell2("#J3569", "#N3496", i, nr); i <- i + 1
193draw.vf.cell2("#J356d", "#N2852", i, nr); i <- i + 1
194draw.vf.cell2("#J356e", "#N1051", i, nr); i <- i + 1
195draw.vf.cell2("#J356f", "#N1387", i, nr); i <- i + 1
196draw.vf.cell2("#J3575", "#N4109", i, nr); i <- i + 1
197draw.vf.cell2("#J3577", "#N4548", i, nr); i <- i + 1
198draw.vf.cell2("#J357b", "#N5281", i, nr); i <- i + 1
199draw.vf.cell2("#J357e", "#N0295", i, nr); i <- i + 1
200draw.vf.cell2("#J3621", "#N0431", i, nr); i <- i + 1
201draw.vf.cell2("#J3626", "#N0581", i, nr); i <- i + 1
202draw.vf.cell2("#J362d", "#N1135", i, nr); i <- i + 1
203draw.vf.cell2("#J362f", "#N1571", i, nr); i <- i + 1
204draw.vf.cell2("#J3635", "#N2052", i, nr); i <- i + 1
205draw.vf.cell2("#J3636", "#N2378", i, nr); i <- i + 1
206draw.vf.cell2("#J364a", "#N0103", i, nr); i <- i + 1
207draw.vf.cell2("#J364b", "#N2305", i, nr); i <- i + 1
208draw.vf.cell2("#J364c", "#N2923", i, nr); i <- i + 1
209draw.vf.cell2("#J3651", "#N1065", i, nr); i <- i + 1
210draw.vf.cell2("#J3661", "#N4671", i, nr); i <- i + 1
211draw.vf.cell2("#J3662", "#N4815", i, nr); i <- i + 1
212draw.vf.cell2("#J3664", "#N4855", i, nr); i <- i + 1
213draw.vf.cell2("#J3665", "#N0146", i, nr); i <- i + 1
214draw.vf.cell2("#J3671", "#N3128", i, nr); i <- i + 1
215draw.vf.cell2("#J3675", "#N3317", i, nr); i <- i + 1
216draw.vf.cell2("#J367e", "#N1386", i, nr); i <- i + 1
217draw.vf.cell2("#J3738", "#N0449", i, nr); i <- i + 1
218draw.vf.cell2("#J3739", "#N0534", i, nr); i <- i + 1
219draw.vf.cell2("#J373e", "#N2937", i, nr); i <- i + 1
220draw.vf.cell2("#J373f", "#N1077", i, nr); i <- i + 1
221draw.vf.cell2("#J3741", "#N1589", i, nr); i <- i + 1
222draw.vf.cell2("#J3742", "#N1602", i, nr); i <- i + 1
223draw.vf.cell2("#J374f", "#N0195", i, nr); i <- i + 1
224draw.vf.cell2("#J3750", "#N3523", i, nr); i <- i + 1
225draw.vf.cell2("#J3757", "#N4312", i, nr); i <- i + 1
226draw.vf.cell2("#J375a", "#N4620", i, nr); i <- i + 1
227draw.vf.cell2("#J3767", "#N2412", i, nr); i <- i + 1
228draw.vf.cell2("#J3768", "#N2509", i, nr); i <- i + 1
229draw.vf.cell2("#J376a", "#N3313", i, nr); i <- i + 1
230draw.vf.cell2("#J376b", "#N3540", i, nr); i <- i + 1
231draw.vf.cell2("#J376c", "#N4205", i, nr); i <- i + 1
232draw.vf.cell2("#J376e", "#N2169", i, nr); i <- i + 1
233draw.vf.cell2("#J3777", "#N1045", i, nr); i <- i + 1
234draw.vf.cell2("#J3824", "#N2868", i, nr); i <- i + 1
235draw.vf.cell2("#J3826", "#N3180", i, nr); i <- i + 1
236draw.vf.cell2("#J3828", "#N3543", i, nr); i <- i + 1
237draw.vf.cell2("#J382b", "#N4284", i, nr); i <- i + 1
238draw.vf.cell2("#J3833", "#N5220", i, nr); i <- i + 1
239
240make.table(nr, nc)
241i <- 0
242draw.title("Kanji (3)", nc)
243draw.vf.cell2("#J3835", "#N0275", i, nr); i <- i + 1
244draw.vf.cell2("#J3836", "#N0825", i, nr); i <- i + 1
245draw.vf.cell2("#J3839", "#N1568", i, nr); i <- i + 1
246draw.vf.cell2("#J383a", "#N2637", i, nr); i <- i + 1
247draw.vf.cell2("#J383b", "#N2656", i, nr); i <- i + 1
248draw.vf.cell2("#J383d", "#N2943", i, nr); i <- i + 1
249draw.vf.cell2("#J3840", "#N4309", i, nr); i <- i + 1
250draw.vf.cell2("#J3842", "#N4987", i, nr); i <- i + 1
251draw.vf.cell2("#J3845", "#N0770", i, nr); i <- i + 1
252draw.vf.cell2("#J3847", "#N1036", i, nr); i <- i + 1
253draw.vf.cell2("#J384c", "#N1567", i, nr); i <- i + 1
254draw.vf.cell2("#J384d", "#N1817", i, nr); i <- i + 1
255draw.vf.cell2("#J384e", "#N2044", i, nr); i <- i + 1
256draw.vf.cell2("#J385d", "#N5415", i, nr); i <- i + 1
257draw.vf.cell2("#J385e", "#N0015", i, nr); i <- i + 1
258draw.vf.cell2("#J3861", "#N0162", i, nr); i <- i + 1
259draw.vf.cell2("#J3865", "#N1610", i, nr); i <- i + 1
260draw.vf.cell2("#J3866", "#N1628", i, nr); i <- i + 1
261draw.vf.cell2("#J386c", "#N4374", i, nr); i <- i + 1
262draw.vf.cell2("#J3872", "#N0290", i, nr); i <- i + 1
263draw.vf.cell2("#J3877", "#N1358", i, nr); i <- i + 1
264draw.vf.cell2("#J3878", "#N0579", i, nr); i <- i + 1
265draw.vf.cell2("#J387d", "#N0868", i, nr); i <- i + 1
266draw.vf.cell2("#J387e", "#N0101", i, nr); i <- i + 1
267draw.vf.cell2("#J3929", "#N1451", i, nr); i <- i + 1
268draw.vf.cell2("#J3931", "#N1683", i, nr); i <- i + 1
269draw.vf.cell2("#J393d", "#N2343", i, nr); i <- i + 1
270draw.vf.cell2("#J3943", "#N0092", i, nr); i <- i + 1
271draw.vf.cell2("#J394d", "#N3684", i, nr); i <- i + 1
272draw.vf.cell2("#J3954", "#N4213", i, nr); i <- i + 1
273draw.vf.cell2("#J3955", "#N1641", i, nr); i <- i + 1
274draw.vf.cell2("#J395b", "#N4843", i, nr); i <- i + 1
275draw.vf.cell2("#J395d", "#N4883", i, nr); i <- i + 1
276draw.vf.cell2("#J395f", "#N4994", i, nr); i <- i + 1
277draw.vf.cell2("#J3960", "#N1459", i, nr); i <- i + 1
278draw.vf.cell2("#J3961", "#N5188", i, nr); i <- i + 1
279draw.vf.cell2("#J3962", "#N5248", i, nr); i <- i + 1
280draw.vf.cell2("#J3966", "#N0882", i, nr); i <- i + 1
281draw.vf.cell2("#J3967", "#N0383", i, nr); i <- i + 1
282draw.vf.cell2("#J3971", "#N1037", i, nr); i <- i + 1
283draw.vf.cell2("#J3975", "#N5403", i, nr); i <- i + 1
284draw.vf.cell2("#J397c", "#N5236", i, nr); i <- i + 1
285draw.vf.cell2("#J397e", "#N4660", i, nr); i <- i + 1
286draw.vf.cell2("#J3a21", "#N2430", i, nr); i <- i + 1
287draw.vf.cell2("#J3a23", "#N0352", i, nr); i <- i + 1
288draw.vf.cell2("#J3a2c", "#N2261", i, nr); i <- i + 1
289draw.vf.cell2("#J3a38", "#N1455", i, nr); i <- i + 1
290draw.vf.cell2("#J3a39", "#N3662", i, nr); i <- i + 1
291draw.vf.cell2("#J3a42", "#N1515", i, nr); i <- i + 1
292draw.vf.cell2("#J3a46", "#N0035", i, nr); i <- i + 1
293draw.vf.cell2("#J3a47", "#N2146", i, nr); i <- i + 1
294draw.vf.cell2("#J3a59", "#N3522", i, nr); i <- i + 1
295draw.vf.cell2("#J3a5f", "#N1055", i, nr); i <- i + 1
296draw.vf.cell2("#J3a6e", "#N0407", i, nr); i <- i + 1
297draw.vf.cell2("#J3a72", "#N2119", i, nr); i <- i + 1
298draw.vf.cell2("#J3a79", "#N2256", i, nr); i <- i + 1
299draw.vf.cell2("#J3b2e", "#N3113", i, nr); i <- i + 1
300draw.vf.cell2("#J3b30", "#N0008", i, nr); i <- i + 1
301draw.vf.cell2("#J3b33", "#N1407", i, nr); i <- i + 1
302draw.vf.cell2("#J3b36", "#N2056", i, nr); i <- i + 1
303draw.vf.cell2("#J3b3b", "#N3415", i, nr); i <- i + 1
304draw.vf.cell2("#J3b40", "#N4789", i, nr); i <- i + 1
305draw.vf.cell2("#J3b45", "#N0362", i, nr); i <- i + 1
306draw.vf.cell2("#J3b4d", "#N1025", i, nr); i <- i + 1
307draw.vf.cell2("#J3b4e", "#N1160", i, nr); i <- i + 1
308draw.vf.cell2("#J3b4f", "#N1208", i, nr); i <- i + 1
309draw.vf.cell2("#J3b52", "#N1264", i, nr); i <- i + 1
310draw.vf.cell2("#J3b54", "#N0284", i, nr); i <- i + 1
311draw.vf.cell2("#J3b57", "#N3001", i, nr); i <- i + 1
312draw.vf.cell2("#J3b58", "#N1904", i, nr); i <- i + 1
313draw.vf.cell2("#J3b59", "#N2039", i, nr); i <- i + 1
314draw.vf.cell2("#J3b5e", "#N2211", i, nr); i <- i + 1
315draw.vf.cell2("#J3b5f", "#N2429", i, nr); i <- i + 1
316draw.vf.cell2("#J3b60", "#N2439", i, nr); i <- i + 1
317draw.vf.cell2("#J3b61", "#N2478", i, nr); i <- i + 1
318draw.vf.cell2("#J3b64", "#N3265", i, nr); i <- i + 1
319
320make.table(nr, nc)
321i <- 0
322draw.title("Kanji (4)", nc)
323draw.vf.cell2("#J3b65", "#N3492", i, nr); i <- i + 1
324draw.vf.cell2("#J3b66", "#N3510", i, nr); i <- i + 1
325draw.vf.cell2("#J3b6a", "#N3845", i, nr); i <- i + 1
326draw.vf.cell2("#J3b73", "#N2435", i, nr); i <- i + 1
327draw.vf.cell2("#J3b75", "#N5428", i, nr); i <- i + 1
328draw.vf.cell2("#J3b76", "#N0272", i, nr); i <- i + 1
329draw.vf.cell2("#J3b7a", "#N1281", i, nr); i <- i + 1
330draw.vf.cell2("#J3b7d", "#N1903", i, nr); i <- i + 1
331draw.vf.cell2("#J3b7e", "#N2126", i, nr); i <- i + 1
332draw.vf.cell2("#J3c21", "#N0638", i, nr); i <- i + 1
333draw.vf.cell2("#J3c27", "#N3209", i, nr); i <- i + 1
334draw.vf.cell2("#J3c28", "#N3228", i, nr); i <- i + 1
335draw.vf.cell2("#J3c2a", "#N3697", i, nr); i <- i + 1
336draw.vf.cell2("#J3c2b", "#N3841", i, nr); i <- i + 1
337draw.vf.cell2("#J3c2d", "#N3860", i, nr); i <- i + 1
338draw.vf.cell2("#J3c2f", "#N5375", i, nr); i <- i + 1
339draw.vf.cell2("#J3c30", "#N1556", i, nr); i <- i + 1
340draw.vf.cell2("#J3c34", "#N4619", i, nr); i <- i + 1
341draw.vf.cell2("#J3c37", "#N0261", i, nr); i <- i + 1
342draw.vf.cell2("#J3c3c", "#N1300", i, nr); i <- i + 1
343draw.vf.cell2("#J3c3e", "#N2631", i, nr); i <- i + 1
344draw.vf.cell2("#J3c41", "#N4518", i, nr); i <- i + 1
345draw.vf.cell2("#J3c42", "#N1297", i, nr); i <- i + 1
346draw.vf.cell2("#J3c4d", "#N4603", i, nr); i <- i + 1
347draw.vf.cell2("#J3c50", "#N2074", i, nr); i <- i + 1
348draw.vf.cell2("#J3c54", "#N3685", i, nr); i <- i + 1
349draw.vf.cell2("#J3c56", "#N4608", i, nr); i <- i + 1
350draw.vf.cell2("#J3c5c", "#N1377", i, nr); i <- i + 1
351draw.vf.cell2("#J3c61", "#N4809", i, nr); i <- i + 1
352draw.vf.cell2("#J3c63", "#N3926", i, nr); i <- i + 1
353draw.vf.cell2("#J3c67", "#N0285", i, nr); i <- i + 1
354draw.vf.cell2("#J3c68", "#N3699", i, nr); i <- i + 1
355draw.vf.cell2("#J3c6a", "#N1827", i, nr); i <- i + 1
356draw.vf.cell2("#J3c6f", "#N3295", i, nr); i <- i + 1
357draw.vf.cell2("#J3c72", "#N2573", i, nr); i <- i + 1
358draw.vf.cell2("#J3c73", "#N5186", i, nr); i <- i + 1
359draw.vf.cell2("#J3c7e", "#N0622", i, nr); i <- i + 1
360draw.vf.cell2("#J3d29", "#N3273", i, nr); i <- i + 1
361draw.vf.cell2("#J3d2a", "#N3521", i, nr); i <- i + 1
362draw.vf.cell2("#J3d2e", "#N3863", i, nr); i <- i + 1
363draw.vf.cell2("#J3d39", "#N4798", i, nr); i <- i + 1
364draw.vf.cell2("#J3d3d", "#N0768", i, nr); i <- i + 1
365draw.vf.cell2("#J3d3e", "#N1613", i, nr); i <- i + 1
366draw.vf.cell2("#J3d44", "#N3597", i, nr); i <- i + 1
367draw.vf.cell2("#J3d45", "#N0224", i, nr); i <- i + 1
368draw.vf.cell2("#J3d50", "#N0097", i, nr); i <- i + 1
369draw.vf.cell2("#J3d51", "#N1621", i, nr); i <- i + 1
370draw.vf.cell2("#J3d55", "#N2122", i, nr); i <- i + 1
371draw.vf.cell2("#J3d60", "#N0791", i, nr); i <- i + 1
372draw.vf.cell2("#J3d63", "#N3509", i, nr); i <- i + 1
373draw.vf.cell2("#J3d68", "#N1162", i, nr); i <- i + 1
374draw.vf.cell2("#J3d6b", "#N2138", i, nr); i <- i + 1
375draw.vf.cell2("#J3d71", "#N3719", i, nr); i <- i + 1
376draw.vf.cell2("#J3d77", "#N1185", i, nr); i <- i + 1
377draw.vf.cell2("#J3d7c", "#N4993", i, nr); i <- i + 1
378draw.vf.cell2("#J3e26", "#N0321", i, nr); i <- i + 1
379draw.vf.cell2("#J3e2e", "#N1355", i, nr); i <- i + 1
380draw.vf.cell2("#J3e2f", "#N0166", i, nr); i <- i + 1
381draw.vf.cell2("#J3e3d", "#N2137", i, nr); i <- i + 1
382draw.vf.cell2("#J3e3e", "#N2212", i, nr); i <- i + 1
383draw.vf.cell2("#J3e46", "#N2772", i, nr); i <- i + 1
384draw.vf.cell2("#J3e4b", "#N3192", i, nr); i <- i + 1
385draw.vf.cell2("#J3e4e", "#N3280", i, nr); i <- i + 1
386draw.vf.cell2("#J3e57", "#N1638", i, nr); i <- i + 1
387draw.vf.cell2("#J3e5a", "#N4341", i, nr); i <- i + 1
388draw.vf.cell2("#J3e5d", "#N4472", i, nr); i <- i + 1
389draw.vf.cell2("#J3e65", "#N0798", i, nr); i <- i + 1
390draw.vf.cell2("#J3e68", "#N0223", i, nr); i <- i + 1
391draw.vf.cell2("#J3e6c", "#N1113", i, nr); i <- i + 1
392draw.vf.cell2("#J3e6f", "#N1364", i, nr); i <- i + 1
393draw.vf.cell2("#J3e75", "#N2839", i, nr); i <- i + 1
394draw.vf.cell2("#J3e78", "#N4002", i, nr); i <- i + 1
395draw.vf.cell2("#J3f22", "#N2303", i, nr); i <- i + 1
396draw.vf.cell2("#J3f27", "#N3889", i, nr); i <- i + 1
397draw.vf.cell2("#J3f29", "#N5154", i, nr); i <- i + 1
398draw.vf.cell2("#J3f2d", "#N0403", i, nr); i <- i + 1
399
400make.table(nr, nc)
401i <- 0
402draw.title("Kanji (5)", nc)
403draw.vf.cell2("#J3f34", "#N1645", i, nr); i <- i + 1
404draw.vf.cell2("#J3f36", "#N1920", i, nr); i <- i + 1
405draw.vf.cell2("#J3f37", "#N2080", i, nr); i <- i + 1
406draw.vf.cell2("#J3f39", "#N2301", i, nr); i <- i + 1
407draw.vf.cell2("#J3f3f", "#N0783", i, nr); i <- i + 1
408draw.vf.cell2("#J3f43", "#N3837", i, nr); i <- i + 1
409draw.vf.cell2("#J3f48", "#N4601", i, nr); i <- i + 1
410draw.vf.cell2("#J3f49", "#N4646", i, nr); i <- i + 1
411draw.vf.cell2("#J3f4a", "#N4709", i, nr); i <- i + 1
412draw.vf.cell2("#J3f4c", "#N5055", i, nr); i <- i + 1
413draw.vf.cell2("#J3f4d", "#N0339", i, nr); i <- i + 1
414draw.vf.cell2("#J3f5e", "#N1034", i, nr); i <- i + 1
415draw.vf.cell2("#J3f62", "#N0211", i, nr); i <- i + 1
416draw.vf.cell2("#J3f65", "#N2482", i, nr); i <- i + 1
417draw.vf.cell2("#J3f69", "#N3676", i, nr); i <- i + 1
418draw.vf.cell2("#J3f74", "#N2057", i, nr); i <- i + 1
419draw.vf.cell2("#J402d", "#N1666", i, nr); i <- i + 1
420draw.vf.cell2("#J402e", "#N1799", i, nr); i <- i + 1
421draw.vf.cell2("#J4030", "#N2436", i, nr); i <- i + 1
422draw.vf.cell2("#J4031", "#N2121", i, nr); i <- i + 1
423draw.vf.cell2("#J4032", "#N2143", i, nr); i <- i + 1
424draw.vf.cell2("#J4035", "#N0027", i, nr); i <- i + 1
425draw.vf.cell2("#J4038", "#N2991", i, nr); i <- i + 1
426draw.vf.cell2("#J403e", "#N4273", i, nr); i <- i + 1
427draw.vf.cell2("#J4044", "#N5076", i, nr); i <- i + 1
428draw.vf.cell2("#J4045", "#N5077", i, nr); i <- i + 1
429draw.vf.cell2("#J404e", "#N2108", i, nr); i <- i + 1
430draw.vf.cell2("#J404f", "#N2194", i, nr); i <- i + 1
431draw.vf.cell2("#J4050", "#N3176", i, nr); i <- i + 1
432draw.vf.cell2("#J4051", "#N3306", i, nr); i <- i + 1
433draw.vf.cell2("#J4056", "#N4534", i, nr); i <- i + 1
434draw.vf.cell2("#J405a", "#N0667", i, nr); i <- i + 1
435draw.vf.cell2("#J405c", "#N1951", i, nr); i <- i + 1
436draw.vf.cell2("#J405e", "#N1855", i, nr); i <- i + 1
437draw.vf.cell2("#J4063", "#N5044", i, nr); i <- i + 1
438draw.vf.cell2("#J4064", "#N3539", i, nr); i <- i + 1
439draw.vf.cell2("#J4065", "#N3855", i, nr); i <- i + 1
440draw.vf.cell2("#J4068", "#N0571", i, nr); i <- i + 1
441draw.vf.cell2("#J4069", "#N0156", i, nr); i <- i + 1
442draw.vf.cell2("#J406e", "#N1447", i, nr); i <- i + 1
443draw.vf.cell2("#J4070", "#N1823", i, nr); i <- i + 1
444draw.vf.cell2("#J407e", "#N3580", i, nr); i <- i + 1
445draw.vf.cell2("#J4125", "#N3873", i, nr); i <- i + 1
446draw.vf.cell2("#J4130", "#N0595", i, nr); i <- i + 1
447draw.vf.cell2("#J4133", "#N2770", i, nr); i <- i + 1
448draw.vf.cell2("#J4134", "#N0384", i, nr); i <- i + 1
449draw.vf.cell2("#J4147", "#N3511", i, nr); i <- i + 1
450draw.vf.cell2("#J4148", "#N3520", i, nr); i <- i + 1
451draw.vf.cell2("#J4150", "#N0859", i, nr); i <- i + 1
452draw.vf.cell2("#J4158", "#N1402", i, nr); i <- i + 1
453draw.vf.cell2("#J415b", "#N1728", i, nr); i <- i + 1
454draw.vf.cell2("#J4161", "#N2100", i, nr); i <- i + 1
455draw.vf.cell2("#J416a", "#N2241", i, nr); i <- i + 1
456draw.vf.cell2("#J416d", "#N3567", i, nr); i <- i + 1
457draw.vf.cell2("#J4170", "#N3939", i, nr); i <- i + 1
458draw.vf.cell2("#J4175", "#N4234", i, nr); i <- i + 1
459draw.vf.cell2("#J4176", "#N4539", i, nr); i <- i + 1
460draw.vf.cell2("#J417c", "#N0540", i, nr); i <- i + 1
461draw.vf.cell2("#J417d", "#N1137", i, nr); i <- i + 1
462draw.vf.cell2("#J4224", "#N4701", i, nr); i <- i + 1
463draw.vf.cell2("#J4226", "#N0509", i, nr); i <- i + 1
464draw.vf.cell2("#J422b", "#N0196", i, nr); i <- i + 1
465draw.vf.cell2("#J422c", "#N2632", i, nr); i <- i + 1
466draw.vf.cell2("#J422d", "#N4546", i, nr); i <- i + 1
467draw.vf.cell2("#J422e", "#N4700", i, nr); i <- i + 1
468draw.vf.cell2("#J4233", "#N3544", i, nr); i <- i + 1
469draw.vf.cell2("#J4236", "#N0590", i, nr); i <- i + 1
470draw.vf.cell2("#J4238", "#N1267", i, nr); i <- i + 1
471draw.vf.cell2("#J423e", "#N0361", i, nr); i <- i + 1
472draw.vf.cell2("#J423f", "#N1169", i, nr); i <- i + 1
473draw.vf.cell2("#J4240", "#N1172", i, nr); i <- i + 1
474draw.vf.cell2("#J424a", "#N2313", i, nr); i <- i + 1
475draw.vf.cell2("#J424e", "#N0405", i, nr); i <- i + 1
476draw.vf.cell2("#J4250", "#N2067", i, nr); i <- i + 1
477draw.vf.cell2("#J4256", "#N1743", i, nr); i <- i + 1
478draw.vf.cell2("#J4265", "#N0364", i, nr); i <- i + 1
479
480make.table(nr, nc)
481i <- 0
482draw.title("Kanji (6)", nc)
483draw.vf.cell2("#J4267", "#N1171", i, nr); i <- i + 1
484draw.vf.cell2("#J4268", "#N3385", i, nr); i <- i + 1
485draw.vf.cell2("#J426a", "#N2164", i, nr); i <- i + 1
486draw.vf.cell2("#J426c", "#N2655", i, nr); i <- i + 1
487draw.vf.cell2("#J4274", "#N2503", i, nr); i <- i + 1
488draw.vf.cell2("#J4323", "#N4721", i, nr); i <- i + 1
489draw.vf.cell2("#J432b", "#N4458", i, nr); i <- i + 1
490draw.vf.cell2("#J432f", "#N4384", i, nr); i <- i + 1
491draw.vf.cell2("#J4331", "#N0139", i, nr); i <- i + 1
492draw.vf.cell2("#J433a", "#N1418", i, nr); i <- i + 1
493draw.vf.cell2("#J433b", "#N3172", i, nr); i <- i + 1
494draw.vf.cell2("#J4346", "#N1575", i, nr); i <- i + 1
495draw.vf.cell2("#J434b", "#N2996", i, nr); i <- i + 1
496draw.vf.cell2("#J434d", "#N0488", i, nr); i <- i + 1
497draw.vf.cell2("#J434e", "#N3169", i, nr); i <- i + 1
498draw.vf.cell2("#J434f", "#N1056", i, nr); i <- i + 1
499draw.vf.cell2("#J4356", "#N3644", i, nr); i <- i + 1
500draw.vf.cell2("#J4359", "#N4722", i, nr); i <- i + 1
501draw.vf.cell2("#J435d", "#N3366", i, nr); i <- i + 1
502draw.vf.cell2("#J4362", "#N3325", i, nr); i <- i + 1
503draw.vf.cell2("#J4363", "#N3940", i, nr); i <- i + 1
504draw.vf.cell2("#J4365", "#N3665", i, nr); i <- i + 1
505draw.vf.cell2("#J4366", "#N0081", i, nr); i <- i + 1
506draw.vf.cell2("#J4368", "#N1291", i, nr); i <- i + 1
507draw.vf.cell2("#J436b", "#N0053", i, nr); i <- i + 1
508draw.vf.cell2("#J436c", "#N2236", i, nr); i <- i + 1
509draw.vf.cell2("#J436e", "#N4115", i, nr); i <- i + 1
510draw.vf.cell2("#J442b", "#N3788", i, nr); i <- i + 1
511draw.vf.cell2("#J442c", "#N2702", i, nr); i <- i + 1
512draw.vf.cell2("#J4436", "#N4543", i, nr); i <- i + 1
513draw.vf.cell2("#J4439", "#N4938", i, nr); i <- i + 1
514draw.vf.cell2("#J443b", "#N5340", i, nr); i <- i + 1
515draw.vf.cell2("#J443e", "#N0775", i, nr); i <- i + 1
516draw.vf.cell2("#J444c", "#N4703", i, nr); i <- i + 1
517draw.vf.cell2("#J4463", "#N0406", i, nr); i <- i + 1
518draw.vf.cell2("#J446a", "#N1296", i, nr); i <- i + 1
519draw.vf.cell2("#J446c", "#N1508", i, nr); i <- i + 1
520draw.vf.cell2("#J446d", "#N1514", i, nr); i <- i + 1
521draw.vf.cell2("#J4472", "#N1914", i, nr); i <- i + 1
522draw.vf.cell2("#J4478", "#N3285", i, nr); i <- i + 1
523draw.vf.cell2("#J4479", "#N3581", i, nr); i <- i + 1
524draw.vf.cell2("#J4526", "#N1987", i, nr); i <- i + 1
525draw.vf.cell2("#J452a", "#N3097", i, nr); i <- i + 1
526draw.vf.cell2("#J452f", "#N0931", i, nr); i <- i + 1
527draw.vf.cell2("#J4534", "#N4844", i, nr); i <- i + 1
528draw.vf.cell2("#J4535", "#N0588", i, nr); i <- i + 1
529draw.vf.cell2("#J4537", "#N0016", i, nr); i <- i + 1
530draw.vf.cell2("#J453e", "#N4615", i, nr); i <- i + 1
531draw.vf.cell2("#J4540", "#N0804", i, nr); i <- i + 1
532draw.vf.cell2("#J4544", "#N2994", i, nr); i <- i + 1
533draw.vf.cell2("#J4545", "#N5050", i, nr); i <- i + 1
534draw.vf.cell2("#J454c", "#N1614", i, nr); i <- i + 1
535draw.vf.cell2("#J4559", "#N1511", i, nr); i <- i + 1
536draw.vf.cell2("#J455a", "#N1050", i, nr); i <- i + 1
537draw.vf.cell2("#J455f", "#N1161", i, nr); i <- i + 1
538draw.vf.cell2("#J4561", "#N0665", i, nr); i <- i + 1
539draw.vf.cell2("#J4563", "#N1109", i, nr); i <- i + 1
540draw.vf.cell2("#J4567", "#N0230", i, nr); i <- i + 1
541draw.vf.cell2("#J456c", "#N0213", i, nr); i <- i + 1
542draw.vf.cell2("#J4574", "#N2745", i, nr); i <- i + 1
543draw.vf.cell2("#J4576", "#N1359", i, nr); i <- i + 1
544draw.vf.cell2("#J4579", "#N3396", i, nr); i <- i + 1
545draw.vf.cell2("#J4626", "#N4465", i, nr); i <- i + 1
546draw.vf.cell2("#J4630", "#N0730", i, nr); i <- i + 1
547draw.vf.cell2("#J4631", "#N0619", i, nr); i <- i + 1
548draw.vf.cell2("#J4633", "#N1354", i, nr); i <- i + 1
549draw.vf.cell2("#J463b", "#N4724", i, nr); i <- i + 1
550draw.vf.cell2("#J463c", "#N4853", i, nr); i <- i + 1
551draw.vf.cell2("#J4643", "#N2860", i, nr); i <- i + 1
552draw.vf.cell2("#J4649", "#N4375", i, nr); i <- i + 1
553draw.vf.cell2("#J465e", "#N2160", i, nr); i <- i + 1
554draw.vf.cell2("#J4662", "#N0082", i, nr); i <- i + 1
555draw.vf.cell2("#J466e", "#N0778", i, nr); i <- i + 1
556draw.vf.cell2("#J4671", "#N5038", i, nr); i <- i + 1
557draw.vf.cell2("#J4673", "#N0273", i, nr); i <- i + 1
558draw.vf.cell2("#J4679", "#N3724", i, nr); i <- i + 1
559
560make.table(nr, nc)
561i <- 0
562draw.title("Kanji (7)", nc)
563draw.vf.cell2("#J467c", "#N2097", i, nr); i <- i + 1
564draw.vf.cell2("#J467e", "#N0574", i, nr); i <- i + 1
565draw.vf.cell2("#J4721", "#N1189", i, nr); i <- i + 1
566draw.vf.cell2("#J472e", "#N2797", i, nr); i <- i + 1
567draw.vf.cell2("#J472f", "#N0188", i, nr); i <- i + 1
568draw.vf.cell2("#J4733", "#N2808", i, nr); i <- i + 1
569draw.vf.cell2("#J4734", "#N3472", i, nr); i <- i + 1
570draw.vf.cell2("#J4748", "#N2529", i, nr); i <- i + 1
571draw.vf.cell2("#J474f", "#N5191", i, nr); i <- i + 1
572draw.vf.cell2("#J4769", "#N3275", i, nr); i <- i + 1
573draw.vf.cell2("#J4772", "#N3095", i, nr); i <- i + 1
574draw.vf.cell2("#J477e", "#N5385", i, nr); i <- i + 1
575draw.vf.cell2("#J4821", "#N0049", i, nr); i <- i + 1
576draw.vf.cell2("#J482c", "#N0577", i, nr); i <- i + 1
577draw.vf.cell2("#J482f", "#N3092", i, nr); i <- i + 1
578draw.vf.cell2("#J483e", "#N0132", i, nr); i <- i + 1
579draw.vf.cell2("#J483f", "#N0817", i, nr); i <- i + 1
580draw.vf.cell2("#J4841", "#N1469", i, nr); i <- i + 1
581draw.vf.cell2("#J484c", "#N3865", i, nr); i <- i + 1
582draw.vf.cell2("#J4856", "#N4811", i, nr); i <- i + 1
583draw.vf.cell2("#J4860", "#N1604", i, nr); i <- i + 1
584draw.vf.cell2("#J4866", "#N2470", i, nr); i <- i + 1
585draw.vf.cell2("#J4869", "#N3109", i, nr); i <- i + 1
586draw.vf.cell2("#J4873", "#N5080", i, nr); i <- i + 1
587draw.vf.cell2("#J4874", "#N5152", i, nr); i <- i + 1
588draw.vf.cell2("#J4878", "#N1383", i, nr); i <- i + 1
589draw.vf.cell2("#J4879", "#N1631", i, nr); i <- i + 1
590draw.vf.cell2("#J487e", "#N3658", i, nr); i <- i + 1
591draw.vf.cell2("#J4921", "#N5421", i, nr); i <- i + 1
592draw.vf.cell2("#J492e", "#N3397", i, nr); i <- i + 1
593draw.vf.cell2("#J4934", "#N0033", i, nr); i <- i + 1
594draw.vf.cell2("#J4938", "#N2359", i, nr); i <- i + 1
595draw.vf.cell2("#J4939", "#N0131", i, nr); i <- i + 1
596draw.vf.cell2("#J493d", "#N0108", i, nr); i <- i + 1
597draw.vf.cell2("#J4942", "#N3042", i, nr); i <- i + 1
598draw.vf.cell2("#J4943", "#N3271", i, nr); i <- i + 1
599draw.vf.cell2("#J494a", "#N0923", i, nr); i <- i + 1
600draw.vf.cell2("#J4954", "#N0017", i, nr); i <- i + 1
601draw.vf.cell2("#J495b", "#N1468", i, nr); i <- i + 1
602draw.vf.cell2("#J4963", "#N2832", i, nr); i <- i + 1
603draw.vf.cell2("#J4969", "#N4488", i, nr); i <- i + 1
604draw.vf.cell2("#J4977", "#N5148", i, nr); i <- i + 1
605draw.vf.cell2("#J497d", "#N1484", i, nr); i <- i + 1
606draw.vf.cell2("#J4a23", "#N4255", i, nr); i <- i + 1
607draw.vf.cell2("#J4a26", "#N0173", i, nr); i <- i + 1
608draw.vf.cell2("#J4a2a", "#N2857", i, nr); i <- i + 1
609draw.vf.cell2("#J4a2c", "#N0578", i, nr); i <- i + 1
610draw.vf.cell2("#J4a38", "#N2064", i, nr); i <- i + 1
611draw.vf.cell2("#J4a39", "#N4959", i, nr); i <- i + 1
612draw.vf.cell2("#J4a3f", "#N0026", i, nr); i <- i + 1
613draw.vf.cell2("#J4a42", "#N0589", i, nr); i <- i + 1
614draw.vf.cell2("#J4a44", "#N4945", i, nr); i <- i + 1
615draw.vf.cell2("#J4a46", "#N3461", i, nr); i <- i + 1
616draw.vf.cell2("#J4a50", "#N0511", i, nr); i <- i + 1
617draw.vf.cell2("#J4a51", "#N0306", i, nr); i <- i + 1
618draw.vf.cell2("#J4a52", "#N2842", i, nr); i <- i + 1
619draw.vf.cell2("#J4a55", "#N4661", i, nr); i <- i + 1
620draw.vf.cell2("#J4a6c", "#N2466", i, nr); i <- i + 1
621draw.vf.cell2("#J4a7c", "#N2084", i, nr); i <- i + 1
622draw.vf.cell2("#J4a7d", "#N2082", i, nr); i <- i + 1
623draw.vf.cell2("#J4b21", "#N2535", i, nr); i <- i + 1
624draw.vf.cell2("#J4b26", "#N3749", i, nr); i <- i + 1
625draw.vf.cell2("#J4b4c", "#N0751", i, nr); i <- i + 1
626draw.vf.cell2("#J4b4f", "#N5404", i, nr); i <- i + 1
627draw.vf.cell2("#J4b5c", "#N0096", i, nr); i <- i + 1
628draw.vf.cell2("#J4b63", "#N5390", i, nr); i <- i + 1
629draw.vf.cell2("#J4b68", "#N2467", i, nr); i <- i + 1
630draw.vf.cell2("#J4b74", "#N0855", i, nr); i <- i + 1
631draw.vf.cell2("#J4b7c", "#N0007", i, nr); i <- i + 1
632draw.vf.cell2("#J4c23", "#N0913", i, nr); i <- i + 1
633draw.vf.cell2("#J4c24", "#N0179", i, nr); i <- i + 1
634draw.vf.cell2("#J4c29", "#N1316", i, nr); i <- i + 1
635draw.vf.cell2("#J4c35", "#N2773", i, nr); i <- i + 1
636draw.vf.cell2("#J4c37", "#N3164", i, nr); i <- i + 1
637draw.vf.cell2("#J4c3e", "#N1170", i, nr); i <- i + 1
638draw.vf.cell2("#J4c40", "#N2110", i, nr); i <- i + 1
639
640make.table(nr, nc)
641i <- 0
642draw.title("Kanji (8)", nc)
643draw.vf.cell2("#J4c4c", "#N5087", i, nr); i <- i + 1
644draw.vf.cell2("#J4c53", "#N2473", i, nr); i <- i + 1
645draw.vf.cell2("#J4c5a", "#N2170", i, nr); i <- i + 1
646draw.vf.cell2("#J4c5c", "#N3127", i, nr); i <- i + 1
647draw.vf.cell2("#J4c64", "#N4944", i, nr); i <- i + 1
648draw.vf.cell2("#J4c67", "#N4940", i, nr); i <- i + 1
649draw.vf.cell2("#J4c6b", "#N0298", i, nr); i <- i + 1
650draw.vf.cell2("#J4c70", "#N3168", i, nr); i <- i + 1
651draw.vf.cell2("#J4c72", "#N1598", i, nr); i <- i + 1
652draw.vf.cell2("#J4c74", "#N4074", i, nr); i <- i + 1
653draw.vf.cell2("#J4c78", "#N2233", i, nr); i <- i + 1
654draw.vf.cell2("#J4c7d", "#N2534", i, nr); i <- i + 1
655draw.vf.cell2("#J4d2d", "#N3727", i, nr); i <- i + 1
656draw.vf.cell2("#J4d30", "#N2565", i, nr); i <- i + 1
657draw.vf.cell2("#J4d3a", "#N5030", i, nr); i <- i + 1
658draw.vf.cell2("#J4d3c", "#N1167", i, nr); i <- i + 1
659draw.vf.cell2("#J4d3e", "#N0408", i, nr); i <- i + 1
660draw.vf.cell2("#J4d4f", "#N2659", i, nr); i <- i + 1
661draw.vf.cell2("#J4d51", "#N2993", i, nr); i <- i + 1
662draw.vf.cell2("#J4d53", "#N3656", i, nr); i <- i + 1
663draw.vf.cell2("#J4d55", "#N4001", i, nr); i <- i + 1
664draw.vf.cell2("#J4d57", "#N4274", i, nr); i <- i + 1
665draw.vf.cell2("#J4d5b", "#N5012", i, nr); i <- i + 1
666draw.vf.cell2("#J4d63", "#N3680", i, nr); i <- i + 1
667draw.vf.cell2("#J4d68", "#N0202", i, nr); i <- i + 1
668draw.vf.cell2("#J4d6b", "#N5049", i, nr); i <- i + 1
669draw.vf.cell2("#J4d70", "#N3856", i, nr); i <- i + 1
670draw.vf.cell2("#J4d71", "#N0199", i, nr); i <- i + 1
671draw.vf.cell2("#J4d72", "#N1431", i, nr); i <- i + 1
672draw.vf.cell2("#J4d78", "#N3264", i, nr); i <- i + 1
673draw.vf.cell2("#J4d7d", "#N2942", i, nr); i <- i + 1
674draw.vf.cell2("#J4e24", "#N4813", i, nr); i <- i + 1
675draw.vf.cell2("#J4e25", "#N5040", i, nr); i <- i + 1
676draw.vf.cell2("#J4e26", "#N5005", i, nr); i <- i + 1
677draw.vf.cell2("#J4e28", "#N0319", i, nr); i <- i + 1
678draw.vf.cell2("#J4e29", "#N3343", i, nr); i <- i + 1
679draw.vf.cell2("#J4e2e", "#N2576", i, nr); i <- i + 1
680draw.vf.cell2("#J4e32", "#N3191", i, nr); i <- i + 1
681draw.vf.cell2("#J4e33", "#N3471", i, nr); i <- i + 1
682draw.vf.cell2("#J4e35", "#N5440", i, nr); i <- i + 1
683draw.vf.cell2("#J4e3e", "#N0034", i, nr); i <- i + 1
684draw.vf.cell2("#J4e41", "#N3468", i, nr); i <- i + 1
685draw.vf.cell2("#J4e49", "#N3885", i, nr); i <- i + 1
686draw.vf.cell2("#J4e4c", "#N2141", i, nr); i <- i + 1
687draw.vf.cell2("#J4e4f", "#N0715", i, nr); i <- i + 1
688draw.vf.cell2("#J4e53", "#N2210", i, nr); i <- i + 1
689draw.vf.cell2("#J4e55", "#N2807", i, nr); i <- i + 1
690draw.vf.cell2("#J4e58", "#N4630", i, nr); i <- i + 1
691draw.vf.cell2("#J4e60", "#N5138", i, nr); i <- i + 1
692draw.vf.cell2("#J4e63", "#N0428", i, nr); i <- i + 1
693draw.vf.cell2("#J4e64", "#N0642", i, nr); i <- i + 1
694draw.vf.cell2("#J4e6d", "#N5048", i, nr); i <- i + 1
695draw.vf.cell2("#J4e6e", "#N5056", i, nr); i <- i + 1
696draw.vf.cell2("#J4e73", "#N2438", i, nr); i <- i + 1
697draw.vf.cell2("#J4f22", "#N4702", i, nr); i <- i + 1
698draw.vf.cell2("#J4f27", "#N2750", i, nr); i <- i + 1
699draw.vf.cell2("#J4f29", "#N4561", i, nr); i <- i + 1
700draw.vf.cell2("#J4f37", "#N3683", i, nr); i <- i + 1
701draw.vf.cell2("#J4f3b", "#N0283", i, nr); i <- i + 1
702draw.vf.cell2("#J4f40", "#N4391", i, nr); i <- i + 1
703draw.vf.cell2("#J4f42", "#N3268", i, nr); i <- i + 1
704draw.vf.cell2("#J4f43", "#N4358", i, nr); i <- i + 1
705draw.vf.cell2("#J4f44", "#N0054", i, nr); i <- i + 1
706draw.vf.cell2("#J4f47", "#N1710", i, nr); i <- i + 1
707
708draw.vf.cell2("#J534c", "#N0973", i, nr); i <- i + 1
709draw.vf.cell2("#J5879", "#N1794", i, nr); i <- i + 1
710draw.vf.cell2("#J5960", "#N1942", i, nr); i <- i + 1
711draw.vf.cell2("#J626f", "#N3200", i, nr); i <- i + 1
712draw.vf.cell2("#J6446", "#N3458", i, nr); i <- i + 1
713draw.vf.cell2("#J6647", "#N5083", i, nr); i <- i + 1
714draw.vf.cell2("#J6d55", "#N4633", i, nr); i <- i + 1
715
716par(oldpar)
717