Dear Hans and dear list,

I try to use the fourier/utopia combination in mkiv (I used that combination for my PhD thesis in mkii 10 years ago). 

First of all, I have downloaded the fourier fonts from ctan at https://ctan.org/tex-archive/fonts/fourier-GUT . The fonts are found by mtxrun.

I have one folder containing type-fourier.mkiv, fourier-math.lfg and testfile.tex. Everything seems to be found by the system, so the problem is probably in my files somewhere. The resulting pdf after compiling testfile.text is attached.

Any ideas of what I am missing?

Additionally, the fourier fonts come with fourier-bb.tfm (probably with blackboard bold), fourier-mcl (probably so that one can use mathcal). Any ideas on how to use them in the fourier-math.lfg file?

If more information is needed, then please tell me.

/Mikael

%%%
type-fourier.mkiv:
%%%
\starttypescriptcollection[fourier]
    \starttypescript [serif] [fourier]
        \definefontsynonym [Utopia-Regular]     [file:putr8a.afm]
        \definefontsynonym [Utopia-Italic]      [file:putri8a.afm]
        \definefontsynonym [Utopia-Bold]        [file:putb8a.afm]
        \definefontsynonym [Utopia-BoldItalic]  [file:putbi8a.afm]
    \stoptypescript

    \starttypescript [serif] [fourier] [name]
                \setups[font:fallback:serif]
        \definefontsynonym [Serif]            [Utopia-Regular]
        \definefontsynonym [SerifItalic]      [Utopia-Italic]
        \definefontsynonym [SerifBold]        [Utopia-Bold]
        \definefontsynonym [SerifBoldItalic]  [Utopia-BoldItalic]
    \stoptypescript

    \starttypescript [math] [fourier] [all]
        \loadfontgoodies[fourier-math]
        \definefontsynonym [MathRoman]     [fourierrm@fourier-rm]
    \stoptypescript

    \starttypescript [fourier]
        \definetypeface [\typescriptone] [rm] [serif] [fourier] [default]
        \definetypeface [\typescriptone] [ss] [sans]  [modern]  [default]
        \definetypeface [\typescriptone] [tt] [mono]  [modern]  [default]
        \definetypeface [\typescriptone] [mm] [math]  [fourier] [default]
        \quittypescriptscanning
    \stoptypescript
\stoptypescriptcollection


%%%
fourier-math.lfg:
%%%
return {
    name = "fourier-math",
    version = "1.00",
    comment = "Math font Fourier for Utopia.",
    mathematics = {
        mapfiles = {
            "fourier.map",
            "mkiv-base.map",
        },
        virtuals = {
            ["fourier-rm"] = {
                { name = "putr8a", features = "virtualmath", main = true },
                { name = "fourier-ml.tfm",  vector = "tex-mr", skewchar=0x7F },
                { name = "fourier-mlit.tfm", vector = "tex-mi", skewchar=0x7F },
                { name = "fourier-mlit.tfm", vector = "tex-it", skewchar=0x7F },
                { name = "fourier-mlb.tfm",  vector = "tex-bf", skewchar=0x7F },
                { name = "fourier-mlitb.tfm", vector = "tex-bi", skewchar=0x7F },
                { name = "fourier-ms.tfm",  vector = "tex-sy", skewchar=0x30, parameters = true },
                { name = "fourier-mex.tfm",  vector = "tex-ex", extension = true },
                msam,
                msbm,
            },
        }
    }
}

%%%
testfile.tex:
%%%
\loadtypescriptfile[type-fourier]
\setupbodyfont[fourier,12pt]

\starttext
\startTEXpage[offset=3bp]
Some math: $y''=(y')'$.
A displayed formula:
\startformula
f(x) = f(0)+\int_0^x \bigl(f'(t)\bigr)\,dt.
\stopformula
\stopTEXpage
\stoptext