#!/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.003";

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);