beta 2013.08.07 20:18

11 files changed, 317 insertions, 179 deletions

diff --git a/tex/context/base/cont-new.mkiv b/tex/context/base/cont-new.mkiv
index 9911d5c9d..4b17e0dcc 100644
--- a/tex/context/base/cont-new.mkiv
+++ b/tex/context/base/cont-new.mkiv
@@ -11,7 +11,7 @@
 %C therefore copyrighted by \PRAGMA. See mreadme.pdf for
 %C details.
 
-\newcontextversion{2013.08.07 14:40}
+\newcontextversion{2013.08.07 20:18}
 
 %D This file is loaded at runtime, thereby providing an excellent place for
 %D hacks, patches, extensions and new features.
diff --git a/tex/context/base/context-version.pdf b/tex/context/base/context-version.pdf
index ae939b303..9b5628c84 100644
--- a/tex/context/base/context-version.pdf
+++ b/tex/context/base/context-version.pdf
diff --git a/tex/context/base/context.mkiv b/tex/context/base/context.mkiv
index 1dadf05ed..843e15081 100644
--- a/tex/context/base/context.mkiv
+++ b/tex/context/base/context.mkiv
@@ -25,7 +25,7 @@
 %D up and the dependencies are more consistent.
 
 \edef\contextformat {\jobname}
-\edef\contextversion{2013.08.07 14:40}
+\edef\contextversion{2013.08.07 20:18}
 \edef\contextkind   {beta}
 
 %D For those who want to use this:
diff --git a/tex/context/base/math-vfu.lua b/tex/context/base/math-vfu.lua
index 174b05367..cd30ad6b9 100644
--- a/tex/context/base/math-vfu.lua
+++ b/tex/context/base/math-vfu.lua
@@ -39,6 +39,7 @@ local report_virtual    = logs.reporter("fonts","virtual math")
 
 local allocate          = utilities.storage.allocate
 local setmetatableindex = table.setmetatableindex
+local formatters        = string.formatters
 
 local mathencodings     = allocate()
 fonts.encodings.math    = mathencodings -- better is then: fonts.encodings.vectors
@@ -246,8 +247,8 @@ local function raise(main,characters,id,size,unicode,private,n,id_of_smaller) --
         commands[#commands+1] = pop
         characters[unicode] = {
             width    = n * raised.width,
-            height   = raised.height + up,
-            depth    = raised.depth  - up,
+            height   = (raised.height or 0) + up,
+            depth    = (raised.depth or 0) - up,
             italic   = raised.italic,
             commands = commands,
         }
@@ -582,6 +583,79 @@ setmetatableindex(reverse, function(t,name)
     return r
 end)
 
+local function copy_glyph(main,target,original,unicode,slot)
+    local addprivate = fonts.helpers.addprivate
+    local olddata    = original[unicode]
+    if olddata then
+        local newdata = {
+            width    = olddata.width,
+            height   = olddata.height,
+            depth    = olddata.depth,
+            italic   = olddata.italic,
+            kerns    = olddata.kerns,
+            commands = { { "slot", slot, unicode } },
+        }
+        local glyphdata = newdata
+        local nextglyph = olddata.next
+        while nextglyph do
+            local oldnextdata = original[nextglyph]
+            local newnextdata = {
+                commands = { { "slot", slot, nextglyph } },
+                width    = oldnextdata.width,
+                height   = oldnextdata.height,
+                depth    = oldnextdata.depth,
+            }
+            local newnextglyph = addprivate(main,formatters["original-%H"](nextglyph),newnextdata)
+            newdata.next = newnextglyph
+            local nextnextglyph = oldnextdata.next
+            if nextnextglyph == nextglyph then
+                break
+            else
+                olddata   = oldnextdata
+                newdata   = newnextdata
+                nextglyph = nextnextglyph
+            end
+        end
+        local hv = olddata.horiz_variants
+        if hv then
+            hv = fastcopy(hv)
+            newdata.horiz_variants = hv
+            for i=1,#hv do
+                local hvi = hv[i]
+                local oldglyph = hvi.glyph
+                local olddata = original[oldglyph]
+                local newdata = {
+                    commands = { { "slot", slot, oldglyph } },
+                    width    = olddata.width,
+                    height   = olddata.height,
+                    depth    = olddata.depth,
+                }
+                hvi.glyph = addprivate(main,formatters["original-%H"](oldglyph),newdata)
+            end
+        end
+        local vv = olddata.vert_variants
+        if vv then
+            vv = fastcopy(vv)
+            newdata.vert_variants = vv
+            for i=1,#vv do
+                local vvi = vv[i]
+                local oldglyph = vvi.glyph
+                local olddata = original[oldglyph]
+                local newdata = {
+                    commands = { { "slot", slot, oldglyph } },
+                    width    = olddata.width,
+                    height   = olddata.height,
+                    depth    = olddata.depth,
+                }
+                vvi.glyph = addprivate(main,formatters["original-%H"](oldglyph),newdata)
+            end
+        end
+        return newdata
+    end
+end
+
+vfmath.copy_glyph = copy_glyph
+
 function vfmath.define(specification,set,goodies)
     local name = specification.name -- symbolic name
     local size = specification.size -- given size
@@ -624,7 +698,7 @@ function vfmath.define(specification,set,goodies)
                     shared[n] = { }
                 end
                 if trace_virtual then
-                    report_virtual("loading font %a subfont %s with name %a at %p as id %s using encoding %p",name,s,ssname,size,id,ss.vector)
+                    report_virtual("loading font %a subfont %s with name %a at %p as id %s using encoding %a",name,s,ssname,size,id,ss.vector)
                 end
                 if not ss.checked then
                     ss.checked = true
@@ -725,6 +799,7 @@ function vfmath.define(specification,set,goodies)
     parameters.x_height = parameters.x_height or 0
     --
     local already_reported = false
+    local parameters_done = false
     for s=1,n do
         local ss, fs = okset[s], loaded[s]
         if not fs then
@@ -733,7 +808,13 @@ function vfmath.define(specification,set,goodies)
             -- skip, redundant
         else
             local newparameters = fs.parameters
-            if not newparameters then
+            local newmathparameters = fs.mathparameters
+            if newmathparameters then
+                if not parameters_done or ss.parameters then
+                    mathparameters = newmathparameters
+                    parameters_done = true
+                end
+            elseif not newparameters then
                 report_virtual("no parameters set in font %a",name)
             elseif ss.extension then
                 mathparameters.math_x_height          = newparameters.x_height or 0        -- math_x_height          : height of x
@@ -764,187 +845,202 @@ function vfmath.define(specification,set,goodies)
                 mathparameters.axis_height   = newparameters[22] or 0                      -- axis_height            : height of fraction lines above the baseline
             --  report_virtual("loading and virtualizing font %a at size %p, setting sy parameters",name,size)
             end
-            local vectorname = ss.vector
-            if vectorname then
-                local offset = 0xFF000
-                local vector = mathencodings[vectorname]
-                local rotcev = reverse[vectorname]
-                local isextension = ss.extension
-                if vector and rotcev then
-                    local fc, fd, si = fs.characters, fs.descriptions, shared[s]
-                    local skewchar = ss.skewchar
-                    for unicode, index in next, vector do
-                        local fci = fc[index]
-                        if not fci then
-                            local fontname = fs.properties.name or "unknown"
-                            local rf = reported[fontname]
-                            if not rf then rf = { } reported[fontname] = rf end
-                            local rv = rf[vectorname]
-                            if not rv then rv = { } rf[vectorname] = rv end
-                            local ru = rv[unicode]
-                            if not ru then
-                                if trace_virtual then
-                                    report_virtual("unicode slot %U has no index %H in vector %a for font %a",unicode,index,vectorname,fontname)
-                                elseif not already_reported then
-                                    report_virtual("the mapping is incomplete for %a at %p",name,size)
-                                    already_reported = true
-                                end
-                                rv[unicode] = true
-                            end
-                        else
-                            local ref = si[index]
-                            if not ref then
-                                ref = { { 'slot', s, index } }
-                                si[index] = ref
-                            end
-                            local kerns = fci.kerns
-                            local width = fci.width
-                            local italic = fci.italic
-                            if italic and italic > 0 then
-                                    -- int_a^b
-                                if isextension then
-                                    width = width + italic -- for obscure reasons the integral as a width + italic correction
-                                end
-                            end
-                            if kerns then
-                                local krn = { }
-                                for k, v in next, kerns do -- kerns is sparse
-                                    local rk = rotcev[k]
-                                    if rk then
-                                        krn[rk] = v -- kerns[k]
-                                    end
-                                end
-                                if not next(krn) then
-                                    krn = nil
-                                end
-                                local t = {
-                                    width    = width,
-                                    height   = fci.height,
-                                    depth    = fci.depth,
-                                    italic   = italic,
-                                    kerns    = krn,
-                                    commands = ref,
-                                }
-                                if skewchar then
-                                    local k = kerns[skewchar]
-                                    if k then
-                                        t.top_accent = width/2 + k
+            if ss.overlay then
+                local fc = fs.characters
+                local first = ss.first
+                if first then
+                    local last = ss.last or first
+                    for unicode = first, last do
+                        characters[unicode] = copy_glyph(main,characters,fc,unicode,s)
+                    end
+                else
+                    for unicode, data in next, fc do
+                        characters[unicode] = copy_glyph(main,characters,fc,unicode,s)
+                    end
+                end
+            else
+                local vectorname = ss.vector
+                if vectorname then
+                    local offset = 0xFF000
+                    local vector = mathencodings[vectorname]
+                    local rotcev = reverse[vectorname]
+                    local isextension = ss.extension
+                    if vector and rotcev then
+                        local fc, fd, si = fs.characters, fs.descriptions, shared[s]
+                        local skewchar = ss.skewchar
+                        for unicode, index in next, vector do
+                            local fci = fc[index]
+                            if not fci then
+                                local fontname = fs.properties.name or "unknown"
+                                local rf = reported[fontname]
+                                if not rf then rf = { } reported[fontname] = rf end
+                                local rv = rf[vectorname]
+                                if not rv then rv = { } rf[vectorname] = rv end
+                                local ru = rv[unicode]
+                                if not ru then
+                                    if trace_virtual then
+                                        report_virtual("unicode slot %U has no index %H in vector %a for font %a",unicode,index,vectorname,fontname)
+                                    elseif not already_reported then
+                                        report_virtual("the mapping is incomplete for %a at %p",name,size)
+                                        already_reported = true
                                     end
+                                    rv[unicode] = true
                                 end
-                                characters[unicode] = t
                             else
-                                characters[unicode] = {
-                                    width    = width,
-                                    height   = fci.height,
-                                    depth    = fci.depth,
-                                    italic   = italic,
-                                    commands = ref,
-                                }
-                            end
-                        end
-                    end
-                    if isextension then
-                        -- todo: if multiple ex, then 256 offsets per instance
-                        local extension = mathencodings["large-to-small"]
-                        local variants_done = fs.variants_done
-                        for index, fci in next, fc do -- the raw ex file
-                            if type(index) == "number" then
                                 local ref = si[index]
                                 if not ref then
                                     ref = { { 'slot', s, index } }
                                     si[index] = ref
                                 end
+                                local kerns = fci.kerns
+                                local width = fci.width
                                 local italic = fci.italic
-                                local t = {
-                                    width    = fci.width,
-                                    height   = fci.height,
-                                    depth    = fci.depth,
-                                    italic   = italic,
-                                    commands = ref,
-                                }
-                                local n = fci.next
-                                if n then
-                                    t.next = offset + n
-                                elseif variants_done then
-                                    local vv = fci.vert_variants
-                                    if vv then
-                                        t.vert_variants = vv
-                                    end
-                                    local hv = fci.horiz_variants
-                                    if hv then
-                                        t.horiz_variants = hv
+                                if italic and italic > 0 then
+                                        -- int_a^b
+                                    if isextension then
+                                        width = width + italic -- for obscure reasons the integral as a width + italic correction
                                     end
-                                else
-                                    local vv = fci.vert_variants
-                                    if vv then
-                                        for i=1,#vv do
-                                            local vvi = vv[i]
-                                            vvi.glyph = vvi.glyph + offset
+                                end
+                                if kerns then
+                                    local krn = { }
+                                    for k, v in next, kerns do -- kerns is sparse
+                                        local rk = rotcev[k]
+                                        if rk then
+                                            krn[rk] = v -- kerns[k]
                                         end
-                                        t.vert_variants = vv
                                     end
-                                    local hv = fci.horiz_variants
-                                    if hv then
-                                        for i=1,#hv do
-                                            local hvi = hv[i]
-                                            hvi.glyph = hvi.glyph + offset
+                                    if not next(krn) then
+                                        krn = nil
+                                    end
+                                    local t = {
+                                        width    = width,
+                                        height   = fci.height,
+                                        depth    = fci.depth,
+                                        italic   = italic,
+                                        kerns    = krn,
+                                        commands = ref,
+                                    }
+                                    if skewchar then
+                                        local k = kerns[skewchar]
+                                        if k then
+                                            t.top_accent = width/2 + k
                                         end
-                                        t.horiz_variants = hv
                                     end
+                                    characters[unicode] = t
+                                else
+                                    characters[unicode] = {
+                                        width    = width,
+                                        height   = fci.height,
+                                        depth    = fci.depth,
+                                        italic   = italic,
+                                        commands = ref,
+                                    }
                                 end
-                                characters[offset + index] = t
                             end
                         end
-                        fs.variants_done = true
-                        for unicode, index in next, extension do
-                            local cu = characters[unicode]
-                            if cu then
-                                cu.next = offset + index
-                            else
-                                local fci = fc[index]
-                                if not fci then
-                                    -- do nothing
-                                else
-                                    -- probably never entered
+                        if isextension then
+                            -- todo: if multiple ex, then 256 offsets per instance
+                            local extension = mathencodings["large-to-small"]
+                            local variants_done = fs.variants_done
+                            for index, fci in next, fc do -- the raw ex file
+                                if type(index) == "number" then
                                     local ref = si[index]
                                     if not ref then
                                         ref = { { 'slot', s, index } }
                                         si[index] = ref
                                     end
-                                    local kerns = fci.kerns
-                                    if kerns then
-                                        local krn = { }
-                                     -- for k=1,#kerns do
-                                     --     krn[offset + k] = kerns[k]
-                                     -- end
-                                        for k, v in next, kerns do -- is kerns sparse?
-                                            krn[offset + k] = v
+                                    local italic = fci.italic
+                                    local t = {
+                                        width    = fci.width,
+                                        height   = fci.height,
+                                        depth    = fci.depth,
+                                        italic   = italic,
+                                        commands = ref,
+                                    }
+                                    local n = fci.next
+                                    if n then
+                                        t.next = offset + n
+                                    elseif variants_done then
+                                        local vv = fci.vert_variants
+                                        if vv then
+                                            t.vert_variants = vv
+                                        end
+                                        local hv = fci.horiz_variants
+                                        if hv then
+                                            t.horiz_variants = hv
                                         end
-                                        characters[unicode] = {
-                                            width    = fci.width,
-                                            height   = fci.height,
-                                            depth    = fci.depth,
-                                            italic   = fci.italic,
-                                            commands = ref,
-                                            kerns    = krn,
-                                            next     = offset + index,
-                                        }
                                     else
-                                        characters[unicode] = {
-                                            width    = fci.width,
-                                            height   = fci.height,
-                                            depth    = fci.depth,
-                                            italic   = fci.italic,
-                                            commands = ref,
-                                            next     = offset + index,
-                                        }
+                                        local vv = fci.vert_variants
+                                        if vv then
+                                            for i=1,#vv do
+                                                local vvi = vv[i]
+                                                vvi.glyph = vvi.glyph + offset
+                                            end
+                                            t.vert_variants = vv
+                                        end
+                                        local hv = fci.horiz_variants
+                                        if hv then
+                                            for i=1,#hv do
+                                                local hvi = hv[i]
+                                                hvi.glyph = hvi.glyph + offset
+                                            end
+                                            t.horiz_variants = hv
+                                        end
+                                    end
+                                    characters[offset + index] = t
+                                end
+                            end
+                            fs.variants_done = true
+                            for unicode, index in next, extension do
+                                local cu = characters[unicode]
+                                if cu then
+                                    cu.next = offset + index
+                                else
+                                    local fci = fc[index]
+                                    if not fci then
+                                        -- do nothing
+                                    else
+                                        -- probably never entered
+                                        local ref = si[index]
+                                        if not ref then
+                                            ref = { { 'slot', s, index } }
+                                            si[index] = ref
+                                        end
+                                        local kerns = fci.kerns
+                                        if kerns then
+                                            local krn = { }
+                                         -- for k=1,#kerns do
+                                         --     krn[offset + k] = kerns[k]
+                                         -- end
+                                            for k, v in next, kerns do -- is kerns sparse?
+                                                krn[offset + k] = v
+                                            end
+                                            characters[unicode] = {
+                                                width    = fci.width,
+                                                height   = fci.height,
+                                                depth    = fci.depth,
+                                                italic   = fci.italic,
+                                                commands = ref,
+                                                kerns    = krn,
+                                                next     = offset + index,
+                                            }
+                                        else
+                                            characters[unicode] = {
+                                                width    = fci.width,
+                                                height   = fci.height,
+                                                depth    = fci.depth,
+                                                italic   = fci.italic,
+                                                commands = ref,
+                                                next     = offset + index,
+                                            }
+                                        end
                                     end
                                 end
                             end
                         end
+                    else
+                        report_virtual("error in loading %a, problematic vector %a",name,vectorname)
                     end
-                else
-                    report_virtual("error in loading %a, problematic vector %a",name,vectorname)
                 end
             end
             mathematics.extras.copy(main) --not needed here (yet)
diff --git a/tex/context/base/status-files.pdf b/tex/context/base/status-files.pdf
index ab7f03967..f9d931bab 100644
--- a/tex/context/base/status-files.pdf
+++ b/tex/context/base/status-files.pdf
diff --git a/tex/context/base/status-lua.log b/tex/context/base/status-lua.log
index d5601fd3d..faa75cfaa 100644
--- a/tex/context/base/status-lua.log
+++ b/tex/context/base/status-lua.log
@@ -1,6 +1,6 @@
 (cont-yes.mkiv
 
-ConTeXt  ver: 2013.08.07 14:40 MKIV beta  fmt: 2013.8.7  int: english/english
+ConTeXt  ver: 2013.08.07 20:18 MKIV beta  fmt: 2013.8.7  int: english/english
 
 system          > 'cont-new.mkiv' loaded
 (cont-new.mkiv)
diff --git a/tex/context/base/type-imp-euler.mkiv b/tex/context/base/type-imp-euler.mkiv
index 60b9760f5..fc938dea3 100644
--- a/tex/context/base/type-imp-euler.mkiv
+++ b/tex/context/base/type-imp-euler.mkiv
@@ -13,34 +13,50 @@
 
 \loadtypescriptfile[texgyre]
 
-\starttypescriptcollection[pagella-euler]
+\resetfontfallback  [eulernovum]
+\definefontfallback [eulernovum] [\s!file:euler.otf] ["0000-"FFFF] [\s!check=\v!yes,\c!force=\v!yes]
 
-    \starttypescript [\s!math] [euler]
-        \definefontsynonym [EulerMath] [\s!file:euler.otf]
-    \stoptypescript
+\starttypescriptcollection[pagella-eulernova]
 
-    \starttypescript [\s!math] [euler] [\s!name]
-    %   \definefontsynonym [MathRoman] [EulerMath] [\s!features=\s!math]
-        \definefontsynonym [MathRoman] [EulerMath] [\s!features=\s!math\mathsizesuffix]
+    \starttypescript [\s!math] [eulernova] [\s!name]
+        \loadfontgoodies[euler-math]
+        \definefontsynonym [MathRoman] [eulermath@euler-nova] [\s!features=\s!math\mathsizesuffix]
     \stoptypescript
 
-    \starttypescript [pagella-euler]
-        \definetypeface [\typescriptone] [\s!rm] [\s!serif] [pagella] [\s!default]
-    %   \definetypeface [\typescriptone] [\s!ss] [\s!sans]  [pagella] [\s!default]
-        \definetypeface [\typescriptone] [\s!tt] [\s!mono]  [modern]  [\s!default]
-        \definetypeface [\typescriptone] [\s!mm] [\s!math]  [euler]   [\s!default]
-        \quittypescriptscanning
+    \starttypescript [\s!serif] [eulernovum] [\s!name]
+        \definefontsynonym [MathRoman] [texgyrepagella-math] [\s!features=\s!math\mathsizesuffix,\s!fallbacks=eulernovum]
     \stoptypescript
 
-    \starttypescript [\s!serif] [euler] [\s!name]
+    \starttypescript [\s!serif] [eulernova,eulernovum] [\s!name]
         \setups[\s!font:\s!fallback:\s!serif]
         \definefontsynonym [\s!Serif] [\s!file:euler.otf] [\s!features=\s!default]
     \stoptypescript
 
-    \starttypescript [euler]
-        \definetypeface [euler] [\s!rm] [\s!serif] [euler]  [\s!default]
-        \definetypeface [euler] [\s!tt] [\s!mono]  [modern] [\s!default]
-        \definetypeface [euler] [\s!mm] [\s!math]  [euler]  [\s!default]
+    \starttypescript [pagella-eulernova]
+        \definetypeface [\typescriptone] [\s!rm] [\s!serif] [pagella]   [\s!default]
+        \definetypeface [\typescriptone] [\s!tt] [\s!mono]  [modern]    [\s!default]
+        \definetypeface [\typescriptone] [\s!mm] [\s!math]  [eulernova] [\s!default]
+        \quittypescriptscanning
+    \stoptypescript
+
+    \starttypescript [pagella-eulernovum]
+        \definetypeface [\typescriptone] [\s!rm] [\s!serif] [pagella]    [\s!default]
+        \definetypeface [\typescriptone] [\s!tt] [\s!mono]  [modern]     [\s!default]
+        \definetypeface [\typescriptone] [\s!mm] [\s!math]  [eulernovum] [\s!default]
+        \quittypescriptscanning
+    \stoptypescript
+
+    \starttypescript [eulernova]
+        \definetypeface [\typescriptone] [\s!rm] [\s!serif] [eulernova] [\s!default]
+        \definetypeface [\typescriptone] [\s!tt] [\s!mono]  [modern]    [\s!default]
+        \definetypeface [\typescriptone] [\s!mm] [\s!math]  [eulernova] [\s!default]
+        \quittypescriptscanning
+    \stoptypescript
+
+    \starttypescript [eulernovum]
+        \definetypeface [\typescriptone] [\s!rm] [\s!serif] [eulernovum] [\s!default]
+        \definetypeface [\typescriptone] [\s!tt] [\s!mono]  [modern]     [\s!default]
+        \definetypeface [\typescriptone] [\s!mm] [\s!math]  [eulernovum] [\s!default]
         \quittypescriptscanning
     \stoptypescript
 
diff --git a/tex/context/base/type-set.mkiv b/tex/context/base/type-set.mkiv
index bfbf7af9e..a3e54c3f4 100644
--- a/tex/context/base/type-set.mkiv
+++ b/tex/context/base/type-set.mkiv
@@ -95,4 +95,7 @@
 %definefilesynonym [type-imp-mac.mkiv]                  [type-imp-osx.mkiv]
 %definefilesynonym [type-imp-win.mkiv]                  [type-imp-mscore.mkiv]
 
+\definefilesynonym [type-imp-eulernovum.mkiv]           [type-imp-euler.mkiv]
+\definefilesynonym [type-imp-eulernova.mkiv]            [type-imp-euler.mkiv]
+
 \protect \endinput
diff --git a/tex/context/fonts/euler-math.lfg b/tex/context/fonts/euler-math.lfg
new file mode 100644
index 000000000..4f11a0822
--- /dev/null
+++ b/tex/context/fonts/euler-math.lfg
@@ -0,0 +1,23 @@
+-- this file might go away and is for experiments only
+
+return {
+    name = "euler-math",
+    version = "1.00",
+    comment = "Goodies that complement euler math.",
+    author = "Hans Hagen",
+    copyright = "ConTeXt development team",
+    mathematics = {
+        virtuals = {
+            ["euler-nova"] = {
+                { name = "texgyrepagella-math.otf", main = true, parameters = true },
+                { name = "euler.otf", overlay = true }, -- first = 0x1234, last = 0x1256
+
+             -- { name = "euler.otf", main = true, parameters = true },
+             -- { name = "texgyrepagella-math.otf", overlay = true },
+
+            },
+        }
+    }
+}
+
+
diff --git a/tex/context/fonts/px-math.lfg b/tex/context/fonts/px-math.lfg
index 2996a55e5..14f71dad3 100644
--- a/tex/context/fonts/px-math.lfg
+++ b/tex/context/fonts/px-math.lfg
@@ -10,7 +10,7 @@ return {
         },
         virtuals = {
             ["px-math"] = {
-                { name = "texgyrepagella-regular.otf", features = "virtualmath", main = true },
+                { name = "texgyre-pagella-math-regular.otf", features = "virtualmath", main = true },
                 { name = "texgyrepagella-regular.otf", features = "virtualmath", vector = "tex-mr-missing" } ,
                 { name = "rpxr.tfm", vector = "tex-mr" } ,
                 { name = "rpxmi.tfm", vector = "tex-mi", skewchar=0x7F },
diff --git a/tex/generic/context/luatex/luatex-fonts-merged.lua b/tex/generic/context/luatex/luatex-fonts-merged.lua
index 93a3de890..5e8c56cea 100644
--- a/tex/generic/context/luatex/luatex-fonts-merged.lua
+++ b/tex/generic/context/luatex/luatex-fonts-merged.lua
@@ -1,6 +1,6 @@
 -- merged file : luatex-fonts-merged.lua
 -- parent file : luatex-fonts.lua
--- merge date  : 08/07/13 14:40:18
+-- merge date  : 08/07/13 20:18:38
 
 do -- begin closure to overcome local limits and interference