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
|
#!/usr/bin/fontforge
# taken from MinionPro package
i = 1;
while (i < $argc)
Print("Extracting accentable characters from ", $argv[i], "...");
Open($argv[i]);
ScaleToEm(1000); # to standard Postscript sizes, also scales underline value
SelectAll(); # select all
SelectFewer(0u0030,0u0039); # digits
SelectFewer(0u0041,0u005a); # uppercase Latin
SelectFewer(0u0061,0u007a); # lowercase Latin
SelectFewerSingletons(0u00b5); # mu
SelectFewerSingletons(0u0131); # dotlessi
SelectFewerSingletons(0u0192); # florin
SelectFewerSingletons(0u0237); # dotlessj
SelectFewerSingletons(0u0242); # old florin
SelectFewer(0u0391,0u03a9); # uppercase Greek
SelectFewer(0u03b1,0u03c9); # lowercase Greek
SelectFewer(0u03d0,0u03d2); # variant Greek: beta, theta, Upsilon
SelectFewer(0u03d5,0u03d6); # variant Greek: phi, omega
SelectFewerSingletons(0u2113); # script l
SelectFewerSingletons(0u2118); # weierstrass p
SelectFewer(0uebc1,0uebfa); # additional Latin
SelectFewer(0uef11,0uef29); # additional uppercase Greek
Clear();
Save($fontname+"-kern.sfd");
i++
endloop
|
