version = "001.002"

if (Strcasecmp($1, "glrso") > 0)
	family = "Gladiator Sans"
	fontname = "Gladiator-Sans-Oblique"
	fullname = "Gladiator Sans Oblique"
	weight = "Regular"
elseif (Strcasecmp($1, "glrsc") > 0)
	family = "Gladiator Sans"
	fontname = "Gladiator-Sans-SmallCaps"
	fullname = "Gladiator Sans SmallCaps"
	weight = "Regular"
elseif (Strcasecmp($1, "glrs") > 0)
	family = "Gladiator Sans"
	fontname = "Gladiator-Sans-Roman"
	fullname = "Gladiator Sans Roman"
	weight = "Regular"
elseif (Strcasecmp($1, "glro") > 0)
	family = "Gladiator"
	fontname = "Gladiator-Oblique"
	fullname = "Gladiator Oblique"
	weight = "Regular"
elseif (Strcasecmp($1, "glri") > 0)
	family = "Gladiator"
	fontname = "Gladiator-Italic"
	fullname = "Gladiator Italic"
	weight = "Regular"
elseif (Strcasecmp($1, "glrc") > 0)
	family = "Gladiator"
	fontname = "Gladiator-SmallCaps"
	fullname = "Gladiator SmallCaps"
	weight = "Regular"
elseif (Strcasecmp($1, "glr") > 0)
	family = "Gladiator"
	fontname = "Gladiator-Roman"
	fullname = "Gladiator Roman"
	weight = "Regular"
elseif (Strcasecmp($1, "gllr") > 0)
	family = "Gladiator"
	fontname = "Gladiator-Light"
	fullname = "Gladiator Light"
	weight = "Light"
elseif (Strcasecmp($1, "glbso") > 0)
	family = "Gladiator Sans"
	fontname = "Gladiator-Sans-Bold-Oblique"
	fullname = "Gladiator Sans Bold Oblique"
	weight = "Bold"
elseif (Strcasecmp($1, "glbs") > 0)
	family = "Gladiator Sans"
	fontname = "Gladiator-Sans-Bold"
	fullname = "Gladiator Sans Bold"
	weight = "Bold"
elseif (Strcasecmp($1, "glbo") > 0)
	family = "Gladiator"
	fontname = "Gladiator-Bold-Oblique"
	fullname = "Gladiator Bold Oblique"
	weight = "Bold"
elseif (Strcasecmp($1, "glbi") > 0)
	family = "Gladiator"
	fontname = "Gladiator-Bold-Italic"
	fullname = "Gladiator Bold Italic"
	weight = "Bold"
elseif (Strcasecmp($1, "glb") > 0)
	family = "Gladiator"
	fontname = "Gladiator-Bold"
	fullname = "Gladiator Bold"
	weight = "Bold"
else
	Error("Unknown style")
endif


Open($1)

	# Get kerning info from TFM file

MergeFeature($1:r + ".tfm")

	# Set the font name, weight name and copyright

SetFontNames(fontname, family, fullname, weight, "Bert Bos 1991-2009", version)

	# Traditionally, TrueType fonts have units-per-em that is a
	# power of 2, h.l.: ascent + descent = 4096

# ScaleToEm(1567, 481)
ScaleToEm(3134, 962)

	# Somehow, MetaFont or mftrace doesn't create the space...

Select("emdash")
em = CharInfo("Width")
Select("space")
SetWidth(3 * em/10)

	# Auto-hint

SelectAll()
AddExtrema()
Simplify()
RoundToInt()
AutoHint()

	# Regenerate Type1 and generate TrueType

Generate($1)
Generate($2)

Quit(0)