Re: finishing a module

[Taco Hoekwater <taco@elvenkind.com>]

Thomas A.Schmitz wrote:
> I spent some (too much) time today improving my Greek module. For the  
> time being, two questions remain; I'm confident that they're not too  
> difficult for the experts; any help would be appreciated.

See below for my (adjusted) input file, I hope it helps.

> (The space after "somefont" looks ugly, but I haven't figured out how  
> to get rid of it; TeX will always complain if I delete it.)

Using \getvalue{MyFont} instead of \MyFont will allow you to remove
the space from the definition, but that may not be what you want,
because it is more cumbersome. If that is the case, just leave the
space there.

> 1. After this definition, this will work:
> \definebodyfont[4pt,5pt,6pt,7pt,8pt,9pt,10pt,10.5pt,11pt,12pt,14pt,14.4p 
> t,16pt,18pt,20pt,22pt][rm][Gf=\MyFont sa \MyScale]
> 
> This, however, will not work:
> \definefont[Gf][\MyFont sa \MyScale]

Both work for me. Unless I misunderstood what it is supposed to do.

> 2. In my module, I define some special symbols:
> \define\koppa{\getglyph{\MyFont}{\char37}}

Rude, but effective:

   \define\koppa {{\Gf \char37}}

Greetings, Taco

----------
\def\setupgreek#1[#2]{%
   \getparameters[GG][Scale=,Font=,#2]
   \edef\MyScale{\GGScale}%
   \processaction[\GGFont]
    [  SomeFont1=>\def\MyFont{cmbx10},
       SomeFont2=>\def\MyFont{cmtt10}]%
}
\setupgreek[Scale=5,Font=SomeFont1]

\definebodyfont[4pt,5pt,6pt,7pt,8pt,9pt,10pt,10.5pt,11pt,12pt,14pt,14.4pt,16pt,18pt,20pt,22pt][rm][rm=\getvalue{MyFont} 
sa \MyScale]

\definefont[Gf][\getvalue{MyFont} sa \MyScale]

\starttext
Beo {\switchtobodyfont[20pt]Beolarge} Beo {\Gf Beolarge}
\stoptext