Re: [NTG-context] Re: Ancient Greek (bodyfont conflict?)

...

'Andra moi >'ennepe, Mo~usa, pol'utropon, >'os m'ala poll`a\hfill\break

Steffen Wolfrum wrote: It works quite well here. I attached the files that i have on my machine. Hans ----------------------------------------------------------------- Hans Hagen | PRAGMA ADE Ridderstraat 27 | 8061 GH Hasselt | The Netherlands tel: 038 477 53 69 | fax: 038 477 53 74 | www.pragma-ade.com | www.pragma-pod.nl ----------------------------------------------------------------- %D \module %D [ file=type-cbg, %D version=2004.08.23, %D title=\CONTEXT\ Typescript Macros, %D subtitle=CB Greek, %D author={Giuseppe Bilotta, Hans Hagen}, %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. % legend: % % g=greek % r=regular s=sansserif t=typewriter % m=medium x=boldextended t=monospaced % n=normal o=oblique i=italic u=uprightitalic c=smallcaps % ruby script to make small zip file: % % zipfile = 'cbsmall.zip' % % fontfiles = Array.new % % fontfiles.push(Dir.glob("fonts/{tfm,vf,afm,type1}/public/cb/{gr,gs,gt}{m,s,t}{n,o,i,u,c}{0800,1000,1200}.{tfm,afm,pfb}")) % fontfiles.push(Dir.glob("fonts/{map,enc,lig}/{dvips,pdftex,dvipdfm,dvipdfmx}/cb/{cbgreek,cbsmall}.{map,enc,lig}")) % % File.delete(zipfile) if FileTest.file?(zipfile) % system("zip -r -9 cbsmall #{fontfiles.join(' ')}") \starttypescript [serif] [cbgreek] [name] \definefontsynonym [CBGreek-Regular-Medium-Normal] [grmn1000] \definefontsynonym [CBGreek-Regular-Medium-Oblique] [grmo1000] \definefontsynonym [CBGreek-Regular-Medium-Italic] [grmi1000] \definefontsynonym [CBGreek-Regular-Medium-UprightItalic] [grmu1000] \definefontsynonym [CBGreek-Regular-Medium-Caps] [grmc1000] \definefontsynonym [CBGreek-Regular-Medium-Leipzig] [grml1000] \definefontsynonym [CBGreek-Regular-Medium-Roman] [grmr1000] \definefontsynonym [CBGreek-Regular-BoldExtended-Normal] [grxn1000] \definefontsynonym [CBGreek-Regular-BoldExtended-Oblique] [grxo1000] \definefontsynonym [CBGreek-Regular-BoldExtended-Italic] [grxi1000] \definefontsynonym [CBGreek-Regular-BoldExtended-UprightItalic] [grxu1000] \definefontsynonym [CBGreek-Regular-BoldExtended-Caps] [grxc1000] \definefontsynonym [CBGreek-Regular-BoldExtended-Leipzig] [grxl1000] \definefontsynonym [CBGreek-Regular-BoldExtended-Roman] [grxr1000] \stoptypescript \starttypescript [sans] [cbgreek] [name] \definefontsynonym [CBGreek-Sans-Medium-Normal] [gsmn1000] \definefontsynonym [CBGreek-Sans-Medium-Oblique] [gsmo1000] \definefontsynonym [CBGreek-Sans-Medium-Italic] [gsmi1000] \definefontsynonym [CBGreek-Sans-Medium-UprightItalic] [gsmu1000] \definefontsynonym [CBGreek-Sans-Medium-Caps] [gsmc1000] \definefontsynonym [CBGreek-Sans-Medium-Leipzig] [gsml1000] \definefontsynonym [CBGreek-Sans-Medium-Roman] [gsmr1000] \definefontsynonym [CBGreek-Sans-BoldExtended-Normal] [gsxn1000] \definefontsynonym [CBGreek-Sans-BoldExtended-Oblique] [gsxo1000] \definefontsynonym [CBGreek-Sans-BoldExtended-Italic] [gsxi1000] \definefontsynonym [CBGreek-Sans-BoldExtended-UprightItalic] [gsxu1000] \definefontsynonym [CBGreek-Sans-BoldExtended-Caps] [gsxc1000] \definefontsynonym [CBGreek-Sans-BoldExtended-Leipzig] [gsxl1000] \definefontsynonym [CBGreek-Sans-BoldExtended-Roman] [gsxr1000] \stoptypescript \starttypescript [mono] [cbgreek] [name] \definefontsynonym [CBGreek-Mono-Medium-Normal] [gttn1000] \definefontsynonym [CBGreek-Mono-Medium-Oblique] [gtto1000] \definefontsynonym [CBGreek-Mono-Medium-Italic] [gtti1000] \definefontsynonym [CBGreek-Mono-Medium-UprightItalic] [gttu1000] \definefontsynonym [CBGreek-Mono-Medium-Caps] [gttc1000] \definefontsynonym [CBGreek-Mono-Medium-Leipzig] [gttl1000] \definefontsynonym [CBGreek-Mono-Medium-Roman] [gttr1000] \stoptypescript \starttypescript [serif] [cbgreek] [name] \definefontsynonym [Serif] [CBGreek-Regular-Medium-Normal] \definefontsynonym [SerifSlanted] [CBGreek-Regular-Medium-Oblique] \definefontsynonym [SerifItalic] [CBGreek-Regular-Medium-Italic] \definefontsynonym [SerifCaps] [CBGreek-Regular-Medium-Caps] \definefontsynonym [SerifBold] [CBGreek-Regular-BoldExtended-Normal] \definefontsynonym [SerifBoldSlanted] [CBGreek-Regular-BoldExtended-Oblique] \definefontsynonym [SerifBoldItalic] [CBGreek-Regular-BoldExtended-Italic] \definefontsynonym [SerifBoldCaps] [CBGreek-Regular-BoldExtended-Caps] \stoptypescript \starttypescript [sans] [cbgreek] [name] \definefontsynonym [Sans] [CBGreek-Sans-Medium-Normal] \definefontsynonym [SansSlanted] [CBGreek-Sans-Medium-Oblique] \definefontsynonym [SansItalic] [CBGreek-Sans-Medium-Italic] \definefontsynonym [SansCaps] [CBGreek-Sans-Medium-Caps] \definefontsynonym [SansBold] [CBGreek-Sans-BoldExtended-Normal] \definefontsynonym [SansBoldSlanted] [CBGreek-Sans-BoldExtended-Oblique] \definefontsynonym [SansBoldItalic] [CBGreek-Sans-BoldExtended-Italic] \definefontsynonym [SansBoldCaps] [CBGreek-Sans-BoldExtended-Caps] \stoptypescript \starttypescript [mono] [cbgreek] [name] \definefontsynonym [Mono] [CBGreek-Typewriter-Medium-Normal] \definefontsynonym [MonoSlanted] [CBGreek-Typewriter-Medium-Oblique] \definefontsynonym [MonoItalic] [CBGreek-Typewriter-Medium-Italic] \definefontsynonym [MonoCaps] [CBGreek-Typewriter-Medium-Caps] \stoptypescript % Please note that we use Bold Extended instead of Bold \starttypescript [serif] [cbgreek-all] [size] \definebodyfont [4pt,5pt] [rm] [tf=grmn0500 sa 1,sl=grmo0500 sa 1,it=grmi0500 sa 1, bf=grxn0500 sa 1,bs=grxo0500 sa 1,bi=grxi0500 sa 1, sc=grmc0500 sa 1] \definebodyfont [6pt] [rm] [tf=grmn0600,sl=grmo0600,it=grmi0600, bf=grxn0600,bs=grxo0600,bi=grxi0600, sc=grmc0600] \definebodyfont [7pt] [rm] [tf=grmn0700,sl=grmo0700,it=grmi0700, bf=grxn0700,bs=grxo0700,bi=grxi0700, sc=grmc0700] \definebodyfont [8pt] [rm] [tf=grmn0800,sl=grmo0800,it=grmi0800, bf=grxn0800,bs=grxo0800,bi=grxi0800, sc=grmc0800] \definebodyfont [9pt] [rm] [tf=grmn0900,sl=grmo0900,it=grmi0900, bf=grxn0900,bs=grxo0900,bi=grxi0900, sc=grmc0900] \definebodyfont [10pt] [rm] [tf=grmn1000,sl=grmo1000,it=grmi1000, bf=grxn1000,bs=grxo1000,bi=grxi1000, sc=grmc1000] \definebodyfont [11pt] [rm] [tf=grmn1095,sl=grmo1095,it=grmi1095, bf=grxn1095,bs=grxo1095,bi=grxi1095, sc=grmc1095] \definebodyfont [12pt] [rm] [tf=grmn1200,sl=grmo1200,it=grmi1200, bf=grxn1200,bs=grxo1200,bi=grxi1200, sc=grmc1200] \definebodyfont [14.4pt,17.3pt,20.7pt] [rm] [tf=grmn1440 sa 1,sl=grmo1440 sa 1,it=grmi1440 sa 1, bf=grxn1440 sa 1,bs=grxo1440 sa 1,bi=grxi1440 sa 1, sc=grmc1440 sa 1] \stoptypescript \starttypescript [sans] [cbgreek-all] [size] \definebodyfont [4pt,5pt] [ss] [tf=gsmn0500 sa 1,sl=gsmo0500 sa 1,it=gsmi0500 sa 1, bf=gsxn0500 sa 1,bs=gsxo0500 sa 1,bi=gsxi0500 sa 1, sc=gsmc0500 sa 1] \definebodyfont [6pt] [ss] [tf=gsmn0600,sl=gsmo0600,it=gsmi0600, bf=gsxn0600,bs=gsxo0600,bi=gsxi0600, sc=gsmc0600] \definebodyfont [7pt] [ss] [tf=gsmn0700,sl=gsmo0700,it=gsmi0700, bf=gsxn0700,bs=gsxo0700,bi=gsxi0700, sc=gsmc0700] \definebodyfont [8pt] [ss] [tf=gsmn0800,sl=gsmo0800,it=gsmi0800, bf=gsxn0800,bs=gsxo0800,bi=gsxi0800, sc=gsmc0800] \definebodyfont [9pt] [ss] [tf=gsmn0900,sl=gsmo0900,it=gsmi0900, bf=gsxn0900,bs=gsxo0900,bi=gsxi0900, sc=gsmc0900] \definebodyfont [10pt] [ss] [tf=gsmn1000,sl=gsmo1000,it=gsmi1000, bf=gsxn1000,bs=gsxo1000,bi=gsxi1000, sc=gsmc1000] \definebodyfont [11pt] [ss] [tf=gsmn1095,sl=gsmo1095,it=gsmi1095, bf=gsxn1095,bs=gsxo1095,bi=gsxi1095, sc=gsmc1095] \definebodyfont [12pt] [ss] [tf=gsmn1200,sl=gsmo1200,it=gsmi1200, bf=gsxn1200,bs=gsxo1200,bi=gsxi1200, sc=gsmc1200] \definebodyfont [14.4pt,17.3pt,20.7pt] [ss] [tf=gsmn1440 sa 1,sl=gsmo1440 sa 1,it=gsmi1440 sa 1, bf=gsxn1440 sa 1,bs=gsxo1440 sa 1,bi=gsxi1440 sa 1, sc=gsmc1440 sa 1] \stoptypescript \starttypescript [mono] [cbgreek-all] [size] \definebodyfont [4pt,5pt] [tt] [tf=gttn0500 sa 1,sl=gtto0500 sa 1,it=gtti0500 sa 1, sc=gttc0500 sa 1] \definebodyfont [6pt] [tt] [tf=gttn0600,sl=gtto0600,it=gtti0600, sc=gttc0600] \definebodyfont [7pt] [tt] [tf=gttn0700,sl=gtto0700,it=gtti0700, sc=gttc0700] \definebodyfont [8pt] [tt] [tf=gttn0800,sl=gtto0800,it=gtti0800, sc=gttc0800] \definebodyfont [9pt] [tt] [tf=gttn0900,sl=gtto0900,it=gtti0900, sc=gttc0900] \definebodyfont [10pt] [tt] [tf=gttn1000,sl=gtto1000,it=gtti1000, sc=gttc1000] \definebodyfont [11pt] [tt] [tf=gttn1095,sl=gtto1095,it=gtti1095, sc=gttc1095] \definebodyfont [12pt] [tt] [tf=gttn1200,sl=gtto1200,it=gtti1200, sc=gttc1200] \definebodyfont [14.4pt,17.3pt,20.7pt] [tt] [tf=gttn1440 sa 1,sl=gtto1440 sa 1,it=gtti1440 sa 1, sc=gttc1440 sa 1] \stoptypescript \starttypescript [serif] [cbgreek-some] [size] \definebodyfont [4pt,5pt,6pt,7pt,8pt,9pt] [rm] [tf=grmn0800 sa 1,sl=grmo0800 sa 1,it=grmi0800 sa 1, bf=grxn0800 sa 1,bs=grxo0800 sa 1,bi=grxi0800 sa 1, sc=grmc0800 sa 1] \definebodyfont [10pt,11pt] [rm] [tf=grmn1000 sa 1,sl=grmo1000 sa 1,it=grmi1000 sa 1, bf=grxn1000 sa 1,bs=grxo1000 sa 1,bi=grxi1000 sa 1, sc=grmc1000 sa 1] \definebodyfont [12pt,14.4pt,17.3pt,20.7pt] [rm] [tf=grmn1200 sa 1,sl=grmo1200 sa 1,it=grmi1200 sa 1, bf=grxn1200 sa 1,bs=grxo1200 sa 1,bi=grxi1200 sa 1, sc=grmc1200 sa 1] \stoptypescript \starttypescript [sans] [cbgreek-some] [size] \definebodyfont [4pt,5pt,6pt,7pt,8pt,9pt] [ss] [tf=gsmn0800 sa 1,sl=gsmo0800 sa 1,it=gsmi0800 sa 1, bf=gsxn0800 sa 1,bs=gsxo0800 sa 1,bi=gsxi0800 sa 1, sc=gsmc0800 sa 1] \definebodyfont [10pt,11pt] [ss] [tf=gsmn1000 sa 1,sl=gsmo1000 sa 1,it=gsmi1000 sa 1, bf=gsxn1000 sa 1,bs=gsxo1000 sa 1,bi=gsxi1000 sa 1, sc=gsmc1000 sa 1] \definebodyfont [12pt,14.4pt,17.3pt,20.7pt] [ss] [tf=gsmn1200 sa 1,sl=gsmo1200 sa 1,it=gsmi1200 sa 1, bf=gsxn1200 sa 1,bs=gsxo1200 sa 1,bi=gsxi1200 sa 1, sc=gsmc1200 sa 1] \stoptypescript \starttypescript [mono] [cbgreek-some] [size] \definebodyfont [4pt,5pt,6pt,7pt,8pt,9pt] [tt] [tf=gttn0800 sa 1,sl=gtto0800 sa 1,it=gtti0800 sa 1, sc=gttc0800 sa 1] \definebodyfont [10pt,11pt] [tt] [tf=gttn1000 sa 1,sl=gtto1000 sa 1,it=gtti1000 sa 1, sc=gttc1000 sa 1] \definebodyfont [12pt,14.4pt,17.3pt,20.7pt] [tt] [tf=gttn1200 sa 1,sl=gtto1200 sa 1,it=gtti1200 sa 1, sc=gttc1200 sa 1] \stoptypescript \starttypescript [map] [cbgreek] \loadmapfile [cbgreek.map] % \loadmapfile [cbsmall.map] \stoptypescript \starttypescript [cbgreek-all] \definebodyfontenvironment [cbgreek] [default] [] \definetypeface [cbgreek] [rm] [serif] [cbgreek] [cbgreek-all] \definetypeface [cbgreek] [ss] [sans] [cbgreek] [cbgreek-all] \definetypeface [cbgreek] [tt] [mono] [cbgreek] [cbgreek-all] \stoptypescript \starttypescript [cbgreek-some] % lowercase, patched HH \definebodyfontenvironment [cbgreek] [default] [] \definetypeface [cbgreek] [rm] [serif] [cbgreek] [cbgreek-some] \definetypeface [cbgreek] [ss] [sans] [cbgreek] [cbgreek-some] \definetypeface [cbgreek] [tt] [mono] [cbgreek] [cbgreek-some] \stoptypescript \starttypescript [cbgreek] % lowercase, patched HH \definebodyfontenvironment [cbgreek] [default] [] \definetypeface [cbgreek] [rm] [serif] [cbgreek] [default] \definetypeface [cbgreek] [ss] [sans] [cbgreek] [default] \definetypeface [cbgreek] [tt] [mono] [cbgreek] [default] \stoptypescript \endinput %D \module %D [ filefile=s-grk-00, %D version=2004.08.23, %D title=\CONTEXT\ Style File, %D subtitle=CB Greek Support, %D author=Hans Hagen, %D date=\currentdate, %D suggestions=Giuseppe Bilotta, %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. \usetypescriptfile[type-cbg] \usetypescript [all] [cbgreek] \startsetups [cbgreek] \catcode`~=\other \catcode`|=\other \language[greek] \switchtobodyfont[cbgreek] \stopsetups \definestartstop [greek] [commands=\directsetup{cbgreek}] \doifnotmode{demo}{\endinput} % The following sample file was submitted to the \CONTEXT\ % mailing list by Giuseppe Bilotta, along with the right % typescripts. % already loaded: \usemodule[greek] \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 \par 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 end of the word or not: \greek{satrapws}. Of course we can use the various diacritical signs: accents (\greek{`a, 'a, ~a}), breathings (\greek{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|}). Can the thing be used for serious work? \startgreek pl'agqjh, >epe`i Tro'ihs '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

\stoptext