1
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
|
#!/usr/bin/perl -w
@font_list =
(
"cwtb", "bbttf.ttf", 55,
"cwtf", "fttf.ttf", 55,
"cwtk", "kttf.ttf", 55,
"cwtm", "mttf.ttf", 55,
"cwtr", "rttf.ttf", 55,
#
"mekl", "kai-linux.ttf", 58,
"mest", "edustd-15.ttf", 55,
"mesx", "edustds1.ttf", 55,
"mesy", "edustds2.ttf", 55,
"meko", "moe_kai.ttf", 58,
"meso", "moe_sung.ttf", 58,
#
"bkai", "bkai00mp.ttf", 55,
"bsmi", "bsmi00lp.ttf", 55,
#
"gbsn", "gbsn00lp.ttf", 32,
"gkai", "gkai00mp.ttf", 32,
#
"ntbr", "ntu_br.ttf", 58,
"ntfs", "ntu_fs_m.ttf", 58,
"ntka", "ntu_kai.ttf", 58,
"ntli", "ntu_li_m.ttf", 58,
"ntmb", "ntu_mb.ttf", 58,
"ntmm", "ntu_mm.ttf", 58,
"ntmr", "ntu_mr.ttf", 58,
"nttw", "ntu_tw.ttf", 58,
#
"wclj", "wcl-01.ttf", 55,
"wclk", "wcl-02.ttf", 55,
"wcll", "wcl-03.ttf", 55,
"wclm", "wcl-04.ttf", 55,
"wcln", "wcl-05.ttf", 55,
"wclp", "wcl-06.ttf", 55,
"wclq", "wcl-07.ttf", 55,
"wclr", "wcl-08.ttf", 55,
"wcls", "wcl-09.ttf", 55,
"wclt", "wcl-10.ttf", 55,
#
"zysg", "zysong.ttf", 32,
#
"wnmc", "watanabe-mincho.ttf", 35,
"wdgt", "wadalab-gothic.ttf", 35,
#
"kcgt", "kochi-gothic.ttf", 31,
"kcmc", "kochi-mincho.ttf", 31,
#
"acrj", "kochi-mincho.ttf", 31,
"acrg", "gbsn00lp.ttf", 32,
"acrb", "bsmi00lp.ttf", 55,
#
"ykah", "yka00hp.ttf", 57,
"gtrl", "gtr00lp.ttf", 57,
"gtrm", "gtr00mp.ttf", 57,
"leim", "lei00mp.ttf", 57,
"heim", "hei01mp.ttf", 57,
"sunm", "sun00mp.ttf", 57,
#
"gbsnl", "gbsn00l.ttf",32,
"ggtrl", "ggtr00l.ttf",32,
"gkaim", "gkai00m.ttf",32,
"gleim", "glei00m.ttf",32,
"gsinm", "gsin00m.ttf",32,
"tgtrl", "tgtr00l.ttf",32,
"tkaim", "tkai00m.ttf",32,
"tleim", "tlei00m,ttf",32,
"tooru", "toor00u.ttf",32,
"tovru", "tovr00u.ttf",32,
"tsinm", "tsin00m.ttf",32,
#
"dcaiq", "dcai5.ttc", 31,
"dcailq", "dcail5.ttc", 31,
"dcaisq", "dcais5.ttc", 31,
"dccryq", "dccry5.ttc", 31,
"dchgmq", "dchgm5.ttc", 31,
"dchleiq", "dchlei5.ttc", 31,
"dcinlq", "dcinl5.ttc", 31,
"dckgmc", "dckgmc.ttc", 31,
"dclkaiq", "dclkai5.ttc", 31,
"dcysmr", "dcysm7.ttc", 31,
"dfcrdp", "dfcrd3.ttc", 31,
"dffrsp", "dffrs3.ttc", 31,
"dfgskr", "dfgsk7.ttc", 31,
"dfkaie", "dfkaie.ttc", 31,
"dfkbtp", "dfkbt3.ttc", 31,
"dfoyjq", "dfoyj5.ttc", 31,
"dfryss", "dfrys9.ttc", 31,
"dfshtq", "dfsht5.ttc", 31,
"dfshtr", "dfsht7.ttc", 31,
"dfskair", "dfskai7.ttc", 31,
#
);
open(LISTFILE, "> map.list");
$list_length = (scalar @font_list ) /3 ;
for ($i = 0; $i < $list_length ; $i++)
{
$stem = shift @font_list;
$font = shift @font_list;
$entries = shift @font_list;
print LISTFILE "f ", $stem, ".map\n";
open(MAPFILE, "> ${stem}.map");
for ($j=1; $j<= $entries ; $j++)
{
$j_pad = sprintf "%2.2d", $j;
print MAPFILE
$stem, $j_pad, " ", $stem, $j_pad, " <",
$stem, $j_pad, ".enc <",
$font, "\n";
}
close(MAPFILE);
}
close(LISTFILE);
|