#!/usr/local/bin/fontforge

# lmcreatefamilies.pe: use new Fond command in FontForge

# This script is called with the following arguments:
# $1 = where the PFB files live
# $2 = where the LM font families should be created
# E.g.
#	lmcreatefamilies2.pe(
#		"/usr/local/teTeX/share/texmf.local/fonts/type1/public/lm",
#		"/Library/Fonts/Latin Modern")

sourceDir = $1
destDir = $2

##################### LATIN MODERN ####################################

familyName = "LM Roman"
_curfontarray = Array( 30)

designSizeName = "05pt"
fondName = familyName + " " + designSizeName
_i = 0
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Regular")
convert.pe( sourceDir + "/lmr5.pfb", familyName, "Regular", fondName)
#SetMacStyle( 0x0)
_i = 1
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Bold")
convert.pe( sourceDir + "/lmbx5.pfb", familyName, "Bold", fondName)
#SetMacStyle( 0x01)

designSizeName = "06pt"
fondName = familyName + " " + designSizeName
_i = 2
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Regular")
convert.pe( sourceDir + "/lmr6.pfb", familyName, "Regular", fondName)
#SetMacStyle( 0x0)
_i = 3
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Bold")
convert.pe( sourceDir + "/lmbx6.pfb", familyName, "Bold", fondName)
#SetMacStyle( 0x01)

designSizeName = "07pt"
fondName = familyName + " " + designSizeName
_i = 4
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Regular")
convert.pe( sourceDir + "/lmr7.pfb", familyName, "Regular", fondName)
#SetMacStyle( 0x0)
_i = 5
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Italic")
convert.pe( sourceDir + "/lmri7.pfb", familyName, "Italic", fondName)
#SetMacStyle( 0x02)
_i = 6
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Bold")
convert.pe( sourceDir + "/lmbx7.pfb", familyName, "Bold", fondName)
#SetMacStyle( 0x01)

designSizeName = "08pt"
fondName = familyName + " " + designSizeName
_i = 7
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Regular")
convert.pe( sourceDir + "/lmr8.pfb", familyName, "Regular", fondName)
#SetMacStyle( 0x0)
_i = 8
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Bold")
convert.pe( sourceDir + "/lmbx8.pfb", familyName, "Bold", fondName)
#SetMacStyle( 0x01)
_i = 9
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Italic")
convert.pe( sourceDir + "/lmri8.pfb", familyName, "Italic", fondName)
#SetMacStyle( 0x02)

fondName = familyName + " " + designSizeName + " Oblique"
_i = 10
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Regular")
convert.pe( sourceDir + "/lmro8.pfb", familyName, "Regular", fondName)
SetMacStyle( 0x0)

designSizeName = "09pt"
fondName = familyName + " " + designSizeName
_i = 11
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Regular")
convert.pe( sourceDir + "/lmr9.pfb", familyName, "Regular", fondName)
#SetMacStyle( 0x0)
_i = 12
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Bold")
convert.pe( sourceDir + "/lmbx9.pfb", familyName, "Bold", fondName)
#SetMacStyle( 0x01)
_i = 13
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Italic")
convert.pe( sourceDir + "/lmri9.pfb", familyName, "Italic", fondName)
#SetMacStyle( 0x02)

fondName = familyName + " " + designSizeName + " Oblique"
_i = 14
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Regular")
convert.pe( sourceDir + "/lmro9.pfb", familyName, "Regular", fondName)
SetMacStyle( 0x0)

designSizeName = "10pt"
fondName = familyName + " " + designSizeName
_i = 15
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Regular")
convert.pe( sourceDir + "/lmr10.pfb", familyName, "Regular", fondName)
#SetMacStyle( 0x0)
_i = 16
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Bold")
convert.pe( sourceDir + "/lmbx10.pfb", familyName, "Bold", fondName)
#SetMacStyle( 0x01)
_i = 17
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Italic")
convert.pe( sourceDir + "/lmri10.pfb", familyName, "Italic", fondName)
#SetMacStyle( 0x02)
_i = 18
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Bold Italic")
convert.pe( sourceDir + "/lmbxi10.pfb", familyName, "Bold Italic", fondName)
#SetMacStyle( 0x03)

fondName = familyName + " " + designSizeName + " Oblique"
_i = 19
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Regular")
convert.pe( sourceDir + "/lmro10.pfb", familyName, "Regular", fondName)
SetMacStyle( 0x0)
_i = 20
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Bold")
convert.pe( sourceDir + "/lmbxo10.pfb", familyName, "Bold", fondName)
SetMacStyle( 0x01)

fondName = familyName + " " + designSizeName + " Demibold"
_i = 21
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Regular")
convert.pe( sourceDir + "/lmb10.pfb", familyName, "Regular", fondName)
SetMacStyle( 0x0)
_i = 22
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Oblique")
convert.pe( sourceDir + "/lmbo10.pfb", familyName, "Oblique", fondName)
SetMacStyle( 0x02)

fondName = familyName + " " + designSizeName + " Small Caps"
_i = 23
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Regular")
convert.pe( sourceDir + "/lmcsc10.pfb", familyName, "Regular", fondName)
SetMacStyle( 0x0)
_i = 24
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Oblique")
convert.pe( sourceDir + "/lmcsco10.pfb", familyName, "Oblique", fondName)
SetMacStyle( 0x02)

designSizeName = "12pt"
fondName = familyName + " " + designSizeName
_i = 25
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Regular")
convert.pe( sourceDir + "/lmr12.pfb", familyName, "Regular", fondName)
#SetMacStyle( 0x0)
_i = 26
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Bold")
convert.pe( sourceDir + "/lmbx12.pfb", familyName, "Bold", fondName)
#SetMacStyle( 0x01)
_i = 27
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Italic")
convert.pe( sourceDir + "/lmri12.pfb", familyName, "Italic", fondName)
#SetMacStyle( 0x02)

fondName = familyName + " " + designSizeName + " Oblique"
_i = 28
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Regular")
convert.pe( sourceDir + "/lmro12.pfb", familyName, "Regular", fondName)
SetMacStyle( 0x0)

designSizeName = "17pt"
fondName = familyName + " " + designSizeName
_i = 29
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Regular")
convert.pe( sourceDir + "/lmr17.pfb", familyName, "Regular", fondName)
#SetMacStyle( 0x0)

GenerateFamily( destDir + "/" + familyName + ".otf.dfont", "", 0x16, _curfontarray)


##################### LATIN MODERN SANS ###############################

familyName = "LM Sans"
_curfontarray = Array( 18)

designSizeName = "08pt"
fondName = familyName + " " + designSizeName
_i = 0
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Regular")
convert.pe( sourceDir + "/lmss8.pfb", familyName, "Regular", fondName)
#SetMacStyle( 0x0)
_i = 1
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Oblique")
convert.pe( sourceDir + "/lmsso8.pfb", familyName, "Oblique", fondName)
#SetMacStyle( 0x02)

designSizeName = "08pt Quotation"
fondName = familyName + " " + designSizeName
_i = 2
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Regular")
convert.pe( sourceDir + "/lmssq8.pfb", familyName, "Regular", fondName)
#SetMacStyle( 0x0)
_i = 3
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Bold")
convert.pe( sourceDir + "/lmssqbx8.pfb", familyName, "Bold", fondName)
#SetMacStyle( 0x01)
_i = 4
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Oblique")
convert.pe( sourceDir + "/lmssqo8.pfb", familyName, "Oblique", fondName)
#SetMacStyle( 0x02)
_i = 5
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Bold Oblique")
convert.pe( sourceDir + "/lmssqbo8.pfb", familyName, "Bold Oblique", fondName)
#SetMacStyle( 0x03)

designSizeName = "09pt"
fondName = familyName + " " + designSizeName
_i = 6
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Regular")
convert.pe( sourceDir + "/lmss9.pfb", familyName, "Regular", fondName)
#SetMacStyle( 0x0)
_i = 7
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Oblique")
convert.pe( sourceDir + "/lmsso9.pfb", familyName, "Oblique", fondName)
#SetMacStyle( 0x02)

designSizeName = "10pt"
fondName = familyName + " " + designSizeName
_i = 8
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Regular")
convert.pe( sourceDir + "/lmss10.pfb", familyName, "Regular", fondName)
#SetMacStyle( 0x0)
_i = 9
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Bold")
convert.pe( sourceDir + "/lmssbx10.pfb", familyName, "Bold", fondName)
#SetMacStyle( 0x01)
_i = 10
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Oblique")
convert.pe( sourceDir + "/lmsso10.pfb", familyName, "Oblique", fondName)
#SetMacStyle( 0x02)
_i = 11
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Bold Oblique")
convert.pe( sourceDir + "/lmssbo10.pfb", familyName, "Bold Oblique", fondName)
#SetMacStyle( 0x03)
_i = 12

fondName = familyName + " " + designSizeName + " Condensed"
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Regular")
convert.pe( sourceDir + "/lmssdc10.pfb", familyName, "Regular", fondName)
SetMacStyle( 0x0)
_i = 13
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Oblique")
convert.pe( sourceDir + "/lmssdo10.pfb", familyName, "Oblique", fondName)
#SetMacStyle( 0x02)

designSizeName = "12pt"
fondName = familyName + " " + designSizeName
_i = 14
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Regular")
convert.pe( sourceDir + "/lmss12.pfb", familyName, "Regular", fondName)
#SetMacStyle( 0x0)
_i = 15
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Oblique")
convert.pe( sourceDir + "/lmsso12.pfb", familyName, "Oblique", fondName)
#SetMacStyle( 0x02)

designSizeName = "17pt"
fondName = familyName + " " + designSizeName
_i = 16
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Regular")
convert.pe( sourceDir + "/lmss17.pfb", familyName, "Regular", fondName)
#SetMacStyle( 0x0)
_i = 17
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Oblique")
convert.pe( sourceDir + "/lmsso17.pfb", familyName, "Oblique", fondName)
#SetMacStyle( 0x02)

GenerateFamily( destDir + "/" + familyName + ".otf.dfont", "", 0x16, _curfontarray)


##################### LATIN MODERN TYPEWRITER #########################

familyName = "LM Typewriter"
_curfontarray = Array( 9)

designSizeName = "08pt"
fondName = familyName + " " + designSizeName
_i = 0
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Regular")
convert.pe( sourceDir + "/lmtt8.pfb", familyName, "Regular", fondName)
#SetMacStyle( 0x0)

designSizeName = "09pt"
fondName = familyName + " " + designSizeName
_i = 1
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Regular")
convert.pe( sourceDir + "/lmtt9.pfb", familyName, "Regular", fondName)
#SetMacStyle( 0x0)

designSizeName = "10pt"
fondName = familyName + " " + designSizeName
_i = 2
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Regular")
convert.pe( sourceDir + "/lmtt10.pfb", familyName, "Regular", fondName)
#SetMacStyle( 0x0)
_i = 3
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Italic")
convert.pe( sourceDir + "/lmtti10.pfb", familyName, "Italic", fondName)
#SetMacStyle( 0x02)

fondName = familyName + " " + designSizeName + " Oblique"
_i = 4
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Regular")
convert.pe( sourceDir + "/lmtto10.pfb", familyName, "Regular", fondName)
SetMacStyle( 0x0)

fondName = familyName + " " + designSizeName + " Small Caps"
_i = 5
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Regular")
convert.pe( sourceDir + "/lmtcsc10.pfb", familyName, "Regular", fondName)
#SetMacStyle( 0x0)

fondName = familyName + " Proportional " + designSizeName
_i = 6
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Regular")
convert.pe( sourceDir + "/lmvtt10.pfb", familyName, "Regular", fondName)
#SetMacStyle( 0x0)
_i = 7
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Oblique")
convert.pe( sourceDir + "/lmvtto10.pfb", familyName, "Oblique", fondName)
#SetMacStyle( 0x02)

designSizeName = "12pt"
fondName = familyName + " " + designSizeName
_i = 8
Print( "### lmcreatefamilies.pe: Converting " + fondName + " Regular")
convert.pe( sourceDir + "/lmtt12.pfb", familyName, "Regular", fondName)
#SetMacStyle( 0x0)

GenerateFamily(destDir + "/" + familyName + ".otf.dfont", "", 0x16, _curfontarray)