%D \module
%D   [       file=type-syn,
%D        version=2001.04.12,
%D          title=\CONTEXT\ Typescript Macros,
%D       subtitle=Filename scripts,
%D         author=Hans Hagen,
%D           date=\currentdate,
%D      copyright={PRAGMA / Hans Hagen \& Ton Otten}]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.

% Simple Minded Fonts / to be redone so that it's not bound to modern

\starttypescript [serif] [simple] [name]
  \definefontsynonym [Serif]            [Simple]
  \definefontsynonym [SerifBold]        [Serif]
  \definefontsynonym [SerifItalic]      [Serif]
  \definefontsynonym [SerifSlanted]     [Serif]
  \definefontsynonym [SerifBoldItalic]  [Serif]
  \definefontsynonym [SerifBoldSlanted] [Serif]
  \definefontsynonym [SerifCaps]        [Serif]
\stoptypescript

% \starttypescript [sans] [simple] [name]
%   \definefontsynonym [Sans]            [Simple]
%   \definefontsynonym [SansBold]        [Sans]
%   \definefontsynonym [SansItalic]      [Sans]
%   \definefontsynonym [SansSlanted]     [Sans]
%   \definefontsynonym [SansBoldItalic]  [Sans]
%   \definefontsynonym [SansBoldSlanted] [Sans]
%   \definefontsynonym [SansCaps]        [Sans]
% \stoptypescript

% Computer Modern Roman : Donald Knuth

\starttypescript [serif] [computer-modern,latin-modern] [name]
  \definefontsynonym [Serif]            [ComputerModern]
  \definefontsynonym [SerifBold]        [ComputerModern-Bold]
  \definefontsynonym [SerifItalic]      [ComputerModern-Italic]
  \definefontsynonym [SerifSlanted]     [ComputerModern-Slanted]
  \definefontsynonym [SerifBoldItalic]  [ComputerModern-BoldItalic]
  \definefontsynonym [SerifBoldSlanted] [ComputerModern-BoldSlanted]
  \definefontsynonym [SerifCaps]        [ComputerModern-Caps]
\stoptypescript

\starttypescript [sans] [computer-modern,latin-modern] [name]
  \definefontsynonym [Sans]             [ComputerModernSans]
  \definefontsynonym [SansBold]         [ComputerModernSans-Bold]
  \definefontsynonym [SansItalic]       [ComputerModernSans-Italic]
  \definefontsynonym [SansSlanted]      [ComputerModernSans-Slanted]
  \definefontsynonym [SansBoldItalic]   [ComputerModernSans-BoldItalic]
  \definefontsynonym [SansBoldSlanted]  [ComputerModernSans-BoldSlanted]
  \definefontsynonym [SansCaps]         [ComputerModernSans-Caps]
\stoptypescript

\starttypescript [mono] [computer-modern,latin-modern] [name]
  \definefontsynonym [Mono]             [ComputerModernMono]
  \definefontsynonym [MonoBold]         [ComputerModernMono-Bold]
  \definefontsynonym [MonoItalic]       [ComputerModernMono-Italic]
  \definefontsynonym [MonoSlanted]      [ComputerModernMono-Slanted]
  \definefontsynonym [MonoBoldItalic]   [ComputerModernMono-BoldItalic]
  \definefontsynonym [MonoBoldSlanted]  [ComputerModernMono-BoldSlanted]
  \definefontsynonym [MonoCaps]         [ComputerModernMono-Caps]
\stoptypescript

\starttypescript [math] [computer-modern,latin-modern] [name]
  \definefontsynonym [MathRoman]        [ComputerModernMath-Roman]
  \definefontsynonym [MathExtension]    [ComputerModernMath-Extension]
  \definefontsynonym [MathItalic]       [ComputerModernMath-Italic]
  \definefontsynonym [MathSymbol]       [ComputerModernMath-Symbol]
\stoptypescript

\starttypescript [boldmath] [computer-modern,latin-modern] [name]
  \definefontsynonym [MathRoman]        [ComputerModernMath-Roman-Bold]
  \definefontsynonym [MathExtension]    [ComputerModernMath-Extension]
  \definefontsynonym [MathItalic]       [ComputerModernMath-Italic-Bold]
  \definefontsynonym [MathSymbol]       [ComputerModernMath-Symbol-Bold]
\stoptypescript

\starttypescript [bfmath] [computer-modern,latin-modern] [name]
  \definefontsynonym [MathRomanBold]    [ComputerModernMath-Roman-Bold]
  \definefontsynonym [MathExtension]    [ComputerModernMath-Extension]
  \definefontsynonym [MathItalicBold]   [ComputerModernMath-Italic-Bold]
  \definefontsynonym [MathSymbolBold]   [ComputerModernMath-Symbol-Bold]
\stoptypescript

\starttypescript [serif] [computer-modern-vari,latin-modern-vari] [name]
  \definefontsynonym [Serif]            [ComputerModernMono-Variable]
  \definefontsynonym [SerifBold]        [Serif]
  \definefontsynonym [SerifItalic]      [Serif]
  \definefontsynonym [SerifSlanted]     [SerifItalic]
  \definefontsynonym [SerifBoldItalic]  [SerifItalic]
  \definefontsynonym [SerifBoldSlanted] [SerifSlanted]
  \definefontsynonym [SerifCaps]        [Serif]
\stoptypescript

% This will change some day.

\starttypescript [math] [computer-modern,latin-modern] [name]
  \definefontsynonym [OldStyle]     [MathItalic]
  \definefontsynonym [Fraktur]      [eufm10]
  \definefontsynonym [Blackboard]   [msbm10]
  \definefontsynonym [Gothic]       [eufm10]
  \definefontsynonym [Calligraphic] [cmsy10]
\stoptypescript

% Concrete Modern Roman : Donald Knuth

\starttypescript [serif] [concrete] [name]
  \definefontsynonym [Serif]            [ComputerConcrete]
  \definefontsynonym [SerifBold]        [ComputerConcrete]
  \definefontsynonym [SerifItalic]      [ComputerConcrete-Italic]
  \definefontsynonym [SerifSlanted]     [ComputerConcrete-Slanted]
  \definefontsynonym [SerifBoldItalic]  [ComputerConcrete-Italic]
  \definefontsynonym [SerifBoldSlanted] [ComputerConcrete-Slanted]
  \definefontsynonym [SerifCaps]        [ComputerConcrete-Caps]
\stoptypescript

% Euler : Hermann Zapf

\starttypescript [math] [euler] [name]
  \definefontsynonym [MathRoman]     [Euler-Roman]      % mr
  \definefontsynonym [MathItalic]    [Euler-Fraktur]      % mi
  \definefontsynonym [MathExtension] [Euler-Extension]  % ex
  \definefontsynonym [MathSymbol]    [Euler-Symbol]     % sy
\stoptypescript

\starttypescript [boldmath] [euler] [name]
  \definefontsynonym [MathRoman]     [Euler-Roman-Bold]     % mr
  \definefontsynonym [MathItalic]    [Euler-Fraktur-Bold]     % mi
  \definefontsynonym [MathExtension] [Euler-Extension]      % ex
  \definefontsynonym [MathSymbol]    [Euler-Symbol-Bold]    % sy
\stoptypescript

\starttypescript [bfmath] [euler] [name]
  \definefontsynonym [MathRomanBold]  [Euler-Roman-Bold]     % mr
  \definefontsynonym [MathItalicBold] [Euler-Fraktur-Bold]     % mi
  \definefontsynonym [MathExtension]  [Euler-Extension]      % ex
  \definefontsynonym [MathSymbolBold] [Euler-Symbol-Bold]    % sy
\stoptypescript

\starttypescript [math] [euler] [name]
  \definefontsynonym [OldStyle]     [MathItalic]
  \definefontsynonym [Fraktur]      [MathItalic]
  \definefontsynonym [Gothic]       [MathItalic]
  \definefontsynonym [Calligraphic] [MathSymbol]
\stoptypescript

\starttypescript [boldmath] [euler] [name]
  \definefontsynonym [OldStyle]     [MathItalicBold]
  \definefontsynonym [Fraktur]      [MathItalicBold]
  \definefontsynonym [Gothic]       [MathItalicBold]
  \definefontsynonym [Calligraphic] [MathSymbolBold]
\stoptypescript

% American Math Society : Michael Spivak

\starttypescript [math] [computer-modern,latin-modern,ams] [name]
  \definefontsynonym [MathAlpha] [AMS-SymbolA]
  \definefontsynonym [MathBeta]  [AMS-SymbolB]
\stoptypescript

% Antykwa Torunska :

% \starttypescript [serif] [antykwa-torunska] [name]
%   \definefontsynonym [Serif]            [AntykwaTorunska-Regular]
%   \definefontsynonym [SerifBold]        [AntykwaTorunska-Bold]
%   \definefontsynonym [SerifItalic]      [AntykwaTorunska-Italic]
%   \definefontsynonym [SerifSlanted]     [AntykwaTorunska-Italic]
%   \definefontsynonym [SerifBoldItalic]  [AntykwaTorunska-Bold]
%   \definefontsynonym [SerifBoldSlanted] [AntykwaTorunska-Bold]
%   \definefontsynonym [SerifCaps]        [AntykwaTorunska-Regular]
% \stoptypescript

\starttypescript [serif] [antykwa-torunska] [name]
  \definefontsynonym [Serif]            [AntykwaTorunska-Regular]
  \definefontsynonym [SerifBold]        [AntykwaTorunska-Bold]
  \definefontsynonym [SerifItalic]      [AntykwaTorunska-Italic]
  \definefontsynonym [SerifSlanted]     [AntykwaTorunska-Italic]
  \definefontsynonym [SerifBoldItalic]  [AntykwaTorunska-BoldItalic]
  \definefontsynonym [SerifBoldSlanted] [AntykwaTorunska-BoldItalic]
  \definefontsynonym [SerifCaps]        [AntykwaTorunska-Cap]
\stoptypescript

\starttypescript [serif] [antykwa-torunska-light] [name]
  \definefontsynonym [Serif]            [AntykwaTorunska-Light]
  \definefontsynonym [SerifBold]        [AntykwaTorunska-Medium]
  \definefontsynonym [SerifItalic]      [AntykwaTorunska-LightItalic]
  \definefontsynonym [SerifSlanted]     [AntykwaTorunska-LightItalic]
  \definefontsynonym [SerifBoldItalic]  [AntykwaTorunska-MedItalic]
  \definefontsynonym [SerifBoldSlanted] [AntykwaTorunska-MedItalic]
  \definefontsynonym [SerifCaps]        [AntykwaTorunska-LightCap]
\stoptypescript

\starttypescript [serif] [antykwa-torunska-cond] [name]
  \definefontsynonym [Serif]            [AntykwaTorunska-CondRegular]
  \definefontsynonym [SerifBold]        [AntykwaTorunska-CondBold]
  \definefontsynonym [SerifItalic]      [AntykwaTorunska-CondItalic]
  \definefontsynonym [SerifSlanted]     [AntykwaTorunska-CondItalic]
  \definefontsynonym [SerifBoldItalic]  [AntykwaTorunska-CondBoldItalic]
  \definefontsynonym [SerifBoldSlanted] [AntykwaTorunska-CondBoldItalic]
  \definefontsynonym [SerifCaps]        [AntykwaTorunska-CondCap]
\stoptypescript

\starttypescript [serif] [antykwa-torunska-lightcond] [name]
  \definefontsynonym [Serif]            [AntykwaTorunska-CondLight]
  \definefontsynonym [SerifBold]        [AntykwaTorunska-CondMedium]
  \definefontsynonym [SerifItalic]      [AntykwaTorunska-CondLightItalic]
  \definefontsynonym [SerifSlanted]     [AntykwaTorunska-CondLightItalic]
  \definefontsynonym [SerifBoldItalic]  [AntykwaTorunska-CondMedItalic]
  \definefontsynonym [SerifBoldSlanted] [AntykwaTorunska-CondMedItalic]
  \definefontsynonym [SerifCaps]        [AntykwaTorunska-CondLightCap]
\stoptypescript

\starttypescript [serif] [antykwa-torunska] [name]
  \definefontsynonym [SerifRegular]         [Serif]
  \definefontsynonym [SerifRegularCaps]     [AntykwaTorunska-Cap]
  \definefontsynonym [SerifBoldCaps]        [AntykwaTorunska-BoldCap]
  \definefontsynonym [SerifItalicCaps]      [AntykwaTorunska-ItalicCap]
  \definefontsynonym [SerifSlantedCaps]     [AntykwaTorunska-ItalicCap]
  \definefontsynonym [SerifBoldItalicCaps]  [AntykwaTorunska-BoldItalicCap]
  \definefontsynonym [SerifBoldSlantedCaps] [AntykwaTorunska-BoldItalicCap]
  \definefontsynonym [SerifCapsCaps]        [AntykwaTorunska-Cap]

  \definefontvariant [Serif][osf][Caps]
  \definefontvariant [Serif][sc] [Caps]

  \definefontsynonym [SerifRegularLight]     [AntykwaTorunska-Light]
  \definefontsynonym [SerifBoldLight]        [AntykwaTorunska-Medium]
  \definefontsynonym [SerifItalicLight]      [AntykwaTorunska-LightItalic]
  \definefontsynonym [SerifSlantedLight]     [AntykwaTorunska-LightItalic]
  \definefontsynonym [SerifBoldItalicLight]  [AntykwaTorunska-MedItalic]
  \definefontsynonym [SerifBoldSlantedLight] [AntykwaTorunska-MedItalic]
  \definefontsynonym [SerifCapsLight]        [AntykwaTorunska-LightCap]

  \definefontvariant [Serif][lt][Light]

  \definefontsynonym [SerifRegularCond]     [AntykwaTorunska-CondRegular]
  \definefontsynonym [SerifBoldCond]        [AntykwaTorunska-CondBold]
  \definefontsynonym [SerifItalicCond]      [AntykwaTorunska-CondItalic]
  \definefontsynonym [SerifSlantedCond]     [AntykwaTorunska-CondItalic]
  \definefontsynonym [SerifBoldItalicCond]  [AntykwaTorunska-CondBoldItalic]
  \definefontsynonym [SerifBoldSlantedCond] [AntykwaTorunska-CondBoldItalic]
  \definefontsynonym [SerifCapsCond]        [AntykwaTorunska-CondCap]

  \definefontvariant [Serif][cond][Cond]

\stoptypescript

\starttypescript [serif] [antykwa-torunska-light] [name]
  \definefontsynonym [SerifRegular]         [Serif]
  \definefontsynonym [SerifRegularCaps]     [AntykwaTorunska-LightCap]
  \definefontsynonym [SerifBoldCaps]        [AntykwaTorunska-MediumCap]
  \definefontsynonym [SerifItalicCaps]      [AntykwaTorunska-LightItalicCap]
  \definefontsynonym [SerifSlantedCaps]     [AntykwaTorunska-LightItalicCap]
  \definefontsynonym [SerifBoldItalicCaps]  [AntykwaTorunska-MedItalicCap]
  \definefontsynonym [SerifBoldSlantedCaps] [AntykwaTorunska-MedItalicCap]
  \definefontsynonym [SerifCapsCaps]        [AntykwaTorunska-LightCap]

  \definefontvariant [Serif][osf][Caps]
  \definefontvariant [Serif][sc] [Caps]

  \definefontsynonym [SerifRegularDark]     [AntykwaTorunska-Regular]
  \definefontsynonym [SerifBoldDark]        [AntykwaTorunska-Bold]
  \definefontsynonym [SerifItalicDark]      [AntykwaTorunska-Italic]
  \definefontsynonym [SerifSlantedDark]     [AntykwaTorunska-Italic]
  \definefontsynonym [SerifBoldItalicDark]  [AntykwaTorunska-BoldItalic]
  \definefontsynonym [SerifBoldSlantedDark] [AntykwaTorunska-BoldItalic]
  \definefontsynonym [SerifCapsDark]        [AntykwaTorunska-Cap]

  \definefontvariant [Serif][dk][Dark]

  \definefontsynonym [SerifRegularCond]     [AntykwaTorunska-CondLight]
  \definefontsynonym [SerifBoldCond]        [AntykwaTorunska-CondMedium]
  \definefontsynonym [SerifItalicCond]      [AntykwaTorunska-CondLightItalic]
  \definefontsynonym [SerifSlantedCond]     [AntykwaTorunska-CondLightItalic]
  \definefontsynonym [SerifBoldItalicCond]  [AntykwaTorunska-CondMedItalic]
  \definefontsynonym [SerifBoldSlantedCond] [AntykwaTorunska-CondMedItalic]
  \definefontsynonym [SerifCapsCond]        [AntykwaTorunska-CondLightCap]

  \definefontvariant [Serif][cond][Cond]

\stoptypescript

\starttypescript [serif] [antykwa-torunska-cond] [name]
  \definefontsynonym [SerifRegular]         [Serif]
  \definefontsynonym [SerifRegularCaps]     [AntykwaTorunska-CondCap]
  \definefontsynonym [SerifBoldCaps]        [AntykwaTorunska-CondBoldCap]
  \definefontsynonym [SerifItalicCaps]      [AntykwaTorunska-CondItalicCap]
  \definefontsynonym [SerifSlantedCaps]     [AntykwaTorunska-CondItalicCap]
  \definefontsynonym [SerifBoldItalicCaps]  [AntykwaTorunska-CondBoldItalicCap]
  \definefontsynonym [SerifBoldSlantedCaps] [AntykwaTorunska-CondBoldItalicCap]
  \definefontsynonym [SerifCapsCaps]        [AntykwaTorunska-CondCap]

  \definefontvariant [Serif][osf][Caps]
  \definefontvariant [Serif][sc] [Caps]

  \definefontsynonym [SerifRegularLight]     [AntykwaTorunska-CondLight]
  \definefontsynonym [SerifBoldLight]        [AntykwaTorunska-CondMedium]
  \definefontsynonym [SerifItalicLight]      [AntykwaTorunska-CondLightItalic]
  \definefontsynonym [SerifSlantedLight]     [AntykwaTorunska-CondLightItalic]
  \definefontsynonym [SerifBoldItalicLight]  [AntykwaTorunska-CondMedItalic]
  \definefontsynonym [SerifBoldSlantedLight] [AntykwaTorunska-CondMedItalic]
  \definefontsynonym [SerifCapsLight]        [AntykwaTorunska-CondLightCap]

  \definefontvariant [Serif][lt][Light]

  \definefontsynonym [SerifRegularExp]     [AntykwaTorunska-Regular]
  \definefontsynonym [SerifBoldExp]        [AntykwaTorunska-Bold]
  \definefontsynonym [SerifItalicExp]      [AntykwaTorunska-Italic]
  \definefontsynonym [SerifSlantedExp]     [AntykwaTorunska-Italic]
  \definefontsynonym [SerifBoldItalicExp]  [AntykwaTorunska-BoldItalic]
  \definefontsynonym [SerifBoldSlantedExp] [AntykwaTorunska-BoldItalic]
  \definefontsynonym [SerifCapsExp]        [AntykwaTorunska-Cap]

  \definefontvariant [Serif][exp][Exp]

\stoptypescript

\starttypescript [serif] [antykwa-torunska-lightcond] [name]
  \definefontsynonym [SerifRegular]         [Serif]
  \definefontsynonym [SerifRegularCaps]     [AntykwaTorunska-CondLightCap]
  \definefontsynonym [SerifBoldCaps]        [AntykwaTorunska-CondMediumCap]
  \definefontsynonym [SerifItalicCaps]      [AntykwaTorunska-CondLightItalicCap]
  \definefontsynonym [SerifSlantedCaps]     [AntykwaTorunska-CondLightItalicCap]
  \definefontsynonym [SerifBoldItalicCaps]  [AntykwaTorunska-CondMedItalicCap]
  \definefontsynonym [SerifBoldSlantedCaps] [AntykwaTorunska-CondMedItalicCap]
  \definefontsynonym [SerifCapsCaps]        [AntykwaTorunska-CondLightCap]

  \definefontvariant [Serif][osf][Caps]
  \definefontvariant [Serif][sc] [Caps]

  \definefontsynonym [SerifRegularDark]     [AntykwaTorunska-CondRegular]
  \definefontsynonym [SerifBoldDark]        [AntykwaTorunska-CondBold]
  \definefontsynonym [SerifItalicDark]      [AntykwaTorunska-CondItalic]
  \definefontsynonym [SerifSlantedDark]     [AntykwaTorunska-CondItalic]
  \definefontsynonym [SerifBoldItalicDark]  [AntykwaTorunska-CondBoldItalic]
  \definefontsynonym [SerifBoldSlantedDark] [AntykwaTorunska-CondBoldItalic]
  \definefontsynonym [SerifCapsDark]        [AntykwaTorunska-CondCap]

  \definefontvariant [Serif][dk][Dark]

  \definefontsynonym [SerifRegularExp]     [AntykwaTorunska-Light]
  \definefontsynonym [SerifBoldExp]        [AntykwaTorunska-Medium]
  \definefontsynonym [SerifItalicExp]      [AntykwaTorunska-LightItalic]
  \definefontsynonym [SerifSlantedExp]     [AntykwaTorunska-LightItalic]
  \definefontsynonym [SerifBoldItalicExp]  [AntykwaTorunska-MedItalic]
  \definefontsynonym [SerifBoldSlantedExp] [AntykwaTorunska-MedItalic]
  \definefontsynonym [SerifCapsExp]        [AntykwaTorunska-LightCap]

  \definefontvariant [Serif][exp][Exp]

\stoptypescript

% Antykwa Poltawskiego :

\starttypescript [serif] [antykwa-poltawskiego] [name]
  \definefontsynonym [Serif]            [AntykwaPoltawskiego-Regular]
  \definefontsynonym [SerifBold]        [AntykwaPoltawskiego-Bold]
  \definefontsynonym [SerifItalic]      [AntykwaPoltawskiego-Italic]
  \definefontsynonym [SerifSlanted]     [AntykwaPoltawskiego-Italic]
  \definefontsynonym [SerifBoldItalic]  [AntykwaPoltawskiego-Bold]
  \definefontsynonym [SerifBoldSlanted] [AntykwaPoltawskiego-Bold]
  \definefontsynonym [SerifCaps]        [AntykwaPoltawskiego-Regular]
\stoptypescript

% Baskerville :
%
% \starttypescript [serif] [baskerville] [name]
%   \definefontsynonym [Serif]            [Baskerville]
%   \definefontsynonym [SerifBold]        [Baskerville-Bold]
%   \definefontsynonym [SerifItalic]      [Baskerville-Italic]
%   \definefontsynonym [SerifSlanted]     [Baskerville-Italic]
%   \definefontsynonym [SerifBoldItalic]  [Baskerville-BoldItalic]
%   \definefontsynonym [SerifBoldSlanted] [Baskerville-BoldItalic]
%   \definefontsynonym [SerifCaps]        [Baskerville]
% \stoptypescript
%
% % Garamond :
%
% \starttypescript [serif] [garamond] [name]
%   \definefontsynonym [Serif]            [Garamond-Normal]
%   \definefontsynonym [SerifBold]        [Garamond]
%   \definefontsynonym [SerifItalic]      [Garamond-Medium-Italic]
%   \definefontsynonym [SerifSlanted]     [Garamond-Medium-Italic]
%   \definefontsynonym [SerifBoldItalic]  [Garamond-Medium-Italic]
%   \definefontsynonym [SerifBoldSlanted] [Garamond-Medium-Italic]
%   \definefontsynonym [SerifCaps]        [Garamond]
% \stoptypescript

% Bookman :

\starttypescript [serif] [bookman] [name]
  \definefontsynonym [Serif]            [Bookman-Light]
  \definefontsynonym [SerifItalic]      [Bookman-LightItalic]
  \definefontsynonym [SerifBold]        [Bookman-DemiBold]
  \definefontsynonym [SerifBoldItalic]  [Bookman-DemiBoldItalic]
  \definefontsynonym [SerifSlanted]     [Bookman-LightSlanted]
  \definefontsynonym [SerifBoldSlanted] [Bookman-DemiBoldSlanted]
  \definefontsynonym [SerifCaps]        [Bookman-Light-Caps]
\stoptypescript

% Chancery : Zapf

\starttypescript [calligraphy] [chancery] [name]
  \definefontsynonym [Calligraphy] [Chancery]
\stoptypescript

% Schoolbook :

\starttypescript [serif] [schoolbook] [name]
  \definefontsynonym [Serif]            [Schoolbook-Roman]
  \definefontsynonym [SerifItalic]      [Schoolbook-Italic]
  \definefontsynonym [SerifBold]        [Schoolbook-Bold]
  \definefontsynonym [SerifBoldItalic]  [Schoolbook-BoldItalic]
  \definefontsynonym [SerifSlanted]     [Schoolbook-RomanSlanted]
  \definefontsynonym [SerifBoldSlanted] [Schoolbook-BoldSlanted]
  \definefontsynonym [SerifCaps]        [Schoolbook-Roman-Caps]
\stoptypescript

% Utopia : Adobe

\starttypescript [serif] [utopia] [name]
  \definefontsynonym [Serif]            [Utopia-Regular]
  \definefontsynonym [SerifItalic]      [Utopia-Italic]
  \definefontsynonym [SerifBold]        [Utopia-Bold]
  \definefontsynonym [SerifBoldItalic]  [Utopia-BoldItalic]
  \definefontsynonym [SerifSlanted]     [Utopia-Slanted]
  \definefontsynonym [SerifBoldSlanted] [Utopia-BoldSlanted]
  \definefontsynonym [SerifCaps]        [Utopia-Regular-Caps]
\stoptypescript

% Fourier : Michael Bovani

\starttypescript [serif] [fourier] [name]
  \definefontsynonym [Serif]                      [Fourier-Regular]
  \definefontsynonym [SerifSlanted]               [Fourier-Slanted]
  \definefontsynonym [SerifItalic]                [Fourier-Italic]
  \definefontsynonym [SerifCaps]                  [Fourier-RegularCaps]
  \definefontsynonym [SerifBold]                  [Fourier-Bold]
  \definefontsynonym [SerifBoldSlanted]           [Fourier-BoldSlanted]
  \definefontsynonym [SerifBoldItalic]            [Fourier-BoldItalic]
  \definefontsynonym [SerifBoldCaps]              [Fourier-BoldCaps]

  \definefontsynonym [Serif-Expert]               [Fourier-Regular-Expert]
  \definefontsynonym [SerifSlanted-Expert]        [Fourier-Slanted-Expert]
  \definefontsynonym [SerifItalic-Expert]         [Fourier-Italic-Expert]
  \definefontsynonym [SerifCaps-Expert]           [Fourier-RegularCaps-Expert]
  \definefontsynonym [SerifSemiBold-Expert]       [Fourier-Semi-Expert]
  \definefontsynonym [SerifSemiSlanted-Expert]    [Fourier-SemiSlanted-Expert]
  \definefontsynonym [SerifSemiItalic-Expert]     [Fourier-SemiItalic-Expert]
  \definefontsynonym [SerifSemiCaps-Expert]       [Fourier-SemiCaps-Expert]
  \definefontsynonym [SerifBold-Expert]           [Fourier-Bold-Expert]
  \definefontsynonym [SerifBoldSlanted-Expert]    [Fourier-BoldSlanted-Expert]
  \definefontsynonym [SerifBoldItalic-Expert]     [Fourier-BoldItalic-Expert]
  \definefontsynonym [SerifBlack-Expert]          [Fourier-Black-Expert]

  \definefontsynonym [Serif-OldStyle]             [Fourier-Regular-OldStyle]
  \definefontsynonym [SerifSlanted-OldStyle]      [Fourier-Slanted-OldStyle]
  \definefontsynonym [SerifItalic-OldStyle]       [Fourier-Italic-OldStyle]
  \definefontsynonym [SerifCaps-OldStyle]         [Fourier-RegularCaps-OldStyle]
  \definefontsynonym [SerifSemiBold-OldStyle]     [Fourier-Semi-OldStyle]
  \definefontsynonym [SerifSemiSlanted-OldStyle]  [Fourier-SemiSlanted-OldStyle]
  \definefontsynonym [SerifSemiItalic-OldStyle]   [Fourier-SemiItalic-OldStyle]
  \definefontsynonym [SerifSemiCaps-OldStyle]     [Fourier-SemiCaps-OldStyle]
  \definefontsynonym [SerifBold-OldStyle]         [Fourier-Bold-OldStyle]
  \definefontsynonym [SerifBoldSlanted-OldStyle]  [Fourier-BoldSlanted-OldStyle]
  \definefontsynonym [SerifBoldItalic-OldStyle]   [Fourier-BoldItalic-OldStyle]
  \definefontsynonym [SerifBlack-OldStyle]        [Fourier-Black-OldStyle]
  \definefontsynonym [SerifBlackSlanted-OldStyle] [Fourier-BlackSlanted-OldStyle]
\stoptypescript

\starttypescript [math] [fourier] [name]
  \definefontsynonym [MathRoman]     [Fourier-Math-Letters]
  \definefontsynonym [MathItalic]    [Fourier-Math-Letters-Italic]
  \definefontsynonym [MathSymbol]    [Fourier-Math-Symbols]
  \definefontsynonym [MathExtension] [Fourier-Math-Extension]
\stoptypescript

\starttypescript [math] [fourier] [name] % todo
  \definefontsynonym [OldStyle]     [Serif-OldStyle] % strange, no oldstyles
  \definefontsynonym [Fraktur]      [eufm10]
  \definefontsynonym [Blackboard]   [msbm10]
  \definefontsynonym [Gothic]       [eufm10]
  \definefontsynonym [Calligraphic] [eusm10]
\stoptypescript

% Charter :

\starttypescript [serif] [charter] [name]
  \definefontsynonym [Serif]            [Charter-Roman]
  \definefontsynonym [SerifItalic]      [Charter-Italic]
  \definefontsynonym [SerifBold]        [Charter-Bold]
  \definefontsynonym [SerifBoldItalic]  [Charter-BoldItalic]
  \definefontsynonym [SerifSlanted]     [Charter-Slanted]
  \definefontsynonym [SerifBoldSlanted] [Charter-BoldSlanted]
  \definefontsynonym [SerifCaps]        [Charter-Roman-Caps]
\stoptypescript

% Times :

\starttypescript [serif] [times] [name]
  \definefontsynonym [Serif]            [Times-Roman]
  \definefontsynonym [SerifBold]        [Times-Bold]
  \definefontsynonym [SerifItalic]      [Times-Italic]
  \definefontsynonym [SerifSlanted]     [Times-Italic]
  \definefontsynonym [SerifBoldItalic]  [Times-BoldItalic]
  \definefontsynonym [SerifBoldSlanted] [Times-BoldItalic]
  \definefontsynonym [SerifCaps]        [Times-Roman]
\stoptypescript

% \starttypescript [math] [times] [name]
%   \definefontsynonym [MathRoman]     [Times-MathRoman]
%   \definefontsynonym [MathExtension] [Times-MathExtension]
%   \definefontsynonym [MathItalic]    [Times-MathItalic]
%   \definefontsynonym [MathSymbol]    [Times-MathSymbol]
% \stoptypescript

\starttypescript [math] [times] [name]
  \definefontsynonym [MathRoman]     [Times-Roman-Upright]
  \definefontsynonym [MathExtension] [Times-Math-Extension]
  \definefontsynonym [MathItalic]    [Times-Math-Italic]
  \definefontsynonym [MathSymbol]    [Times-Math-Symbols]
  \definefontsynonym [MathAlpha]     [Times-Math-SymbolsA]
  \definefontsynonym [MathBeta]      [Times-Math-SymbolsB]
\stoptypescript

\starttypescript [math] [times] [name]
  \definefontsynonym [OldStyle]     [MathItalic]
  \definefontsynonym [Fraktur]      [eufm10]
  \definefontsynonym [Blackboard]   [MathBeta]
  \definefontsynonym [Gothic]       [eufm10]
  \definefontsynonym [Calligraphic] [eusm10]
\stoptypescript

% Helvetica :

\starttypescript [sans] [helvetica] [name]
  \definefontsynonym [Sans]            [Helvetica]
  \definefontsynonym [SansBold]        [Helvetica-Bold]
  \definefontsynonym [SansItalic]      [Helvetica-Oblique]
  \definefontsynonym [SansSlanted]     [Helvetica-Oblique]
  \definefontsynonym [SansBoldItalic]  [Helvetica-BoldOblique]
  \definefontsynonym [SansBoldSlanted] [Helvetica-BoldOblique]
  \definefontsynonym [SansCaps]        [Helvetica]
\stoptypescript

\starttypescript [math] [helvetica] [name]
  \definefontsynonym [MathRoman]     [Helvetica-MathRoman]
  \definefontsynonym [MathExtension] [Helvetica-MathExtendedSymbols]
  \definefontsynonym [MathItalic]    [Helvetica-MathItalics]
  \definefontsynonym [MathSymbol]    [Helvetica-MathSymbols]
\stoptypescript

% Courier :

\starttypescript [mono] [courier] [name]
  \definefontsynonym [Mono]            [Courier]
  \definefontsynonym [MonoBold]        [Courier-Bold]
  \definefontsynonym [MonoItalic]      [Courier-Oblique]
  \definefontsynonym [MonoSlanted]     [Courier-Oblique]
  \definefontsynonym [MonoBoldItalic]  [Courier-BoldOblique]
  \definefontsynonym [MonoBoldSlanted] [Courier-BoldOblique]
  \definefontsynonym [MonoCaps]        [Courier]
\stoptypescript

% Palatino : Hermann Zapf / UWR

\starttypescript [serif] [palatino] [name]
  \definefontsynonym [Serif]            [Palatino]
  \definefontsynonym [SerifBold]        [Palatino-Bold]
  \definefontsynonym [SerifItalic]      [Palatino-Italic]
  \definefontsynonym [SerifSlanted]     [Palatino-Slanted]
  \definefontsynonym [SerifBoldItalic]  [Palatino-BoldItalic]
  \definefontsynonym [SerifBoldSlanted] [Palatino-BoldSlanted]
  \definefontsynonym [SerifCaps]        [Palatino-Caps]
\stoptypescript

\starttypescript [math] [palatino] [name]
  \definefontsynonym [MathRoman]     [Palatino-Roman-Upright]
  \definefontsynonym [MathExtension] [Palatino-Math-Extension]
  \definefontsynonym [MathItalic]    [Palatino-Math-Italic]
  \definefontsynonym [MathSymbol]    [Palatino-Math-Symbols]
  \definefontsynonym [MathAlpha]     [Palatino-Math-SymbolsA]
  \definefontsynonym [MathBeta]      [Palatino-Math-SymbolsB]
\stoptypescript

\starttypescript [math] [palatino] [name]
  \definefontsynonym [OldStyle]     [MathItalic]
  \definefontsynonym [Fraktur]      [eufm10]
  \definefontsynonym [Blackboard]   [MathBeta]
  \definefontsynonym [Gothic]       [eufm10]
  \definefontsynonym [Calligraphic] [eusm10]
\stoptypescript

% bonus definitions

\starttypescript [serif] [palatino] [name]
 \definefontsynonym [SerifRegular]      [Serif]
 \definefontsynonym [SerifRegularOsF]   [TeXPalladioL-SC]
 \definefontsynonym [SerifItalicOsF]    [TeXPalladioL-ItalicOsF]
 \definefontsynonym [SerifBoldOsF]      [TeXPalladioL-BoldOsF]
 \definefontsynonym [SerifBoldItalicOsF][TeXPalladioL-BoldItalicOsF]
 \definefontsynonym [SerifCapsOsF]      [TeXPalladioL-SC]
\stoptypescript

\endinput
