%\environment fag-math
\definetypeface [charter]  [rm] [serif] [modern]   [default]
\definetypeface [charter]  [mm] [math]  [charter]  [default][text=rm]


\definetypeface [utopia]   [rm] [serif] [modern]   [default]
\definetypeface [utopia]   [mm] [math]  [utopia]   [default][text=rm]


\definetypeface [garamond] [rm] [serif] [modern]   [default]
\definetypeface [garamond] [mm] [math]  [garamond] [default][text=rm]


\definemathcommand [AB]      {{\mathblackboard A}}
\definemathcommand [AC]      {{\mathcal A}}
\def\image{{\mathrm{Im}}}
\def\af{\mathfrak{a}}
\definemathcommand [closure]  [nolop] {\mfunction{cl}}

\setupheads[align=middle]

\starttext

\subject{Latin Modern}

\startformula
c^2 = a^2(a[f]) + b^2 \AB\quad \AC\quad \image\quad \af\quad \closure
\stopformula

\startformula
\sum \int abc \alpha\beta\gamma \Theta\Sigma\Epsilon
\stopformula

\subject{Charter}

\switchtobodyfont[charter]

\startformula
c^2 = a^2(a[f]) + b^2 \AB\quad \AC\quad \image\quad \af\quad \closure
\stopformula

\startformula
\sum \int abc \alpha\beta\gamma \Theta\Sigma\Epsilon
\stopformula

\subject{Utopia}

\switchtobodyfont[utopia]

\startformula
c^2 = a^2(a[f]) + b^2 \AB\quad \AC\quad \image\quad \af\quad \closure
\stopformula

\startformula
\sum \int abc \alpha\beta\gamma \Theta\Sigma\Epsilon
\stopformula

\subject{Garamond}

\switchtobodyfont[garamond]

\startformula
c^2 = a^2(a[f]) + b^2 \AB\quad \AC\quad \image\quad \af\quad \closure
\stopformula

\startformula
\sum \int abc \alpha\beta\gamma \Theta\Sigma\Epsilon
\stopformula

\stoptext