%D \module
%D   [       file=type-exa,
%D        version=2001.04.12, 
%D          title=\CONTEXT\ Typescript Macros,
%D       subtitle=Example 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.

%D A couple of goodies:

\starttypescript [modern] [ec,il2,pl0,default]

\definetypeface [modern] [rm] [serif] [computer-modern] [computer-modern] [encoding=\typescripttwo]
\definetypeface [modern] [ss] [sans]  [computer-modern] [computer-modern] [encoding=\typescripttwo]
\definetypeface [modern] [tt] [mono]  [computer-modern] [computer-modern] [encoding=\typescripttwo]
\definetypeface [modern] [mm] [math]  [computer-modern] [computer-modern] [encoding=\typescripttwo]

\stoptypescript

\starttypescript [postscript] [texnansi,ec,8r]

\definetypeface [postscript] [rm] [serif] [times]     [default] [encoding=\typescripttwo]
\definetypeface [postscript] [mm] [math]  [times]     [default] 
\definetypeface [postscript] [ss] [sans]  [helvetica] [default] [rscale=.9,encoding=\typescripttwo]
\definetypeface [postscript] [tt] [mono]  [courier]   [default] [rscale=1.1,encoding=\typescripttwo]

\stoptypescript

\starttypescript [times] [texnansi,ec,8r]

\definetypeface [times] [rm] [serif] [times]           [default] [encoding=\typescripttwo]
\definetypeface [times] [ss] [sans]  [helvetica]       [default] [rscale=.9,encoding=\typescripttwo]
\definetypeface [times] [tt] [mono]  [computer-modern] [default] [rscale=1.1]
\definetypeface [times] [mm] [math]  [times]           [default] [encoding=\typescripttwo]

\stoptypescript

\starttypescript [palatino] [texnansi,ec,8r]

\definetypeface [palatino] [rm] [serif] [palatino]        [default] [encoding=\typescripttwo]
\definetypeface [palatino] [mm] [math]  [palatino]        [default] [encoding=\typescripttwo]
\definetypeface [palatino] [tt] [mono]  [computer-modern] [default] [rscale=1.075]

% to do (rscaled): tt->computer-modern ss->??

\stoptypescript

\starttypescript [lucida] [texnansi,ec,8r]

\definetypeface [lucida] [rm] [serif]       [lucida] [default] [encoding=\typescripttwo]
\definetypeface [lucida] [ss] [sans]        [lucida] [default] [encoding=\typescripttwo]
\definetypeface [lucida] [tt] [mono]        [lucida] [default] [encoding=\typescripttwo]
\definetypeface [lucida] [mm] [math]        [lucida] [default] [encoding=\typescripttwo]
\definetypeface [lucida] [hw] [handwriting] [lucida] [default] [encoding=\typescripttwo]

\usemathcollection[lbr] 

\stoptypescript

\starttypescript [serif] [hanging] [pure]

\setupfontsynonym [Serif]            [handling=pure]
\setupfontsynonym [SerifBold]        [handling=pure]
\setupfontsynonym [SerifSlanted]     [handling=pure]
\setupfontsynonym [SerifItalic]      [handling=pure]
\setupfontsynonym [SerifBoldSlanted] [handling=pure]
\setupfontsynonym [SerifBoldItalic]  [handling=pure]

\stoptypescript

\starttypescript [sans] [hanging] [pure]

\setupfontsynonym [Sans]            [handling=pure]
\setupfontsynonym [SansBold]        [handling=pure]
\setupfontsynonym [SansSlanted]     [handling=pure]
\setupfontsynonym [SansItalic]      [handling=pure]
\setupfontsynonym [SansBoldSlanted] [handling=pure]
\setupfontsynonym [SansBoldItalic]  [handling=pure]

\stoptypescript

\starttypescript [mono] [hanging] [pure]

\setupfontsynonym [Mono]            [handling=pure]
\setupfontsynonym [MonoBold]        [handling=pure]
\setupfontsynonym [MonoSlanted]     [handling=pure]
\setupfontsynonym [MonoItalic]      [handling=pure]
\setupfontsynonym [MonoBoldSlanted] [handling=pure]
\setupfontsynonym [MonoBoldItalic]  [handling=pure]

\stoptypescript

\starttypescript [serif] [hanging] [thanh]

\setupfontsynonym [Serif]            [handling=normal]
\setupfontsynonym [SerifBold]        [handling=bold]
\setupfontsynonym [SerifSlanted]     [handling=slanted]
\setupfontsynonym [SerifItalic]      [handling=italic]
\setupfontsynonym [SerifBoldSlanted] [handling=boldslanted]
\setupfontsynonym [SerifBoldItalic]  [handling=bolditalic]

\stoptypescript

\starttypescript [sans] [hanging] [thanh]

\setupfontsynonym [Sans]            [handling=normal]
\setupfontsynonym [SansBold]        [handling=bold]
\setupfontsynonym [SansSlanted]     [handling=slanted]
\setupfontsynonym [SansItalic]      [handling=italic]
\setupfontsynonym [SansBoldSlanted] [handling=boldslanted]
\setupfontsynonym [SansBoldItalic]  [handling=bolditalic]

\stoptypescript

\starttypescript [mono] [hanging] [thanh]

\setupfontsynonym [Mono]            [handling=normal]
\setupfontsynonym [MonoBold]        [handling=bold]
\setupfontsynonym [MonoSlanted]     [handling=slanted]
\setupfontsynonym [MonoItalic]      [handling=italic]
\setupfontsynonym [MonoBoldSlanted] [handling=boldslanted]
\setupfontsynonym [MonoBoldItalic]  [handling=bolditalic]

\stoptypescript

\endinput
