%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

\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

% Computer Modern Roman : Donald Knuth

\starttypescript [serif] [computer-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] [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] [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] [name]
  \definefontsynonym [MathRoman]        [ComputerModernMath-Roman]
  \definefontsynonym [MathExtension]    [ComputerModernMath-Extension]
  \definefontsynonym [MathItalic]       [ComputerModernMath-Italic]
  \definefontsynonym [MathSymbol]       [ComputerModernMath-Symbol]
\stoptypescript

\starttypescript [serif] [computer-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] [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 [MathExtension] [Euler-Extension]
  \definefontsynonym [MathItalic]    [Euler-Italic]
  \definefontsynonym [MathAlpha]     [Euler-SymbolA]
  \definefontsynonym [MathBeta]      [Euler-SymbolB]
  \definefontsynonym [MathGamma]     [Euler-SymbolC]
\stoptypescript

% American Math Society : Michael Spivak

\starttypescript [math] [ams] [name]
  \definefontsynonym [MathAlpha] [AMS-SymbolA]
  \definefontsynonym [MathBeta]  [AMS-SymbolB]
\stoptypescript

% Lucida Bright : Biggelow and Holmes

\starttypescript [serif] [lucida] [name]
  \definefontsynonym [Serif]            [LucidaBright]
  \definefontsynonym [SerifBold]        [LucidaBright-Demi]
  \definefontsynonym [SerifItalic]      [LucidaBright-Italic]
  \definefontsynonym [SerifSlanted]     [LucidaBright-Oblique]
  \definefontsynonym [SerifBoldItalic]  [LucidaBright-DemiItalic]
  \definefontsynonym [SerifBoldSlanted] [LucidaBright-DemiItalic]
  \definefontsynonym [SerifCaps]        [LucidaBrightSmallcaps]
  \definefontsynonym [OldStyle]         [MathItalic]
\stoptypescript

\starttypescript [sans] [lucida] [name]
  \definefontsynonym [Sans]            [LucidaSans]
  \definefontsynonym [SansBold]        [LucidaSans-Demi]
  \definefontsynonym [SansItalic]      [LucidaSans-Italic]
  \definefontsynonym [SansSlanted]     [LucidaSans-Italic]
  \definefontsynonym [SansBoldItalic]  [LucidaSans-DemiItalic]
  \definefontsynonym [SansBoldSlanted] [LucidaSans-DemiItalic]
  \definefontsynonym [SansCaps]        [LucidaSans]
\stoptypescript

\starttypescript [mono] [lucida] [name]
  \definefontsynonym [Mono]            [LucidaSans-Typewriter]
  \definefontsynonym [MonoBold]        [LucidaSans-TypewriterBold]
  \definefontsynonym [MonoItalic]      [LucidaSans-TypewriterOblique]
  \definefontsynonym [MonoSlanted]     [LucidaSans-TypewriterOblique]
  \definefontsynonym [MonoBoldItalic]  [LucidaSans-TypewriterBoldOblique]
  \definefontsynonym [MonoBoldSlanted] [LucidaSans-TypewriterBoldOblique]
  \definefontsynonym [MonoCaps]        [LucidaSans-Typewriter]
\stoptypescript

\starttypescript [math] [lucida] [name]
  \definefontsynonym [MathRoman]     [LucidaBright]
  \definefontsynonym [MathExtension] [LucidaNewMath-Extension]
  \definefontsynonym [MathItalic]    [LucidaNewMath-AltItalic]
  \definefontsynonym [MathSymbol]    [LucidaNewMath-Symbol]
  \definefontsynonym [MathAlpha]     [LucidaNewMath-Arrows]
  \definefontsynonym [MathBeta]      [LucidaNewMath-Roman]
\stoptypescript

\starttypescript [boldmath] [lucida] [name]
  \definefontsynonym [MathRoman]     [LucidaNewMath-Demibold]
  \definefontsynonym [MathExtension] [LucidaNewMath-Extension]
  \definefontsynonym [MathItalic]    [LucidaNewMath-AltDemiItalic]
  \definefontsynonym [MathSymbol]    [LucidaNewMath-Symbol-Demi]
  \definefontsynonym [MathAlpha]     [LucidaNewMath-Arrows-Demi]
\stoptypescript

\starttypescript [bfmath] [lucida] [name]
  \definefontsynonym [MathRomanBold]     [LucidaNewMath-Demibold]
  \definefontsynonym [MathExtensionBold] [LucidaNewMath-Extension]
  \definefontsynonym [MathItalicBold]    [LucidaNewMath-AltDemiItalic]
  \definefontsynonym [MathSymbolBold]    [LucidaNewMath-Symbol-Demi]
  \definefontsynonym [MathAlphaBold]     [LucidaNewMath-Arrows-Demi]
\stoptypescript

\starttypescript [handwriting] [lucida] [name]
  \definefontsynonym [Handwriting] [LucidaHandwriting-Italic]
\stoptypescript

\starttypescript [calligraphy] [lucida] [name]
  \definefontsynonym [Calligraphy] [LucidaCalligraphy-Italic]
\stoptypescript

% Informal : Vulis

\starttypescript [casual] [informal] [name]
  \definefontsynonym [Serif]            [Informal-Regular]
  \definefontsynonym [SerifBold]        [Informal-Bold]
  \definefontsynonym [SerifSlanted]     [Informal-Oblique]
  \definefontsynonym [SerifItalic]      [Informal-Oblique]
  \definefontsynonym [SerifBoldSlanted] [Informal-BoldOblique]
  \definefontsynonym [SerifBoldItalic]  [Informal-BoldOblique]
  \definefontsynonym [SerifCaps]        [Informal-Regular]
\stoptypescript

\starttypescript [math] [informal] [name]
  \definefontsynonym [MathRoman]     [Informal-Regular]
  \definefontsynonym [MathExtension] [Informal-MathExtendedSymbols]
  \definefontsynonym [MathItalic]    [Informal-MathItalics]
  \definefontsynonym [MathSymbol]    [Informal-MathSymbols]
\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-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

% 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

% 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

% 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

\endinput
