%D \module
%D   [       file=type-cbg,
%D        version=2004.08.23,
%D          title=\CONTEXT\ Typescript Macros,
%D       subtitle=CB Greek,
%D         author=Giuseppe Bilotta,
%D           date=\currentdate,
%D      copyright=PRAGMA-ADE]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.

\starttypescript [serif] [cb-greek] [name]

  \definefontsynonym [CBGreek-Regular-Medium-Normal]              [grmn]
  \definefontsynonym [CBGreek-Regular-Medium-Oblique]             [grmo]
  \definefontsynonym [CBGreek-Regular-Medium-Italic]              [grmi]
  \definefontsynonym [CBGreek-Regular-Medium-UprightItalic]       [grmu]
  \definefontsynonym [CBGreek-Regular-Medium-Caps]                [grmc]
  \definefontsynonym [CBGreek-Regular-Medium-Leipzig]             [grml]
  \definefontsynonym [CBGreek-Regular-Medium-Roman]               [grmr]

  \definefontsynonym [CBGreek-Regular-Bold-Normal]                [grbn]
  \definefontsynonym [CBGreek-Regular-Bold-Oblique]               [grbo]
  \definefontsynonym [CBGreek-Regular-Bold-Italic]                [grbi]
  \definefontsynonym [CBGreek-Regular-Bold-UprightItalic]         [grbu]
  \definefontsynonym [CBGreek-Regular-Bold-Caps]                  [grbc]
  \definefontsynonym [CBGreek-Regular-Bold-Leipzig]               [grbl]
  \definefontsynonym [CBGreek-Regular-Bold-Roman]                 [grbr]

  \definefontsynonym [CBGreek-Regular-BoldExtended-Normal]        [grxn]
  \definefontsynonym [CBGreek-Regular-BoldExtended-Oblique]       [grxo]
  \definefontsynonym [CBGreek-Regular-BoldExtended-Italic]        [grxi]
  \definefontsynonym [CBGreek-Regular-BoldExtended-UprightItalic] [grxu]
  \definefontsynonym [CBGreek-Regular-BoldExtended-Caps]          [grxc]
  \definefontsynonym [CBGreek-Regular-BoldExtended-Leipzig]       [grxl]
  \definefontsynonym [CBGreek-Regular-BoldExtended-Roman]         [grxr]

  \definefontsynonym [Serif]            [GBGreek-Regular-Medium-Normal]
  \definefontsynonym [SerifSlanted]     [GBGreek-Regular-Medium-Oblique]
  \definefontsynonym [SerifItalic]      [GBGreek-Regular-Medium-Italic]
  \definefontsynonym [SerifCaps]        [GBGreek-Regular-Medium-Caps]
  \definefontsynonym [SerifBold]        [GBGreek-Regular-BoldExtended-Normal]
  \definefontsynonym [SerifBoldSlanted] [GBGreek-Regular-BoldExtended-Oblique]
  \definefontsynonym [SerifBoldItalic]  [GBGreek-Regular-BoldExtended-Italic]
  \definefontsynonym [SerifBoldCaps]    [GBGreek-Regular-BoldExtended-Caps]

\stoptypescript

\starttypescript [serif] [cb-greek] [size]

  % Please note that we use Bold Extended instead of Bold

  \definebodyfont [5pt] [rm]
    [tf=grmn0500,
     sl=grmo0500,
     it=grmi0500,
     sc=grmc0500,
     bf=grxn0500,
     bs=grxo0500,
     bi=grxi0500]

  \definebodyfont [6pt] [rm]
    [tf=grmn0600,
     sl=grmo0600,
     it=grmi0600,
     sc=grmc0600,
     bf=grxn0600,
     bs=grxo0600,
     bi=grxi0600]

  \definebodyfont [7pt] [rm]
    [tf=grmn0700,
     sl=grmo0700,
     it=grmi0700,
     sc=grmc0700,
     bf=grxn0700,
     bs=grxo0700,
     bi=grxi0700]

  \definebodyfont [8pt] [rm]
    [tf=grmn0800,
     sl=grmo0800,
     it=grmi0800,
     sc=grmc0800,
     bf=grxn0800,
     bs=grxo0800,
     bi=grxi0800]

  \definebodyfont [9pt] [rm]
    [tf=grmn0900,
     sl=grmo0900,
     it=grmi0900,
     sc=grmc0900,
     bf=grxn0900,
     bs=grxo0900,
     bi=grxi0900]

  \definebodyfont [10pt] [rm]
    [tf=grmn1000,
     sl=grmo1000,
     it=grmi1000,
     sc=grmc1000,
     bf=grxn1000,
     bs=grxo1000,
     bi=grxi1000]

  \definebodyfont [11pt] [rm] % [10.95pt] [rm] / patched HH
    [tf=grmn1095,
     sl=grmo1095,
     it=grmi1095,
     sc=grmc1095,
     bf=grxn1095,
     bs=grxo1095,
     bi=grxi1095]

  \definebodyfont [12pt] [rm]
    [tf=grmn1200,
     sl=grmo1200,
     it=grmi1200,
     sc=grmc1200,
     bf=grxn1200,
     bs=grxo1200,
     bi=grxi1200]

  \definebodyfont [14.4pt] [rm]
    [tf=grmn1440,
     sl=grmo1440,
     it=grmi1440,
     sc=grmc1440,
     bf=grxn1440,
     bs=grxo1440,
     bi=grxi1440]

\stoptypescript

\starttypescript [map] [cbgreek] % added HH
  \loadmapfile [cbgreek.map]
\stoptypescript

\starttypescript [cbgreek] % lowercase, patched HH

  \definebodyfontenvironment [cbgreek] [default] []

  \definetypeface [cbgreek] [rm] [serif] [cb-greek] [cb-greek]

\stoptypescript

\endinput