summaryrefslogtreecommitdiff
path: root/macros/luatex/optex/logos.opm
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2020-02-13 03:00:51 +0000
committerNorbert Preining <norbert@preining.info>2020-02-13 03:00:51 +0000
commit8379012d545fd6a59fae8842d97d14ec0c2b27d7 (patch)
tree740889c25a2f4eb83c4433954ec856b568728575 /macros/luatex/optex/logos.opm
parent2dbfa6c67f1c50ff228326c6ec6cccfdecb61735 (diff)
CTAN sync 202002130300
Diffstat (limited to 'macros/luatex/optex/logos.opm')
-rw-r--r--macros/luatex/optex/logos.opm41
1 files changed, 41 insertions, 0 deletions
diff --git a/macros/luatex/optex/logos.opm b/macros/luatex/optex/logos.opm
new file mode 100644
index 0000000000..8d96d332ff
--- /dev/null
+++ b/macros/luatex/optex/logos.opm
@@ -0,0 +1,41 @@
+%% This is part of OpTeX project, see http://petr.olsak.net/optex
+
+\_codedecl \TeX {Logos TeX, LuaTeX, etc. <2019-05-21>}
+
+\_protected\_def \_TeX {T\_kern-.1667em\_lower.5ex\_hbox{E}\_kern-.125emX\_ignoreslash}
+\_protected\_def \_OpTeX {Op\kern-.1em\_TeX}
+\_protected\_def \_LuaTeX {Lua\_TeX}
+\_protected\_def \XeTeX {X\_kern-.125em\_phantom E%
+ \_pdfsave\_rlap{\_pdfscale{-1}{1}\_lower.5ex\_hbox{E}}\_pdfrestore \_kern-.1667em \_TeX}
+\_def\_LaTeX{\_tmpdim=.42ex L\_kern-.36em \_kern \_slantcorr % slant correction
+ \_raise \_tmpdim \_hbox{\_thefontscale[710]A}%
+ \_kern-.15em \_kern-\_slantcorr \_TeX}
+\_def\_slantcorr{\_ea\_ignorept \_the\_fontdimen1\_the\_font\_tmpdim}
+
+\_def\_ignoreslash {\_futurelet\_next \_ignoreslashA}
+\_def\_ignoreslashA {\_ifx\_next/\_ea\_ignoreit\_fi}
+\_def\_ignoreit#1{}
+{\_lccode`\?=`\p \_lccode`\!=`\t \_lowercase{\_gdef\_ignorept#1?!{#1}}}
+
+\_def\_OPmac{\_leavevmode
+ \_lower.2ex\_hbox{\_thefontscale[1400]O}\_kern-.86em P{\_em mac}\_ignoreslash}
+\_def\_CS{$\_cal C$\_kern-.1667em\_lower.5ex\_hbox{$\_cal S$}\_ignoreslash}
+\_def\_csplain{\_CS plain}
+
+
+\_public
+ \TeX \OpTeX \LuaTeX \XeTeX \LaTeX \OPmac \CS \csplain
+ \ignoreslash \ignoreit \ignorept ;
+
+\_endcode
+
+We define common logos used in \TeX. Despite plain \TeX/ each such macro
+ends by `\ignoreslash`. This macro ignores next slash if it is present.
+You can `use \TeX/ like this` for protecting the space following the logo.
+
+The `\ignoreit` macro ignores next token. The \ignorept macro used ike this:
+\begtt
+\ea\ignorept \the\dimen...
+\endtt
+consumes the "pt" phrase appended to dimen value by `\the`.
+