* Re: Ancient Greek (bodyfont conflict?)
@ 2004-09-02 8:41 Steffen Wolfrum
2004-09-02 9:54 ` Hans Hagen
0 siblings, 1 reply; 6+ messages in thread
From: Steffen Wolfrum @ 2004-09-02 8:41 UTC (permalink / raw)
Hans Hagen <pragma@wxs.nl> wrote:
> Steffen Wolfrum wrote:
>
> >Hi,
> >
> >In "s-grk-00.tex" is defined "\switchtobodyfont[cbgreek]".
> >So why doesn't it work to define a body font for the normal AND use this module for switching to greek?
> >
> >
> does
>
> texexec --mode=demo --pdf x-grk-00
>
> work?
>
> >Steffen
> >
> >
> >P.S. Please have a look at this wellknown example.
> >With the first four lines added the greek parts get empty:
> >
> >
> >
> >\def\typescriptfiles{type-agaramond.tex}
> >
> >
> \usetypescriptfile[type-agaramond.tex]
>
> otherwise you loose everyhting else
>
> Hans
Does it work on your system (with an other typescript of course)?
If I change
\def\typescriptfiles{type-agaramond.tex}
to
\usetypescriptfile[type-agaramond.tex]
I get the error log you can see below.
If I'd comment the first four lines it works fine (so the greek module works, right?).
Steffen
TeXExec 4.0 - ConTeXt / PRAGMA ADE 1997-2003
executable : pdfetex
format : cont-en
inputfile : TEST
output : pdftex
interface : en
current mode : none
TeX run : 1
This is pdfeTeX, Version 3.14159-1.10b-2.1 (Web2C 7.4.5)
\write18 enabled.
(/usr/local/teTeX/share/texmf.local/web2c/natural.tcx)
entering extended mode
(./TEST.tex{/Users/steffen/Library/texmf/pdftex/config/pdftex.cfg}
ConTeXt ver: 2004.8.15 fmt: 2004.8.29 int: english mes: english
language : language en is active
<protectionstate 0>
system : cont-new loaded
(/usr/local/teTeX/share/texmf.local/tex/context/base/cont-new.tex
systems : beware: some patches loaded from cont-new.tex!
color : palette rollover is available
system (E-TEX) : [line 567]
system (E-TEX) : [line 622]
(/usr/local/teTeX/share/texmf.local/tex/context/base/cont-loc.tex))
system : cont-old loaded
(/usr/local/teTeX/share/texmf.local/tex/context/base/cont-old.tex
loading : Context Old Macros
)
system : cont-fil loaded
(/usr/local/teTeX/share/texmf.local/tex/context/base/cont-fil.tex
loading : Context File Synonyms
)
system : cont-sys loaded
(/usr/local/teTeX/share/texmf.local/tex/context/user/cont-sys.tex)
bodyfont : 12pt rm is loaded
language : patterns 2:2-en-2 3:2-uk-2 4:2-de-2 5:2-fr-2 6:2-es-2 7:2-it-2
8:2-nl-2 loaded
specials : tex,postscript,rokicki loaded
system : TEST.top loaded
(./TEST.top
specials : loading definition file tpd
(/usr/local/teTeX/share/texmf.local/tex/context/base/spec-tpd.tex
specials : loading definition file fdf
(/usr/local/teTeX/share/texmf.local/tex/context/base/spec-fdf.tex
<unprotect 3> <unprotect 4>
system (E-TEX) : [line 2253] \ifcsname
<protect 4> <protect 3>)
specials : fdf loaded
<unprotect 3> <protect 3>)
specials : fdf,tpd loaded
) (/usr/local/teTeX/share/texmf.local/tex/context/base/type-pre.tex)
bodyfont : unknown variant AGaramondOldStyle
bodyfont : bodyfont 7.1pt is defined (can better be done global)
bodyfont : bodyfont 7.1pt is defined (can better be done global)
bodyfont : bodyfont 8.1pt is defined (can better be done global)
bodyfont : bodyfont 8.1pt is defined (can better be done global)
bodyfont : bodyfont 6.1pt is defined (can better be done global)
bodyfont : bodyfont 6.1pt is defined (can better be done global)
bodyfont : bodyfont 12.2pt is defined (can better be done global)
bodyfont : bodyfont 12.2pt is defined (can better be done global)
bodyfont : bodyfont 10.2pt is defined (can better be done global)
bodyfont : bodyfont 10.2pt is defined (can better be done global)
system : macros of module greek loaded
(/usr/local/teTeX/share/texmf.local/tex/context/base/s-grk-00.tex
fonts : [all] [cbgreek] []
(/usr/local/teTeX/share/texmf.local/tex/context/base/type-syn.tex)
(/usr/local/teTeX/share/texmf.local/tex/context/base/type-enc.tex)
(/usr/local/teTeX/share/texmf.local/tex/context/base/type-siz.tex)
(/usr/local/teTeX/share/texmf.local/tex/context/base/type-map.tex)
(/usr/local/teTeX/share/texmf.local/tex/context/base/type-spe.tex)
(/usr/local/teTeX/share/texmf.local/tex/context/base/type-exa.tex)
(/usr/local/teTeX/share/texmf.local/tex/context/base/type-akb.tex)
(/usr/local/teTeX/share/texmf.local/tex/context/user/type-cbg.tex
fonts : [cbgreek] [rm] [serif] [cb-greek] / ec
fonts : [map] [ec] []
(/usr/local/teTeX/share/texmf.local/tex/context/base/type-syn.tex)
(/usr/local/teTeX/share/texmf.local/tex/context/base/type-enc.tex)
(/usr/local/teTeX/share/texmf.local/tex/context/base/type-siz.tex)
(/usr/local/teTeX/share/texmf.local/tex/context/base/type-map.tex)
(/usr/local/teTeX/share/texmf.local/tex/context/base/type-spe.tex)
(/usr/local/teTeX/share/texmf.local/tex/context/base/type-exa.tex)
(/usr/local/teTeX/share/texmf.local/tex/context/base/type-akb.tex)
(/usr/local/teTeX/share/texmf.local/tex/context/user/type-cbg.tex)
fonts : [serif,map] [cb-greek] [name,default,ec,special]
(/usr/local/teTeX/share/texmf.local/tex/context/base/type-syn.tex)
(/usr/local/teTeX/share/texmf.local/tex/context/base/type-enc.tex)
(/usr/local/teTeX/share/texmf.local/tex/context/base/type-siz.tex)
(/usr/local/teTeX/share/texmf.local/tex/context/base/type-map.tex)
(/usr/local/teTeX/share/texmf.local/tex/context/base/type-spe.tex)
(/usr/local/teTeX/share/texmf.local/tex/context/base/type-exa.tex)
(/usr/local/teTeX/share/texmf.local/tex/context/base/type-akb.tex)
(/usr/local/teTeX/share/texmf.local/tex/context/user/type-cbg.tex)
fonts : [serif] [cb-greek] [size]
(/usr/local/teTeX/share/texmf.local/tex/context/base/type-syn.tex)
(/usr/local/teTeX/share/texmf.local/tex/context/base/type-enc.tex)
(/usr/local/teTeX/share/texmf.local/tex/context/base/type-siz.tex)
(/usr/local/teTeX/share/texmf.local/tex/context/base/type-map.tex)
(/usr/local/teTeX/share/texmf.local/tex/context/base/type-spe.tex)
(/usr/local/teTeX/share/texmf.local/tex/context/base/type-exa.tex)
(/usr/local/teTeX/share/texmf.local/tex/context/base/type-akb.tex)
(/usr/local/teTeX/share/texmf.local/tex/context/user/type-cbg.tex)))
(./TEST.tuo) (./TEST.tuo) (./TEST.tuo) (./TEST.tuo) (./TEST.tuo) (./TEST.tuo)
(./TEST.tuo) (./TEST.tuo) (./TEST.tuo) (./TEST.tuo) (./TEST.tuo) (./TEST.tuo)
(./TEST.tuo) (./TEST.tuo)kpathsea: Running mktextfm GBGreek-Regular-Medium-Normal
/usr/local/teTeX/share/texmf/web2c/mktexnam: Could not map source abbreviation G for GBGreek-Regular-Medium-Normal.
/usr/local/teTeX/share/texmf/web2c/mktexnam: Need to update /usr/local/teTeX/share/texmf.tetex/fontname/special.map?
mktextfm: Running mf-nowin -progname=mf \mode:=ljfour; mag:=1; nonstopmode; input GBGreek-Regular-Medium-Normal
This is METAFONT, Version 2.7182 (Web2C 7.4.5)
kpathsea: Running mktexmf GBGreek-Regular-Medium-Normal
! I can't find file `GBGreek-Regular-Medium-Normal'.
<*> ...opmode; input GBGreek-Regular-Medium-Normal
Please type another input file name
! Emergency stop.
<*> ...opmode; input GBGreek-Regular-Medium-Normal
Transcript written on mfput.log.
mktextfm: `mf-nowin -progname=mf \mode:=ljfour; mag:=1; nonstopmode; input GBGreek-Regular-Medium-Normal' failed.
kpathsea: Appending font creation commands to missfont.log.
fonts : needs map file: ec-base.map
fonts : needs map file: cbgreek.map
fonts : needs map file: ec-public-lm.map
fonts : needs map file: original-base.map
systems : begin file TEST at line 16
! Font \*cbgreek10.2ptrmtf*:=GBGreek-Regular-Medium-Normal at 10.2pt not loadab
le: Metric (TFM) file not found.
<to be read again>
\let
\xxdododefinefont ... {#4}\newfontidentifier \let
\localrelativefontsize \de...
\fontstrategy ...ame #1\csname #2#3#4#5\endcsname
\tryingfontfalse \fi
<inserted text> ...yle \fontalternative \fontsize
\fi \iftryingfont \fontstr...
\synchronizefont ...strategy \the \fontstrategies
\relax \fi \ifskipfontchar...
<argument> \getvalue {\@style@ \fontstyle }
\edef \fontstyle {\fontstyle }\if...
...
l.23 \startgreek
?
^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: Re: Ancient Greek (bodyfont conflict?)
2004-09-02 8:41 Ancient Greek (bodyfont conflict?) 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
* 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 11:25 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 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
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 8:41 Ancient Greek (bodyfont conflict?) Steffen Wolfrum
2004-09-02 9:54 ` Hans Hagen
2004-09-02 9:13 Steffen Wolfrum
2004-09-02 9:55 ` Hans Hagen
2004-09-02 10:29 Steffen Wolfrum
2004-09-02 10:41 ` Hans Hagen
2004-09-02 11:25 Steffen Wolfrum
2004-09-02 12:04 ` Hans Hagen
2004-09-02 12:31 Steffen Wolfrum
2004-09-02 12:57 ` 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).