From d07c8d47209341d677012804bf39382e7201943f Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Mon, 9 Apr 2012 17:06:36 +0000
Subject: bgteubner (8apr12)

git-svn-id: svn://tug.org/texlive/trunk@25892 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/texmf-dist/tex/latex/bgteubner/ptmxcomp.sty | 300 +++++++++++++++++++++
 1 file changed, 300 insertions(+)
 create mode 100644 Master/texmf-dist/tex/latex/bgteubner/ptmxcomp.sty

(limited to 'Master/texmf-dist/tex/latex/bgteubner/ptmxcomp.sty')

diff --git a/Master/texmf-dist/tex/latex/bgteubner/ptmxcomp.sty b/Master/texmf-dist/tex/latex/bgteubner/ptmxcomp.sty
new file mode 100644
index 00000000000..c36aba20662
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/bgteubner/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
-- 
cgit v1.2.3

