1 files changed, 274 insertions, 0 deletions
diff --git a/tex/context/base/type-syn.tex b/tex/context/base/type-syn.tex
new file mode 100644
index 000000000..96ee5a665
--- /dev/null
+++ b/tex/context/base/type-syn.tex
@@ -0,0 +1,274 @@
+%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.
+
+% 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
+
+% This will change some day.  
+
+\starttypescript [math] [computer-modern] [name]
+  \definefontsynonym [OldStyle]     [MathItalic]         
+  \definefontsynonym [Fraktur]      [eufm10]
+  \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]
+\stoptypescript
+
+\starttypescript [boldmath] [lucida] [name]  
+  \definefontsynonym [MathRomanBold]     [LucidaBright-Demi]
+  \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
+
+\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
+
+% 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
+
+% 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
+
+% 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 [sans] [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 
+
+\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]
+\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