Re: Ancient Greek

[Giuseppe Bilotta <gip.bilotta@iol.it>]

[-- Attachment #1: Type: text/plain, Size: 2232 bytes --]

Wednesday, August 18, 2004 Steffen Wolfrum wrote:

> Hi,

> I am about to edit a book with quotes in ancient (polyphonic) greek.
> How can this be done in ConTeXt?

> Searching for answers I found the long and painful thread
> started by Thomas A. Schmitz almost one year ago.

> Do we have an easier way available today?

Download Claudio Beccari's fonts. (cbgreek)

Use the attached cbgreek.tex typescript file (Hans, maybe it's
the case to add it to the distribution?) and you should then be
able to type something like this:

==== greektest.tex =====

\usetypescriptfile[cbgreek]

\usetypescript [all] [cbgreek]

\def\enablegreek{\language[greek]\catcode`~=\other\catcode`|=\other}
\def\startgreek{\par\begingroup\setupbodyfont[cbgreek]\enablegreek}
\let\stopgreek\endgroup

\def\greek{\groupedcommand{\switchtobodyfont[cbgreek]\enablegreek}{}}

\mainlanguage[english]

\starttext

We can easily use plain English for normal text, and then switch
to greek when we want; as a first try we type the lower and
upper case 26 letters of the latin alphabet and see how they come
out in greek:
\startgreek
a b c d e f g h i j k l m n o p q r s t u v w x y z

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
\stopgreek

As it can be observed, some uppercase letters have strange
outcomes; also, j gives \greek{j} and c gives the
end-of-word sigma \greek{c}; interestingly, s gives either the
normal sigma or the end-of-word one, depending on whether it's at
the of the word or not: \greek{satrapws}.

Of course we can use the various diacritical signs: accents
(\greek{`a, 'a, ~a}), breathings (\greek{<r, >w, a"}) and
subscribed iotas (\greek{a|, h|, w|}) (these last are pretty ugly in my
opinion); observe how they automatically get the correct position
with uppercase letters: (\greek{`A, 'A, ~A, <A, >A, A|}).

Can the thing be used for serious work?

\startgreek
>'Andra moi >'ennepe, Mo~usa, pol'utropon, >'os m'ala poll`a\hfill\break
pl'agqjh, >epe`i Tro'ihs <er`on ptol'iejron >'eperse;\hfill\break
poll~wn d" >anjr'wpwn >'iden >'astea ka`i n'oon >'egnw,\hfill\break
poll`a d" <'o g" >en p'ontw| p'ajen >'algea <`on kat`a jum'on,\hfill\break
>arn'umenos <'hn te yuq`hn ka`i n'oston <eta'irwn.
\stopgreek

\stoptext
=======

[-- Attachment #2: cbgreek.tex --]
[-- Type: APPLICATION/OCTET-STREAM, Size: 4169 bytes --]

\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
    [10.95pt]
    [rm]
    [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.40pt]
    [rm]
    [tf=grmn1440,
     sl=grmo1440,
     it=grmi1440,
     sc=grmc1440,
     bf=grxn1440,
     bs=grxo1440,
     bi=grxi1440]

\stoptypescript

\starttypescript [CBGreek]

  \definebodyfontenvironment
    [cbgreek]
    [default]
    []

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

\stoptypescript

[-- Attachment #3: Type: text/plain, Size: 139 bytes --]

_______________________________________________
ntg-context mailing list
ntg-context@ntg.nl
http://www.ntg.nl/mailman/listinfo/ntg-context