#!/usr/bin/fontforge
Open($1)
Reencode("unicode")
fnameT = ($1:r)
fname = (fnameT:t)
fam = (StrSplit($fontname,"-"))
SetTTFName(0x409,2,"")
SetFontNames(fname,fam[0],fname,"")
Print($fontname)
Print($familyname)
Print($fullname)
Print(GetTTFName(0x409,2))
Generate($fontname+"_"+$2+".ttf")
Quit(0)