Hi,

Attached is a better alternative (just replace the file in the distribution).

\usetypescriptfile[mscore]

\setupbodyfont [mschinese,12pt]
\usebodyfont   [mschinese-light,12pt]

\definebodyfontenvironment[24pt]
\definebodyfontenvironment[18pt]

Hans

-----------------------------------------------------------------
                                          Hans Hagen | PRAGMA ADE
              Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
       tel: 038 477 53 69 | www.pragma-ade.nl | www.pragma-pod.nl
-----------------------------------------------------------------
%D \module
%D   [       file=type-imp-mscore,
%D        version=2007.07.30,
%D          title=\CONTEXT\ Typescript Macros,
%D       subtitle=Microsoft Core Fonts,
%D         author=Hans Hagen,
%D           date=\currentdate,
%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
%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[mscore]

    % .ttf not really needed but we want to force the originals

    \starttypescript [\s!serif] [mscoretimes] [\s!name]
        \setups[\s!font:\s!fallback:\s!serif]
        \definefontsynonym [\s!Serif]           [\s!file:times.ttf]   
[\s!features=\s!default]
        \definefontsynonym [\s!SerifBold]       [\s!file:timesbd.ttf] 
[\s!features=\s!default]
        \definefontsynonym [\s!SerifItalic]     [\s!file:timesi.ttf]  
[\s!features=\s!default]
        \definefontsynonym [\s!SerifBoldItalic] [\s!file:timesbi.ttf] 
[\s!features=\s!default]
    \stoptypescript

    \starttypescript [\s!sans] [mscorearial] [\s!name]
        \setups[\s!font:\s!fallback:\s!sans]
        \definefontsynonym [\s!Sans]           [\s!file:arial.ttf]   
[\s!features=\s!default]
        \definefontsynonym [\s!SansBold]       [\s!file:arialbd.ttf] 
[\s!features=\s!default]
        \definefontsynonym [\s!SansItalic]     [\s!file:ariali.ttf]  
[\s!features=\s!default]
        \definefontsynonym [\s!SansBoldItalic] [\s!file:arialbi.ttf] 
[\s!features=\s!default]
    \stoptypescript

    \starttypescript [\s!sans] [mscorearialnarrow] [\s!name]
        \setups[\s!font:\s!fallback:\s!sans]
        \definefontsynonym [\s!Sans]           [\s!file:arialn.ttf]   
[\s!features=\s!default]
        \definefontsynonym [\s!SansBold]       [\s!file:arialnb.ttf]  
[\s!features=\s!default]
        \definefontsynonym [\s!SansItalic]     [\s!file:arialni.ttf]  
[\s!features=\s!default]
        \definefontsynonym [\s!SansBoldItalic] [\s!file:arialnbi.ttf] 
[\s!features=\s!default]
    \stoptypescript

    \starttypescript [\s!mono] [mscorecourier] [\s!name]
        \setups[\s!font:\s!fallback:\s!mono]
        \definefontsynonym [\s!Mono]           [\s!file:cour.ttf]   
[\s!features=\s!none]
        \definefontsynonym [\s!MonoBold]       [\s!file:courbd.ttf] 
[\s!features=\s!none]
        \definefontsynonym [\s!MonoItalic]     [\s!file:couri.ttf]  
[\s!features=\s!none]
        \definefontsynonym [\s!MonoBoldItalic] [\s!file:courbi.ttf] 
[\s!features=\s!none]
    \stoptypescript

    \starttypescript [\s!sans] [mscoreverdana] [\s!name]
        \setups[\s!font:\s!fallback:\s!sans]
        \definefontsynonym [\s!Sans]           [\s!file:verdana.ttf]  
[\s!features=\s!default]
        \definefontsynonym [\s!SansBold]       [\s!file:verdanab.ttf] 
[\s!features=\s!default]
        \definefontsynonym [\s!SansItalic]     [\s!file:verdanai.ttf] 
[\s!features=\s!default]
        \definefontsynonym [\s!SansBoldItalic] [\s!file:verdanaz.ttf] 
[\s!features=\s!default]
    \stoptypescript

    \starttypescript[mscore]
        \definetypeface [\typescriptone] [\s!rm] [\s!serif] [mscoretimes]   
[\s!default]
        \definetypeface [\typescriptone] [\s!ss] [\s!sans]  [mscorearial]   
[\s!default] [\s!rscale=0.860]
        \definetypeface [\typescriptone] [\s!tt] [\s!mono]  [mscorecourier] 
[\s!default] [\s!rscale=1.065]
        \definetypeface [\typescriptone] [\s!mm] [\s!math]  [times]         
[\s!default] [\s!rscale=1.020]
    \stoptypescript

    \starttypescript[mscorenarrow,mscore-narrow]
        \definetypeface [\typescriptone] [\s!rm] [\s!serif] [mscoretimes]       
[\s!default]
        \definetypeface [\typescriptone] [\s!ss] [\s!sans]  [mscorearialnarrow] 
[\s!default] [\s!rscale=0.860]
        \definetypeface [\typescriptone] [\s!tt] [\s!mono]  [mscorecourier]     
[\s!default] [\s!rscale=1.065]
        \definetypeface [\typescriptone] [\s!mm] [\s!math]  [times]             
[\s!default] [\s!rscale=1.020]
    \stoptypescript

  % \starttypescript[mscoress]
  %     \definetypeface [mscoress] [\s!ss] [\s!sans]  [mscorearial]   
[\s!default]
  %     \definetypeface [mscoress] [\s!rm] [\s!serif] [mscoretimes]   
[\s!default] [rscale=1.160]
  %     \definetypeface [mscoress] [\s!tt] [\s!mono]  [mscorecourier] 
[\s!default] [rscale=1.240]
  %     \definetypeface [mscoress] [\s!mm] [\s!math]  [times]         
[\s!default] [rscale=1.185]
  % \stoptypescript

\stoptypescriptcollection

\starttypescriptcollection[microsoft-chinese-old]

  % \starttypescript [\s!serif] [mschinese,mschinese-light]
  %     \definefontsynonym [STSong]      [\s!file:stsong.ttf]   
[\s!features=chinese]
  %     \definefontsynonym [STKaiti]     [\s!file:stkaiti.ttf]  
[\s!features=chinese]
  %     \definefontsynonym [STZHongsong] [\s!file:stzhongs.ttf] 
[\s!features=chinese]
  %     \definefontsynonym [STFangsong]  [\s!file:stfangso.ttf] 
[\s!features=chinese]
  % \stoptypescript

  % \starttypescript [\s!sans] [mschinese]
  %     \definefontsynonym [STXIHei] [\s!file:stxihei.ttf] [\s!features=chinese]
  % \stoptypescript

    \starttypescript [\s!serif] [mschinese]
        \setups[\s!font:\s!fallback:\s!serif]
        \definefontsynonym [\s!Serif]       [\s!file:stsong.ttf]   
[\s!features=chinese]
        \definefontsynonym [\s!SerifItalic] [\s!file:stkaiti.ttf]  
[\s!features=chinese]
        \definefontsynonym [\s!SerifBold]   [\s!file:stzhongs.ttf] 
[\s!features=chinese]
    \stoptypescript

    \starttypescript [\s!serif] [mschinese-light]
        \setups[\s!font:\s!fallback:\s!serif]
        \definefontsynonym [\s!Serif]       [\s!file:stfangso.ttf] 
[\s!features=chinese]
        \definefontsynonym [\s!SerifItalic] [\s!file:stkaiti.ttf]  
[\s!features=chinese]
        \definefontsynonym [\s!SerifBold]   [\s!file:stzhongs.ttf] 
[\s!features=chinese]
    \stoptypescript

    \starttypescript [\s!sans] [mschinese]
        \setups[\s!font:\s!fallback:\s!sans]
        \definefontsynonym [\s!Sans] [\s!file:stxihei.ttf] [\s!features=chinese]
    \stoptypescript

    \starttypescript[mschinese]
        \definetypeface [\typescriptone] [\s!rm] [\s!serif] [mschinese] 
[\s!default]
        \definetypeface [\typescriptone] [\s!ss] [\s!sans]  [mschinese] 
[\s!default]
        \definetypeface [\typescriptone] [\s!mm] [\s!math]  [cambria]
        \definetypeface [\typescriptone] [\s!tt] [\s!mono]  [mscorecourier]
    \stoptypescript

    \starttypescript[mschineselight,mschinese-light]
        \definetypeface [\typescriptone] [\s!rm] [\s!serif] [mschinese-light] 
[\s!default]
        \definetypeface [\typescriptone] [\s!ss] [\s!sans]  [mschinese]       
[\s!default]
        \definetypeface [\typescriptone] [\s!mm] [\s!math]  [cambria]
        \definetypeface [\typescriptone] [\s!tt] [\s!mono]  [mscorecourier]
    \stoptypescript

\stoptypescriptcollection
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the 
Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://context.aanhet.net
archive  : https://bitbucket.org/phg/context-mirror/commits/
wiki     : http://contextgarden.net
___________________________________________________________________________________

Reply via email to