summaryrefslogtreecommitdiff
path: root/fonts/gentium-tug/source/type1/ff-gentium.pe
diff options
context:
space:
mode:
Diffstat (limited to 'fonts/gentium-tug/source/type1/ff-gentium.pe')
-rwxr-xr-xfonts/gentium-tug/source/type1/ff-gentium.pe97
1 files changed, 69 insertions, 28 deletions
diff --git a/fonts/gentium-tug/source/type1/ff-gentium.pe b/fonts/gentium-tug/source/type1/ff-gentium.pe
index 108d231835..55b6ec5c00 100755
--- a/fonts/gentium-tug/source/type1/ff-gentium.pe
+++ b/fonts/gentium-tug/source/type1/ff-gentium.pe
@@ -1,5 +1,5 @@
#!/usr/bin/env fontforge
-# $Id: ff-gentium.pe 15 2015-04-23 22:29:19Z karl $
+# $Id: ff-gentium.pe 116 2022-05-11 00:51:36Z karl $
# This file is part of the Gentium package for TeX.
# It is licensed under the Expat License, see doc//README for details.
@@ -12,11 +12,11 @@
# the latter, because the syntax is more familiar to me.
# You can set the desired copyright text in the following variable
-FONT_COPYRIGHT='Copyright (c) SIL International, 2003-2014. TeX conversion additions copyright (c) 2013-2015 TeX Users Group. Released under the OFL, http://scripts.sil.org/OFL.'
+FONT_COPYRIGHT='Copyright (c) SIL International, 2003-2022. TeX conversion additions copyright (c) 2013-2022 TeX Users Group. Released under the OFL, https://scripts.sil.org/OFL.'
TTF_PATH='../../../../fonts/truetype/public/gentium-tug/'
-FONT_VERSION_PLUS='gentiumps-1.1 (from Gentium Plus 5.000; 2014; Major update)'
-FONT_VERSION_BASIC='gentiumps-1.0 (from Gentium Basic 1.100; 2008; Maintenance release)'
+FONT_VERSION_PLUS='gentiumps-1.101 (from Gentium Plus 6.101; 2022; Maintenance release)'
+FONT_VERSION_BOOK='gentiumps-1.101 (from Gentium Book Plus 6.101; 2022; Maintenance release)'
LoadNamelist("vgx.nam")
@@ -29,17 +29,6 @@ while ( i < $argc )
Print("* Reading TrueType")
Open(TTF_PATH + $argv[i])
- # Removing problematic lookups "mark" and "mkmk" from GentiumPlus.
- # This eliminates really huge amount of error messages.
- if ( $argv[i] == "GentiumPlus-R.ttf" || $argv[i] == "GentiumPlus-I.ttf" )
- Print("* Removing problematic lookups mark and mkmk")
- # TODO: Don't use these hard-coded names, use GetLookups("GPOS")
- RemoveLookup("'mark' Mark Positioning lookup 0")
- RemoveLookup("'mark' Mark Positioning lookup 1")
- RemoveLookup("'mkmk' Mark to Mark lookup 2")
- RemoveLookup("'mkmk' Mark to Mark lookup 3")
- endif
-
# attempt to follow Hirwen's instructions:
Print("* Scaling")
ScaleToEm(1000)
@@ -87,26 +76,47 @@ while ( i < $argc )
# It makes sense from another point of view: two fonts from GentiumPlus
# make one family, two fonts from GentiumBasic make other family.
# TODO: clean-up of the following code
- if ( $argv[i] == "GentiumPlus-R.ttf" )
+
+ # GentiumPlus family
+ if ( $argv[i] == "GentiumPlus-Regular.ttf" )
BlueValuesRegular = GetPrivateEntry("BlueValues")
OtherBluesRegular = GetPrivateEntry("OtherBlues")
endif
- if ( $argv[i] == "GentiumPlus-I.ttf" )
+ if ( $argv[i] == "GentiumPlus-Italic.ttf" )
ChangePrivateEntry("FamilyBlues", BlueValuesRegular)
ChangePrivateEntry("FamilyOtherBlues", OtherBluesRegular)
endif
- if ( $argv[i] == "GenBasB.ttf" )
+ if ( $argv[i] == "GentiumPlus-Bold.ttf" )
BlueValuesBold = GetPrivateEntry("BlueValues")
OtherBluesBold = GetPrivateEntry("OtherBlues")
endif
- if ( $argv[i] == "GenBasBI.ttf" )
+ if ( $argv[i] == "GentiumPlus-BoldItalic.ttf" )
ChangePrivateEntry("FamilyBlues", BlueValuesBold)
ChangePrivateEntry("FamilyOtherBlues", OtherBluesBold)
endif
+ # GentiumBookPlus family
+ if ( $argv[i] == "GentiumBookPlus-Regular.ttf" )
+ BlueValuesBookRegular = GetPrivateEntry("BlueValues")
+ OtherBluesBookRegular = GetPrivateEntry("OtherBlues")
+ endif
+ if ( $argv[i] == "GentiumBookPlus-Italic.ttf" )
+ ChangePrivateEntry("FamilyBlues", BlueValuesBookRegular)
+ ChangePrivateEntry("FamilyOtherBlues", OtherBluesBookRegular)
+ endif
+ if ( $argv[i] == "GentiumBookPlus-Bold.ttf" )
+ BlueValuesBookBold = GetPrivateEntry("BlueValues")
+ OtherBluesBookBold = GetPrivateEntry("OtherBlues")
+ endif
+ if ( $argv[i] == "GentiumBookPlus-BoldItalic.ttf" )
+ ChangePrivateEntry("FamilyBlues", BlueValuesBookBold)
+ ChangePrivateEntry("FamilyOtherBlues", OtherBluesBookBold)
+ endif
+
# Hirwen says add forcebold and write true if font is bold (or bold italic).
# Adobe strongly advises to set ForceBold explicitly (true or false).
- if ( $argv[i] == "GentiumPlus-R.ttf" || $argv[i] == "GentiumPlus-I.ttf" )
+ if ( $argv[i] == "GentiumPlus-Regular.ttf" || $argv[i] == "GentiumPlus-Italic.ttf" || \
+ $argv[i] == "GentiumBookPlus-Regular.ttf" || $argv[i] == "GentiumBookPlus-Italic.ttf" )
ChangePrivateEntry("ForceBold", "false")
else
ChangePrivateEntry("ForceBold", "true")
@@ -136,10 +146,10 @@ while ( i < $argc )
# Note that this is not at all robust. If it doesn't work, comment out all the lines in the next block except for the single line between the "else" and the "endif". This will produce names which may be less than ideal from an aesthetic point of view but should at least work.
hyphened=Strrstr($fontname,"-")
spaced=Strrstr($fullname," ")
- if ( $argv[i] == "GentiumPlus-R.ttf" || $argv[i] == "GentiumPlus-I.ttf" )
+ if ( Strcasestr($argv[i], "GentiumPlus") == 0 )
FONT_VERSION=FONT_VERSION_PLUS
else
- FONT_VERSION=FONT_VERSION_BASIC
+ FONT_VERSION=FONT_VERSION_BOOK
endif
if ( hyphened > 0 )
fontnamecyntaf=Strsub($fontname,0,hyphened)
@@ -154,17 +164,48 @@ while ( i < $argc )
# Corrections for Greek (automatically generated values) and additional kerns
# TODO: Don't use hard-coded names, check the existence of extra kernings instead
- if ( $argv[i] == "GentiumPlus-R.ttf" )
+ if ( $argv[i] == "GentiumPlus-Regular.ttf" )
Print("* Correction for Greek and additional kerning pairs")
- MergeFeature("GentiumPlus-R-extra.afm")
+ MergeFeature("GentiumPlus-Regular-extra.afm")
endif
- if ( $argv[i] == "GentiumPlus-I.ttf" )
+ if ( $argv[i] == "GentiumPlus-Italic.ttf" )
Print("* Correction for Greek and additional kerning pairs")
- MergeFeature("GentiumPlus-I-extra.afm")
+ MergeFeature("GentiumPlus-Italic-extra.afm")
endif
+ if ( $argv[i] == "GentiumPlus-Bold.ttf" )
+ Print("* Correction for Greek and additional kerning pairs")
+ MergeFeature("GentiumPlus-Bold-extra.afm")
+ endif
+ if ( $argv[i] == "GentiumPlus-BoldItalic.ttf" )
+ Print("* Correction for Greek and additional kerning pairs")
+ MergeFeature("GentiumPlus-BoldItalic-extra.afm")
+ endif
+ if ( $argv[i] == "GentiumBookPlus-Regular.ttf" )
+ Print("* Correction for Greek and additional kerning pairs")
+ MergeFeature("GentiumBookPlus-Regular-extra.afm")
+ endif
+ if ( $argv[i] == "GentiumBookPlus-Italic.ttf" )
+ Print("* Correction for Greek and additional kerning pairs")
+ MergeFeature("GentiumBookPlus-Italic-extra.afm")
+ endif
+ if ( $argv[i] == "GentiumBookPlus-Bold.ttf" )
+ Print("* Correction for Greek and additional kerning pairs")
+ MergeFeature("GentiumBookPlus-Bold-extra.afm")
+ endif
+ if ( $argv[i] == "GentiumBookPlus-BoldItalic.ttf" )
+ Print("* Correction for Greek and additional kerning pairs")
+ MergeFeature("GentiumBookPlus-BoldItalic-extra.afm")
+ endif
+
- # Correction of the kern between D and V in "GentiumPlus-R.ttf"
- if ( $argv[i] == "GentiumPlus-R.ttf" )
+ # Correction of the kern between D and V in "GentiumPlus-Regular.ttf" and some other
+ # All these fonts had 20 and it will be changed to -20.
+ if ( \
+ $argv[i] == "GentiumPlus-Regular.ttf" || \
+ $argv[i] == "GentiumPlus-Bold.ttf" || \
+ $argv[i] == "GentiumBookPlus-Regular.ttf" || \
+ $argv[i] == "GentiumBookPlus-Bold.ttf" \
+ )
Print("* Correction of kern between D and V")
Select("D")
SetKern("V", -20)