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

\unprotect 

\starttypescript [serif] [default] [size] 
  \definebodyfont 
    [4pt,5pt,6pt,7pt,8pt,9pt,10pt,11pt,12pt,14.4pt,17.3pt] 
    [rm] [default]
\stoptypescript 

\starttypescript [sans] [default] [size] 
  \definebodyfont 
    [4pt,5pt,6pt,7pt,8pt,9pt,10pt,11pt,12pt,14.4pt,17.3pt] 
    [ss] [default]
\stoptypescript 

\starttypescript [mono] [default] [size]
  \definebodyfont 
    [4pt,5pt,6pt,7pt,8pt,9pt,10pt,11pt,12pt,14.4pt,17.3pt] 
    [tt] [default]
\stoptypescript 

\starttypescript [math,boldmath] [default] [size]
  \definebodyfont 
    [4pt,5pt,6pt,7pt,8pt,9pt,10pt,11pt,12pt,14.4pt,17.3pt] 
    [mm] [default]
\stoptypescript 

\starttypescript [bfmath] [default] [size]
  \definebodyfont 
    [4pt,5pt,6pt,7pt,8pt,9pt,10pt,11pt,12pt,14.4pt,17.3pt] 
    [mm] [bfmath]
\stoptypescript 

\starttypescript [handwriting] [default] [size] 
  \definebodyfont 
    [4pt,5pt,6pt,7pt,8pt,9pt,10pt,11pt,12pt,14.4pt,17.3pt] 
    [hw] [default]
\stoptypescript 

\starttypescript [calligraphy] [default] [size] 
  \definebodyfont 
    [4pt,5pt,6pt,7pt,8pt,9pt,10pt,11pt,12pt,14.4pt,17.3pt] 
    [cg] [default]
\stoptypescript 

\starttypescript [casual] [default] [size] % maps onto rm ! 
  \definebodyfont 
    [4pt,5pt,6pt,7pt,8pt,9pt,10pt,11pt,12pt,14.4pt,17.3pt] 
    [rm] [default]
\stoptypescript 

\starttypescript [all] [dtp] [size]

\definebodyfontenvironment
  [4pt]
  [        \s!text=4pt, \s!script=4pt, \s!scriptscript=4pt,
              \c!x=4pt,     \c!xx=4pt, 
          \c!groot=6pt,  \c!klein=4pt]

\definebodyfontenvironment
  [5pt]
  [        \s!text=5pt, \s!script=5pt, \s!scriptscript=5pt,
              \c!x=5pt,     \c!xx=5pt,
          \c!groot=7pt,  \c!klein=5pt]

\definebodyfontenvironment
  [6pt]
  [        \s!text=6pt, \s!script=5pt, \s!scriptscript=5pt,
              \c!x=5pt,     \c!xx=5pt,
          \c!groot=8pt,  \c!klein=5pt]

\definebodyfontenvironment
  [7pt]
  [        \s!text=7pt, \s!script=6pt, \s!scriptscript=5pt,
              \c!x=6pt,     \c!xx=5pt,
          \c!groot=9pt,  \c!klein=5pt]

\definebodyfontenvironment
  [8pt]
  [        \s!text=8pt, \s!script=6pt, \s!scriptscript=5pt,
              \c!x=6pt,     \c!xx=5pt,
          \c!groot=10pt, \c!klein=6pt]

\definebodyfontenvironment
  [9pt]
  [        \s!text=9pt, \s!script=7pt, \s!scriptscript=5pt,
              \c!x=7pt,     \c!xx=5pt,
          \c!groot=11pt, \c!klein=7pt]

\definebodyfontenvironment
  [10pt]
  [        \s!text=10pt, \s!script=7pt, \s!scriptscript=5pt,
              \c!x=8pt,      \c!xx=6pt,
          \c!groot=12pt,  \c!klein=8pt]

\definebodyfontenvironment
  [11pt]
  [        \s!text=11pt, \s!script=8pt, \s!scriptscript=6pt,
              \c!x=9pt,      \c!xx=7pt,
          \c!groot=13pt,  \c!klein=9pt]

\definebodyfontenvironment
  [12pt]
  [        \s!text=12pt, \s!script=9pt, \s!scriptscript=7pt,
              \c!x=10pt,     \c!xx=8pt,
          \c!groot=14pt,  \c!klein=10pt]

\definebodyfontenvironment
  [13pt]
  [        \s!text=13pt, \s!script=10pt, \s!scriptscript=8pt,
              \c!x=11pt,     \c!xx=9pt,
          \c!groot=16pt,  \c!klein=11pt]

\definebodyfontenvironment
  [14pt]
  [        \s!text=14pt, \s!script=10pt, \s!scriptscript=7pt,
              \c!x=12pt,     \c!xx=10pt,
          \c!groot=16pt,  \c!klein=12pt]

\definebodyfontenvironment
  [16pt]
  [        \s!text=16pt, \s!script=12pt, \s!scriptscript=9pt,
              \c!x=13pt,     \c!xx=11pt,
          \c!groot=18pt,  \c!klein=14pt]

\stoptypescript

\starttypescript [serif] [dtp] [size] 
  \definebodyfont 
    [5pt,6pt,7pt,8pt,9pt,10pt,11pt,12pt,13pt,14pt,16pt,18pt,22pt,28pt]
    [rm] [default]
\stoptypescript 

\starttypescript [sans] [dtp] [size] 
  \definebodyfont 
    [5pt,6pt,7pt,8pt,9pt,10pt,11pt,12pt,13pt,14pt,16pt,18pt,22pt,28pt]
    [ss] [default]
\stoptypescript 

\starttypescript [mono] [dtp] [size]
  \definebodyfont 
    [5pt,6pt,7pt,8pt,9pt,10pt,11pt,12pt,13pt,14pt,16pt,18pt,22pt,28pt]
    [tt] [default]
\stoptypescript 

\starttypescript [math,boldmath] [dtp] [size]
  \definebodyfont 
    [5pt,6pt,7pt,8pt,9pt,10pt,11pt,12pt,13pt,14pt,16pt,18pt,22pt,28pt]
    [mm] [default]
\stoptypescript 

% cmr 

\starttypescript [serif] [computer-modern] [size] 

\definebodyfont [12pt] [rm] 
  [tf=cmr12,
   bf=cmbx12,
   it=cmti12,
   sl=cmsl12,
   bi=cmbxti10 at 12pt, 
   bs=cmbxsl10 at 12pt, 
   sc=cmcsc10 at 12pt]

\definebodyfont [11pt] [rm] 
  [tf=cmr10 at 11pt, 
   bf=cmbx10 at 11pt, 
   sl=cmsl10 at 11pt, 
   it=cmti10 at 11pt, 
   bi=cmbxti10 at 11pt, 
   bs=cmbxsl10 at 11pt, 
   sc=cmcsc10 at 11pt]

\definebodyfont [10pt] [rm] 
  [tf=cmr10,
   bf=cmbx10,
   it=cmti10,
   sl=cmsl10,
   bi=cmbxti10, 
   bs=cmbxsl10, 
   sc=cmcsc10]

\definebodyfont [9pt] [rm] 
  [tf=cmr9,
   bf=cmbx9,
   it=cmti9,
   sl=cmsl9,
   bi=cmbxti10 at 9pt,          
   bs=cmbxsl10 at 9pt,          
   sc=cmcsc10 at 9pt]

\definebodyfont [8pt] [rm] 
  [tf=cmr8,
   bf=cmbx8,
   it=cmti8,
   sl=cmsl8,
   bi=cmbxti10 at 8pt,         
   bs=cmbxsl10 at 8pt,         
   sc=cmcsc10 at 8pt]

\definebodyfont [7pt] [rm] 
  [tf=cmr7,
   bf=cmbx7,
   it=cmti10 at 7pt,
   sl=cmsl10 at 7pt,
   bi=cmbxti10 at 7pt,           
   bs=cmbxsl10 at 7pt,           
   sc=cmcsc10 at 7pt]

\definebodyfont [6pt] [rm] 
  [tf=cmr6,
   bf=cmbx6,
   it=cmti10 at 6pt,
   sl=cmsl10 at 6pt,
   bi=cmbxti10 at 6pt,           
   bs=cmbxsl10 at 6pt,           
   sc=cmcsc10 at 6pt]

\definebodyfont [5pt] [rm] 
  [tf=cmr5,
   bf=cmbx5,
   it=cmti10 at 5pt,
   sl=cmsl10 at 5pt,
   bi=cmbxti10 at 5pt,           
   bs=cmbxsl10 at 5pt,           
   sc=cmcsc10 at 5pt]

\definebodyfont [4pt] [rm] 
  [tf=cmr10 at 4pt,
   bf=cmbx10 at 4pt,
   it=cmti10 at 4pt,
   sl=cmsl10 at 4pt,
   bi=cmbxti10 at 4pt,           
   bs=cmbxsl10 at 4pt,
   sc=cmr10 at 4pt]           

\definebodyfont [14.4pt,17.3pt,20.7pt] [rm] 
  [tf=cmr12 sa 1,
   bf=cmbx12 sa 1,
   it=cmti12 sa 1,
   sl=cmsl12 sa 1,
   bi=cmbxti10 sa 1,
   bs=cmbxsl10 sa 1,
   sc=cmcsc10 sa 1]

\stoptypescript 

\starttypescript [sans] [computer-modern] [size] 

\definebodyfont [12pt] [ss] 
  [tf=cmss12,
   bf=cmssbx10 at 12pt,
   it=cmssi12,
   sl=cmssi12,
   bi=cmssbx10 at 12pt,
   bs=cmssbx10 at 12pt,
   sc=cmss10 at 12pt]

\definebodyfont [11pt] [ss] 
  [tf=cmss10 at 11pt, 
   bf=cmssbx10 at 11pt, 
   it=cmssi10 at 11pt, 
   sl=cmssi10 at 11pt, 
   bi=cmssbx10 at 11pt, 
   bs=cmssbx10 at 11pt, 
   sc=cmss10 at 11pt]

\definebodyfont [10pt] [ss] 
  [tf=cmss10,
   bf=cmssbx10, 
   it=cmssi10,
   sl=cmssi10,
   bi=cmssbx10, 
   bs=cmssbx10, 
   sc=cmss10]

\definebodyfont [9pt] [ss] 
  [tf=cmss9,
   bf=cmssbx10 at 9pt, 
   it=cmssi9,
   sl=cmssi9,
   bi=cmssbx10 at 9pt, 
   bs=cmssbx10 at 9pt, 
   sc=cmss9]

\definebodyfont [8pt] [ss] 
  [tf=cmss8,
   bf=cmssbx10 at 8pt, 
   it=cmssi8,
   sl=cmssi8,
   bi=cmssbx10 at 8pt, 
   bs=cmssbx10 at 8pt, 
   sc=cmss8]

\definebodyfont [7pt] [ss] 
  [tf=cmss10 at 7pt,
   bf=cmssbx10 at 7pt, 
   it=cmssi10 at 7pt,
   sl=cmssi10 at 7pt,
   bs=cmssbx10 at 7pt,
   bi=cmssbx10 at 7pt,
   sc=cmss10 at 7pt]

\definebodyfont [6pt] [ss] 
  [tf=cmss10 at 6pt,
   bf=cmssbx10 at 6pt, 
   it=cmssi10 at 6pt,
   sl=cmssi10 at 6pt,
   bs=cmssbx10 at 6pt,
   bi=cmssbx10 at 6pt,
   sc=cmss10 at 6pt]

\definebodyfont [5pt] [ss] 
  [tf=cmss10 at 5pt,
   bf=cmssbx10 at 5pt, 
   it=cmssi10 at 5pt,
   sl=cmssi10 at 5pt,
   bs=cmssbx10 at 5pt,
   bi=cmssbx10 at 5pt,
   sc=cmss10 at 5pt]

\definebodyfont [4pt] [ss] 
  [tf=cmss10 at 4pt,
   bf=cmssbx10 at 4pt, 
   it=cmssi10 at 4pt,
   sl=cmssi10 at 4pt,
   bs=cmssbx10 at 4pt,
   bi=cmssbx10 at 4pt,
   sc=cmss10 at 4pt]

\definebodyfont [14.4pt,17.3pt,20.7pt] [ss] 
  [tf=cmss12 sa 1,
   bf=cmssbx10 sa 1,
   it=cmssi12 sa 1,
   sl=cmssi12 sa 1,
   bi=cmssbx10 sa 1,
   bs=cmssbx10 sa 1,
   sc=cmss12 sa 1]

\stoptypescript 

\starttypescript [mono] [computer-modern] [size] 

\definebodyfont [12pt] [tt] 
  [tf=cmtt12,
   sl=cmsltt10 at 12pt,
   it=cmitt10 at 12pt]

\definebodyfont [11pt] [tt] 
  [tf=cmtt10 at 11pt,
   sl=cmsltt10 at 11pt,
   it=cmitt10 at 11pt]

\definebodyfont [10pt] [tt] 
  [tf=cmtt10,
   sl=cmsltt10,
   it=cmitt10]

\definebodyfont [9pt] [tt] 
  [tf=cmtt9,
   sl=cmsltt10 at 9pt,
   it=cmitt10 at 9pt]

\definebodyfont [8pt] [tt] 
  [tf=cmtt8,
   sl=cmsltt10 at 8pt,
   it=cmitt10 at 8pt]

\definebodyfont [7pt] [tt] 
  [tf=cmtt10 at 7pt,
   sl=cmsltt10 at 7pt,
   it=cmitt10 at 7pt]

\definebodyfont [6pt] [tt] 
  [tf=cmtt10 at 6pt,
   sl=cmsltt10 at 6pt,
   it=cmitt10 at 6pt]

\definebodyfont [5pt] [tt] 
  [tf=cmtt10 at 5pt,
   sl=cmsltt10 at 5pt,
   it=cmitt10 at 5pt]

\definebodyfont [4pt] [tt] 
  [tf=cmtt10 at 4pt,
   sl=cmsltt10 at 4pt,
   it=cmitt10 at 4pt]

\definebodyfont [14.4pt,17.3pt,20.7pt] [tt] 
  [tf=cmtt12 sa 1,
   sl=cmsltt10 sa 1,
   it=cmitt10 sa 1]

\stoptypescript 

\starttypescript [math] [computer-modern] [size] 

% hack to prevent mapping of filenames, watch the space! 

\definefontsynonym[xcmr12][cmr12 ]
\definefontsynonym[xcmr10][cmr10 ]
\definefontsynonym[xcmr9] [cmr9 ]
\definefontsynonym[xcmr8] [cmr8 ]
\definefontsynonym[xcmr7] [cmr7 ]
\definefontsynonym[xcmr6] [cmr6 ]
\definefontsynonym[xcmr5] [cmr5 ]

\definebodyfont [12pt] [mm] 
  [mr=xcmr12,
   ex=cmex10 at 12pt,
   mi=cmmi12,
   sy=cmsy10 at 12pt] 

\definebodyfont [11pt] [mm] 
  [mr=xcmr10 at 11pt,
   ex=cmex10 at 11pt,
   mi=cmmi10 at 11pt,
   sy=cmsy10 at 11pt]

\definebodyfont [10pt] [mm] 
  [mr=xcmr10,
   ex=cmex10,   
   mi=cmmi10,
   sy=cmsy10]   

\definebodyfont [9pt] [mm] 
  [mr=xcmr9,
   ex=cmex10 at 9pt,   
   mi=cmmi9,
   sy=cmsy9]   

\definebodyfont [8pt] [mm] 
  [mr=xcmr8,
   ex=cmex10 at 8pt,   
   mi=cmmi8,
   sy=cmsy8]   

\definebodyfont [7pt] [mm] 
  [mr=xcmr7,
   ex=cmex10 at 7pt,   
   mi=cmmi7,
   sy=cmsy7]   

\definebodyfont [6pt] [mm] 
  [mr=xcmr6,
   ex=cmex10 at 6pt,   
   mi=cmmi6,
   sy=cmsy6]   

\definebodyfont [5pt] [mm] 
  [mr=xcmr5,
   ex=cmex10 at 5pt,   
   mi=cmmi5,
   sy=cmsy5]   

\definebodyfont [4pt] [mm] 
  [mr=xcmr5 at 4pt,
   ex=cmex10 at 4pt,   
   mi=cmmi5 at 4pt,
   sy=cmsy5 at 4pt]   

\definebodyfont [14.4pt,17.3pt,20.7pt] [mm] 
  [mr=xcmr12 sa 1,
   ex=cmex10 sa 1,
   mi=cmmi12 sa 1,
   sy=cmsy10 sa 1]

\stoptypescript 

\starttypescript [serif] [concrete] [size] 

\definebodyfont [10pt,11pt,12pt,14.4pt,17.3pt] [rm] 
  [tf=ccr10 sa 1,
   it=ccti10 sa 1,
   sl=ccsl10 sa 1,
   sc=cccsc10 sa 1]

\definebodyfont [5pt,6pt,7pt,8pt,9pt] [rm] 
  [it=ccr9 sa 1,
   sl=ccr9 sa 1,
   sc=ccr9 sa 1]

\definebodyfont [9pt] [rm] [tf=ccr9]
\definebodyfont [8pt] [rm] [tf=ccr8]
\definebodyfont [7pt] [rm] [tf=ccr7]
\definebodyfont [6pt] [rm] [tf=ccr6]
\definebodyfont [5pt] [rm] [tf=ccr5]

\stoptypescript 

\starttypescript [math] [euler] [size] 

\definebodyfont [12pt,11pt,10pt,9pt] [mm]     
  [mi=eurm10 sa 1,
   ex=euex10 sa 1,
   ma=euex10 sa 1,
   mb=eusm10 sa 1,
   mc=eufm10 sa 1]

\definebodyfont [8pt,7pt,6pt,5pt] [mm]
  [ex=euex10 sa 1,
   ma=euex10 sa 1]

\definebodyfont [8pt,7pt,6pt] [mm]
  [mi=eurm7 sa 1,
   mb=eusm7 sa 1,
   mc=eufm7 sa 1]

\definebodyfont [5pt] [mm]
  [mi=eurm5,
   mb=eusm5,
   mc=eufm5]

\stoptypescript 

\starttypescript [math] [ams] [size] 
  \definebodyfont [17.3pt,14.4pt,12pt,11pt,10pt,9pt] [mm]
    [ma=msam10 sa 1,
     mb=msbm10 sa 1]
  \definebodyfont [8pt,7pt] [mm]
    [ma=msam7 sa 1,
     mb=msbm7 sa 1]
  \definebodyfont [6pt,5pt,4pt] [mm]
    [ma=msam5 sa 1,
     mb=msbm5 sa 1]
\stoptypescript

% math times 

\starttypescript [math] [times] [size] 

\mapfontsize [5pt]    [6.0pt]
\mapfontsize [6pt]    [6.8pt]
\mapfontsize [7pt]    [7.6pt]
\mapfontsize [8pt]    [8.4pt]
\mapfontsize [9pt]    [9.2pt]
\mapfontsize [10pt]   [10pt]
\mapfontsize [11pt]   [10.8pt]
\mapfontsize [12pt]   [11.6pt]
\mapfontsize [14.4pt] [13.2pt]

\stoptypescript 

\protect \endinput
