1 files changed, 80 insertions, 0 deletions
diff --git a/tex/context/base/type-buy.mkiv b/tex/context/base/type-buy.mkiv
new file mode 100644
index 000000000..36ca43ea8
--- /dev/null
+++ b/tex/context/base/type-buy.mkiv
@@ -0,0 +1,80 @@
+%D \module
+%D   [       file=type-buy,
+%D        version=2003.07.08, % 2001.04.12,
+%D          title=\CONTEXT\ Typescript Macros,
+%D       subtitle=A Few Commercial Fonts,
+%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.
+
+\starttypescriptcollection[commercial fonts]
+
+% 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
+
+\starttypescript [casual] [informal] [default]
+    \definefontsynonym [Informal-Regular]     [ifrm10cm]
+    \definefontsynonym [Informal-Bold]        [ifrb10cm]
+    \definefontsynonym [Informal-Oblique]     [ifro10cm]
+    \definefontsynonym [Informal-BoldOblique] [ifbo10cm]
+    \loadmapfile[original-micropress-informal.map]
+\stoptypescript
+
+\starttypescript [math] [informal] [default]
+    \definefontsynonym [Informal-Regular]             [ifrm10cm]
+    \definefontsynonym [Informal-MathExtendedSymbols] [ifex10]
+    \definefontsynonym [Informal-MathItalics]         [ifmi10]
+    \definefontsynonym [Informal-MathSymbols]         [ifsy10]
+    \loadmapfile[original-micropress-informal.map]
+\stoptypescript
+
+% Sabon
+
+\starttypescript [serif] [sabon] [name]
+
+    \definefontsynonym [Serif]            [SabonMT]
+    \definefontsynonym [SerifItalic]      [SabonMT-Italic]
+    \definefontsynonym [SerifSlanted]     [SabonMT-Italic]
+    \definefontsynonym [SerifBold]        [SabonMT-SemiBold]
+    \definefontsynonym [SerifBoldItalic]  [SabonMT-SemiBoldItalic]
+    \definefontsynonym [SerifBoldSlanted] [SabonMT-SemiBoldItalic]
+    \definefontsynonym [SerifCaps]        [SabonMT-RegularSC]
+
+    \definefontsynonym[SabonMT]                  [sab_____]
+    \definefontsynonym[SabonMT-Italic]           [sabi____]
+    \definefontsynonym[SabonMT-ItalicOsF]        [saboi___]
+    \definefontsynonym[SabonMT-SemiBoldOsF]      [sabos___]
+    \definefontsynonym[SabonMT-SemiBold]         [sabs____]
+    \definefontsynonym[SabonMT-RegularSC]        [sabsc___]
+    \definefontsynonym[SabonMT-SemiBoldItalic]   [sabsi___]
+    \definefontsynonym[SabonMT-SemiBoldItalicOsF][sasio___]
+\stoptypescript
+
+% \definetypeface[sabon][rm][serif][sabon][default]
+% \setupbodyfont[sabon]
+% \starttext
+%     \input tufte
+% \stoptext
+
+\stoptypescriptcollection
+