* Re: Ancient Greek (bodyfont conflict?)
@ 2004-09-02 11:25 Steffen Wolfrum
2004-09-02 12:04 ` Hans Hagen
0 siblings, 1 reply; 6+ messages in thread
From: Steffen Wolfrum @ 2004-09-02 11:25 UTC (permalink / raw)
I can't find anything wrong (for without greek it works fine).
Maybe you want to have a short look:
This is my test document:
\usetypescriptfile[type-agaramondmini.tex]
\usetypescript[AGaramondOldStyle]
\setupencoding[default=ec]
\setupbodyfont[AGaramondOldStyle,10.2pt]
% whithout these four line the greek was ok. now its empty.
\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}.
\stoptext
And this is my typescriptfile type-agaramondmini.tex:
\starttypescript [serif] [agaramond-oldstyle] [ec]
\definefontsynonym [AGaramond-Regular] [padr9e] [encoding=ec]
\definefontsynonym [AGaramond-Italic] [padri9e] [encoding=ec]
\definefontsynonym [AGaramond-Bold] [padb9e] [encoding=ec]
\definefontsynonym [AGaramond-BoldItalic] [padbi9e] [encoding=ec]
\definefontsynonym [AGaramond-Semibold] [pads9e] [encoding=ec]
\definefontsynonym [AGaramond-SemiboldItalic] [padsi9e] [encoding=ec]
\stoptypescript
\starttypescript [serif] [agaramond-oldstyle] [name]
\definefontsynonym [Serif] [AGaramond-Regular]
\definefontsynonym [SerifBold] [AGaramond-Bold]
\definefontsynonym [SerifItalic] [AGaramond-Italic]
\definefontsynonym [SerifBoldItalic] [AGaramond-BoldItalic]
\definefontsynonym [SemiBold] [AGaramond-Semibold]
\definefontsynonym [SemiBoldItalic] [AGaramond-SemiboldItalic]
\stoptypescript
\starttypescript [AGaramondOldStyle]
\definetypeface [AGaramondOldStyle] [rm] [serif] [agaramond-oldstyle] [default] [encoding=ec]
\stoptypescript
Sorry, but what should be changed?
Steffen
^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: Re: Ancient Greek (bodyfont conflict?)
2004-09-02 11:25 Ancient Greek (bodyfont conflict?) Steffen Wolfrum
@ 2004-09-02 12:04 ` Hans Hagen
0 siblings, 0 replies; 6+ messages in thread
From: Hans Hagen @ 2004-09-02 12:04 UTC (permalink / raw)
Steffen Wolfrum wrote:
>I can't find anything wrong (for without greek it works fine).
>Maybe you want to have a short look:
>
>This is my test document:
>
>\usetypescriptfile[type-agaramondmini.tex]
>\usetypescript[AGaramondOldStyle]
>\setupencoding[default=ec]
>\setupbodyfont[AGaramondOldStyle,10.2pt]
>% whithout these four line the greek was ok. now its empty.
>
>
i guess that the 10.2 is giving problems since that size is not defined in greek, so why not use 10pt?
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
-----------------------------------------------------------------
^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: Re: Ancient Greek (bodyfont conflict?)
2004-09-02 12:31 Steffen Wolfrum
@ 2004-09-02 12:57 ` Hans Hagen
0 siblings, 0 replies; 6+ messages in thread
From: Hans Hagen @ 2004-09-02 12:57 UTC (permalink / raw)
Steffen Wolfrum wrote:
>And now again I can also use the much faster
>\def\typescriptfiles{type-agaramondmini.tex}
>instead of
>\usetypescriptfile[type-agaramondmini.tex]
>
>
hm, in that case you will not set up any sizes etc since they are
defined in typescripts
(technically it's possible to preload typescripts but i never came to
put the code into the kernel)
>P.S. Could you - please (!) - also have a look at the "Footnotes in margin" thread?
>
>
later
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
-----------------------------------------------------------------
^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: Re: Ancient Greek (bodyfont conflict?)
2004-09-02 10:29 Steffen Wolfrum
@ 2004-09-02 10:41 ` Hans Hagen
0 siblings, 0 replies; 6+ messages in thread
From: Hans Hagen @ 2004-09-02 10:41 UTC (permalink / raw)
Steffen Wolfrum wrote:
>Sure, THIS one works.
>
>But what I was asking for was
>how to change the font for all the english text (all the non-greek)?
>
>My attempt was to start the document with:
>
>\usetypescriptfile[type-agaramond.tex]
>\usetypescript[AGaramondOldStyle]
>
>
^ does that incude an encoding selection? ...[ec]
>\setupencoding[default=ec]
>
>
>\setupbodyfont[AGaramondOldStyle,10.2pt]
>
>
maybe your type-agaramond messes up things,
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
-----------------------------------------------------------------
^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: Re: Ancient Greek (bodyfont conflict?)
2004-09-02 9:13 Steffen Wolfrum
@ 2004-09-02 9:55 ` Hans Hagen
0 siblings, 0 replies; 6+ messages in thread
From: Hans Hagen @ 2004-09-02 9:55 UTC (permalink / raw)
Steffen Wolfrum wrote:
>... actually it's the last line causing the problem:
>
>\usetypescriptfile[type-agaramond.tex]
>\usetypescript[AGaramondOldStyle]
>\setupencoding[default=ec]
>\setupbodyfont[AGaramondOldStyle,10.2pt] % <-
>
>
>Is there an other way to define a normal bodyfont plus using the greek module?
>
>
sure, you can mix typefaces any way you like, so
\usemodule[grk-00]
\usetypescript[palatino][ec]
will give you both
\setupbodyfont[cbgreek]
and
\setupbodyfont[palatino]
but no palatino greek -)
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
-----------------------------------------------------------------
^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: Re: Ancient Greek (bodyfont conflict?)
2004-09-02 8:41 Steffen Wolfrum
@ 2004-09-02 9:54 ` Hans Hagen
0 siblings, 0 replies; 6+ messages in thread
From: Hans Hagen @ 2004-09-02 9:54 UTC (permalink / raw)
[-- Attachment #1: Type: text/plain, Size: 502 bytes --]
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
-----------------------------------------------------------------
[-- Attachment #2: type-cbg.tex --]
[-- Type: text/plain, Size: 11788 bytes --]
%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
[-- Attachment #3: s-grk-00.tex --]
[-- Type: text/plain, Size: 2272 bytes --]
%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{<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 #4: Type: text/plain, Size: 139 bytes --]
_______________________________________________
ntg-context mailing list
ntg-context@ntg.nl
http://www.ntg.nl/mailman/listinfo/ntg-context
^ permalink raw reply [flat|nested] 6+ messages in thread
end of thread, other threads:[~2004-09-02 12:57 UTC | newest]
Thread overview: 6+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2004-09-02 11:25 Ancient Greek (bodyfont conflict?) Steffen Wolfrum
2004-09-02 12:04 ` Hans Hagen
-- strict thread matches above, loose matches on Subject: below --
2004-09-02 12:31 Steffen Wolfrum
2004-09-02 12:57 ` Hans Hagen
2004-09-02 10:29 Steffen Wolfrum
2004-09-02 10:41 ` Hans Hagen
2004-09-02 9:13 Steffen Wolfrum
2004-09-02 9:55 ` Hans Hagen
2004-09-02 8:41 Steffen Wolfrum
2004-09-02 9:54 ` Hans Hagen
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).