summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/bgteubner/source/ptmxcomp.sty
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/bgteubner/source/ptmxcomp.sty')
-rw-r--r--macros/latex/contrib/bgteubner/source/ptmxcomp.sty300
1 files changed, 300 insertions, 0 deletions
diff --git a/macros/latex/contrib/bgteubner/source/ptmxcomp.sty b/macros/latex/contrib/bgteubner/source/ptmxcomp.sty
new file mode 100644
index 0000000000..c36aba2066
--- /dev/null
+++ b/macros/latex/contrib/bgteubner/source/ptmxcomp.sty
@@ -0,0 +1,300 @@
+%
+% ptmxcomp package
+%
+% ptmxcomp.sty
+% Copyright 2004 Harald Harders
+%
+% This program may be distributed and/or modified under the
+% conditions of the LaTeX Project Public License, either version 1.2
+% of this license or (at your opinion) any later version.
+% The latest version of this license is in
+% http://www.latex-project.org/lppl.txt
+% and version 1.2 or later is part of all distributions of LaTeX
+% version 1999/12/01 or later.
+%
+% ChangeLog:
+%
+% 2004/11/19 v0.03 Harald Harders (h.harders@tu-bs.de)
+% - Avoid to use package calc
+%
+\ProvidesPackage{ptmxcomp}
+ [2004/11/19 v0.03 Declare textcomp symbols for mathptmx (HH)]
+
+\typeout{ptmxcomp: Redefine many accents and symbols from textcomp and
+ mathcomp.}%
+\typeout{\space\space\space\space\space\space\space\space\space\space
+ Some are ugly. These symbols generate a warning when using them.^^J}%
+
+\RequirePackage{textcomp}
+\RequirePackage[rmdefault]{mathcomp}
+\RequirePackage{graphicx}
+\RequirePackage{amsmath}
+
+% \end{macrocode}
+% Umkreiste Zahlen wiederherstellen, wenn Times verwendet (wird von
+% textcomp vermurkst):
+% \begin{macrocode}
+\DeclareTextAccentDefault{\textcircled}{OMS}
+
+
+% \cs{textohm} and \cs{tcohm} have to be corrected in case of Times as
+% base font.
+\renewcommand*\tcohm{\upOmega}%
+\renewcommand*\textohm{%
+ \begingroup
+ \ifthenelse{\equal{\f@series}{b}}{\boldmath}{}%
+ \ifthenelse{\equal{\f@shape}{it}}{%
+ \ensuremath{\Omega}%
+ }{%
+ \ifthenelse{\equal{\f@shape}{sl}}{%
+ \ensuremath{\Omega}%
+ }{%
+ \ensuremath{\upOmega}%
+ }%
+ }%
+ \endgroup
+}
+
+% \end{macrocode}
+% \cs{textpertenthousand} and \cs{tcpertenthousand} have to be
+% replaced by European Computer Modern in case of Times as base font.
+% \begin{macrocode}
+\newcommand*\hhcls@textpertenthousand{}%
+\let\hhcls@textpertenthousand=\textpertenthousand
+
+\renewcommand\textpertenthousand{%
+ \begingroup
+ \fontfamily{cmr}\selectfont
+ \hhcls@textpertenthousand
+ \PackageWarning{ptmxcomp}{\string\textperthousand\space and
+ \string\tcperthousand\space do not fit to\MessageBreak
+ Times (they are taken from European Computer\MessageBreak
+ Modern)}%
+ \endgroup
+}%
+\renewcommand*\tcpertenthousand{\text{\textpertenthousand}}
+
+% \end{macrocode}
+% Times does not have old-style digits.
+% \begin{macrocode}
+ \renewcommand*\tcdigitoldstyle{%
+ \PackageWarning{ptmxcomp}{\string\tcdigitoldstyle\space is ignored}%
+ }
+
+\newcommand*\hhcls@substituteaccent[2]{%
+ \expandafter\let\csname hhcls@#1\endcsname=#2
+ \expandafter\DeclareRobustCommand\csname #1\endcsname[1]{%
+ \begingroup
+ \ifthenelse{\equal{\f@family}{ptm}}{%
+ \fontencoding{TS1}\fontfamily{cmr}\selectfont
+ \csname hhcls@#1\endcsname{%
+ \fontencoding{T1}\fontfamily{ptm}\selectfont ##1}%
+ }{%
+ \ifthenelse{\equal{\f@family}{phv}}{%
+ \fontencoding{TS1}\fontfamily{cmss}\selectfont
+ \csname hhcls@#1\endcsname{%
+ \fontencoding{T1}\fontfamily{phv}\selectfont ##1}%
+ }{%
+ \ifthenelse{\equal{\f@family}{pcr}}{%
+ \fontencoding{TS1}\fontfamily{cmtt}\selectfont
+ \csname hhcls@#1\endcsname{%
+ \fontencoding{T1}\fontfamily{pcr}\selectfont ##1}%
+ }{%
+ \csname hhcls@#1\endcsname{##1}%
+ }%
+ }%
+ }%
+ \endgroup
+ \PackageWarning{ptmxcomp}{Accent #2 substituted by
+ the European\MessageBreak
+ Computer Modern variant}%
+ }%
+}
+\hhcls@substituteaccent{t}{\t}
+\hhcls@substituteaccent{capitaltie}{\capitaltie}
+\hhcls@substituteaccent{newtie}{\newtie}
+\hhcls@substituteaccent{capitalnewtie}{\capitalnewtie}
+\renewcommand*\textleftarrow{\ensuremath{\leftarrow}}%
+\renewcommand*\textrightarrow{\ensuremath{\rightarrow}}%
+\let\hhcls@textblank=\textblank
+\renewcommand*\textblank{%
+ \begingroup
+ \ifthenelse{\equal{\f@family}{ptm}}{%
+ \fontencoding{OT1}\fontfamily{cmr}\selectfont
+ \raisebox{0.4ex}[0ex][0ex]{\symbol{32}}%
+ \kern-0.25em b%
+ }{%
+ \ifthenelse{\equal{\f@family}{phv}}{%
+ \fontencoding{OT1}\fontfamily{cmss}\selectfont
+ \raisebox{0.5ex}[0ex][0ex]{\symbol{32}}%
+ \kern-0.25em b%
+ }{%
+ \ifthenelse{\equal{\f@family}{pcr}}{%
+ \fontencoding{OT1}\fontfamily{cmr}\selectfont
+ \raisebox{0.3ex}[0ex][0ex]{\symbol{32}}%
+ \kern-0.25em b%
+ }{%
+ \hhcls@textblank
+ }%
+ }%
+ }%
+ \endgroup
+ \PackageWarning{ptmxcomp}{\string\textblank\space mixed\MessageBreak
+ with European Computer Modern}%
+}
+
+\renewcommand*\textdblhyphen{%
+ \settowidth{\@tempdima}{-}%
+ \raisebox{0.15ex}[0pt][0pt]{-}%
+ \kern-\the\@tempdima
+ \raisebox{-0.15ex}[0pt][0pt]{-}%
+ \PackageWarning{ptmxcomp}{Using faked \string\textdblhyphen}%
+}
+\renewcommand*\textzerooldstyle{0%
+ \PackageWarning{ptmxcomp}{Old-style digit 0 not available}%
+}
+\renewcommand*\textoneoldstyle{1%
+ \PackageWarning{ptmxcomp}{Old-style digit 1 not available}%
+}
+\renewcommand*\texttwooldstyle{2%
+ \PackageWarning{ptmxcomp}{Old-style digit 2 not available}%
+}
+\renewcommand*\textthreeoldstyle{3%
+ \PackageWarning{ptmxcomp}{Old-style digit 3 not available}%
+}
+\renewcommand*\textfouroldstyle{4%
+ \PackageWarning{ptmxcomp}{Old-style digit 4 not available}%
+}
+\renewcommand*\textfiveoldstyle{5%
+ \PackageWarning{ptmxcomp}{Old-style digit 5 not available}%
+}
+\renewcommand*\textsixoldstyle{6%
+ \PackageWarning{ptmxcomp}{Old-style digit 6 not available}%
+}
+\renewcommand*\textsevenoldstyle{7%
+ \PackageWarning{ptmxcomp}{Old-style digit 7 not available}%
+}
+\renewcommand*\texteightoldstyle{8%
+ \PackageWarning{ptmxcomp}{Old-style digit 8 not available}%
+}
+\renewcommand*\textnineoldstyle{9%
+ \PackageWarning{ptmxcomp}{Old-style digit 9 not available}%
+}
+\renewcommand*\textlangle{\ensuremath{\langle}}
+\renewcommand*\textrangle{\ensuremath{\rangle}}
+\renewcommand*\textmho{\rotatebox[origin=cc]{180}{\textohm}}
+\renewcommand*\textbigcircle{\textcircled{}}
+
+\renewcommand*\textuparrow{\ensuremath{\uparrow}}%
+\renewcommand*\textdownarrow{\ensuremath{\downarrow}}%
+\newcommand*\hhcls@tsone@symbol[2]{%
+ \begingroup
+ \ifthenelse{\equal{\f@family}{ptm}}{%
+ \fontfamily{cmr}%
+ }{%
+ \ifthenelse{\equal{\f@family}{phv}}{%
+ \fontfamily{cmss}%
+ }{%
+ \ifthenelse{\equal{\f@family}{pcr}}{%
+ \fontfamily{cmtt}%
+ }{%
+ }%
+ }%
+ }%
+ \fontencoding{TS1}\selectfont\symbol{#2}%
+ \endgroup
+ \PackageWarning{ptmxcomp}{\string#1\space used from\MessageBreak
+ European Computer Modern}%
+}
+\renewcommand*\textborn{\hhcls@tsone@symbol{\textborn}{98}}
+\renewcommand*\textdivorced{\hhcls@tsone@symbol{\textdivorced}{99}}
+\renewcommand*\textdied{\hhcls@tsone@symbol{\textdied}{100}}
+\renewcommand*\textleaf{\hhcls@tsone@symbol{\textleaf}{108}}
+\renewcommand*\textmarried{\hhcls@tsone@symbol{\textmarried}{109}}
+\renewcommand*\textmusicalnote{\hhcls@tsone@symbol{\textmusicalnote}{110}}
+\renewcommand*\textdblhyphenchar{\textdblhyphen}
+
+\renewcommand*\textdollaroldstyle{\$%
+ \PackageWarning{ptmxcomp}{No old-style dollar available.\MessageBreak
+ Using ordinary one}%
+}
+\renewcommand*\textcentoldstyle{\textcent%
+ \PackageWarning{ptmxcomp}{No old-style cent available.\MessageBreak
+ Using ordinary one}%
+}
+\renewcommand*\textcolonmonetary{%
+ \settowidth{\@tempdima}{C}%
+ \makebox[\the\@tempdima][c]{\rule{0.05em}{0pt}|}\kern-\the\@tempdima C%
+}
+\renewcommand*\textwon{%
+ \settowidth{\@tempdimb}{W}%
+ \makebox[\@tempdimb][c]{\raisebox{.9ex}{\rule{\@tempdimb}{.1ex}}}%
+ \kern-\the\@tempdimb
+ \makebox[\@tempdimb][c]{\raisebox{.5ex}{\rule{\@tempdimb}{.1ex}}}%
+ \kern-\the\@tempdimb
+ W%
+}
+\renewcommand*\textnaira{%
+ \settowidth{\@tempdimb}{N}%
+ \makebox[\@tempdimb][c]{\raisebox{.9ex}{\rule{\@tempdimb}{.1ex}}}%
+ \kern-\the\@tempdimb
+ \makebox[\@tempdimb][c]{\raisebox{.5ex}{\rule{\@tempdimb}{.1ex}}}%
+ \kern-\the\@tempdimb
+ N%
+}
+\renewcommand*\textguarani{%
+ \settowidth{\@tempdima}{G}%
+ \makebox[\@tempdima][c]{\rule{0.05em}{0pt}|}\kern-\the\@tempdima G%
+}
+\renewcommand*\textpeso{%
+ \settowidth{\@tempdimb}{P}%
+ \makebox[0pt][l]{\raisebox{.4ex}{\rule{0.55\@tempdimb}{0.1ex}}}%
+ P%
+}
+\renewcommand*\textlira{%
+ \settowidth{\@tempdimb}{\textsterling}%
+ \makebox[0pt][l]{\rule{0.05\@tempdimb}{0pt}%
+ \raisebox{.5ex}{\rule{0.64\@tempdimb}{0.1ex}}}%
+ \textsterling
+}
+
+\renewcommand*\textinterrobang{%
+ \settowidth{\@tempdimb}{?}%
+ \makebox[\@tempdimb][c]{!}\kern-\@tempdimb?%
+}
+\renewcommand*\textinterrobangdown{%
+ \settowidth{\@tempdimb}{?`}%
+ \makebox[\@tempdimb][c]{!`}\kern-\@tempdimb?`%
+}
+\renewcommand*\textdong{%
+ \underline{\dj}%
+}
+
+\renewcommand*\textdiscount{%
+ \settoheight{\@tempdima}{/}%
+ \settoheight{\@tempdimc}{.}%
+ \raisebox{\@tempdima-\@tempdimc}{.}\kern-\@tempdimc
+ /%
+ \kern-\@tempdimc.%
+}
+
+\renewcommand*\textestimated{%
+ \scalebox{1.3}{e}%
+}
+
+\renewcommand*\textopenbullet{%
+ \raisebox{-0.45ex}[\height][0pt]{\textdegree}%
+}
+
+%\renewcommand*\textservicemark{%
+% \textsuperscript{SM}%
+%}
+
+\renewcommand*\textcopyleft{%
+ \rotatebox[origin=cc]{180}{\textcopyright}%
+}
+
+%\renewcommand*\textcircledP{\textcircled{P}}
+
+
+\endinput