%D \module
%D   [       file=cont-log,
%D        version=1995.10.10,
%D          title=\CONTEXT\ Miscellaneous Macros,
%D       subtitle=\TEX\ Logos,
%D         author=J. Hagen,
%D           date=\currentdate,
%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.

\writestatus{loading}{ConTeXt TeX Logos}

%D The system that is used to typeset this text is called \TEX, typeset with an
%D lowered~E. From te beginning of \TEX, authors of macro packages adapted this
%D raising and lowering style. In this module we define some of those logos.

\unprotect

\unexpanded\def\TeX
  {\dontleavehmode
   \begingroup
   T%
   \setbox\scratchbox\hbox{M}%
   \kern-.1667\wd\scratchbox
   \lower.5\exheight\hbox{E}%
   \kern-.125\wd\scratchbox
   X%
   \endgroup}

\unexpanded\def\TeXsuffix{\wordboundary\TeX}
\unexpanded\def\TeXprefix{\TeX\wordboundary}

\unexpanded\def\ConTeXt
  {\dontleavehmode
   \begingroup
   Con%
   \wordboundary
   \setbox\scratchboxone\hbox{T\kern\zeropoint e}%
   \setbox\scratchboxtwo\hbox{Te}%
   \discretionary{-}{}{\kern\dimexpr\wd\scratchboxtwo-\wd\scratchboxone\relax}%
   \TeX t%
   \endgroup}

\unexpanded\def\PPCHTeX{ppch\TeX}
\unexpanded\def\PRAGMA {Pragma ADE}

\unexpanded\def\LaTeX % requested by erik frambach
  {\dontleavehmode
   \begingroup
   \setbox\scratchbox\hbox{L}%
   \scratchdimen\ht\scratchbox
   \setbox\scratchbox\hbox{\doresetattribute{case}\txx A}%
   L\kern-.55\wd\scratchbox
   \raise\scratchdimen\hbox{\lower\ht\scratchbox\copy\scratchbox}%
   \kern-.2\wd\scratchbox\TeX
   \endgroup}

\unexpanded\def\TaBlE
  {T%
   \kern-.27\emwidth\lower.5\exheight\hbox{A}%
   \kern-.18\emwidth B%
   \kern-.1\emwidth\lower.5\exheight\hbox{L}%
   \kern-.075\emwidth E}

\unexpanded\def\PiCTeX
  {P%
   \kern-.12\emwidth\lower.5\exheight\hbox{I}%
   \kern-.075\emwidth C%
   \kern-.11\emwidth\TeX}

\def\syst_logos_ams_script#1%
  {\normalstartimath
   \cal\ifdim\bodyfontsize>1.1\emwidth\scriptstyle\fi#1%
   \normalstopimath}

\unexpanded\def\AmSTeX
  {\dontleavehmode
   \syst_logos_ams_script A%
   \kern-.1667\emwidth\lower.5\exheight\hbox{\syst_logos_ams_script M}%
   \kern-.125\emwidth\syst_logos_ams_script S%
   -\TeX}

\unexpanded\def\LamSTeX
  {L%
   \kern-.4\emwidth\raise.3\exheight\hbox{\syst_logos_ams_script A}%
   \kern-.25\emwidth\lower.4\exheight\hbox{\syst_logos_ams_script M}%
   \kern-.1\emwidth{\syst_logos_ams_script S}%
   -\TeX}

% \unexpanded\def\AmSLaTeX
%   {\dontleavehmode
%    \syst_logos_ams_script A%
%    \kern-.1667\emwidth\lower.5\exheight\hbox{\syst_logos_ams_script M}%
%    \kern-.125\emwidth{\syst_logos_ams_script S}%
%    -\LaTeX}

%D Alternative \CONTEXT\ logo, first Idris S.~Hamid's version:
%D
%D \def\Context
%D   {{\sc C\kern -.0667emo\kern -.0667emn\kern -.0549emt\kern
%D    -.1667em\lower.5ex\hbox {e}\kern -.125emx\kern -.0549emt}}
%D
%D I changed this into one that adapts itself:

\unexpanded\def\Context % wrong usage of \getscaledglyph
  {\dontleavehmode
   \begingroup
   C%
   \kern -.0667\emwidth
   \getscaledglyph{.8}\empty{%
     O\kern-.0667\emwidth
     N%
     \discretionary{-}{}{\kern-.0549\emwidth}%
     T%
     \doifelseitalic
       {\kern-.1\emwidth}%
       {\kern-.1667\emwidth}%
     \lower.5\exheight\hbox{E}%
     \doifelseitalic
       \empty
       {\kern-.11em}%
     X%
     \kern-.055\emwidth
     T%
   }%
   \endgroup}

%D The \METAFONT\ and \METAPOST\ logos adapt themselves to the current fontsize, an
%D ugly but usefull hack.

\let\logofont\nullfont

% \loadmapfile[original-base.map] % stil needed? not if we assume afm

\unexpanded\def\setMFPfont% more sensitive for low level changes
  {\font\logofont=logo%
     \ifx\fontalternative\s!bf\s!bf\else
     \ifx\fontalternative\s!it\s!sl\else
     \ifx\fontalternative\s!sl\s!sl\else
     \ifx\fontalternative\s!bi\s!bf\else
     \ifx\fontalternative\s!bs\s!bf\else
     \fi\fi\fi\fi\fi
     10 at \currentfontscale\bodyfontsize % there is no afm in the minimals yet
   \logofont}

\def\syst_logos_meta_hyphen % there is no hyphenchar in this font
  {\discretionary{\vrule\s!height.33\emwidth\s!depth-.27\emwidth\s!width.33\emwidth}{}{}}

\unexpanded\def\MetaFont
  {\dontleavehmode
   \begingroup
   \setMFPfont META\syst_logos_meta_hyphen FONT%
   \endgroup}

% \unexpanded\def\MetaPost
%   {\dontleavehmode
%    \begingroup
%    \setMFPfont META\syst_logos_meta_hyphen POST%
%    \endgroup}
%
% As decided on the ConText Meeting 2013 the logo has been simplified:

\unexpanded\def\MetaPost
  {MetaPost}

\unexpanded\def\MetaFun
  {MetaFun}

%D \macros
%D  {TEX, METAFONT, METAPOST, METAFUN,
%D   PICTEX, TABLE,
%D   CONTEXT, PPCHTEX,
%D   AMSTEX, LATEX, LAMSTEX}
%D
%D We define the funny written ones as well as the less error prone upper case names
%D (in \CONTEXT\ we tend to write all user defined commands, like abbreviations, in
%D uppercase.)

\unexpanded\def\METAFONT {\MetaFont}
\unexpanded\def\METAPOST {\MetaPost}
\unexpanded\def\PPCHTEX  {\PPCHTeX}
\unexpanded\def\CONTEXT  {\ConTeXt}
\unexpanded\def\METAFUN  {\MetaFun}

\unexpanded\def\TEX      {\TeX}
\unexpanded\def\LATEX    {\LaTeX}
\unexpanded\def\PICTEX   {\PiCTeX}
\unexpanded\def\TABLE    {\TaBlE}
\unexpanded\def\AMSTEX   {\AmSTeX}
\unexpanded\def\LAMSTEX  {\LamSTeX}
\unexpanded\def\INRSTEX  {inrs\TeX}

%D And this is how they show up: \TeX, \MetaFont, \MetaPost, \PiCTeX, \TaBlE, \ConTeXt,
%D \PPCHTeX, \AmSTeX, \LaTeX, \LamSTeX.

%D Some placeholders:

\unexpanded\def\eTeX      {\mathematics{\varepsilon}-\TeX}
\unexpanded\def\pdfTeX    {pdf\wordboundary\TeX}
\unexpanded\def\pdfeTeX   {pdfe-\wordboundary\TeX}
\unexpanded\def\luaTeX    {lua\wordboundary\TeX}
\unexpanded\def\Lua       {Lua}
\unexpanded\def\luajitTeX {lua\wordboundary jit\wordboundary\TeX}
\unexpanded\def\luametaTeX{lua\wordboundary meta\wordboundary\TeX}
%unexpanded\def\XeTeX     {X\lower.5\exheight\hbox{\kern-.15\emwidth\mirror{E}}\kern-.1667\emwidth\TeX}

% Adapted from a patch by Mojca:

\def\syst_logos_xetex_e
  {\setbox\scratchbox\hbox{E}%
   \raise\dimexpr\ht\scratchbox+\dp\scratchbox\relax\hbox{\rotate[\c!rotation=180]{\box\scratchbox}}}

\unexpanded\def\XeTeX
  {X\lower.5\exheight
   \hbox
     {\kern-.15\emwidth
      \iffontchar\font"018E\relax
        \char"018E%
      \else
        \ifx\fontalternative\s!bf         \mirror{E}\else
        \ifx\fontalternative\s!it\syst_logos_xetex_e\else
        \ifx\fontalternative\s!sl\syst_logos_xetex_e\else
        \ifx\fontalternative\s!bi\syst_logos_xetex_e\else
        \ifx\fontalternative\s!bs\syst_logos_xetex_e\else
                                          \mirror{E}\fi\fi\fi\fi\fi
      \fi}%
   \kern-.1667\emwidth\TeX}

\let\ETEX      \eTeX
\let\PDFTEX    \pdfTeX
\let\PDFETEX   \pdfeTeX
\let\LUATEX    \luaTeX
\let\LUAJITTEX \luajitTeX
\let\LuaTeX    \luaTeX
\let\LuaMetaTeX\luametaTeX
\let\LUAMETATEX\luametaTeX
\let\XETEX     \XeTeX

\unexpanded\def\LuaTeX
  {\dontleavehmode
   \begingroup
     Lua%
     % hope for kerning, try aT
     \setbox0\hbox{aT}%
     \setbox2\hbox{a\kern\zeropoint T}%
     \ifdim\wd0=\wd2 % kerns can go two ways
       % no aT kerning, try oT as a is not symmetrical
       \setbox0\hbox{oT}%
       \setbox2\hbox{o\kern\zeropoint T}%
       \ifdim\wd0=\wd2 % kerns can go two ways
         % no aT and oT kerning, try To
         \setbox0\hbox{To}%
         \setbox2\hbox{T\kern\zeropoint o}%
         % maybe we need to compensate for the angle (sl/it/bs/bi)
       \fi
       \ifdim\wd0=\wd2\else
         \kern\dimexpr\wd0-\wd2\relax
       \fi
     \fi
     \TeX
   \endgroup}

\unexpanded\def\LuajitTeX
  {\dontleavehmode
   \begingroup
     % at this moment there is no real need for kerning tT
     Luajit\kern\zeropoint\TeX
   \endgroup}

\let\luaTeX   \LuaTeX
\let\luajitTeX\LuajitTeX
\let\LUATEX   \LuaTeX
\let\LUAJITTEX\LuajitTeX

\unexpanded\def\MKII{MkII} % MarkTwo
\unexpanded\def\MKIV{MkIV} % MarkFour   : MKIV
\unexpanded\def\MKVI{MkVI} % MarkSix    : MKIV
\unexpanded\def\MKXL{MkXL} % MarkFourty : LMTX
\unexpanded\def\MKLX{MkLX} % MarkSixty  : LMTX
\unexpanded\def\MKIX{MkIX} %            : MKIV / LMTX
\unexpanded\def\MKXI{MkXI} %            : MKIV / LMTX

\unexpanded\def\MPII{MpII} % MarkTwo
\unexpanded\def\MPIV{MpIV} % MarkFour   : MetaFun
\unexpanded\def\MPVI{MpVI} % MarkSix    : MetaFun
\unexpanded\def\MPXL{MpXL} % MarkFourty : LuaMetaFun
\unexpanded\def\MPLX{MpLX} % MarkSixty  : LuaMetaFun

\unexpanded\def\LMTX{lmtx} % for LuaMetaTeX

\appendtoks
    \def\ConTeXt   {ConTeXt}%
    \def\MetaPost  {MetaPost}%
    \def\MetaFont  {MetaFont}%
    \def\MetaFun   {MetaFun}%
    \def\TeX       {TeX}%
    \def\TeXsuffix {TeX}%
    \def\TeXprefix {TeX}%
    \def\LuaTeX    {LuaTeX}%
    \def\LuajitTeX {LuajitTeX}%
    \def\LuaMetaTeX{LuaMetaTeX}%
    \let\wordboundary\empty
\to \everysimplifycommands

\protect \endinput
