%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:

\starttypescriptcollection[examples]

\starttypescript [fallback] [texnansi,ec,qx,t5,default]

  % no fontclass, so this is the fall back

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

  \quittypescriptscanning

\stoptypescript

\starttypescript [modern] [texnansi,ec,qx,t5,default]

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

  \quittypescriptscanning

\stoptypescript

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

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

  \quittypescriptscanning

\stoptypescript

\starttypescript [modern-base] [t2a,t2b,t2c,x2]

  \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]

  \quittypescriptscanning

\stoptypescript

\starttypescript [fallback,modern,modern-base] [il2]
  \usetypescript[\typescriptone][ec]
  \enableregime[il2]
\stoptypescript
\starttypescript [fallback,modern,modern-base] [pl0]
  \usetypescript[\typescriptone][qx]
  \enableregime[pl0]
\stoptypescript

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

  \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]

  \quittypescriptscanning

\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]

  \quittypescriptscanning

\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]

  \quittypescriptscanning

\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]

  \quittypescriptscanning

\stoptypescript

% \starttypescript [utopia] [ec]

%   \definetypeface [fourier] [rm] [serif] [fourier] [default] [encoding=ec]
%   \definetypeface [fourier] [mm] [math]  [fourier] [default] [encoding=default]
%   \definetypeface [fourier] [tt] [mono]  [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]

  \quittypescriptscanning % last in the row

\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,sans,mono] [handling,hanging,hz] [pure,normal,hz,quality]

  \setupfontsynonym [\typescriptprefix\typescriptone ]            [handling=\typescriptthree]
  \setupfontsynonym [\typescriptprefix\typescriptone Bold]        [handling=\typescriptthree bold]
  \setupfontsynonym [\typescriptprefix\typescriptone Slanted]     [handling=\typescriptthree slanted]
  \setupfontsynonym [\typescriptprefix\typescriptone Italic]      [handling=\typescriptthree italic]
  \setupfontsynonym [\typescriptprefix\typescriptone BoldSlanted] [handling=\typescriptthree boldslanted]
  \setupfontsynonym [\typescriptprefix\typescriptone BoldItalic]  [handling=\typescriptthree bolditalic]

\stoptypescript

% handy

\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

\starttypescript [optima] [texnansi,ec,qx]

  \definetypeface[optima][ss][sans] [optima-nova][default][encoding=\typescripttwo]
  \definetypeface[optima][rm][serif][palatino]   [default][encoding=\typescripttwo]
  \definetypeface[optima][tt][mono] [modern]     [default][encoding=\typescripttwo,rscale=1.1]
  \definetypeface[optima][mm][math] [palatino]   [default][encoding=\typescripttwo]

\stoptypescript

\starttypescript [antykwa-torunska] [texnansi,ec,8r,uc]

  \definetypeface[antykwa][rm][serif][antykwa-torunska]   [default][encoding=\typescripttwo]
  \definetypeface[antykwa][ss][sans] [modern]             [default][encoding=\typescripttwo,rscale=1.05]
  \definetypeface[antykwa][tt][mono] [modern]             [default][encoding=\typescripttwo,rscale=1.1]
  \definetypeface[antykwa][mm][math] [antykwa-torunska]   [default][encoding=\typescripttwo]

\stoptypescript

\stoptypescriptcollection

\endinput
