2017-06-15 22:16:00

3 files changed, 63 insertions, 2 deletions

diff --git a/tex/context/fonts/mkiv/lucida-opentype-math.lfg b/tex/context/fonts/mkiv/lucida-opentype-math.lfg
index 5f973f41e..50d94f305 100644
--- a/tex/context/fonts/mkiv/lucida-opentype-math.lfg
+++ b/tex/context/fonts/mkiv/lucida-opentype-math.lfg
@@ -1,5 +1,16 @@
 ----- kern_250 = { bottomright = { { kern = -250 } }, force = true }
 
+-- RadicalVerticalGap             =  50
+-- RadicalDisplayStyleVerticalGap = 175
+
+-- RadicalVerticalGap             = 166
+-- RadicalDisplayStyleVerticalGap = 345
+
+local function FixRadicalDisplayStyleVerticalGap(value,target,original)
+    local o = original.mathparameters.RadicalVerticalGap -- 50
+    return 2 * o * target.parameters.factor
+end
+
 return {
     name = "lucida-opentype-math",
     version = "1.00",
@@ -7,6 +18,9 @@ return {
     author = "Hans Hagen",
     copyright = "ConTeXt development team",
     mathematics = {
+        parameters = {
+            RadicalDisplayStyleVerticalGap = FixRadicalDisplayStyleVerticalGap,
+        },
         alternates = {
             italic       = { feature = 'ss01', value = 1, comment = "Mathematical Alternative Lowercase Italic" },
             arrow        = { feature = 'ss02', value = 1, comment = "Mathematical Alternative Smaller Arrows" },
@@ -22,7 +36,7 @@ return {
         dimensions = {
             default = { -- experimental values
                 [0x2044] = { xoffset = 275, width = 600 },
---                 [0x2032] = { yoffset = -10 },
+             -- [0x2032] = { yoffset = -10 },
             },
         },
     },
diff --git a/tex/context/fonts/mkiv/pagella-math.lfg b/tex/context/fonts/mkiv/pagella-math.lfg
index 40d50383b..080b21c92 100644
--- a/tex/context/fonts/mkiv/pagella-math.lfg
+++ b/tex/context/fonts/mkiv/pagella-math.lfg
@@ -9,7 +9,7 @@ return {
     copyright = "ConTeXt development team",
     mathematics = {
         kerns = {
-            [0x1D449] = kern_200, --
+            [0x1D449] = kern_200, -- 𝑉
             [0x1D44A] = kern_100, -- 𝑊
         },
         alternates = {
diff --git a/tex/context/fonts/mkiv/type-imp-gofonts.mkiv b/tex/context/fonts/mkiv/type-imp-gofonts.mkiv
new file mode 100644
index 000000000..632021674
--- /dev/null
+++ b/tex/context/fonts/mkiv/type-imp-gofonts.mkiv
@@ -0,0 +1,47 @@
+%D \module
+%D   [       file=type-imp-gofonts,
+%D        version=2017.06.13,
+%D          title=\CONTEXT\ Typescript Macros,
+%D       subtitle=Go fonts,
+%D         author=Hans Hagen,
+%D           date=\currentdate,
+%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
+%C
+%C This module is part of the \CONTEXT\ macro||package and is
+%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
+%C details.
+
+\starttypescriptcollection[gofonts]
+
+    \starttypescript [\s!serif] [gofonts] [\s!name]
+        \setups[\s!font:\s!fallback:\s!serif]
+        \definefontsynonym [\s!Serif]           [\s!name:goregular]     [\s!features=\s!default]
+        \definefontsynonym [\s!SerifBold]       [\s!name:gobold]        [\s!features=\s!default]
+        \definefontsynonym [\s!SerifItalic]     [\s!name:goitalic]      [\s!features=\s!default]
+        \definefontsynonym [\s!SerifBoldItalic] [\s!name:gobolditalic]  [\s!features=\s!default]
+    \stoptypescript
+
+    \starttypescript [\s!sans] [gofonts] [\s!name]
+        \setups[\s!font:\s!fallback:\s!sans]
+        \definefontsynonym [\s!Sans]           [\s!name:goregular]      [\s!features=\s!default]
+        \definefontsynonym [\s!SansBold]       [\s!name:gobold]         [\s!features=\s!default]
+        \definefontsynonym [\s!SansItalic]     [\s!name:goitalic]       [\s!features=\s!default]
+        \definefontsynonym [\s!SansBoldItalic] [\s!name:gobolditalic]   [\s!features=\s!default]
+    \stoptypescript
+
+    \starttypescript [\s!mono] [gofonts] [\s!name]
+        \setups[\s!font:\s!fallback:\s!mono]
+        \definefontsynonym [\s!Mono]           [\s!name:gomono]         [\s!features=\s!none]
+        \definefontsynonym [\s!MonoBold]       [\s!name:gomonobold]     [\s!features=\s!none]
+        \definefontsynonym [\s!MonoItalic]     [\s!name:gomoitalic]     [\s!features=\s!none]
+        \definefontsynonym [\s!MonoBoldItalic] [\s!name:gomobolditalic] [\s!features=\s!none]
+    \stoptypescript
+
+    \starttypescript[gofonts]
+        \definetypeface [gofonts] [\s!rm] [\s!serif] [gofonts] [\s!default]
+        \definetypeface [gofonts] [\s!ss] [\s!sans]  [gofonts] [\s!default]
+        \definetypeface [gofonts] [\s!tt] [\s!mono]  [gofonts] [\s!default]
+        \definetypeface [gofonts] [\s!mm] [\s!math]  [gofonts] [\s!default]
+    \stoptypescript
+
+\stoptypescriptcollection