Well, whatever, I will try and finish my work on this stuff and then I would love to share it with anbody who might be interested.
Thanks, and all best
Thomas
On Jan 24, 2005, at 7:03 PM, Hans Hagen wrote:
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\ca tc 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 [email protected] http://www.ntg.nl/mailman/listinfo/ntg-context
_______________________________________________ ntg-context mailing list [email protected] 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 -----------------------------------------------------------------
_______________________________________________ ntg-context mailing list [email protected] http://www.ntg.nl/mailman/listinfo/ntg-context
_______________________________________________ ntg-context mailing list [email protected] http://www.ntg.nl/mailman/listinfo/ntg-context
