%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] [texnansi,ec,il2,qx,pl0,t5,default]

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

\stoptypescript

\starttypescript [modern-base] [texnansi,ec,qx,il2,t2a,pl0,t5,default]

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

\stoptypescript

\starttypescript [postscript] [texnansi,ec,qx,8r,t5,uc]

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

\stoptypescript

\starttypescript [times] [texnansi,ec,qx,8r,t5,uc]

  \definetypeface [times] [rm] [serif] [times]     [default] [encoding=\typescripttwo]
  \definetypeface [times] [ss] [sans]  [helvetica] [default] [encoding=\typescripttwo,rscale=0.9]
  \definetypeface [times] [tt] [mono]  [modern]    [default] [encoding=\typescripttwo,rscale=1.05]
  \definetypeface [times] [mm] [math]  [times]     [default] [encoding=\typescripttwo]

% \usemathcollection[default]

\stoptypescript

\starttypescript [palatino] [texnansi,ec,qx,8r,t5,uc]

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

% \usemathcollection[default]

\stoptypescript

\starttypescript [fourier] [ec]

  \definetypeface [fourier] [rm] [serif] [fourier] [default] [encoding=ec]
  \definetypeface [fourier] [mm] [math]  [fourier] [default] [encoding=default]
  \definetypeface [fourier] [tt] [mono]  [modern]  [default] [encoding=ec,rscale=1.07]

  \usemathcollection[fou]

\stoptypescript

% \starttypescript [utopia] [ec]

%   \definetypeface [fourier] [rm] [serif] [fourier]      [default] [encoding=ec]
%   \definetypeface [fourier] [mm] [math]  [fourier]      [default] [encoding=default]
%   \definetypeface [fourier] [tt] [mono]  [latin-modern] [default] [rscale=1.070,encoding=ec]

%   \usemathcollection[fou]

% \stoptypescript

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

  \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] [hw] [handwriting] [lucida] [default] [encoding=\typescripttwo]
  \definetypeface [lucida] [cg] [calligraphy] [lucida] [default] [encoding=\typescripttwo]

\stoptypescript

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

  \definetypeface [lucida] [mm] [math]        [lucida] [default] [encoding=\typescripttwo]

\stoptypescript

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

  \definetypeface [lucidaboldmath] [rm] [serif]    [lucida] [default] [encoding=\typescripttwo] % needed ?
  \definetypeface [lucidaboldmath] [ss] [sans]     [lucida] [default] [encoding=\typescripttwo] % needed ?
  \definetypeface [lucidaboldmath] [tt] [mono]     [lucida] [default] [encoding=\typescripttwo] % needed ?
  \definetypeface [lucidaboldmath] [mm] [boldmath] [lucida] [default] [encoding=\typescripttwo]

\stoptypescript

\starttypescript [lucidabfm,lucidaboldmath] [texnansi,ec,8r]

  \definetypeface [lucida]         [mm] [bfmath] [lucida] [default] [encoding=\typescripttwo]
  \definetypeface [lucidaboldmath] [mm] [bfmath] [lucida] [default] [encoding=\typescripttwo]

\stoptypescript

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

  \usemathcollection[lbr]

\stoptypescript

\starttypescript [serif] [hanging] [pure,normal]

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

\stoptypescript

\starttypescript [sans] [hanging] [pure,normal]

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

\stoptypescript

\starttypescript [mono] [hanging] [pure,normal]

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

\stoptypescript

\starttypescript [serif] [simple] [name] % bad, will be changed but in sycn with manuals that use it

  \definefontsynonym [Simple] [cmvtt10]
  \setupfontsynonym  [Simple] [handling=pure]

\stoptypescript

\starttypescript [modernvariable] [texnansi,ec,qx,8r,t5]

  \definetypeface [modernvariable] [rm] [serif] [simple] [default] [encoding=\typescripttwo]
  \definetypeface [modernvariable] [ss] [sans]  [modern] [default] [encoding=\typescripttwo]
  \definetypeface [modernvariable] [tt] [mono]  [modern] [default] [encoding=\typescripttwo]
  \definetypeface [modernvariable] [mm] [math]  [modern] [default]

\stoptypescript

\endinput
