%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 / Hans Hagen \& Ton Otten}]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See licen-en.pdf for 
%C details. 

\writestatus{loading}{Context TeX Logos}

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

\unprotect

\convertargument cmr\to\someCMRfont

\def\doifCMRfontelse#1#2%
  {\doifinstringelse{\someCMRfont}{\fontname\font}
     {\def\next{#1}}
     {\def\next{#2}}%
   \next}

\unexpanded\def\CMRkern%
  {\doifCMRfontelse{\kern}{\scratchdimen=}}

\def\TeX%
  {T% 
   \kern-.1667em\lower.5ex\hbox{E}%
   \kern-.125emX}

\def\ConTeXt%
  {C%
   \CMRkern-.0333emo%
   \CMRkern-.0333emn%
   \CMRkern-.0333em\TeX%
   \CMRkern-.0333emt}

\def\PPCHTeX%
  {ppch\TeX}

\def\PRAGMA%
  {Pragma ADE}

\def\LaTeX%
  {L%
   \kern-.30em\raise.3ex\hbox{\txx A}%
   \kern-.18em\TeX}

\def\TaBlE%
  {T%
   \kern-.27em\lower.5ex\hbox{A}%
   \kern-.18emB%
   \kern-.1em\lower.5ex\hbox{L}%
   \kern-.075emE}

\def\PiCTeX%
  {P%
   \kern-.12em\lower.5ex\hbox{I}%
   \kern-.075em C%
   \kern-.11em\TeX}

\def\AMSswitch#1%
  {$\fam2\ifdim\korpsgrootte>1.1em\scriptstyle\fi#1$}

\def\AmSTeX%
  {\AMSswitch A%
   \kern-.1667em\lower.5ex\hbox{\AMSswitch M}%
   \kern-.125em\AMSswitch S%
   -\TeX}

\def\LamSTeX%
  {L%
   \kern-.4em\raise.3ex\hbox{\AMSswitch A}%
   \kern-.25em\lower.4ex\hbox{\AMSswitch M}%
   \kern-.1em{\AMSswitch S}%
   -\TeX}

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

\def\setMFPfont%
  {\font\logofont=logo%
     \ifnum\fam=\bffam bf\else
     \ifnum\fam=\slfam sl\else
     \ifnum\fam=\itfam sl\else
     \ifnum\fam=\bsfam bf\else
     \ifnum\fam=\bifam bf\else
     \fi\fi\fi\fi\fi
     10 at \currentfontscale\bodyfontsize
   \logofont}

\unexpanded\def\MetaFont% 
 {{\setMFPfont METAFONT}}

\unexpanded\def\MetaPost% 
 {{\setMFPfont METAPOST}}

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

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

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

%D And this is how they show up: \TeX, \MetaFont, \MetaPost,
%D \PiCTeX, \TaBlE, \ConTeXt, \PPCHTeX, \AmSTeX, \LaTeX,
%D \LamSTeX. We also define some logos for the programs that
%D we wrote and use at \PRAGMA: \TeX EDIT, \TeX FORM, \TeX
%D ADRES, \TeX SPELL, \TeX UTIL and \TeX.  

\def\TEXEDIT  {\TeX edit}
\def\TEXFORM  {\TeX form}
\def\TEXADRES {\TeX adres}
\def\TEXSPELL {\TeX spell}
\def\TEXUTIL  {\TeX util}
\def\TEXEXEC  {\TeX exec}

%D Some placeholders: 

\def\eTeX     {\mathematics{\varepsilon}-\TEX}
\def\pdfTeX   {pdf\TEX}
\def\pdfeTeX  {pdfe-\TEX}

\let\ETEX     \eTeX
\let\PDFTEX   \pdfTeX
\let\PDFETEX  \pdfeTeX

\protect

\endinput
