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
|
#!/usr/bin/env fontforge
# Time-stamp: <2005-02-11 13:16:49 ralf>
# Copyright 2004, 2005 Ralf Stubner
# See the file COPYING (GNU General Public License) for license
# conditions.
Open("uplb8a.pfb");
# proper setup with names etc
fontname="TeXPalladioL-BoldOsF";
fontfamily="TeX Palladio L";
fullname="TeX Palladio L Bold Old Style Figures";
copyright=$copyright+", Copyright 2004, 2005 Ralf Stubner.";
copyright=AddGPL(copyright);
copyright=AddException(copyright);
fontversion="1.002";
SetFontNames(fontname,fontfamily,fullname,"",copyright,fontversion);
# No UniqueID (needs recent ff to work properly)
SetUniqueID(-1);
# use OtherSubrs from URW (needs recent ff to work properly)
ReadOtherSubrsFile("URW-OtherSubrs.ps");
# copy OsF and SC
Select("zero","nine");
Clear();
MergeFonts("Palladio-BoldOsF.sfd");
# underscore
Select("underscore");
Scale(100,116,0,0);
Move(0,-15);
# emdash
Select("emdash");
Scale(75,100,0,0);
Move(125,0);
SetWidth(1000);
RoundToInt();
# kerning
RemoveAllKerns();
MergeKern("pplb9d-kern.afm");
Save("TeXPalladioL-BoldOsF.sfd");
# generte Type1, scale generate TTF
Generate("fplbj8a.pfb","",3);
# ScaleToEm(2048);
# Generate("fplbj8a.ttf","",0x80);
Quit(0);
|
