Thomas A.Schmitz wrote:
If anybody can spare five minutes, I append what I have got so far; maybe I'm overlooking something obvious. Sorry for the lengthy post and for taking your time!
hm, this is a ll i can do in five minutes: - just use the fontname remapper instead of processaction and intermediate vars - use getvariables instead of interface specific getparameters - end the par inside the start/stopgreek - no low level hacking needed \starttext \setvariables[Greek][scale=1,font=Kadmos] \definefontsynonym[Oxonia] [greeoxon] \definefontsynonym[Ibycus] [fibr] \definefontsynonym[Bosporos][bosporos] \definefontsynonym[Gentium] [gentiumgr] \definefontsynonym[Kadmos] [kadmo] \definefontsynonym[Leipzig] [grbl] \definefontsynonym[Teubner] [teubnerc] % \definefont[Gf][\getvariable{Greek}{font} sa \getvariable{Greek}{scale}] \definebodyfont [4pt,5pt,6pt,7pt,8pt,9pt,10pt,10.5pt,11pt,12pt, 14pt,14.4pt,16pt,18pt,20pt,22pt] [rm] [Gf=\getvariable{Greek}{font} sa \getvariable{Greek}{scale}] \def\enablegreek {\language[greek]% \catcode`~=\other \catcode`|=\other \catcode`'=\other} \def\startgreek{\par\begingroup\Gf\enablegreek} \def\stopgreek {\par\endgroup} \def\localgreek{\groupedcommand{\Gf\enablegreek}\donothing} \define\sampi {{\Gf \char 34}} \define\digamma{{\Gf \char 35}} \define\stigma {{\Gf \char 36}} \define\koppa {{\Gf \char 37}} \define\lunars {{\Gf \char 1}} \define\lunarS {{\Gf \char 13}} \define\brcl {{\Gf \char 8}} \define\brcr {{\Gf \char 9}} \define\hbrl {{\Gf \char123}} \define\hbrr {{\Gf \char125}} \define\crux {{\Gf \char 43}} I have no greek, so: \definefontsynonym[kadmo][cmvtt10] \crux \stoptext
Thanks everybody!
Thomas
%module t-greek providing method for Greek input in ConTeXt
\unprotect
\def\setupgreek#1[#2]{% \getparameters[GG][Scale=,Font=,#2]%Font,Scale \xdef\MyScale{\GGScale}% \processaction[\GGFont] [ Oxonia=>\gdef\MyFont{greeoxon },%this switches from the "logical" name of the font to the actual tfm Ibycus=>\gdef\MyFont{fibr }, Bosporos=>\gdef\MyFont{Bosporos }, Gentium=>\gdef\MyFont{gentiumgr }, Kadmos=>\gdef\MyFont{kadmo }, Leipzig=>\gdef\MyFont{grbl }, Teubner=>\gdef\MyFont{Teubnerc }]% }
\protect
%\definefont[Gf][kadmo ] %When given the name of the tfm in clear, this works
%\definefont[Gf][\MyFont]%This does not work, and I have no clue why
\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 DOES work, and I can't see what's the fundamental difference to the preceding line.
\def\enablegreek{\language[greek]\catcode`~=\other\catcode`|=\other\catc ode`'=\other}%this was provided by Giuseppe
\def\startgreek{\par\begingroup\Gf\enablegreek}
\let\stopgreek\endgroup
\def\localgreek{\groupedcommand{\Gf\enablegreek}{}}
\define\sampi{{\Gf \char34}}%and this by Taco
\define\digamma{{\Gf \char35}}
\define\stigma{{\Gf \char36}}
\define\koppa{{\Gf \char37}}
\define\lunars{{\Gf \char1}}
\define\lunarS{{\Gf \char13}}
\define\brcl{{\Gf \char8}}
\define\brcr{{\Gf \char9}}
\define\hbrl{{\Gf \char123}}
\define\hbrr{{\Gf \char125}}
\define\crux{{\Gf \char43}}
On Jan 23, 2005, at 10:24 PM, h h extern wrote:
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.
what exactly do you want to achieve, if it's only some font following the sizes and styyles ...
\definefontsynonym [Funny] [cmr10] \definefontsynonym [FunnyBold] [cmbx10] \definefontsynonym [FunnyItalic] [cmti10] % \definefontsynonym [FunnySlanted] [...] % \definefontsynonym [FunnyBoldItalic] [...] % \definefontsynonym [FunnyBoldSlanted] [...]
\def\MyFunnyFont{\symbolicfont{Funny}}
test {\MyFunnyFont test} test test {\it \MyFunnyFont test} test test {\bf \MyFunnyFont test} test
----------------------------------------------------------------- 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 -----------------------------------------------------------------
_______________________________________________ ntg-context mailing list ntg-context@ntg.nl http://www.ntg.nl/mailman/listinfo/ntg-context
_______________________________________________ ntg-context mailing list ntg-context@ntg.nl http://www.ntg.nl/mailman/listinfo/ntg-context
-- ----------------------------------------------------------------- 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 -----------------------------------------------------------------